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第一章开始 

本书介绍了在 Microsoft Windows 98 、Microsoft Windows NT 4. 0和 Windows 
NT 5.0 下程式写作的方法。这些程式用 C 语言编写并使用原始的 Windows 
Application Programming Interface ( API ) 。如在本章稍後所讨论的，这不 
是写作 Windows 程式的唯一方法。然而，无论最终您使用什么方式写作程式， 
了解 Windows API 都是非常重要的。 

正如您可能知道的 ， Windows 98已成为使用 Intel 32位元微处理器（例如 
486和 Pentium ) 的 IBM 相容型个人电脑环境上最新的图形作业系统之代表。 
Windows NT 是 IBM PC 相容机种以及一些 RISC (精简指令集电脑）工作站上使 
用的 Windows 工业增强型版本。 

使用本书有三个先决条件。首先，您应该从使用者的角度熟悉 Windows 98。 
不要期望可以在不了解 Windows 使用者介面的情形下开发其应用程式。因此， 
我建议您在开发程式（或在进行其他工作）时使用执行 Windows 的机器来跑 
Windows 应用程式。 

第二，您应了解 C 语言。如果要写 Windows 程式，一开始却不想了解 C 语 
言，那不是一个好主意。我建议您在文字控制台环境中，例如在 Windows 98 
MS - DOS 命令提示视窗下提供的环境中学习 C 语言。 Windows 程式设计有时包括 
一些非文字模式程式设计的 C 语言 部分； 在这些情况下，我将针对这些问题提 
供讨论。但大多数情况下，您应非常熟悉该语言，特别是 C 语言的结构和指标。 
了解标准 C 语言执行期程式库的一些相关知识是有帮助的，但不是必要的。 

第三，您应该在机器上安装一个适於进行 Windows 程式设计的32位元 C 语 
言编译器和开发环境。在本书中，假定您正在使用 Microsoft Visual C ++ 6.0, 
该套装软体可独立购买，也可作为 Visual Studio 6. 0套装软体的一部分购买。 

到此为止，我将不再假设您具有任何图形使用者介面（如 Windows ) 的程式 
写作经验。 


WIND0WS 环境 

Windows 几乎不需要介绍。然而人们很容易忘记 Windows 给办公室和家庭桌 
上型电脑所带来的重大改变。 Windows 在其早期曾经走过一段坎坷的道路，征服 
桌上型电脑市场的前途一度相当渺茫。 
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Windows 简史 

在1981年秋天 IBM PC 推出之後不久， MS - DOS 就已经很明显成为 PC 上的主 
流作业系统。 MS - DOS 代表 Microsoft Disk Operating System (磁碟作业系统）。 
MS - DOS 是一个小型的作业系统。 MS - DOS 提供给用户一种命令列介面，提供如 DIR 
和 TTPE 的命令，也可以将应用程式载入记忆体执行。对於应用程式写作者，它 
提供了一组函式呼叫，进行档案的输入输出（ I / O )。对於其他的周边处理—— 
尤其是将文字或图形写到显示器上——应用程式可以直接存取 PC 的硬体。 

由於记忆体和硬体的限制，成熟的图形环境缓慢地才到来。当苹果电脑公 
司不幸的 Lisa 电脑在1983年1月发表时，它提供了不同於文字模式环境的另 
一种选择，并在1984年1月成为 Macintosh 上图形环境的一种标准。尽管 
Macintosh 的市场占有率在下降，但是它仍然被认为是衡量所有其他图形环境的 
标准。包括 Macintosh 和 Windows 的所有图形环境，其实都要归功於 Xerox Palo 
Alto Research Center ( PARC ) 在 70 年代中期所作的开拓性研究工作。 

Windows 是由微软在1983年11月（在 Lisa 之後， Macintosh 之前）宣布， 
并在两年後 （ 1985年11月）发行。在此後的两年中，紧随著 Microsoft Windows 
早期版本 1.0 之後，又推出了几种改进版本，以支援国际商业市场，并提供新 
型视讯显示器和印表机的驱动程式。 

Windows 版本 2. 0是在1987年11月正式在市场上推出的。该版本对使用者 
介面做了一些改进。这些改进中最有效的是使用了可重叠式视窗，而 Windows 1. 0 
中使用的是并排式视窗。 Windows 2.0 还增强了键盘和滑鼠介面，特别是加入了 
功能表和对话方块。 

至此， Windows 还只要求 Intel 8086或者8088等级的微处理器，以「实际 
模式」执行，只能存取位址在 1 MB 以下的记忆体。 Windows /386 (在 Windows 2. 0 
之後不久发行的）使用 Intel 386微处理器的「虚拟8086」模式，实现将直接 
存取硬体的多个 MS - DOS 程式视窗化和多工化。为了统一起见， Windows 版本 2. 1 
被更名为 Windows /286。 

Windows 3.0 是在1990年5月22日发表的。它将 Windows /286 和 
Windows /386 结合到同一种产品中 。 Windows 3. 0有了一个很大的改变，这就是 
对 Intel 的286、386和486微处理器保护模式的支援。这能使 Windows 和 Windows 
应用程式能存取高达 16 MB 的记忆体。 Windows 用於执行程式和维护档案的「外 
壳」程式得到了全面的改进 。 Windows 3.0 是第一个在家用和办公室市场上取得 
立足点的版本。 

任何 Windows 的历史介绍都必须包括一些 OS /2 的说明， OS /2 是对 DOS 和 
Windows 的另一种选择，最初是由 Microsoft 和 IBM 合作开发的。 OS /2 版本 1. 0 

第2页 




Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


(只有文字模式）在 Intel 286 (或者後来的）微处理器上运行，在1987年末 
发布。在1988年10月的 OS /2 版本 1. 1中出现了管理图形使用者介面的 PM 
(Presentation Manager ) 。 PM 最初的设计构想是成为 Windows 的一种保护模 
式版本，但是图形 API 改变程度太大，致使软体生产厂商很难提供对这两种平 
台的支援。 

到1990年9月， IBM 和 Microsoft 之间的冲突达到了高峰，导致这两个公 
司最後分道扬镳。 IBM 接管了 OS /2，而 Microsoft 明确表示 Windows 将是他们 
作业系统策略的中心。虽然 OS /2 仍然拥有一些狂热的崇拜者，但是它远不及 
Windows 这样的普及程度。 

Microsoft Windows 版本 3. 1是1992年4月发布的，其中包括的几个重要 
特性是 TrueType 字体技术（给 Windows 带来可缩放的轮廓字体）、多媒体（声 
音和音乐）、物件连结和嵌入 ( OLE ： Object Linking and Embedding ) 和通用 
对话方块。跟 OS /2 —样 ， Windows 3.1 只能在保护模式下运作，并且要求至少 
配置了 1 MB 记忆体的286或386处理器。 

在1993年7月发表的 Windows NT 是第一个支援 Intel 386、486和 Pentium 
微处理器32位元保护模式的 Windows 版本 。 Windows NT 提供32位元平坦定址， 
并使用32位元的指令集。（本章後面我会谈到一些定址空间的问题 ）。 Windows 
NT 还可以移植到非 Intel 处理器上，并在几种使用 RISC 晶片的工作站上执行。 

Windows 95是在 1995年8月发布的。和 Windows NT 一▲样 ， Windows 95也 
支援 Intel 386或更高等级处理器的32位元保护模式。虽然它缺少 Windows NT 
中的某些功能，诸如高安全性和对 RISC 机器的可携性等，但是 Windows 95具 
有需要较少硬体资源的优点。 

Windows 98在1998年6月发布，具有许多加强功能，包括执行效能的提高、 
更好的硬体支援以及与网际网路和全球资讯网 （ WWW ) 更紧密的结合。 


Windows 方面 

Windows 98和 Windows NT 都是支援32位元优先权式多工 (preemptive 
multitasking ) 及多执行绪的图形作业系统。 Windows 拥有图形使用者介面 
( GUI ), 这种使用者介面也称作「视觉化介面」或「图形视窗环境」。有关 Gl (^ 
的概念可追溯至70年代中期，在 Alto 和 Star 等机器上以及 SmallTalk 等环 t 
中由 Xerox PARC 所作的研究工作。该项研究的成果後来被 Apple Computer 和 
Microsoft 引入主流并流行起来。虽然有一些争议，但现在已非常清楚，⑶ I 是 
( Microsoft 的 Charles Simonyi 的说法） 一 个在个人电脑工业史上集各方面技 
术大成於一体的最重要产物。 
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所有 GUI 都在点矩阵对应的视讯显示器上处理图形。图形提供了使用萤幕 
的最佳方式、传递资讯的视觉化丰富多彩环境，以及能够 WYSIWYG (what you see 
is what you get ： 所见即所得）的图形视讯显示和为书面文件准备好格式化文 
字输出内容。 

在早期，视讯显示器仅用於回应使用者通过键盘输入的文字。在图形使用 
者介面中，视讯显示器自身成为使用者输入的一个来源。视讯显示器以图示和 
输入设备（例如按钮和卷轴）的形式显示多种图形物件。使用者可以使用键盘 
(或者更直接地使用滑鼠等指向装置）直接在萤幕上操纵这些物件，拖动图形 
物件、按下滑鼠按钮以及滚动卷轴。 

因此，使用者与程式的交流变得更为亲密。这不再是一种从键盘到程式， 
再到视讯显示器的单向资讯流动，使用者已经能够与显示器上的物件直接交互 
作用了。 

使用者不再需要花费长时间学习如何使用电脑或掌握新程式了。 Windows 让 
这一切成真，因为所有应用程式都有相同的基本外观和感觉。程式占据一个视 
窗 一一 萤幕上的一块矩形区域。每个视窗由一个标题列标识。大多数程式功能 
由程式的功能表开始。用户可使用卷轴观察那些无法在一个萤幕中装下的资讯。 
某些功能表项目触发对话方块，用户可在其中输入额外的资讯。几乎在每个大 
的 Windows 程式中都有一个用於开启档案的特殊对话方块。该对话方块在所有 
这些 Windows 程式中看起来都一样（或接近相同），而且几乎总是从同一功能 
表选项中启动。 

一旦您了解使用一个 Windows 程式的方法，您就非常容易学习其他的 
Windows 程式。功能表和对话方块允许用户试验一个新程式并探究它的功能。大 
多数 Windows 程式同时具有键盘介面和滑鼠介面。虽然 Windows 程式的大多数 
功能可通过键盘控制，但使用滑鼠要容易得多。 

从程式写作者的角度看，一致的使用者介面来自於 Windows 建构功能表和 
对话方块的内置程式。所有功能表都有同样的键盘和滑鼠介面，因为这项工作 
是由 Windows 处理，而不是由应用程式处理。 

为便於多个程式的使用，以及这些程式间资讯的交换， Windows 支援多工。 
在同一时刻能有多个 Windows 程式显示并运行。每个程式在萤幕上占据一个视 
窗。用户可在萤幕上移动视窗，改变它们的大小，在不同程式间切换，并从一 
个程式向另一个程式传送资料。因为这些视窗看起来有些像桌面上的纸（当然， 
这是电脑还未占据办公桌之前的年代）， Windows 有时被 称作： 一 个显示多个程 
式的「具象化桌面」。 

Windows 的早期版本使用一种「非优先权式 （ non - preemptive ) 」的多工系 
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统。这意味著 Windows 不使用系统计时器将处理时间分配给系统中运行的多个 
应用程式，程式必须自愿放弃控制以便其他程式运行。在 Windows NT 和 Windows 
98中，多工是优先权式的，而且程式自身可分割成近乎同时执行的多个执行绪。 

作业系统不对记忆体进行管理便无法实现多工。当新程式启动、旧程式终 
止时，记忆体会出现碎裂空间。系统必须能够将闲置的记忆体空间组织在一起， 
因此系统必须能够移动记忆体中的程式码和资料块。 

即使是在8088微处理器上跑的 Windows 1. 0也能进行这类记忆体管理。在 
实际模式限制下，这种能力被认为是软体工程一个令人惊讶的成就。在 Windows 
1.0 中， PC 硬体结构的 640 KB 记忆体限制，在不要求任何额外记忆体的情况下 
被有效地扩展了。但 Microsoft 并未就此停步 ： Windows 2. 0允许 Windows 应用 
程式存取延伸记忆体 ( EMS ) ； Windows 3. 0在保护模式下，允许 Windows 应用 
程式存取高达 16 MB 的扩展记忆体 。 Windows NT 和 Windows 98通过成熟的32位 
元作业系统及平坦定址空间，摆脱了这些旧的限制。 

Windows 上执行的程式可共用在称为「动态连结程式库」的档案中的常式。 
Windows 包括一个机制，能够在执行时连结使用动态连结程式库中常式的程式。 
Windows 自身基本上就是一个动态连结程式库的集合。 

Windows 是一个图形介面， Windows 程式能够在视讯显示器和印表机上充分 
利用图形和格式化文字。图形介面不仅在外观上更有吸引力，而且还能够让使 
用者传递高层次的资讯。 

Windows 应用程式不能直接存取蛮幕和印表机等图形显示设备硬体。相反， 
Windows 提供一种图形程式语言（称作图形装置介面，或者 GDI ) ，使显示图形 
和格式化文字更容易。 Windows 虚拟化了显示硬体，使为 Windows 编写的程式可 
使用任何具有 Windows 装置驱动程式的视频卡或印表机，而程式无需确定系统 
相连的装置类型。 

对 Windows 开发者来说，将与装置无关的图形介面输出到 IBM PC 上不是件 
轻松的事。 PC 的设计是基於开放式架构的原则，鼓励第三方硬体制造商为 PC 开 
发周边设备，而且开发了大量这样的设备。虽然出现了多种标准， PC 上的传统 
MS - DOS 程式仍不得不各自支援许多不同的硬体设备。这对 MS - DOS 文字处理软体 
来说非常普遍，它们连同1到2张有许多小档案的磁片一同销售，每个档案支 
援一种特定的印表机。 Windows 程式不要求每个应用程式都自行开发这些驱动程 
式，因为这种支援是 Windows 的一部分。 

动态连结 

Windows 运作机制的核心是一个称作「动态连结」的概念。 Windows 提供了 
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应用程式丰富的可呼叫函式，大多数用於实作其使用者介面和在视讯显示器上 
显示文字和图形。这些函式采用动态连结程式库 (Dynamic Linking Library , 
DLL ) 的方式撰写。这些动态连结程式库是些具有 . DLL 或者有时是 . EXE 副档名 
的档案，在 Windows 98中通常位於 \ WINDOWS \ SYSTEM 子目录中，在 Windows NT 
中通常位於 \ WINNT \ SYSTEM 和 \ WINNT \ SYSTEM 32 子目录中。 

在早期， Windows 的主要部分仅通过三个动态连结程式库实作。这代表了 
Windows 的三个主要子系统，它们被称作 Kernel 、 User 和 GDI 。 当子系统的数 
目在 Windows 最近版本中增多时，大多数典型的 Windows 程式产生的函式呼叫 
仍对应到这三个模组之一 。 Kernel (日前由16位元的 KRNL 386. EXE 和32位元 
的 KERNEL 32. DLL 实现）处理所有在传统上由作业系统核心处理的事务——记忆 
体管理、档案 I / O 和多工管理。 User (由16位的 USER . EXE 和32位的 USER 32. DLL 
实作）指使用者介面，实作所有视窗运作机制 。 GDI (由16位的 GDI . EXE 和32 
位的 GDI 32. DLL 实作）是一个图形装置介面，允许程式在萤幕和印表机上显示 
文字和图形。 

Windows 98支援应用程式可使用的上千种函式呼叫。每个函数都有一个描 
述名称，例如 CreateWindowo 该函数（如您所猜想的）为程式建立新视窗。所 
有应用程式可以使用的 Windows 函式都在表头档案里预先宣告过。 

在 Windows 程式中，使用 Windows 函式的方式通常与使用如 strlen 等 C 语 
言程式库函式的方式相同。主要的区别在於 C 语言程式库函式的机械码连结到 
您的程式码中，而 Windows 函式的程式码在您程式执行档外的 DLL 中。 

当您执行 Windows 程式时，它通过一个称作「动态连结」的过程与 Windows 
相接。一个 Windows 的. EXE 档案中有使用到的不同动态连结程式库的参考资料， 
所使用的函式即在那些动态连结程式库中。当 Windows 程式被载入到记忆体中 
时，程式中的呼叫被指向 DLL 函式的入口。如果该 DLL 不在记忆体中，就把它 
载入到记忆体中。 

当您连结 Windows 程式以产生一个可执行档案时，您必须连结程式开发环 
境提供的特定「引用程式库 (import library ) 」。这些引用程式库包含了动 
态连结程式库名称和所有 Windows 函式呼叫的引用资讯。连结程式使用该资讯 
在 . EXE 档案中建立一个表格，在载入程式时， Windows 使用它将呼叫转换为 
Windows 函式。 

WIND0WS 程式设计选项 

为说明 Windows 程式设计的多种技术，本书提供了许多范例程式。这些程 
式使用 C 语言撰写并原原本本的使用 Windows API 来开发程式。我将这种方法 
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称作「古典」 Windows 程式设计。这是我们在1985年为 Windows 1. 0写程式的 
方法，它今天仍是写作 Windows 程式的有效方法。 

API 和记忆体模式 

对於程式写作者来说，作业系统是由本身的 API 定义的。 API 包含了所有应 
用程式能够使用的作业系统函式呼叫，同时包含了相关的资料型态和结构。在 
Windows 中， API 还意味著一个特殊的程式架构，我们将在每章的开头进行研究。 

一般而言， Windows API 自 Windows 1.0 以来一直保持一致，没什么重大改 
变。具有 Windows 98程式写作经验的 Windows 程式写作者会对 Windows 1. 0程 
式的原始码感觉非常熟悉。 API 改变的一种方式是进行增强。 Windows 1.0 支援 
不到450个函式呼叫，现在已有了上千种函式呼叫。 

Windows API 和它的语法的最大变化来自於从16位元架构向32位元架构转 
化的过程中。 Windows 从版本 1. 0到版本 3. 1使用16位元 Intel 8086、8088、 
和286微处理器上所谓的分段记忆体模式，由於相容性的原因，从386开始的 
32位元 Intel 微处理器也支援该模式。在这种模式下，微处理器暂存器的大小 
为16位元，因此 C 的 int 资料型态也是16位元宽。在分段记忆体模式下，记 

忆体位址由两个部分组成-一个16位元段 （ segment ) 指标和一个16位偏移 

量 ( offset ) 指标。从程式写作者的角度看，这非常凌乱并带来了 long 或 far 
指标（包括段位址和偏移量位址）和 short 或 near 指标（包括带有假定段位址 
的偏移量位址）的区别。 

从 Windows NT 和 Windows 95开始 ， Windows 支援使用 Intel 386、486和 
Pentium 处理器32位元模式下的32位元平坦定址记忆体模式。 C 语言的 int 资 
料型态也扩展为32位元的值。为32位元版本 Windows 编写的程式使用简单的 
平坦线性空间定址的32位元指标值。 

用於16位元版本 Windows 的 API (Windows L 0到 Windows 3. 1) 现在称作 
Winl 6 o 用於32位元版本 Windows 的 API (Windows 95 、 Windows 98和所有版 
本的 Windows NT ) 现在称作 Win 32。许多函式呼叫在从 Winl 6 到 Win 32 的转变 
中保持相同，但有些需要增强。例如，图像座标点由 Winl 6 中的16位元值变为 
Win 32 中的32位元值。此外，某些 Winl 6 函式呼叫返回一个包含在32位元整数 
值中的二维座标点。这在 Win 32 中不可能，因此增加的新函式呼叫以不同方式 
运作。 

所有32位元版本的 Windows 都支援 Winl 6 API ( 以确保和旧有应用程式相 
容）和 Win 32 API (以运行新应用程式）。非常有趣的是， Windows NT 与 Windows 
95及 Windows 98的工作方式不同。在 Windows NT 中， Winl 6 函式呼叫通过一 
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个转换层被转化为 Win 32 函式呼叫，然後被作业系统处理。在 Windows 95和 
Windows 98中，该操作正相反： Win 32 函式呼叫通过转换层转换为 Winl 6 函式 
呼叫，再由作业系统处理。 

在同一时刻有两个不同的 Windows API 集（至少名称不同）。 Win 32 s (「 s 」 
代表 「subset (子集）」 ） 是一个 API ， 允许程式写作者编写在 Windows 3.1 上 
执行的32位元应用程式。该 API 仅支援已被 Winl 6 支援的32位元函式版本。 
此外 ， Windows 95 API —度被称作 Win 32 c (「 c 」 代表 「compatibility (相容 

性）」 ） ，但该术语已被抛弃了。 

现在 ， Windows NT 和 Windows 98都被认为能够支援 Win 32 API 。 然而，每 
个作业系统依然都支援某些不被别的作业系统支援的某些功能特性。因为它们 
的相同之处是相当可观的，所以有可能编写在两个作业系统下都可执行的程式。 
而且，人们普遍认为这两个产品最终会合而为一。 

语言选项 

使用 C 语言和原始的 API 不是编写 Windows 98程式的唯一方法。然而，这 
种方法却提供给您最佳的性能、最强大的功能和在发掘 Windows 特性方面最大 
的灵活性。可执行档案相对较小且运行时不要求外部程式库（自然 ， Windows DLL 
自身除外）。最重要的是，不管您最终以什么方式开发 Windows 应用程式，熟 
悉 API 会使您对 Windows 内部有更深入的了解。 

虽然我认为学习古典的 Windows 程式设计对任何 Windows 程式写作者都是 
重要的，我没有必要建议使用 C 和 API 编写每个 Windows 应用程式。许多程式 
写作者，特别是那些为公司内部开发程式或在家编写娱乐程式的程式写作者喜 
欢轻松的开发环境，例如 Microsoft Visual Basic 或者 Borland Delphi (它结 

合了物件导向的 Pascal 版本）。这些环境使程式写作者将精力集中於应用程式 
的使用者介面和相关使用者介面物件的程式码上。要学习 Visual Basic , 您也 
许需要参考 Microsoft Press 的一^些其他图书，例如 Michael Halvorsonl 996 
年著的 ((Learn Visual Basic Now )) 。 

在专业程式写作者中 一一 特别是那些开发商业应用程式的程式写作者 一一 
Microsoft Visual C ++ 和 Microsoft Foundation Class Library ( MFC ) 是近年 

来流行的选择。 MFC 在一组 C ++ 物件类别中封装了许多 Windows 程式设计中的琐 
碎细节 。 Jeff Prosise 的 《Programming Windows with MFC , 第二版 》 (Microsoft 
Press , 1999 年）提供了 MFC 程式的写作指南。 

最近 ， Internet 和 World Wide Web 的流行大力推广著 Sun Microsystems 
的 Java , 这是一个受 C ++ 启发却与微处理器无关的程式设计语言，而且结合了 
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可在几个作业系统平台上执行的图形应用程式开发工具组 。 Microsoft Press 有 
一 本关於 Microsoft J ++ (Microsoft 的 Java ) 开发工具的好书 ， 《Programming 
Visual J ++ 6.0》 （1998 年），由 Stephen R . Davis 著。 

显然，很难说哪种方法更有利於开发 Windows 应用程式。更主要的是，也 
许是应用程式自身的特性决定了所使用的工具。不管您最後实际上使用什么工 
具写作程式，学习 Windows API 将使您更深入地了解 Windows 工作的方式。 
Windows 是一个复杂的系统，在 API 上增加一个程式写作层并未减少它的复杂性， 
仅仅是掩盖了它，早晚您会碰到它。了解 API 会给您更好的补救机会。 

在原始的 Windows API 之上的任何软体层都必定将您限制在全部功能的一 
个子集内。您也许发现，例如，使用 Visual Basic 编写应用程式非常理想，然 
而它不允许您做一个或两个很简单的基本工作。在这种情况下，您将不得不使 
用原始的 API 呼叫。 API 定义了作为 Windows 程式写作者所需的一切。没有什么 
方法比直接使用 API 更万能的了。 

MFC 尤其问题百出。虽然它大幅简化了某些工作（例如 OLE ) ，我却经常发 
现要让它们按我所想的去工作时，会在其他特性（例如 Document / View 架构） 
上碰壁。 MFC 还不是 Windows 程式设计者所追求的灵丹妙药，很少有人认为它是 
一个好的物件导向设计的模型。 MFC 程式写作者从他们使用的物件类别定义如何 
工作中受益颇深，并会发现他们经常参考 MFC 原始码，搞懂这些原始码是学习 
Windows API 的好处之一。 

程式开发环境 

在本书中，假定您正使用 Microsoft Visual C ++ 6.0，标准版、专业版和 
企业版都可以。经济的标准版足以应付本书中的程式设计需求 。 Visual C ++ 还 
是 Visual Studio 6.0 中的一部分。 

Microsoft Visual C ++ 套装软体中包括 C 编译器和其他编译及连结 Windows 
程式所需的档案和工具等。它还包括 Visual C ++ Developer Studio , 一 个可编 
辑原始码、以交谈方式建立资源（如图示和对话方块）以及编辑、编译、执行 
和测试程式的环境。 

如果您正使用 Visual C ++ 5.0，则需要为 Windows 98和 Windows NT 5. 0 

更新表头档案和引用程式库，这些东西可从 Microsoft 的网站上得到。 
在 http :// www . microsoft . com / msdn / ，选择「 Downloads 」 ，然後选择 

「 Platform SDI : 」（软体开发套件），您就能在选择的目录中下载和安装更 
新档案。要让 Microsoft Developer Studio 浏览这些目录，可以从「 Tool 」 
功能表项选择「 Options 」然後按下「 Directories 」标签。 
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Microsoft 网站上的 msdn 部分代表 「Microsoft Developer Network 
( Microsoft 软体开发者网路）」。这是一个向程式写作者提供了经常更新的 
⑶ - ROM 的计划，这些⑶ - ROM 中包含了程式写作者在 Windows 开发中所需的最新 
东西。您也可以订阅 MSDN ， 这样就避免经常得从 Microsoft 的网站下载档案。 

API 文件 

本书不是 Windows API 权威的正式文件的替代品。那组文件不再以印刷形 
式出版，它仅能从 CD - ROM 或 Internet 上取得。 

当您安装 Visual C ++ 6. 0时，您将得到一个包括 API 文件的线上求助系统。 
您可通过订阅 MSDN 或使用 Microsoft 网站上的线上求助系统更新该文件。连接 
到 http :// www . microsoft . com / msdn / ，并选择 「 MSDN Library Online 」。 

在 Visual C ++ 6.0 中，从「 Help 」 功能表项选择「 Contents 」 项目开 
启 MSDN 视窗。 API 文件按树形结构组织，寻找标有 「 Platform SDK 」的部分， 
所有在本书中引用的文件都来自於该部分。我将向您介绍如何从 「 Platform 
SDK 」 开始寻找以斜线分层分门别类的文件的位置。（我知道 「Platform SDK 」 
是整个 MSDN 知识库中较为晦涩的部分，但我敢保证那是 Windows 程式设计的基 
本核心。）例如，对於如何在 Windows 程式中使用滑鼠的文件，您可参考/ 
Platform SDK / User Interface Services / User Input / Mouse Input 。 

我在前面提到 Windows 大致分为 Kernel 、 User 和 GDI 子系统。 kernel 介面 
在 / Platform SDK / Windows Base Services 中 ， User 介面函式在 / Platform 
SDK / User Interface Services 中 ， GDI 位方令 / Platform SDK / Graphics and 
Multimedia Services / GDI 中。 

编写第一个 windows 程式 

现在是开始写些程式的时候了。为了便於对比，让我们以一个非常短的 
Windows 程式和一个简短的文字模式程式开始。这会帮助我们找到使用开发环境 
并感受建立和编译程式机制的正确方向。 

文字模式 (Character-Mode ) 模型 

程式写作者们喜爱的一本书是 《The C Programming Language》（Prentice 
Hall , 1978 年和 1988 年），由 Brian W . Kernighan 和 Dennis M . Ritchie (亲 
切地称为 K & R ) 编著。该书的第一章以一个显示 「 hello , world 」 的 C 语言程式 
开始。 

这里是在 《The C Programming Language )) 第一版第6页中出现的 程式： 
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main () 

{ 

printf ("hello, world\n"); 

} 

以前 c 程式写作者在使用 printf 等 C 执行期程式库函式时，无需先宣告它 
们。但这是90年代，我们愿意给编译器一个在我们的程式中标出错误的机会。 
这里是在 K & R 第二版中修正的 程式： 

♦include <stdio.h> 
main () 

{ 

printf ("hello, world\n"); 

} 

该程式仍然是那么短。但它可通过编译并执行得很好，但当今许多程式写 
作者更愿意清楚地说明 main 函式的返回值，在这种情况下 ANSI C 规定该函式 
必须返回一个值： 

♦include <stdio.h> 
int main () 

{ 

printf ("hello, world\n"); 
return 0 ; 

} 

我们还可以包括 main 的参数，把程式弄得更长一些，但让我们暂且这样就 
好了 一一 包括一个 include 宣告、程式的进入点、一个对执行期程式库函式的 
呼叫和 一 *个 return 语句。 

同样效果的 Windows 程式 

Windows 关於 「 hello , world 」 程式的等价程式有和文字模式版本完全相同 
的元件。它有一个 include 宣告、一个程式进入点、一个函式呼叫和一个 return 
语句。下面便是该程式： 

/* - 

HelloMsg.c -- Displays "Hello, Windows 98!" in a message box 
(c) Charles Petzold, 1998 


♦include <windows.h> 

int WINAPI WinMain ( HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

MessageBox (NULL, TEXT ("Hello, Windows 98!，'），TEXT ("HelloMsg") , 0); 
return 0 ; 

} 

在剖析该程式之前，让我们看一下在 Visual C ++ Developer Studio 中建 
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立新程式的方式。 

首先，从 File 功能表中选 New 。在 New 对话方块中，单击 Projects 页 
面标签，选择 Win 32 Application 。在 Location 栏中，选择一个子目录， 
在 Project Name 栏中，输入该专案的名称，此时该名称是 HelloMsg ，这便 
是在 Location 栏中显示的目录的子目录 。 Create New Workspace 核取方块 
应该勾起来， Platforms 部分应该显示 Win 32 ,选择 。 

将会出现一个标题为 Win 32 Application - Step 1 Of 1 的对话方块，指 
出要建立一个 Empty Project ，并按下 Finish 按钮。 

从 File 功能表中再次选择 New 。 在 New 对话方块中，选择 Files 页面 
标签，选择 C++ Source File 。 Add To Project 核取方块应被选中，并应显 
示 HelloMsg 。 在 File Name 栏中输入 HelloMsg. c , 选中 OK 。 

现在您可输入上面所示的 HELLOMSG . C 档案，您也可以选择 Insert 功能表 
和 File As Text 选项从本书附带的 CD - ROM 上复制 HELLOMSG . C 的内容。 

从结构上说， HELLOMSG . C 与 K & R 的 「 hello , world 」 程式是相同的。表头档 
案 STDIO . H 已被 WINDOWS . H 所代替，进入点 main 被 WinMain 所代替，而且 C 语 
言执行时期程式库函式 printf 被 Windows API 函式 MessageBox 所代替。然而， 
在程式中有许多新东西，包括几个陌生的大写识别字。 

让我们从头开始。 

表头档案 

HELLOMSG . C 以一个前置处理器指示命令开始，实际上在每个用 C 编写的 
Windows 程式的开头都可看到： 

♦include <windows.h> 

WINDOWS . H 是主要的含入档案，它包含了其他 Windows 表头档案，这些表头 
档案的某些也包含了其他表头档案。这些表头档案中最重要的和最基本 的是： 
WINDEF . H 基本型态定义。 

WINNT.H 支援 Unicode 的型态定义。 

WINBASE. H Kernel 函式。 

WINUSER . H 使用者介面函式。 

WINGDI . H 图形装置介面函式。 

这些表头档案定义了 Windows 的所有资料型态、函式呼叫、资料结构和常 
数识别字，它们是 Windows 文件中的一个重要部分。使用 Visual C++Developer 
Studio 的 Edit 功能表中的 Find in Files 搜索这些表头档案非常方便。您还 
可以在 Developer Studio 中打开这些表头档案并直接阅读它们。 
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程式进入点 

正如在 C 程式中的进入点是函数 main 一样， Windows 程式的进入点是 
WinMain , 总是像这样出现： 

int WINAPI WinMain ( HINSTANCE hlnstance , HINSTANCE hPrevInstance, 

PSTR szCmdLine,int iCmdShow) 

该进入点在 / Platform SDK / User Interface Services / Windowing / 
Windows / Window Reference / Window Functions 中有说明。它在 WINBASE . H 
中宣告 如下： 

int 

WINAPI 
WinMain ( 

HINSTANCE hlnstance, 

HINSTANCE hPrevInstance, 

LPSTR lpCmdLine, 
int nShowCmd 
)； 

您会注意到我在 HELLOMSG . C 中做了许多小改动。第三个参数在 WINBASE . H 
中定义为 LPSTR ， 我将它改为 PSTRo 这两种资料型态都定义在 WINNT . H 中，作 
为指向字串的指标。 LP 字首代表「长指标」，这是16位元 Windows 下的产物。 

我还在 WinMain 宣告中改变了两个参数的名称。许多 Windows 程式中的变 
数名使用一种称作「匈牙利表示法」的命名系统，该系统在变数名称前面增加 
了表示变数资料型态的短字首，我将在第三章更详细地讨论这个概念。现在仅 
需记住字首 i 表示 int 、 sz 表示「以零结束的字串」。 

WinMain 函式宣告为返回一个 int 值。 WINAPI 识别字在 WINDEF . H 定义，语 
句如下： 

#define WINAPI stdcall 

该语句指定了一个呼叫约定，包括如何生产机械码以在堆叠中放置函式呼 
叫的参数。许多 Windows 函式呼叫宣告为 WINAPIo 

WinMain 的第一个参数被称作「执行实体代号」。在 Windows 程式设计中， 
代号仅是一个应用程式用来识别某些东西的数字。在这种情况下，该代号唯一 
地标识该程式，还需要它在其他 Windows 函式呼叫中作为参数。在 Windows 的 
早期版本中，当同时运行同一程式多次时，您便创建了该程式的「多个执行实 
体 (multiple instances ) 」。同一应用程式的所有执行实体共用程式和唯读 
的记忆体（通常是例如功能表和对话方块模板的资源）。程式通过检查 
hPrevInstance 参数就能够确定自身的其他执行实体是否正在运行。然後它可以 
略过一些繁杂的工作并从前面的执行实体将某些资料移到自己的资料区域。 

在32位元 Windows 版本中，该概念已被抛弃。传给 WinMain 的第二个参数 
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总是 NULL (定义为 0) 。 

WinMain 的第三个参数是用於执行程式的命令列。某些 Windows 应用程式利 
用它在程式启动时将档案载入记忆体。 WinMain 的第四个参数指出程式最初显示 
的方式，可以是正常的或者是最大化地充满整个画面，或者是最小化显示在工 
作列中。我们将在第三章中介绍使用该参数的方法。 


MessageBox 函式 


MessageBox 函式用於显示短资讯。虽然， MessageBox 显示的小视窗不具有 
什么功能，实际上它被认为是一个对话方块。 

MessageBox 的第一个参数通常是视窗代号，我们将在第三章介绍其含义。 
第二个参数是在讯息方块主体中显示的字串，第三个参数是出现在讯息方块标 
题列上的字串。在 HELLMSG . C 中，这些文字字串的每一个都被封装在一个 TEXT 
巨集中。通常您不必将所有字串都封装在 TEXT 巨集中，但如果想将您的程式转 
换为 Unicode 字元集，这确是一个好主意。我将在第二章详细讨论该问题。 


MessageBox 的第四个参数可以是在 WINUSER . H 中定义的一组以字首 MB _开 
始的常数的组合。您可从第一组中选择一个常数指出希望在对话方块中显示的 
按钮： 


#define 

MB 

_0K 

OxOOOOOOOOL 

#define 

MB 

_0KCANCEL 

OxOOOOOOOlL 

♦define 

MB 

ABORTRETRYIGNORE 

0x00000002L 

♦define 

MB 

YESNOCANCEL 

0x00000003L 

#define 

MB 

YESNO 

0x00000004L 

#define 

MB 

RETRYCANCEL 

0x00000005L 


如果在 HELL 0 MSG 中将第四个参数设置为0，则仅显示「 0 K 」按钮。可以 
使用 C 语言的 0 R ( | ) 操作符号将上面显示的一个常数与代表内定按钮的常数组 


合: 


♦define 

MB 

DEFBUTTON1 

OxOOOOOOOOL 

#define 

MB 

DEFBUTTON2 

OxOOOOOlOOL 

#define 

MB 

DEFBUTTON3 

0x00000200L 

♦define 

MB 

DEFBUTTON4 

0x00000300L 


还可以使用一个常数指出讯息方块中图示的 外观: 


♦define 

MB 

工 CONHAND 

OxOOOOOOlOL 

♦define 

MB 

工 CONQUESTION 

0x00000020L 

#define 

MB 

工 CONEXCLAMAT 工 ON 

0x00000030L 

#define 

MB 

工 CONASTERISK 

0x00000040L 


这些图示中的某些有替代 名称: 


#define 

MB 

ICONWARNING 

MB 

工 CONEXCLAMAT 工 ON 

♦define 

MB 

工 CONERROR 

MB 

ICONHAND 

♦define 

MB 

工 CONINFORMATION 

MB 

工 CONASTERISK 
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♦define MB_ICONSTOP MB_ICONHAND 

虽然只有少数其他 MBjf 数，但您可以自己参考表头档案或/ Platform SDK 
/ User Interface Services / Windowing / Dialog Boxes / Dialog Box 
Reference / Dialog Box Functions 里的档案。 

在本程式中， MessageBox 返回数值1，但更严格地说它返回 IDOK ， ID 0 K 在 
WINUSER . H 中定义，等於1。根据在讯息方块中显示的其他按钮， MessageBox 函 
式还可返回 IDYES 、 IDNO 、 IDCANCEL 、 IDABORT、IDRETRY 或 IDIGN 0 RE 。 

这个小的 Windows 程式真的与 K & R 的 「 hello , world 」 程式有著同等效果 
吗？您也许认为不是，因为 MessageBox 函式并没有 「 hello , world 」 中 printf 

函数所具有的潜在格式化文字能力。但我们将在下一章中看到编写类似 printf 
的 MessageBox 版本的方法。 

编译、连结和执行 

当您准备编译 HELL 0 MSG 时，您可从「 Build 」功能表中选择 「 Build 
Hellomsg . exe 」，或者按 F 7 ，或者在「 Build 」工具列中选择「 Build 」 
图示。（该图示的外观显示在「 Build 」功能表中。如果当前没有显示 「 Build _ 
工具列，您可从「 Tools 」 功能表中选择「 Customize 」并选择 「 Toolbars 
页面标签，选中「 Build 」 或者 「 Build MiniBar 」。 ） 

另一种方法，您可从「 Build 」功能表中选择 「 Execute Hellomsg . exe 」， 
或者按「 Ctrl + F 5 」，或者在「 Build 」工具列单击 「 Execute Program 」 
图示（该图示看上去像一个红的感叹号），就会弹出一个讯息方块询问是否编 
译该程式。 

正常情况下，在编译阶段，编译器从 C 原始码档案产生一个 .OBJ (目标） 
档案。在连结阶段，连结程式结合 . OBJ 档案和 .LIB (库）档案以建立 .EXE (可 
执行）档案。通过在「 Project 」页面标签上选择「 Settings 」 并单击「 Link 」 
页面标签可以查看这些库档案的列表。特别地，您会注意到 KERNEL 32. LIB 、 
USER 32. LIB 和 GDI 32. LIB 。 这些是三个主要 Windows 子系统的「引用程式库」。 
它们包含了动态连结程式库的名称以及放进 . EXE 档案的引用资讯。 Windows 使 
用该资讯处理程式对 KERNEL 32. DLL 、 USER 32. DLL 、 GDI 32. DLL 动态连结程式库 
中函数的呼叫。 

在 Visual C ++ Developer Studio 中，您可用不同的设定编译和连结程式。 
内定情况下，它们是 「 Debug 」 和 「 Release 」 。可执行档案被存放在以这些名 
称命名的子目录下。在 Debug 设定下，资讯被附加到 . EXE 档案中，这些资讯有 
助於测试程式和追踪原始码。 
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如果您喜欢在命令列下工作，附上的 CD - ROM 包含所有范例程式的 .MAK 
( make ) 档案。（可通过「 Tools 」功能表选择「 Options 」，再选择「 Build 」 
页面标签，来告诉 Developer Studio 生成 make 档案。这里有一个核取方块需 
要勾选）。您需要执行在 Developer Studio 的 BIN 子目录下的 VCVARS 32 .BAT 
来设置环境变数。要从命令列执行 make 档案，可以转到 HELL 0 MSG 目录并 执行: 

NMAKE / f HelloMsg.mak CFG= n HelloMsg - Win32 Debug" 

或者 

NMAKE / f HelloMsg.mak CFG="HelloMsg - Win32 Release M 

然後您可通过 输入： 

DEBUG\HELLOMSG 

或者 

RELEASE\HELLOMSG 

从命令列执行. EXE 档案。 

我已经在本书附上的 CD - ROM 中对专案档案中的内定 Debug 设定做了一个改 
动。在 「 Project Settings 」 对话方块中，选择「 」页面标签後，在 

「 Preprocessor Definitions J 栏中，我已定义了识别字 UNICODE 。 我将在下 
章中对此有更多的解释。 
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第二章 Unicode 简介 

在第一章中，我已经预告， C 语言中在 Microsoft Windows 程式设计中扮演 
著重要角色的任何部分都会讲述到，您也许在传统文字模式程式设计中还尚未 
遇到过这些问题。宽字元集和 Unicode 差不多就是这样的问题。 

简单地说， Unicode 扩展自 ASCII 字元集。在严格的 ASCII 中，每个字元用 
7位元表示，或者电脑上普遍使用的每字元有8位 元宽； 而 Unicode 使用全16 
位元字元集。这使得 Unicode 能够表示世界上所有的书写语言中可能用於电脑 
通讯的字元、象形文字和其他符号。 Unicode 最初打算作为 ASCII 的补充，可能 
的话，最终将代替它。考虑到 ASCII 是电脑中最具支配地位的标准，所以这的 
确是一*个很高的目标。 

Unicode 影响到了电脑工业的每个部分，但也许会对作业系统和程式设计语 
言的影响最大。从这方面来看，我们已经上路了 oWindows NT 从底层支援 Unicode 
(不幸的是 ， Windows 98只是小部分支援 Unicode ) 。先天即被 ANSI 束缚的 C 
程式设计语言通过对宽字元集的支援来支援 Unicode 。 下面将详细讨论这些内 
容。 

自然，作为程式写作者，我们通常会面对许多繁重的工作。我已试图透过 
使本书中的所有程式 「 Unicode 化」来减轻负担。其含义会随著本章对 Unicode 
的讨论而清晰起来。 

字元集简史 

虽然不能确定人类开始讲话的时间，但书写已有大约6000年的历史了。实 
际上，早期书写的内容是象形文字。每个字元都对应於发声的字母表则出现於 
大约3000年前。虽然人们过去使用的多种书写语言都用得好好的，但19世纪 
的几个发明者还是看到了更多的需求 。 Samuel F . B . Morse 在1838年到1854 
年间发明了电报，当时他还发明了一种电报上使用的代码。字母表中的每个字 
元对应於一系列短的和长的脉冲（点和破折号）。虽然其中大小写字母之间没 
有区别，但数字和标点符号都有了自己的代码。 

Morse 代码并不是以其他图画的或印刷的象形文字来代表书写语言的第一 
个例子。1821年到1824年之间，年轻的 Louis Braille 受到在夜间读写资讯的 
军用系统的启发，发明了一种代码，它用纸上突起的点作为代码来帮助盲人阅 
读。 Braille 代码实际上是一种6位元代码，它把字元、常用字母组合、常用单 
字和标点进行编码。一个特殊的 escape 代码表示後续的字元代码应解释为大写。 


第 17 页 




Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


一个特殊的 Shift 代码允许後续代码被解释为数字。 

Telex 代码，包括 Baudot (以一个法国工程师命名，该工程师死于1903 
年）以及一种被称为 CCITT #2的代码 （1931 年被标准化），都是包括字元和数 
字的5位元代码。 

美国标准 


早期电脑的字元码是从 Hollerith 卡片（号称不能被折叠、卷曲或毁伤） 
发展而来的，该卡片由 Herman Hollerith 发明并首次在1890年的美国人口普 
查中使用。6位元字元码系统 BCDIC ( Binary-Coded Decimal Interchange Code ： 
二进位编码十进位交换编码）源自 Hollerith 代码，在60年代逐步扩展为8位 
元 EB ⑶1 C ，并一直是 IBM 大型主机的标准，但没使用在其他地方。 

美国资讯交换标准码 ( ASCII ： American Standard Code for Information 
Interchange ) 起始於 50 年代後期，最後完成於1967年。开发 ASCII 的过程中， 
在字元长度是6位元、7位元还是8位元的问题上产生了很大的争议。从可靠性 
的观点来看不应使用替换字元，因此 ASCII 不能是6位元编码，但由於费用的 
原因也排除了 8位元版本的方案（当时每位元的储存空间成本仍很昂贵）。这 
样，最终的字元码就有26个小写字母、26个大写字母、10个数字、32个符号、 
33个代号和一个空格，总共128个字元码。 ASCII 现在记录在 ANSI X 3. 4-1986 
字元集——用於资讯交换的7位元美国国家标准码 （7 -Bit ASCII ： 7 -Bit 
American National Standard Code for Information Interchange ) ，由美国 
国家标准协会 (American National Standards Institute ) 发布。图 2-1 中所 
示的 ASCII 字元码与 ANSI 文件中的格式相似。 

ASCII 有许多优点。例如，26个字母代码是连续的（在 EB ⑶ 1 C 代码中就不 
是这样 的）； 大写字母和小写字母可通过改变一位元资料而相互 转化； 10个数 
位的代码可从数值本身方便地得到（在 BCDIC 代码中，字元「0」的编码在字元 
「9」的後面！） 


最棒的是， ASCII 是一个非常可靠的标准。在键盘、视讯显示卡、系统硬体、 
印表机、字体档案、作业系统和 Internet 上，其他标准都不如 ASCII 码流行而 
且根深蒂固。 



0- 

1 - 

2- 

3- 

4- 

5- 

6- 

7- 

-0 

NUL 

DLE 

SP 



mm 




S0H 

DC1 






EH 

-2 

STX 

DC2 







-3 

ETX 

DC3 








第 18 页 

























Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


-4 

EOT 

DC4 

EH 

4 


EH 

EH 

ii 

-5 

ENQ 

NAK 


5 

mm 




_6 

ACK 

SYN 

& 

6 

IH 

EH 

mm 


-7 

BEL 

ETB 

y 

7 

G 

w 

g 

w 

-8 

BS 

CAN 

( 

8 

H 

X 

h 

X 

-9 

HT 

EM 

) 

EH 

I 

Y 

I 

y 

-A 

LF 

SUB 

氺 

• 

參 

J 

Z 

參 

J 

z 

-B 

VT 

ESC 




IH 

EH 


-C 

FF 

FS 







-D 

CR 

GS 






EH 

-E 

SO 

RS 

• 


EH 



〜 

-F 

SI 

US 

/ 


EH 



DEL 


图 2-1 ASCII 字元集 


国际方面 


ASCII 的最大问题就是该缩写的第一个字母。 ASCII 是一个真正的美国标准， 
所以它不能良好满足其他讲英语国家的需要。例如英国的英镑符号 （£) 在哪 
里？ 

英语使用拉丁（或罗马）字母表。在使用拉丁语字母表的书写语言中，英 
语中的单词通常很少需要重音符号（或读音符号）。即使那些传统惯例加上读 
音符号也无不当的英语单字，例如 c 6 operate 或者 r 6 sum 6， 拼写中没有读音符 
号也会被完全接受。 

但在美国以南、以北，以及大西洋地区的许多国家，在语言中使用读音符 
号很普遍。这些重音符号最初是为使拉丁字母表适合这些语言读音不同的需要。 
在远东或西欧的南部旅游，您会遇到根本不使用拉丁字母的语言，例如希腊语、 
希伯来语、阿拉伯语和俄语（使用斯拉夫字母表）。如果您向东走得更远，就 
会发现中国象形汉字，日本和朝鲜也采用汉字系统。 

ASCII 的历史开始於1967年，此後它主要致力於克服其自身限制以更适合 
於非美国英语的其他语言。例如，1967年，国际标准化组织 （ ISO : International 
Standards Organization ) 推荐一▲个 ASCII 的变种，代码0 x 40、 0 x 5 B 、0 x 5 C 、 
0 x 5 D 、0 x 7 B 、0 x 7 C 和 0 x 7 D 「为国家使用保留」，而代码 0 x 5 E 、0 x 60 和 0 x 7 E 标 
为「当国内要求的特殊字元需要8、9或10个空间位置时，可用於其他图形符 
号」。这显然不是一个最佳的国际解决方案，因为这并不能保证一致性。但这 
却显示了人们如何想尽办法为不同的语言来编码的。 
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扩展 ASCII 

在小型电脑开发的初期，就已经严格地建立了 8位元位元组。因此，如果 
使用一个位元组来保存字元，则需要128个附加的字元来补充 ASCII 。 1981年， 
当最初的 IBM PC 推出时，视讯卡的 ROM 中烧有一个提供256个字元的字元集， 
这也成为 IBM 标准的一个重要组成部分。 

最初的 IBM 扩展字元集包括某些带重音的字元和一个小写希腊字母表（在 
数学符号中非常有用），还包括一些块型和线状图形字元。附加的字元也被添 
加到 ASCII 控制字元的编码位置，这是因为大多数控制字元都不是拿来显示用 
的。 

该 IBM 扩展字元集被烧进无数显示卡和印表机的 ROM 中，并被许多应用程 
式用於修饰其文字模式的显示方式。不过，该字元集并没有为所有使用拉丁字 
母表的西欧语言提供足够多的带重音字元，而且也不适用於 Windows。Windows 
不需要图形字元，因为它有一个完全图形化的系统。 

在 Windows 1.0 (1985 年11月发行）中， Microsoft 没有完全放弃 IBM 扩 
展字元集，但它已退居第二重要位置。因为遵循了 ANSI 草案和 ISO 标准，纯 
Windows 字元集被称作「 ANSI 字元集」。 ANSI 草案和 ISO 标准最终成为 ANSI / IS 0 
8859-1-1987 ， 艮 P 「 American National Standard for Information 
Processing -8 -Bit Single-Byte Coded Graphic Character Sets-Part 1: Latin 
Alphabet No 1」，通常也简写为 「Latin 1」。 


在 Windows 1. 0 的 《 Programmer’s Reference )) 中印出了 ANSI 字元集的最 
初版本，如图 2-2 所示。 


0- 

1- 

2- 

3- 

4- 

5- 


7- 

8- 

9- 

A- 

B- 

c- 

D- 

E- 

F- 


-0 



0 

@ 

P 


■ 





■ 





■ 



■ 

■ 

■ 


■ 









〜 

n 

-2 

■ 

■ 


2 

B 

R 

b 




m 






-3 

氺 

氺 

# 

3 

C 



■ 









-4 

氺 


■ 

■ 

■ 



t 









-5 



% 

5 

E 

■ 

■ 

u 









_6 




6 

F 

V 

f 










-7 

















-8 







■ 










-9 

















-A 













■ 




-B 

■ 
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■ 
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» 
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m 
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-C 

氺 

氺 

y 

< 

L 

\ 

1 


氺 

* 

~1 

% 

I 

U 

1 


-D 

氺 

氺 

— 

二 

M 

I 

m 
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氺 

氺 


Vi 

F 

I 

r 
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1 

r 

y 

-E 

氺 

氺 

• 

> 

N 

八 

n 
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氺 

® 

% 

I 

& 

/V 

1 


-F 

氺 

氺 

/ 

9 

參 

氺 


0 

del 

氺 

氺 

— 

i 

•參 

I 

B 

•參 

1 

•• 

y 


* - not applicable 


图 2-2 Windows ANSI 字元集（基於 ANSI/ISO 8859-1) 

空方框表示该位置未定义字元。这与 ANSI / IS 0 8859-1 的最终定义一致。 
ANSI / IS 0 8859-1 仅显示了图形字元，而没有控制字元，因此没有定义 DEL 。 此 
外，代码 OxAO 定义为一个非断开的空格（这意味著在编排格式时，该字元不用 
於断开一行），代码 OxAD 是一个软连字元（表示除非在行尾断开单词时使用， 
否则不显示）。此外， ANSI / IS 0 8859-1 将代码 0 xD 7 定义为乘号 （*) ， 0 xF 7 
为除号 （/) 。 Windows 中的某些字体也定义了从 0 x 80 到 0 x 9 F 的某些字元，但 
这些不是 ANSI / IS 0 8859-1 标准的一部分。 

MS-DOS 3.3 (1987 年4月发行)向 IBM PC 用户引进了内码表 (code page ) 
的概念， Windows 也使用此概念。内码表定义了字元的映射代码。最初的 IBM 字 
元集被称作内码表437,或者 「 MS-DOS Latin US ) 。内码表850就是 「 MS-DOS Latin 
1」，它用附加的带重音字母（但 不是 图 2-2 所示的 Latin 1 IS 0/ ANSI 标准) 
代替了一些线形字元。其他内码表被其他语言定义。最低的128个代码总是相 
同的； 较高的128个代码取决於定义内码表的语言。 

在 MS - DOS 中，如果用户为 PC 的键盘、显示卡和印表机指定了一个内码表， 
然後在 PC 上创建、编辑和列印文件， 一 切都很正常，每件事都会保持一致。然 
而，如果用户试图与使用不同内码表的用户交换档案，或者在机器上改变内码 
表，就会产生问题。字元码与错误的字元相关联。应用程式能够将内码表资讯 
与文件一起保存来试图减少问题的产生，但该策略包括了某些在内码表间转换 
的工作。 

虽然内码表最初仅提供了不包括带重音符号字母的附加拉丁字元集，但最 
终内码表的较高的128个字元还是包括了完整的非拉丁字母，例如希伯来语、 
希腊语和斯拉夫语。自然，如此多样会导致内码表变得 混乱； 如果少数带重音 
的字母未正确显示，那么整个文字便会混乱不堪而不可阅读。 

内码表的扩展正是基於所有这些原因，但是还不够。斯拉夫语的 MS - DOS 内 
码表855与斯拉夫语的 Windows 内码表1251以及斯拉夫语的 Macintosh 内码表 
10007不同。每个环境下的内码表都是对该环境所作的标准字元集修正 。 IBM OS /2 
也支援多种 EB ⑶ 1 C 内码表。 

但等一下，你会发现事情变得更糟糕。 
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双位兀组字兀集 

迄今为止，我们已经看到了 256个字元的字元集。但中国、日本和韩国的 
象形文字符号有大约21，000个。如何容纳这些语言而仍保持和 ASCII 的某种相 
容性呢？ 

解决方案（如果这个说法正确的话）是双位元组字元集 ( DBCS : double-byte 
character set ) 。 DBCS 从256代码开始，就像 ASCII —样。与任何行为良好的 
内码表一样，最初的128个代码是 ASCII 。 然而，较高的128个代码中的某些总 
是跟随著第二个位元组。这两个位元组一起（称作首位元组和跟随位元组）定 
义一个字元，通常是一个复杂的象形文字。 

虽然中文、日文和韩文共用一些相同的象形文字，但显然这三种语言是不 
同的，而且经常是同一个象形文字在三种不同的语言中代表三件不同的事。 
Windows 支援四个不同的双位元组字 元集： 内码表932 (日文）、936 (简体中 
文）、949 (韩语）和950 (繁体汉字）。只有为这些国家（地区）生产的 Windows 
版本才支援 DBCS 。 

双字元集问题并不是说字元由两个位元组代表。问题在於一些字元（特别 
是 ASCII 字元）由1个位元组表示。这会引起附加的程式设计问题。例如，字 
串中的字元数不能由字串的位元组数决定。必须剖析字串来决定其长度，而且 
必须检查每个位元组以确定它是否为双位元组字元的首位元组。如果有一个指 
向 DBCS 字串中间的指标，那么该字串前一个字元的位址是什么呢？惯用的解决 
方案是从开始的指标分析该字串！ 

Unicode 解决方案 

我们面临的基本问题是世界上的书写语言不能简单地用256个8位元代码 
表示。以前的解决方案包括内码表和 DBCS 已被证明是不能满足需要的，而且也 
是笨拙的。那什么才是真正的解决方案呢？ 

身为程式写作者，我们经历过这类问题。如果事情太多，用8位元数值已 
经不能表示，那么我们就试更宽的值，例如16位元值。而且这很有趣的，正是 
Unicode 被制定的原因。与混乱的256个字元代码映射，以及含有一些1位元组 
代码和一些2位元组代码的双位元组字元集不同， Unicode 是统一的16位元系 
统，这样就允许表示65, 536个字元。这对表示所有字元及世界上使用象形文字 
的语言，包括一系列的数学、符号和货币单位符号的集合来说是充裕的。 

明白 Unicode 和 DBCS 之间的区别很重要。 Unicode 使用（特别在 C 程式设 
计语言环境里）「宽字元集」。 「 Unicode 中的每个字元都是16位元宽而不是 
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8位元宽。」在 Unicode 中，没有单单使用8位元数值的意义存在。相比之下， 
在双位元组字元集中我们仍然处理8位元数值。有些位元组自身定义字元，而 
某些位元组则显示需要和另一个位元组共同定义一个字元。 

处理 DBCS 字串非常杂乱，但是处理 Unicode 文字则像处理有秩序的文字。 
您也许会高兴地知道前 128 个 Unicode 字元 （ 16 位元代码从 0x0000 到 0x007F) 
就是 ASCII 字元，而接下来的 128 个 Unicode 字元（代码从 0x0080 到 OxOOFF) 
是 ISO 8859-1 对 ASCII 的扩展。 Unicode 中不同部分的字元都同样基於现有的 
标准。这是为了便於转换。希腊字母表使用从 0x0370 到 0x03FF 的代码，斯拉 
夫语使用从 0x0400 到 0x04FF 的代码，美国使用从 0x0530 到 0x058F 的代码， 
希伯来语使用从 0x0590 到 0x05FF 的代码。中国、日本和韩国的象形文字（总 
称为 CJK) 占用了从 0x3000 到 0x9FFF 的代码。 

Unicode 的最大好处是这里只有一个字元集，没有一点含糊。 Unicode 实际 
上是个人电脑行业中几乎每个重要公司共同合作的结果，并且它与 ISO 10646-1 

标准中的代码是-对应的。 Unicode 的重要参考文献是 《The Unicode 

Standard , Version 2.0》( Addison-Wesley 出版社， 1996 年）。这是一本特 

别的书，它以其他文件少有的方式显示了世界上书写语言的丰富性和多样性。 
此外，该书还提供了开发 Unicode 的基本原理和细节。 

Unicode 有缺点吗？当然有。 Unicode 字串占用的记忆体是 ASCII 字串的两 
倍。（然而压缩档案有助於极大地减少档案所占的磁碟空间。）但也许最糟的 
缺点是：人们相对来说还不习惯使用 Unicode 。 身为程式写作者，这就是我们的 
工作。 

宽字兀和 c 

对 C 程式写作者来说，16位元字元的想法的确让人扫兴。一个 char 和一个 
位元组同宽是最不能确定的事情之一。没几个程式写作者清楚 ANSI / IS 0 
9899-1990，这是「美国国家标准程式设计语言 —— CJ (也称作 「ANSI C 」） 
通过一个称作「宽字元」的概念来支援用多个位元组代表一字元的字元集。这 
些宽字元与常用的字元完美地共存。 

ANSI C 也支援多位元组字元集，例如中文、日文和韩文版本 Windows 支援 
的字元集。然而，这些多位元组字元集被当成单位元组构成的字串看待，只不 
过其中一些字元改变了後续字元的含义而已。多位元组字元集主要影响 C 语言 
程式执行时期程式库函式。相比之下，宽字元比正常字元宽，而且会引起一些 
编译问题。 

宽字元不需要是 Unicode 。 Unicode 是一种可能的宽字元集。然而，因为本 
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书的焦点是 Windows 而不是 C 执行的理论，所以我将把宽字元和 Unicode 作为 
同义语。 

char 资料型态 

假定我们都非常熟悉在 C 程式中使用 char 资料型态来定义和储存字元跟字 
串。但为了便於理解 c 如何处理宽字元，让我们先回顾一下可能在 Win 32 程式 
中出现的标准字元定义。 

下面的语句定义并初始化了一个只包含一个字元的 变数： 

char c = 1 A 1 ; 

变数 c 需要 1 个位元组来保存，并将用十六进位数 0 x 41 初始化，这是字母 
A 的 ASCII 代码。 

您可以像这样定义一个指向字串的 指标： 

char * p ; 

因为 Windows 是一个32位元作业系统，所以指标变数 p 需要用4个位元组 
保存。您还可初始化 一 *个指向字串的指标： 

char * p = "Hello ! " ; 

像前面一样，变数 P 也需要用4个位元组保存。该字串保存在静态记忆体 
中并占用7个位元组——6个位元组保存字串，另1个位元组保存终止符号0。 
您还可以像这样定义字元 阵列： 

char a[ 10 ] ; 

在这种情况下，编译器为该阵列保留了 10个位元组的储存空间。运算式 
sizeof ( a ) 将返回10。如果阵列是整体变数（即在所有函式外定义），您可 
使用像下面的语句来初始化一个字元阵列： 

char a[] = "Hello ! n ; 

如果您将该阵列定义为一个函式的区域变数，则必须将它定义为一个 
static 变数，如下： 

static char a[] = "Hello!"; 

无论哪种情况，字串都储存在静态程式记忆体中，并在末尾添加0,这样就 
需要7个位元组的储存空间。 

宽字元 

Unicode 或者宽字元都没有改变 char 资料型态在 C 中的含义。 char 继续表 
示1个位元组的储存空间 ， sizeof ( char ) 继续返回1。理论上， C 中1个 
位元组可比8位元长，但对我们大多数人来说，1个位元组（也就是1个 char ) 
是8位兀宽。 
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C 中的宽字元基於 wchar _ t 资料型态，它在几个表头档案包括 WCHAR . H 中都 
有定义，像 这样： 

typedef unsigned short wchar_t ; 

因此，料型态与无符号短整数型态相同，都是16位元宽。 

要定义包含一个宽字元的变数，可使用下面的语句： 

wchar_t c = 'A' ; 

变数 c 是一个双位元组值0 x 0041，是 Unicode 表示的字母 A 。 （然而，因 
为 Intel 微处理器从最小的位元组开始储存多位元组数值，该位元组实际上是 
以0 x 41、 0 x 00 的顺序保存在记忆体中。如果检查 Unicode 文字的电脑储存应注 
意这一点。） 

您还可定义指向宽字串的 指标： 

wchar_t * p = L"Hello! n ; 

&意 紧接在第一个引号前面的大写字母 L (代表 「 long 」） 。这将告诉编译 
器该字串按宽字元保存——即每个字元占用2个位元组。通常，指标变数 p 要 

占用4个位元组，而字串变数需要14个位元组 - 每个字元需要2个位元组， 

末尾的0还需要2个位元组。 

同样，您还可以用下面的语句定义宽字元 阵列： 

static wchar_t a[] = L"Hello! n ; 

该字串也需要 14 个位元组的储存空间 ， sizeof ( a ) 将返回14。索引阵列 
a 可得到单独的字元。 a [ l ] 的值是宽字元 re 」 ，或者0 x 0065。 

虽然看上去更像一个印刷符号，但第一个引号前面的 L 非常重要，并且在 
两个符号之间必须没有空格。只有带有 L ， 编译器才知道您需要将字串存为每个 
字元2位元组。稍後，当我们看到使用宽字串而不是变数定义时，您还会遇到 
第一个引号前面的 L 。 幸运的是，如果忘记了包含 L ， C 编译器通常会给提出警 
告或错误资讯。 

您还可在单个字元文字前面使用 L 字首，来表示它们应解释为宽字元。如 
下所示： 

wchar_t c = L 1 A 1 ; 

但通常这是不必要的， c 编译器会对该字元进行扩充，使它成为宽字元。 

宽字元程式库函式 

我们都知道如何获得字串的长度。例如，如果我们已经像下面这样定义了 
一 个字串指标： 

char * pc = ’’Hello!’’ ; 

我们可以呼叫 

iLength = strlen (pc); 
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这时变数 iLength 将等於6，也就是字串中的字元数。 

太好了！现在让我们试著定义一个指向宽字元的 指标： 

wchar_t * pw = L n Hello!"; 

再次呼叫 strlen : 

iLength = strlen (pw); 

现在麻烦来了。首先， C 编译器会显示一条警告消息，可能是这样的 内容： 

1 function 1 : incompatible types - from 'unsigned short to 1 const char ** 

这条消息的意思是：宣告 strlen 函式时，该函式应接收 char 类型的指标， 
但它现在却接收了一个 unsigned short 类型的指标。您仍然可编译并执行该程 
式，但您会发现 iLength 等於1。为什么？ 

字串 「 Hello !」 中的6个字元占用16 位元： 

0 x 0048 0 x 0065 0 x 006 C 0 x 006 C 0 x 006 F 0 x 0021 
Intel 处理器在记忆体中将其 存为： 

48 00 65 00 6 C 00 6 C 00 6 F 00 21 00 

假定 strlen 函式正试图得到一个字串的长度，并把第1个位元组作为字元 
开始计数，但接著假定如果下一个位元组是0,则表示字串结束。 

这个小练习清楚地说明了 C 语言本身和执行时期程式库函式之间的区别。 
编译器将字串 L " Hello !" 解释为一组16位元短整数型态资料，并将其保存在 

列中。编译器还处理阵列索引和 sizeof 操作符，因此这些都能正常 
工作，但在连结时才添加执行时期程式库函式，例如 strleno 这些函式认为字 
串由单位元组字元组成。遇到宽字串时，函式就不像我们所希望那样执行了。 

您可能要说：「噢，太麻烦了！」现在每个 C 语言程式库函式都必须重写 
以接受宽字元。但事实上并不是每个 C 语言程式库函式都需要重写，只是那些 
有字串参数的函式才需要重写，而且也不用由您来完成。它们已经重写完了。 
strlen 函式的宽字元片反是 wcslen ( wide-character string length ： 宽字 

串长度），并且在 STRING.H (其中也说明了 strlen ) 和 WCHAR . H 中均有说明。 
strlen 函式说明如下： 

size_t _ cdecl strlen (const char *); 

而 wcslen 函式则说明如下： 

size_t _ cdecl wcslen (const wchar_t *); 

这时 ： 我们知道，要得到宽字串的长度可以呼叫 

iLength = wcslen (pw) ; 

函式将返回字串中的字元数6。请记住，改成宽位元组後，字串的字元长度 
不改变，只是位元组长度改变了。 

您熟悉的所有带有字串参数的 C 执行时期程式库函式都有宽字元版。例如， 
wprintf 是 printf 的宽字元版。这些函式在 WCHAR . H 和含有标准函式说明的表 
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头档案中说明。 

维护单一原始码 

当然，使用 Unicode 也有缺点。第一点也是最主要的一点是，程式中的每 
个字串都将占用两倍的储存空间。此外，您将发现宽字元执行时期程式库中的 
函式比常规的函式大。出於这个原因，您也许想建立两个版本的程式 一一 一个 
处理 ASCII 字串，另一个处理 Unicode 字串。最好的解决办法是维护既能按 ASCII 
编译又能按 Unicode 编译的单一原始码档案。 

虽然只是一小段程式，但由於执行时期程式库函式有不同的名称，您也要 
定义不同的字元，这将在处理前面有 L 的字串文字时遇到麻烦。 

一 个办法是使用 Microsoft Visual C ++ 包含的 TCHAR . H 表头档案。该表头 

档案不是 ANSI C 标准的一部分，因此那里定义的每个函式和巨集定义的前面都 
有一条底线。 TCHAR . H 为需要字串参数的标准执行时期程式库函式提供了一系列 
的替代名称（例如 ， _tprintf *_ tcslen ) 。有时这些名称也称为「通用」函式 
名称，因为它们既可以指向函式的 Unicode 版也可以指向非 Unicode 版。 

如果定义了名为 JJNIC 0 DE 的识别字，并且程式中包含了 TCHAR . H 表头档案， 
那么 _ tcslen 就定义为 wcslen ： 

#define —tcslen wcslen 

如果没有定义 UNICODE , 贝 lj tcslen 定义为 strlen ： 

#define —tcslen strlen 

等等。 TCHAR . H 还用一个新的资料型态 TCHAR 来解决两种字元资料型态的问 
题。如果定义了 JJNI ⑶ DE 识别字，那么 TCHAR 就是 wchar _ t : 

typedef wchar_t TCHAR ; 

否则， TCHAR 就是 char : 

typedef char TCHAR ; 

现在开始讨论字串文字中的 L 问题。如果定义了 JJNIC 0 DE 识别字，那么一 
个称作 _ T 的巨集就定义 如下： 

#define _ T(x) L##x 

这是?目当晦涩的语法，但合乎 ANSI C 标准的前置处理器规范。那一对井字 
号称为「粘贴符号 （token paste ) 」，它将字母 L 添加到巨集引数上。因此， 
如果巨集引数是〃 Hello ! 〃，则 L ## x 就是 L 〃 Hello !〃。 

如果没有定义 JJNI ⑶ DE 识别字， 则 + T 巨集只简单地定义 如下： 

#define _ T(x) x 

此外，还有两个巨集与_了定义 相同： 

#define _T (x) — T (x) 

#define TEXT (x) T (x) 
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在 Win 32 console 程式中使用哪个巨集，取决於您喜欢简洁还是详细。基 
本地，必须按下述方法在 _ TS _ TEXT 巨集内定义字串 文字： 

_TEXT ("Hello!") 

这样做的话，如果定义了 JJNIC 0 DE ， 那么该串将解释为宽字元的组合，否 
则解释为8位元的字元字串。 

宽字元和 WIND 0 WS 

Windows NT 从底层支援 Unicode 。 这意味著 Windows NT 内部使用由16位 
元字元组成的字串。因为世界上其他许多地方还不使用16位元字串，所以 
Windows NT 必须经常将字串在作业系统内转换 。 Windows NT 可执行为 ASCII 、 
Unicode 或者 ASCII 和 Unicode 混合编写的程式。即 ， Windows NT 支援不同的 
API 函式呼叫，这些函式接受8位元或16位元的字串（我们将马上看到这是如 
何动作的。） 

相对於 Windows NT，Windows 98对 Unicode 的支援要少得多。只有很少的 
Windows 98函式呼叫支援宽字串（这些函式列在 《Microsoft Knowledge Base 
articleQ 125671》 中； 它们包括 MessageBox )。 如果要发行的程式中只有一个 .EXE 
档案要求在 Windows NT 和 Windows 98下都能执行，那么就不应该使用 Unicode ， 
否则就不能在 Windows 98下执行；尤其程式不能呼叫 Unicode 版的 Windows 函 
式。这样，将来发行 Unicode 版的程式时会处於更有利的位置，您应试著编写 
既为 ASCII 又为 Unicode 编译的原始码。这就是本书中所有程式的编写方式。 

Windows 表头档案类型 

正如您在第一章所看到的那样，一个 Windows 程式包括表头档案 WINDOWS . H 。 
该档案包括许多其他表头档案，包括 WINDER H ， 该档案中有许多在 Windows 中 
使用的基本型态定义，而且它本身也包括 WINNT . HoWINNT . H 处理基本的 Unicode 

支援。 

WINNT . H 的前面包含 C 的表头档案 CTYPE . H ， 这是 C 的众多表头档案之一， 
包括 wchar _ t 的定义。 WINNT . H 定义了新的资料型态，称作 CHAR 和 WCHAR : 

typedef char CHAR ; 

typedef wchar_t WCHAR ; // wc 

当您需要定义 8 位元字元或者 16 位元字元时，推荐您在 Windows 程式中使 
用的资料型态是 CHAR 和 WCHARo WCHAR 定义後面的注释是匈牙利标记法的 建议: 
一 个基於 WCHAR 资料型态的变数可在前面附加上字母 wc 以说明一个宽字元。 

WINNT . H 表头档案进而定义了可用做8位元字串指标的六种资料型态和四个 
可用做 const 8位元字串指标的资料型态。这里精选了表头档案中一些实用的 
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说明资料型态 语句： 

typedef CHAR * PCHAR, * LPCH, * PCH, * NPSTR, * LPSTR, * PSTR ; 
typedef CONST CHAR * LPCCH, * PCCH, * LPCSTR, * PCSTR ; 

字首 N 和 L 表示 「 near 」 和 「 long 」 ，指的是 16 位元 Windows 中两种大小 
不同的指标。在 Win 32 中 near 和 long 指标没有区别。 

类似地， WINNT . H 定义了六种可作为16位元字串指标的资料型态和四种可 
作为 const 16位元字串指标的资料 型态： 

typedef WCHAR * PWCHAR, * LPWCH, * PWCH, * NWPSTR, * LPWSTR, * PWSTR ; 
typedef CONST WCHAR * LPCWCH, * PCWCH, * LPCWSTR, * PCWSTR ; 

至此，我们有了资料型态 CHAR (—个8位的 char ) 和 WCHAR (—个16位的 
wchar _ t ) ，以及指向 CHAR 和 WCHAR 的指标。与 TCHAR . H 一样， WINNT . H 将 TCHAR 
定义为一般的字元类型。如果定义了识别字 UNICODE (没有底线），则 TCHAR 和 
指向 TCHAR 的指标就分别定义为 WCHAR 和指向 WCHAR 的 指标； 如果没有定义识 
别字 UNICODE ， 则 TCHAR 和指向 TCHAR 的指标就分别定义为 char 和指向 char 的 
指标： 

#ifdef UNICODE 

typedef WCHAR TCHAR, * PTCHAR ; 

typedef LPWSTR LPTCH, PTCH, PTSTR, LPTSTR ; 

typedef LPCWSTR LPCTSTR ; 

#else 

typedef char TCHAR, * PTCHAR ; 

typedef LPSTR LPTCH, PTCH, PTSTR, LPTSTR ; 

typedef LPCSTR LPCTSTR ; 

#endif 

如果已经在某个表头档案或者其他表头档案中定义了 TCHAR 资料型态，那 
么 WINNT . H 和 WCHAR . H 表头档案都能防止其重复定义。不过，无论何时在程式 
中使用其他表头档案时，都应在所有其他表头档案之前包含 WINDOWS . Ho 

WINNT . H 表头档案还定义了一个巨集，该巨集将 L 添加到字串的第一个引号 
前。如果定义了 UNICODE 识别字，则一个称作 _ TEXT 的巨集定义 如下： 

#define _ TEXT(quote) L##quote 

如果没有定义识别字 UNICODE ， 则像这样定义 _ TEXT 巨集： 

#define _TEXT(quote) quote 

此外， TEXT 巨集可这样 定义： 

#define TEXT(quote) _TEXT(quote) 

这与 TCHAR . H 中定义 _ TEXT 巨集的方法一样，只是不必操心底线。我将在本 
书中使用这个巨集的 TEXT 版本。 

这些定义可使您在同一程式中混合使用 ASCII 和 Unicode 字串，或者编写 
一 个可被 ASCII 或 Unicode 编译的程式。如果您希望明确定义8位元字元变数 
和字串，请使用 CHAR、PCHAR (或者其他），以及带引号的字串。为明确地使用 
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16位元字元变数和字串，请使用 WCHAR 、 PWCHAR ， 并将 L 添加到引号前面。对 
於是8位还是16位取决於 UNI ⑶ DE 识别字的定义的变数或字串，要使用 TCHAR 、 
PTCHAR 和 TEXT 巨集。 

Windows 函式呼叫 


从 Windows 1. 0到 Windows 3. 1 的 16位元 Windows 中 ， MessageBox 函式位 
於动态连结程式库 USER . EXE 。 在 Windows 3. 1软体开发套件的 WINDOWS . H 中， 
MessageBox 函式定义如下： 

int WINAPI MessageBox ( HWND , LPCSTR , LPCSTR , UINT ); 

注意，函式的第二个、第三个参数是指向常数字串的指标。当编译连结一 
个 Winl 6 程式时， Windows 并不处理 MessageBox 呼叫。程式 . EXE 档案中的表格， 
允许 Windows 将该程式的呼叫与 USER 中的 MessageBox 函式动态连结起来。 

32位的 Windows (即所有版本的 Windows NT , 以及 Windows 95和 Windows 
98) 除了含有与16位相容的 USER . EXE 以外，还含有一个称为 USER 32. DLL 的动 
态连结程式库，该动态连结程式库含有32位元使用者介面函式的进入点，包括 
32位元的 MessageBox 。 

这就是 Windows 支援 Unicode 的关 键：在 USER 32. DLL 中，没有32位元 
MessageBox 函式的进入点。实际上，有两个进入点 ，一 个名为 MessageBoxACASCII 
版），另一个名为 MessageBoxW (宽字元版）。用字串作参数的每个 Win 32 函式 
都在作业系统中有两个进入点！幸运的是，您通常不必关心这个问题，程式中 
只需使用 MessageBox 。 与 TCHAR 表头档案一样，每个 Windows 表头档案都有我 
们需要的技巧。 

下面是 MessageBoxA 在 WINUSER . H 中定义的方法。这与 MessageBox 早期的 
定义很 相似： 

WINUSERAPI int WINAPI MessageBoxA ( HWND hWnd, LPCSTR lpText, 

LPCSTR lpCaption, UINT uType); 

下面是 MessageBoxW ： 

WINUSERAPI int WINAPI MessageBoxW (HWND hWnd, LPCWSTR lpText, 

LPCWSTR lpCaption, UINT uType); 

注意， MessageBoxW 函式的第二个和第三个参数是指向宽字元的指标。 

如果需要同时使用并分别匹配 ASCII 和宽字元函式呼叫，那么您可在 
Windows 程式中明确地使用 MessageBoxA 和 MessageBoxW 函式。但大多数程式写 
作者将继续使用 MessageBoxo 根据是否定义了 UNICODE ， MessageBox 将与 
MessageBoxA 或 MessageBoxW 一样。在 WINUSER . H 中完成这一技巧时，程式相当 
琐碎： 
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#ifdef UNICODE 

#define MessageBox MessageBoxW 
#else 

#define MessageBox MessageBoxA 
#endif 

这样，如果定义了 UNICODE 识别字，那么程式中所有的 MessageBox 函式呼 
叫实际上就是 MessageBoxW 函式；否则，就是 MessageBoxA 函式。 

执行该程式时， Windows 将程式中不同的函式呼叫与不同的 Windows 动态连 
结程式库的进入点连结。虽然只有少数例外，但是，在 Windows 98中不能执行 
Unicode 版的 Windows 函式。虽然这些函式有进入点，但通常返回错误代码。应 
用程式注意这些返回的错误并采取一些合理的动作。 

Windows 的字串函式 

正如前面谈到的 ， Microsoft C 包括宽字元和需要字串参数的 C 语言执行时 
期程式库函式的所有普通版本。不过， Windows 复制了其中一部分。例如，下面 
是 Windows 定义的一组字串函式，这些函式用来计算字串长度、复制字串、连 
接字串和比较字串： 

ILength = lstrlen (pString) ; 

pString = lstrcpy (pStringl, pString2); 

pString = lstrcpyn (pStringl, pString2, iCount); 

pString = Istreat (pStringl, pString2); 

iComp = lstrcmp (pStringl, pString2); 

iComp = lstrcmpi (pStringl, pString2); 

这些函式与 C 程式库中对应的函式功能相同。如果定义了 UNICODE 识别字， 
那么这些函式将接受宽字串，否则只接受常规字串。宽字串版的 IstrlenW 函式 
可在 Windows 98中执行。 

在 Windows 中使用 printf 

有文字模式、命令列 C 语言程式写作历史的程式写作者往往特别喜欢 printf 
函式。即使可以使用更简单的命令（例如 puts ) ，但 printf 出现在 Kernighan 
和 Ritchie 的 「 hello , world 」 程式中一点也不会令人惊奇。我们知道，增强 
後的 「 hello , world 」 最终还是需要 printf 的格式化输出，因此我们最好从头 
开始就使用它。 

但有个坏消息：在 Windows 程式中不能使用 printf 。 虽然 Windows 程式中 
可以使用大多数 C 的执行时期程式库——实际上，许多程式写作者更愿意使用 C 

记忆体管理和档案 I / O 函式而不是 Windows 中等效的函式- Windows 对标准输 

入和标准输出没有概念。在 Windows 程式中可使用 fprintf ， 而不是 printf 。 
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还有一个好消息，那就是仍然可以使用 sprintf 及 sprintf 系列中的其他 
函式来显示文字。这些函式除了将内容格式化输出到函式第一个参数所提供的 
字串缓冲区以外，其功能与 printfl 相同。然後便可对该字串进行操作（例如 
将其传给 MessageBox ) 。 

如果您从未使用过 sprintf (我第一次开始写 Windows 程式时也没用过此 
函式），这里有一个简短的执行实体， printf 函式说明 如下： 

int printf (const char * szFormat,...); 

第一个参数是一个格式字串，後面是与格式字串中的代码相对应的不同类 
型多个参数。 

sprintf 函式定义如下： 

int sprintf (char * szBuffer, const char * szFormat,...); 

第一个参数是字元缓冲区；後面是一个格式字串。 Sprintf 不是将格式化结 
果标准输出，而是将其存入 szBuffero 该函式返回该字串的长度。在文字模式 
程式设计中， 

printf ("The sum of %i and %i is %i n , 5, 3, 5+3); 

的功能相同於 

char szBuffer [100]; 

sprintf (szBuffer, "The sum of %i and %i is %i n , 5, 3, 5 + 3); 
puts (szBuffer); 

在 Windows 中，使用 MessageBox 显示结果优於 puts 。 

几乎每个人都经历过，当格式字串与被格式化的变数不合时，可能使 printf 
执行错误并可能造成程式当掉。使用 sprintf 时，您不但要担心这些，而且还 
有一个新的负担：您定义的字串缓冲区必须足够大以存放结果。 Microsoft 专用 
函式 _ snprintf 解决了这一问题，此函式引进了另一个参数，表示以字元计算的 
缓冲区大小。 

vsprintf 是 sprintf 的一个变形，它只有三个参数。 vsprintf 用於执行有 
多个参数的自订函式，类似 printf 格式。 vsprintf 的前两个参数与 sprintf 相 
同： 一 个用於保存结果的字元缓冲区和一个格式字串。第三个参数是指向格式 
化参数阵列的指标。实际上，该指标指向在堆叠中供函式呼叫的变数。 va _ list 、 
va _ start 和 va end 巨集（在 STDARG . H 中定义）帮助我们处理堆叠指标。本章 
最後的 SCRNSIZE 程式展示了使用这些巨集的方法。使用 vsprintf 函式 ， sprintf 
函式可以这样编写： 

int sprintf (char * szBuffer, const char * szFormat,...) 

{ 

int iReturn ; 

va_list pArgs ; 

va_start (pArgs , szFormat); 

iReturn = vsprintf (szBuffer, szFormat, pArgs); 
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va_end (pArgs) ; 
return iReturn ; 

} 

va_start 巨集将 pArg 设置为指向一个堆叠变数，该变数位址在堆叠参数 
szFormat 的上面。 

由於许多 Windows 早期程式使用了 sprintf 和 vsprintf ， 最终导致 
Microsoft 向 Windows API 中增添了两个相似的函式。 Windows 的 wsprintf 和 
wvsprintf 函式在功能上与 sprintf 和 vsprintf 相同，但它们不能处理浮点格 
式。 

当然，随著宽字元的发表， sprintf 类型的函式增加许多，使得函式名称变 
得极为混乱。表 2-1 列出了 Microsoft 的 C 执行时期程式库和 Windows 支援的 
所有 sprintf 函式。 


表 2-1 



ASCII 

宽字元 

常规 

参数的变数个数 




标准版 

sprintf 

swprintf 

_stprintf 

最大长度版 

_snprintf 

_snwprintf 

_sntprintf 

Windows 片反 

wsprintfA 

wsprintfW 

wsprintf 

参数阵列的指标 




标准版 

vsprintf 

vswprintf 

_vstprintf 

最大长度版 

_vsnprintf 

_vsnwprintf 

_vsntprintf 

Windows 片反 

wvsprintfA 

wvsprintfW 

wvsprintf 


在宽字元版的 sprintf 函式中，将字串缓冲区定义为宽字串。在宽字元版 
的所有这些函式中，格式字串必须是宽字串。不过，您必须确保传递给这些函 
式的其他字串也必须由宽字元组成。 

格式化讯息方块 

程式 2-1 所示的 SCRNSIZE 程式展示了如何实作 MessageBoxPrintf 函式， 
该函式有许多参数并能像 printf 那样编排它们的格式。 

程式 2-1 SCRNSIZE 

SCRNSIZE.C 

/* - 

SCRNSIZE.C 一一 Displays screen size in a message box 

(c) Charles Petzold, 1998 
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V 

♦include <windows.h> 

♦include <tchar.h> 

♦include <stdio.h> 

int CDECL MessageBoxPrintf (TCHAR * szCaption, TCHAR * szFormat,...) 

{ 

TCHAR szBuffer [1024]; 
va_list pArgList ; 

// The va_start macro (defined in STDARG.H) is usually equivalent to: 

// pArgList = (char *) &szFormat + sizeof (szFormat); 

va_start (pArgList, szFormat); 

// The last argument to wvsprintf points to the arguments 

—vsntprintf ( szBuffer, sizeof (szBuffer) / sizeof (TCHAR), 

szFormat, pArgList); 

// The va_end macro just zeroes out pArgList for no good reason 
va_end (pArgList); 

return MessageBox (NULL, szBuffer, szCaption, 0); 

} 

int WINAPI WinMain ( HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

int cxScreen, cyScreen ; 

cxScreen = GetSystemMetries (SM—CXSCREEN); 
cyScreen = GetSystemMetries (SM—CYSCREEN); 

MessageBoxPrintf ( TEXT ( n ScrnSize n ), 

TEXT ("The screen is %i pixels wide by %i pixels high .’’）， 
cxScreen, cyScreen); 

return 0 ; 

} 

经由从 GetSystemMetrics 函式得到的资讯，该程式以图素为单位显示了视 
讯显示的宽度和高度。 GetSystemMetrics 是一个能用来获得 Windows 中不同物 
件的尺寸资讯的函式。事实上，我将在第四章用 GetSystemMetrics 函式向您展 
示如何在一个 Windows 视窗中显示和滚动多行文字。 

本书与国际化 

为国际市场准备的 Windows 程式不光要使用 Unicode 。 国际化超出了本书的 
范围，但在 Nadine Kano 所写的 《Developing International Software for 
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Windows 95 and Windows NT》(Microsoft Press , 1995 年）一 * 书中涉猎了许 
多。 

本书中的程式写作时被限制成既可使用也可不使用定义的 UNICODE 识别字 
来编译。这包括对所有字元和字串定义使用 TCHAR ， 对字串文字使用 TEXT 巨集， 
以及注意不要混淆位元组和字元。例如，注意 SCRNSIZE 中的 _ vsntprintf 呼叫。 
第二个参数是缓冲区的字元大小。通常，您使用 sizeof ( szBuffer ) 。但如果 
缓冲区中有宽字元，则返回的不是缓冲区的字元长度，而是缓冲区的位元组大 
小。您必须用 sizeof ( TCHAR ) 将其分开。 

通常，在 Visual C ++ Developer Studio 中，可使用两种不同的设定来编 
译程式： Debug 和 Release 。 为简便起见，对本书的范例程式，我已修改了 Debug 
设定，以便於定义 UNICODE 识别字。如果程式使用了需要字串作参数的 C 程式 
库函式，那么 JJNIC 0 DE 识别字也在 Debug 设定中定义（要了解这是在哪里完成 
的，请从 「 Project 」 功能表中选择 「 Settings 」 ，然後单击「 C / C ++」标签）。 
使用这种方式，这些程式就可以方便地被重新编译和连结以供测试。 

本书中所有程式-无论是否为 Unicode 编译-都可以在 Windows NT 下 

执行。只有极少数情况例外。本书中按 Unicode 编译的程式不能在 Windows 98 
中执行，而非 Unicode 版则可以。本章和第一章的程式就是两个特例。 
MessageBoxW 是 Windows 98支援的少数宽字元 Windows 函式之一。在 SCRNSIZE . C 
中，如果用 Windows 函式 wprintf 代替了 _vsntprintf (您还必须删除该函式的 
第二个参数），那么 SCRNSIZE . C 的 Unicode 版将不能在 Windows 98下执行， 
这是因为 Windows 98不支援 wprintfW 。 

在本书的後面（特别在第六章，介绍键盘的使用时），我们将看到，编写 
能处理远东版 Windows 双字元集的 Windows 程式不是一件容易的事情。本书没 
有说明如何去做，并且基於这个原因，本书中的某些非 Unicode 版本的程式在 
远东版的 Windows 下不能正常执行。这也是 Unicode 对将来的程式设计如此重 
要的一条理由。 Unicode 允许程式更容易地跨越国界。 
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第三章视窗和讯息 

在前两章，程式使用了同一个函式 MessageBox 来向使用者输出文字。 
MessageBox 函式会建立一个「视窗」。在 Windows 中，「视窗」一词有确切的 
含义。一个视窗就是萤幕上的一个矩形区域，它接收使用者的输入并以文字或 
图形的格式显示输出内容。 

MessageBox 函式建立一个视窗，但这只是一个功能有限的特殊视窗。讯息 
视窗有一个带关闭按钮的标题列、 一 个选项图示、一行或多行文字，以及最多 
四个按钮。当然，必须选择 Windows 提供给您的图示与按钮。 

MessageBox 函式非常有用，但下面不会过多地使用它。我们不能在讯息方 
块中显示图形，而且也不能在讯息方块中添加功能表。要添加这些物件，就需 
要建立自己的视窗，现在就开始。 

自己的视窗 

建立视窗很简单，只需呼叫 CreateWindow 函式即可。 

好啦，虽然建立视窗的函式的确名为 CreateWindow , 而且您也能在 
/Platform SDK/User Interface Services / Windowing / Windows/Window 
Reference/Window Functions 找到此文件，但您将发现 CreateWindow 的第一*个 
参数就是所谓的「视窗类别名称」，并且该视窗类别连接所谓的「视窗讯息处 
理程式」。在我们呼叫 Ci ^ ateWindow 之前，有一点背景知识会对您大有帮助。 

总体结构 

进行 Windows 程式设计，实际上是在进行一种物件导向的程式设计 （ OOP ) 。 
这一点在 Windows 中使用得最多的物件上表现最为明显。这种物件正是 Windows 
之所以命名为 「 Windows 」 的原因，它具有人格化的特徵，甚至可能会在您的梦 
中出现，这就是那个叫做「视窗」的东西。 

桌面上最明显的视窗就是应用程式视窗。这些视窗含有显示程式名称的标 
题列、功能表甚至可能还有工具列和卷动列。另一类视窗是对话方块，它可以 
有标题列也可以没有标题列。 

装饰对话方块表面的还有各式各样的按键、单选按钮、核取方块、清单方 
块、卷动列和文字输入区域。其中每一个小的视觉物件都是一个视窗。更确切 
地说，这些都称为「子视窗」或「控制项视窗」或「子视窗控制项」。 

作为物件，使用者会在萤幕上看到这些视窗，并通过键盘和滑鼠直接与它 
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们进行交互操作。更有趣的是，程式写作者的观点与使用者的观点极其类似。 
视窗以「讯息」的形式接收视窗的输入，视窗也用讯息与其他视窗通讯。对讯 
息的理解将是学习如何写作 Windows 程式所必须越过的障碍之一。 

这有一个 Windows 的讯息 范例： 我们知道，大多数的 Windows 程式都有大 
小合适的应用程式视窗。也就是说，您能够通过滑鼠拖动视窗的边框来改变视 
窗的大小。通常，程式将通过改变视窗中的内容来回应这种大小的变化。您可 
能会猜测（并且您也是正确的），是 Windows 本身而不是应用程式在处理与使 
用者重新调整视窗大小相关的全部杂乱程式。由於应用程式能改变其显示的样 
子，所以它也「知道」视窗大小改变了。 

应用程式是如何知道使用者改变了视窗的大小的呢？由於程式写作者习惯 
了往常的文字模式程式，作业系统没有设置将此类讯息通知给使用者的机制。 
问题的关键在於理解 Windows 所使用的架构。当使用者改变视窗的大小时， 
Window 给程式发送一个讯息指出新视窗的大小。然後程式就可以调整视窗中的 
内容，以回应大小的变化。 

「 Windows 给程式发送讯息。」我们希望读者不要对这句话视而不见。它到 
底表达了什么意思呢？我们在这里讨论的是程式码，而不是一个电子邮件系统。 
作业系统怎么给程式发送讯息呢？ 

其实，所谓 「 Windows 给程式发送讯息」，是指 Windows 呼叫程式中的一个 
函式，该函式的参数描述了这个特定讯息。这种位於 Windows 程式中的函式称 
为「视窗讯息处理程式」。 

无疑，读者对程式呼叫作业系统的做法是很熟悉的。例如，程式在打开磁 
片档案时就要使用有关的系统呼叫。读者所不习惯的，可能是作业系统呼叫程 
式，而这正是 Windows 物件导向架构的基础。 

程式建立的每一个视窗都有相关的视窗讯息处理程式。这个视窗讯息处理 
程式是一个函式，既可以在程式中，也可以在动态连结程式库中。 Windows 通过 
呼叫视窗讯息处理程式来给视窗发送讯息。视窗讯息处理程式根据此讯息进行 
处理，然後将控制传回给 Windows 。 

更确切地说，视窗通常是在「视窗类别」的基础上建立的。视窗类别标识 
了处理视窗讯息的视窗讯息处理程式。使用视窗类别使多个视窗能够属於同一 
个视窗类别，并使用同一个视窗讯息处理程式。例如，所有 Windows 程式中的 
所有按钮均依据同一个视窗类别。这个视窗类别与一个处理所有按钮讯息的视 
窗讯息处理程式（位於 Windows 的动态连结程式库中）联结。 

在物件导向的程式设计中，物件是程式与资料的组合。视窗是一种物件， 
其程式是视窗讯息处理程式。资料是视窗讯息处理程式保存的资讯和 Windows 
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为每个视窗以及系统中那个视窗类别保存的资讯。 

视窗讯息处理程式处理给视窗发送讯息。这些讯息经常是告知视窗，使用 
者正使用键盘或者滑鼠进行输入。这正是按键视窗知道它被「按下」的奥妙所 
在。在视窗大小改变，或者视窗表面需要重画时，由其他讯息通知视窗。 

Windows 程式开始执行後， Windows 为该程式建立一个「讯息仁列」。这个 
讯息伫列用来存放该程式可能建立的各种不同视窗的讯息。程式中有一小段程 
式码，叫做「讯息回圈」，用来从伫列中取出讯息，并且将它们发送给相应的 
视窗讯息处理程式。有些讯息直接发送给视窗讯息处理程式，不用放入讯息伫 
列中。 

如果您对这段 Windows 架构过於简略的描述将信将疑，就让我们去看看在 
实际的程式中，视窗、视窗类别、视窗讯息处理程式、讯息伫列、讯息回圈和 
视窗讯息是如何相互配合的。这或许会对您有些帮助。 

HELL0WIN 程式 


建立一个视窗首先需要注册一个视窗类别，那需要一个视窗讯息处理程式 
来处理视窗讯息。处理视窗讯息对每个 Windows 程式都带来了些负担。程式 3-1 
所示的 HELL 0 WIN 程式中整个做的事情差不多就是料理这些事情。 


程式 3-1 HELL0WIN 


HELLOWIN.C 

/* - 

HELLOWIN.C -- Displays "Hello, Windows 98! " in client area 

(c) Charles Petzold, 1998 


♦include <windows.h> 



LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("HelloWin"); 

HWND hwnd ; 

MSG msg ; 

WNDCLAS wndclass ; 

wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc = WndProc ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass•hlnstance = hlnstance ; 
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wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor = LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuNam = NULL ; 

wndclass.IpszClassName = szAppName ; 


if (!RegisterClass 

{ 


MessageBox ( 


return 0 ; 


(&wndclass)) 

NULL, TEXT ("This program requires Windows NT !’，）， 
szAppName, MB ICONERROR); 



hwnd = 


CreateWindow( szAppName, // window class name 

TEXT ("The Hello Program"), // window caption 

WS_OVERLAPPEDWINDOW, // window style 
CW—USEDEFAULT, // initial x position 

CW USEDEFAULT, // initial y position 


CW USEDEFAULT, // initial x size 


CW USEDEFAULT, // initial y size 


NULL, 

NULL, 

hlnstance. 


// parent window handle 
// window menu handle 

// program instance handle 


NULL) ; // creation parameters 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

HDC hdc ; 

PAINTSTRUCT ps ; 

RECT rect ; 

switch (message) 

{ 

case WM—CREATE: 

PlaySound (TEXT ("hellowin.wav") , NULL, SND_FILENAME | SND_ASYNC); 
return 0 ; 


case WM PAINT : 
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hdc = BeginPaint (hwnd, &ps) 

• 

f 


GetClientRect (hwnd. 

&rect) 

m 

r 


DrawText (hdc, TEXT 

("Hello, 

Windows 

98 ! "), -1 , &rect, 

DT_SINGLELINE | 

DT—CENTER | DT 

VCENTER); 

EndPaint (hwnd. 

&ps); 



return 0 ; 




case WM DESTROY: 




PostQuitMessage (0) ‘ 

m 

f 



return 0 ; 




/ 

return DefWindowProc (hwnd A message, 

} 

wParam A 

IParam); 


程式建立一个普通的应用程式视窗，如图 3-1 所示。在视窗显示区域的中 
央显示 rHello , Windows 98!」。如果安装了音效卡，那么您还可以听到相应 
的朗读声音。 



图 3-1 HELL0WIN 视窗 

提醒您注意：如果您使用 Microsoft Visual C ++ 为此程式建立新专案，那 
么您得加上连结程式所需的程式库档案。从 Project 功能表选择 Setting 选 
项，然後选取 Link 页面标签。从 Category 清单方块中选择 General ，然後 
在 Object/Library Modules 文字方块添加 WINMM . LIB ( Windows 
multimedia —— Windows 多媒体）。 您这样做是因为 HELL 0 WIN 将使用多媒体 
功能呼叫，而内定的专案中又不包括多媒体程式库档案。不然连结程式报告了 
错误资讯，表明 PlaySound 函式不可用。 

HELL 0 WIN 将存取档案 HELLOWIN . WAV ， 该档案在本书所附光碟的 HELL 0 WIN 
目录中。执行 HELLOWIN . EXE 时，内定的目录必须是 HELL 0 WIN 。 在 Visual C ++ 
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中执行此程式时，虽然执行档会产生在 HELL 0 WIN 的 RELEASE 或 DEBUG 子目录中， 
但执行程式的目录还是必须在 HELL 0 WIN 中。 

通盘考量 

实际上，每一个 Windows 程式码中都包括 HELLOWIN . C 程式的大部分。没人 
能真正记住此程式的全部 写法； 通常， Windows 程式写作者在开始写一个新程式 
时总是会复制一个现有的程式，然後再做相应的修改。您可以按此习惯自由使 
用本书附带光碟中的程式。 

上面提到， HELLOWIN 将在其视窗的中央显示字串。这种说法不是完全正确 
的。文字实际显示在程式显示区域的中央，它在图 3-1 中是标题列和边界范围 
内的大片白色区域。这区别对我们来说很 重要； 显示区域就是程式自由绘图并 
且向使用者显示输出结果的视窗区域。 

如果您认真思考一下，将会发现虽然只有80行程式码，这个视窗却令人惊 
讶地具有许多功能。您可以用滑鼠按住标题列，在萤幕上移动 视窗； 可以按住 
大小边框，改变视窗的大小。在视窗大小改变时，程式自动地将 「 Hello , Windows 
98!」字串重新定位在显示区域的中央。您可以按最大化按钮，放大 HELLOWIN 
以充满整个 萤幕； 也可以按最小化按钮，将程式缩小成一个图示。您可以在系 
统功能表中执行所有选项（就是按下在标题列最左端的小图 示）； 也可以从系 
统功能表中选择 Close 选项，或者单击标题列最右端的关闭按钮，或者双击标 
题列最左端的图示，来关闭视窗以终止程式的执行。 

我们将在本章的余下部分对此程式作一详细的检查。当然，我们首先要从 
整体上看一下。 

与前两章中的范例程式一样， HELLOWIN . C 也有一个 WinMain 函式，但它还 
有另外一个函式，名为 WndProCc 这就是视窗讯息处理程式。注意，在 HELLOWIN . C 
中没有呼叫 WndProc 的程式码。当然，在 WinMain 中有对 WndProc 的参考，而 
这就是该函式要在程式开头附近宣告的原因。 

Windows 函式呼叫 


HELLOWIN 至少呼叫了 18个 Windows 函式。下面以它们在 HELLOWIN 中出现 
的次序列出这些函式以及各自的简明 描述： 


Loadlcon 

载入图示供程式使用。 

LoadCursor 

载入滑鼠游标供程式使用。 

GetStockObject 

取得一个图形物件（在这个例子中，是取得绘制视窗背景的画刷物件）。 
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RegisterClass 

为程式视窗注册视窗类别。 

MessageBox 

显示讯息方块。 

CreateWindow 

根据视窗类别建立一个视窗。 

ShowWindow 

在萤幕上显示视窗。 

UpdateWindow 

指不视窗自我更新。 

GetMessage 

从讯息伫列中取得讯息。 

TranslateMessage 

转译某些键盘讯息。 

DispatchMessage 

将讯息发送给视窗讯息处理程式。 

PlaySound 

播放一个音效档案。 

BeginPaint 

开始绘制视窗。 

GetClientRect 

取得视窗显示区域的大小。 

DrawText 

显示字串。 

EndPaint 

结束绘制视窗。 

PostQuitMessage 

在讯息伫列中插入一个「退出程式」讯息。 

DefWindowProc 

执行内定的讯息处理。 


这些函式均在 Platform SDK 文件中说明，并在不同的表头档案中宣告，其 
中绝大多数宣告在 WINUSER . H 中。 


大写字母识别字 


读者可能注意到， HELLOWIN . C 中有几个大写的识别字，这些识别字是在 
Windows 表头档案中定义的。有些识别字含有两个字母或者三个字母的字首，这 
些字首後头接著一个底线： 


CS—HREDRAW 

DT—VCENTER 

SND—FILENAME 

CS—VREDRAW 

IDC_ARR0W 

WM—CREATE 

CW_USEDEFAULT 

IDI—APPLICATION 

WM_DESTROY 

DT—CENTER 

MB_IC0NERR0R 

WM—PAINT 

DT—SINGLELINE 

SND—ASYNC 

WS_OVERLAPPEDWINDOW 


这些是简单的数值常数。字首指示该常数所属的类别，如表 3-1 所示。 


表 3-1 


字首 

类别 

CS 

视窗类别样式 
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CW 

建立视窗 

DT 

绘制文字 

IDI 

图示 ID 

IDC 

游标 ID 

MB 

讯息方块 

SND 

声音 

WM 

视窗讯息 

WS 

视窗样式 


奉劝程式写作者不要费力气去记忆 Windows 程式设计中的数值常数。实际 
上， Windows 中使用的每个数值常数在表头档案中均有相应的识别字定义。 

新的资料型态 

HELLOWIN . C 中的其他识别字是新的资料型态，也在 Windows 表头档案中使 
用 typedef 叙述或 ##define 叙述加以定义了。最初是为了便於将 Windows 程式 
从原来的16位元系统上移植到未来的使用32位元(或者其他)技术的作业系统 
上。这种作法并不如当时每个人想像的那样顺利，但是这种概念基本上是正确 
的。 

有时这些新的资料型态只是为了方便缩写。例如，用於 WndProc 的第二个 
参数的 UINT 资料型态只是一个 unsigned int (无正负号整数），在 Windows 98 
中，这是一个32位元的值。用於 WinMain 的第三个参数的 PSTR 资料型态是指 
向一个字串的指标，即是一个 char *。 

其他资料型态的含义不太明显。例如， WndProc 的第三和第四个参数分别被 
定义为 WPARAM 和 LPARAM ， 这些名字的来源有点历史背 景：当 Windows 还是16 
位元系统时， WndProc 的第三个参数被定义为一个 WORD ， 这是一个16位 元的无 
正负号短 （unsigned short ) 整数，而第四个参数被定义为一个 LONG ， 这是一 
个32位元有正负号长整数，从而导致了文字 「 PARAM 」 前面加上了前置字首 「 W 」 
和 「 L 」 。当然，在32位元的 Windows 中， WPARAM 被定义为一个 UINT ， 而 LPARAM 
被定义为一个 LONG (这就是 C 中的 long 整数型态），因此视窗讯息处理程式的 
这两个参数都是32位元的值。这也许有点奇怪，因为 WORD 资料型态在 Windows 98 
中仍然被定义为一种16位元的 无正负号 整数，因此 「 PARAM 」 前的 「 W 」 就有 
点误用了。 

WndProc 函式传回一个型态为 LRESULT 的值，该值简单地被定义为一个 
LONG 。 WinMain 函式被指定了一个 WINAPI 型态（在表头档案中定义的所有 
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Windows 函式都被指定这种型态），而 WndProc 函式被指定一个 CALLBACK 型态。 
这两个识别字都被定义为 _ stdcall ， 表示在 Windows 本身和使用者的应用程式 
之间发生的函式呼叫的呼叫参数传递方式。 

HELL 0 WIN 还使用了 Windows 表头档案中定义的四种资料结构（我们将在本 
章稍後加以讨论）。这些资料结构如表 3-2 所示。 


表 3-2 


结构 

含义 

MSG 

讯息结构 

WNDCLASS 

视窗类别结构 

PAINTSTRUCT 

绘图结构 

RECT 

矩形结构 


前面两个资料结构在 WinMain 中使用，分别定义了两个名为 msg 和 wndclass 
的结构，後面两个资料结构在 WndProc 中使用，分别定义了 ps 和 rect 结构。 

代号简介 

最後，还有三个大写识别字（见表 3-3) ，用於不同型态的「代 号」： 


表 3-3 


识别字 

含义 

HINSTANCE 

执行实体（程式自身）代号 

HWND 

视窗代号 

HDC 

装置内容代号 


代号在 Windows 中使用非常频繁。在本章结束之前，我们将遇到 HIC0N (图 
示代号）、 H ⑶ RS0R (滑鼠游标代号）和 HBRUSH (画刷代号）。 

代号是一个（通常为 32 位元的）整数，它代表一个物件。 Windows 中的代 
号类似传统 C 或者 MS-DOS 程式设计中使用的档案代号。程式几乎总是通过呼叫 
Windows 函式取得代号。程式在其他 Windows 函式中使用这个代号，以使用它代 
表的物件。代号的实际值对程式来说是无关紧要的。但是，向您的程式提供代 
号的 Windows 模组知道如何利用它来使用相对应的物件。 

匈牙利表示法 

读者可能注意到， HELLOWIN.C 中有一些变数的名字显得很古怪。如 
szCmdLine ， 它是传递给 WinMain 的参数。 
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许多 Windows 程式写作者使用一种叫做「匈牙利表示法」的变数命名通则。 
这是为了纪念传奇性的 Microsoft 程式写作者 Charles Simonyi 。 非常简单，变 
数名以一个或者多个小写字母开始，这些字母表示变数的资料型态。例如， 
szCmdLine 中的 sz 代表「以0结尾的字串」。在 hlnstance 和 hPrevInstance 
中的 h 字首表示「代 号」； 在 iCmdShow 中的 i 字首表示「整数」。 WndProc 的 
後两个参数也使用匈牙利表示法。正如我在前面已经解释过的，尽管 wParam 应 
该更适当地被命名为 uiParam (代表「无正负号整数」），但是因为这两个参数 
是使用资料型态 WPARAM 和 LPARAM 定义的，因此保留它们传统的名字。 

在命名结构变数时，可以用结构名（或者结构名的一种缩写）的小写作为 
变数名的字首，或者用作整个变数名。例如，在 HELLOWIN . C 的 WinMain 函式 
中， msg 变数是 MSG 型态的 结构； wndclass 是 WNDCLASSEX 型态的一个结构。在 
WndPmc 函式中， ps 是一个 PAINTSTRUCT 结构， rect 是一个 RECT 结构。 

匈牙利表示法能够帮助程式写作者及早发现并避免程式中的错误。由於变 
数名既描述了变数的作用，又描述了其资料型态，就比较容易避免产生资料型 
态不合的错误。 

表 3-4 列出了在本书中经常用到的变数字首。 


表 3-4 


字首 

资料型态 

C 

char 或 WCHAR 或 TCHAR 

by 

BYTE ( 无正负号字元） 

n 

short 

• 

1 

int 

x, y 

int 分别用作 x 座标和 y 座标 

cx, cy 

int 分别用作 x 长度和 y 长度； C 代表「计数器」 

b 或 f 

BOOL (int )； f 代表「旗标」 

w 

WORD ( 无正负号短轉数） 

1 

LONG ( 长整数） 

dw 

DWORD ( 无正负号长整数） 

fn 

function ( 函式） 

s 

string ( 字串） 

sz 

以位元组值 0 结尾的字串 

h 

代号 

P 

指标 
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注册视窗类别 

视窗依照某一视窗类别建立，视窗类别用以标识处理视窗讯息的视窗讯息 
处理程式。 

不同视窗可以依照同一种视窗类别建立。例如， Windows 中的所有按钮视窗 
——包括按键、核取方块，以及单选按钮——都是依据同一种视窗类别建立的。 
视窗类别定义了视窗讯息处理程式和依据此类别建立的视窗的其他特徵。在建 
立视窗时，要定义一些该视窗所独有的特徵。 

在为程式建立视窗之前，必须首先呼叫 RegisterClass 注册一个视窗类别。 
该函式只需要一个参数，即一个指向型态为 WNDCLASS 的结构指标。此结构包括 
两个指向字串的栏位，因此结构在 WINUSER.H 表头档案中定义了两种不同的方 


式，第一个是 ASCII 版的 WNDCLASS A ： 


typedef struct 

: 

tagWNDCLASSA 

1 

UINT 

style ; 

WNDPROC 

lpfnWndProc ; 

int 

cbClsExtra ; 

int 

cbWndExtra ; 

HINSTANCE 

hlnstance ; 

HICON 

hlcon ; 

HCURSOR 

hCursor ; 

HBRUSH 

hbrBackground ; 

LPCSTR 

IpszMenuName ; 

LPCSTR 

IpszClassName ; 

J 

WNDCLASSA, * PWNDCLASSA, NEAR * NPWNDCLASSA, FAR * LPWNDCLASSA ; 


在这里提示一下资料型态和匈牙利表 示法： 其中的 lpfn 字首代表「指向函 
式的长指标」。（在 Win 32 API 中，长指标和短指标（或者近程指标）没有区 
别。这只是16位元 Windows 的遗物。） cb 字首代表「位元组数」而且通常作为 


个常数来表示一个位元组的大小。 h 字首是一个代号，而 hbr 字首代表「一个 


画刷的代号」。 lpsz 字首代表「指向以0结尾字串的指标」。 
Unicode 版的结构定义如下： 


typedef struct 

tagWNDCLASSW 

i 

UINT 

style ; 

WNDPROC 

lpfnWndProc ; 

int 

cbClsExtra ; 

int 

cbWndExtra ; 

HINSTANCE 

hlnstance ; 

HICON 

hlcon ; 

HCURSOR 

hCursor ; 
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HBRUSH 

hbrBackground ; 

LPCWSTR 

lps zMenuName ; 

LPCWSTR 

\ 

lpszClassName ; 

/ 

WNDCLASSW , 女 

PWNDCLASSW, NEAR * NPWNDCLASSW, FAR * LPWNDCLASSW ; 


与前者唯一的区别在於最後两个栏位定义为指向宽字串常数，而不是指向 
ASCII 字串常数。 


WINUSER . H 定义了 WNDCLASSA 和 WNDCLASSW 结构 （ 以及指向结构的指标）以 
後，表头档案依据对 UNICODE 识别字的解释，定义了 WNDCLASS 和指向 WNDCLASS 
的指标（包括一些向後相容的程式 码）： 


#ifdef UNICODE 


typedef 

WNDCLASSW 

WNDCLASS ; 

typedef 

PWNDCLASSW 

PWNDCLASS ; 

typedef 

NPWNDCLASSW 

NPWNDCLASS ; 

typedef 

#else 

LPWNDCLASSW 

LPWNDCLASS ; 

typedef 

WNDCLASSA 

WNDCLASS ; 

typedef 

PWNDCLASSA 

PWNDCLASS ; 

typedef 

NPWNDCLASSA 

NPWNDCLASS ; 

typedef 

#endif 

LPWNDCLASSA 

LPWNDCLASS ; 


本书後面列出结构时，将只列出功用相同的结构定义，对 WNDCLASS 就像这 

样： 


typedef struct 

; 


I 

UINT 

style ; 

WNDPROC 

lpfnWndProc ; 

int 

cbClsExtra ; 

int 

cbWndExtra ; 

HINSTANCE 

hlnstance ; 

HICON 

hicon ; 

HCURSOR 

hCursor ; 

HBRUSH 

hbrBackground ; 

LPCTSTR 

lps zMenuName ; 

LPCTSTR 

lps zClassName ; 

J 

WNDCLASS, * PWNDCLASS ; 


我也不再著重说明指标的定义。一个程式写作者的程式不应该因为使用以 
LP 或 NP 为字首的不同指标型态而被搅乱。 


在 WinMain 中为 WNDCLASS 定义一个结构，通常像 这样： 

WNDCLASS wndclass : 

然後，你就可以初始化该结构的10个栏位，并呼叫 RegisterClass 。 

在 WNDCLASS 结构中最重要的两个栏位是第二个和最後一个，第二个栏位 
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( lpfnWndProc ) 是依据这个类别来建立的所有视窗所使用的视窗讯息处理程式 
的位址。在 HELLOWIN . C 中，这个是 WndProc 函式。最後一个栏位是视窗类别的 
文字名称。程式写作者可以随意定义其名称。在只建立一个视窗的程式中，视 
窗类别名称通常设定为程式名称。 

其他栏位依照下面的方法描述了视窗类别的一些特徵。让我们依次看看 
WNDCLASS 结构中的每个栏位。 

叙述 

wndclass.style = CS HREDRAW | CS VREDRAW ; 


使用 c 的位元「或」运算子结合了两个「视窗类别样式」识别字。在表头 
档案 WINUSER . H 中，已定义了一整组以 CS 为字首的识 别字： 


#define 

CS_ 

VREDRAW 

0x0001 

#define 

CS_ 

HREDRAW 

0x0002 

#define 

CS_ 

KEYCVTWINDOW 

0x0004 

#define 

CS_ 

DBLCLKS 

0x0008 

#define 

CS_ 

OWN DC 

0x0020 

#define 

CS_ 

CLASSDC 

0x0040 

#define 

CS_ 

PARENTDC 

0x0080 

#define 

CS_ 

NOKEYCVT 

0x0100 

#define 

CS_ 

NOCLOSE 

0x0200 

#define 

CS_ 

SAVEBITS 

0x0800 

#define 

CS_ 

BYTEALIGNCLIENT 

0x1000 

#define 

CS_ 

BYTEALIGNWINDOW 

0x2000 

#define 

CS_ 

GLOBALCLASS 

0x4000 

#define 

CS_ 

I ME 

0x00010000 


由於每个识别字都可以在一个复合值中设置一个位元的值，所以按这种方 
式定义的识别字通常称为「位元旗标」。通常我们只使用少数的视窗类别样式。 
HELLOWIN 中用到的这两个识别字表示，所有依据此类别建立的视窗，每当视窗 
的水平方向大小 ( CS _ HREDRAW ) 或者垂直方向大小 ( CS _ VREDRAW ) 改变之後，视窗 
要完全重画。改变 HELLOWIN 的视窗大小，可以看到字串仍然显示在视窗的中央， 
这两个识别字确保了这一点。不久我们就将看到视窗讯息处理程式是如何得知 
这种视窗大小的变化的。 

WNDCLASS 结构的第二个栏位由以下叙述进行初 始化： 

wndclass.lpfnWndProc = WndProc ; 

这条叙述将这个视窗类别的视窗讯息处理程式设定为 WndProc ， 即 
HELLOWIN . C 中的第二个函式。这个过程将处理依据这个视窗类别建立的所有视 
窗的全部讯息。在 C 语言中，像这样在结构中使用函式名时，真正提供的是指 
向函式的指标。 

下面两个栏位用於在视窗类别结构和 Windows 内部保存的视窗结构中预留 
一些额外 空间： 


第 48 页 







Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


wndclass.cbClsExtra = 0 ; 
wndclass.cbWndExtra = 0 ; 

程式可以根据需要来使用预留的空间。 HELL 0 WIN 没有使用它们，所以设定 
值为0。否则，和匈牙利表示法所指示的一样，这个栏位将被当成「预留的位元 
组数」。（在第七章的程式 CHECKER 3 将使用 cbWndExtra 栏位。） 

下一个栏位就是程式的执行实体代号（它也是 WinMain 的参数之 一）： 

wndclass•hlnstance = hlnstance ; 

叙述 

wndclass.hlcon = Loadlcon (NULL, 工 DI—APPLICATION); 

为所有依据这个视窗类别建立的视窗设置一个图示。图示是一个小的点阵 
图图像，它对使用者代表程式，将出现在 Windows 工作列中和视窗的标题列的 
左端。在本书的後面，您将学习如何为您的 Windows 程式自订图示。现在，为 
了方便起见，我们将使用预先定义的图示。 

要取得预先定义图示的代号，可以将第一个参数设定为 NULL 来呼叫 
Loadlcon 。 在载入程式写作者自订的图示时（图示应该存放在磁片上的 . EXE 程 
式档案中），这个参数应该被设定为程式的执行实体代号 hlnstance 。 第二个参 
数代表图示。对於预先定义图示，此参数是以 IDI 开始的识别字 （「 ID 代表图 
示」 ） ，识别字在 WINUSER . H 中定义。 IDI _ APPLICATION 图示是一个简单的视窗 
小图形。 Loadlcon 函式传回该图示的代号。我们并不关心这个代号的实际值， 
它只用於设置 hlcon 栏位元的值。该栏位在 WNDCLASS 结构中定义为 HIC 0 N 型态， 
此型态名的含义为 rhandle to an icon (图示代号）」。 

叙述 

wndclass.hCursor = LoadCursor (NULL, IDC—ARROW); 

与前一条叙述非常相似。 LoadCursor 函式载入一个预先定义的滑鼠游标（命 
名为 IDC _ ARR 0 W ) ，并传回该游标的代号。该代号被设定给 WNDCLASS 结构的 
hCursor 栏位。当滑鼠游标在依据这个类别建立的视窗的显示区域上出现时，它 
变成一个小箭头。 

下一个栏位指定依据这个类别建立的视窗背景颜色。 hbrBackground 栏位名 
称中的 hbr 字首代表 「handle to a brush (画刷代号）」。画刷是个绘图词汇， 
指用来填充一个区域的著色样式。 Windows 有几个标准画刷，也称为「备用 
( stock ) 」画刷。这里所示的 GetStockObject 呼叫将传回一个白色画刷的代号: 

wndclass.hbrBackground = GetStockObject (WHITE—BRUSH); 

这意味著视窗显示区域的背景完全为白色，这是一种极其普遍的做法。 
下一个栏位指定视窗类别功能表。 HE 1 L 0 WIN 没有应用程式功能表，所以该 
栏位被设定为 NULL ： 

wndclass.lpszMenuName = NULL ; 
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最後，必须给出一个类别名称。对於小程式，类别名称可以与程式名相同， 
即存放在 szAppName 变数中的 「 HelloWin 」 字串。 

wndclass.IpszClassName = szAppName ; 

至於该字串由 ASCII 字元组成或由 Unicode 字元组成，取决於是否定义了 
UNICODE 识别字。 

在初始化该结构的10个栏位後， HELL 0 WIN 呼叫 RegisterClass 来注册这个 
视窗类别。该函式只有一个参数，即指向 WNDCLASS 结构的指标。实际上， 
RegisterClassA 函式将获得一个指向 WNDCLASSA 结构的指标，而 
RegisterClassW 函式将获得一个指向 WNDCLASSW 结构的指标。程式要使用哪个 
函式来注册视窗类别，取决於发送给视窗的讯息包含 ASCII 文字还是 Unicode 
文字。 

现在有一个 问题： 如果用定义的 UNICODE 识别字编译了程式，程式将呼叫 
RegisterClassWo 该程式可以在 Microsoft Windows NT 中执行良好。但如果此 
程式在 Windows 98上执行， RegisterClassW 函式并未真地被执行到。函式有一 
个进入点，但函式呼叫後只传回0，表明错误。对於在 Windows 98下执行的 
Unicode 程式来说，这是一个通知使用者有问题并终止执行的好机会。这是本书 
中多数程式处理 RegisterClass 函式呼叫的方法： 

if ( ! RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT! n ), 

szAppName, MB_IC0NERR0R); 

return 0 ; 

} 

由於 MessageBoxW 是可在 Windows 98 环境下执行的几个 Unicode 函式之一， 
所以其执行正常。 

当然，这段程式假定 RegisterClass 不会因为其他原因而呼叫失败，诸如 
WNDCLASS 结构中 lpfnWndProc 栏位被设定成 NULL 之类的错误 。 GetLastError 
函式会帮助您确定在这样的情况下产生错误的原因。 GetLastError 是 Windows 
中常用的函式，它可以在函式呼叫失败时获得更多错误资讯。不同函式的文件 
将指出您是否能够用 GetLastError 来获得这些资讯。在 Windows 98中呼叫 
RegisterClassW 时 ， GetLastError 将传回 120。在 WINERROR . H 中您可以看到， 
值 120与识别字 ERROR _ CALL _ NOT_IMPLEMENTED 相等。您也可以在 /Platform 
SDK/Windows Base Services/Debugging and Error Handling/Error 
Codes/System Errors - Numerical Order 查看错误。 

一些 Windows 程式写作者喜欢检查所有可能发生错误的函式呼叫的传回值。 
这么做确实有点道理，相信您也非常习惯在配置记忆体後检查错误。而许多 
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Windows 函式需要配置记忆体。例如， RegisterClass 需要配置记忆体，以保存 
视窗类别的资讯。如此一来，您就应该要检查这个函式的执行结果。另一方面 
说来，如果由於 RegisterClass 不能得到所需要的记忆体，它会宣告呼叫失败， 
而 Windows 大概也快当掉了。 

在本书的范例程式中，我做了最少的错误检查。这不是因为我认为错误检 
查不是一个好方法，而是因为这会让我们在程式举例中分心。 

最後， 一 个老经验是：在一些 Windows 范例程式中，您可能在 WinMain 中 
看到以下程 式码： 

if ( ! hPrevInstance) 

{ 

wndclass.cbStyle = CS_HREDRAW | CS—VREDRAW ; 

初始化其他 wndclass 
RegisterClass (&wndclass); 

} 

这是出於「旧习难改」的原因。在16位元的 Windows 中，如果您启动正在 
执行的程式的一个新执行实体， WinMain 的 hPrevInstance 参数将是前一个执行 
实体的执行实体代号。为节省记忆体，两个或多个执行实体就可能会共用相同 
的视窗类别。这样，视窗类别就只在 hPrevInstance 是 NULL 的时候才注册，这 
表明程式没有其他执行实体。 

在32位元的 Windows 中， hPrevInstance 总是 NULL 。 此程式码会正常执行， 

而实际上也没必要检查 hPrevInstance 。 

建立视窗 

视窗类别定义了视窗的一般特徵，因此可以使用同一视窗类别建立许多不 
同的视窗。实际呼叫 CreateWindow 建立视窗时，可能指定有关视窗的更详细的 
资讯。 

Windows 程式设计新手有时会混淆视窗类别和视窗之间的区别，以及为什么 
一个视窗的所有特徵不能被一次设定好。实际上，以这种方式分开这些样式资 
讯是非常方便的。例如，所有的按钮视窗都可以依据同样的视窗类别来建立， 
与这个视窗类别相关的视窗讯息处理程式位於 Windows 内部。由视窗类别来负 
责处理按钮的键盘和滑鼠输入，并定义按钮在萤幕上的外观形象。从这一点看 
来，所有的按钮都是以同样的方式工作的。但是并非所有的按钮都是一样的。 
它们可以有不同的大小，不同的萤幕位置，以及不同的字串。後面的这样一些 
特徵是视窗定义的一部分，而不是视窗类别定义的。 


第 51 页 













Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


传递给 RegisterClass 函式的资讯会在一个资料结构中设定好，而传递给 
CreateWindow 函式的资讯会在函式单独的参数中设定好。下面是 HELLOWIN . C 中 
的 CreateWindows 呼叫，每一个栏位都做了完整的 说明： 


hwnd = CreateWindow (szAppName, // window class name 

TEXT ( "The Hello Program 1 ，）， // window caption 

WS_OVERLAPPEDWINDOW, // window style 

CW—USEDEFAULT, // initial x position 

CW—USEDEFAULT, // initial y position 

CW USEDEFAULT, // initial x size 


CW—USEDEFAULT, 

NULL, 

NULL, 


// initial y size 
// parent window handle 
// window menu handle 


hlnstance, // program instance handle 

NULL) ; // creation parameters 


在这里，我不想提实际上有 CreateWindowA 函式和 CreateWindowW 函式， 
两个函式分别将前两个参数当成 ASCII 或者 Unicode 字串来处理。 

标记为 「window class name 」 的参数是 szAppName ， 它含有字串 「 HelloWin 」 
一一 这是程式注册的视窗类别名称。这就是我们建立的视窗联结视窗类别的方 



此程式建立的视窗是一个普通的重叠式视窗。它含有一个标题列，标题列 
左边有一个系统功能表按钮，标题列右边有缩小、放大和关闭图示，四周还有 
一个表示视窗大小的边框。这是标准样式的视窗，名为 WS _ OVERLAPPEDWINDOW ， 


出现在 CreateWindow 的「视窗样式」参数中。如果看一下 WINUSER . H ， 您将会 
发现此样式是几种位元旗标的组合： 


#define 

WS 

OVERLAPPEDWINDOW (WS OVERLAPPED | 

\ 



WS_ 

_CAPTI0N | 

\ 



WS_ 

SYSMENU | 

\ 



WS 

THICKFRAME 

1 

\ 


WS_ 

MINIMIZEBOX 

1 

\ 


WS_ 

MAXIMIZEBOX) 




「视窗标题」是显示在标题列中的文字。 


注释著 「 initial x position 」 和 「 initial y position 」 的参数指定了 
视窗左上角相对於萤幕左上角的初始位置。由於这些参数使用 CWJJSEDEFAULT 
识别字，指示 Windows 使用重叠视窗的内定位置。 （ CWJJSEDEFAULT 定义为 
0 x 80000000。 ） 内定情况下， Windows 依次对新建立的视窗定位，使各视窗左上 
角的垂直和水平距离在萤幕上按一定的大小递增。与此类似，注释著 「initial 
x size 」 和 rinitial y size 」 的参数分别指定视窗的宽度和高度。同样使用 
了 CWJJSEDEFAULT 识别字，表明希望 Windows 使用内定尺寸。 

在建立一个「最上层」视窗，如应用程式视窗时，注释为「父视窗代号」 
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的参数设定为 NULL 。 通常，如果视窗之间存在有父子关系，则子视窗总是出现 
在父视窗的上面。应用程式视窗出现在桌面视窗的上面，但不必为呼叫 
CreateWindow 而找出桌面视窗的代号。 

因为视窗没有功能表，所以「视窗功能表代号」也设定为 NULL 。 「程式执 
行实体代号」设定为执行实体代号，它是作为 WinMain 的参数传递给这个程式 
的。最後，「建立参数」指标设定为 NULL ， 可以用这个参数存取稍後程式中可 
能引用到的资料。 

CreateWindow 传回被建立的视窗的代号，该代号存放在变数 hwnd 中，後者 
被定义为 HWND 型态 （ 「视窗代号型态」）。 Windows 中的每个视窗都有一个代 
号，程式用代号来使用视窗。许多 Windows 函式需要使用 hwnd 作为参数，这样， 
Windows 才能知道函式是针对哪个视窗的。如果一个程式建立了许多视窗，则每 
个视窗均有一个代号。视窗代号是 Windows 程式所处理最重要的代号之一。 


显示视窗 


在 CreateWindow 呼叫传回之後， Windows 内部已经建立了这个视窗。这就 
是说， Windows 已经配置了一块记忆体，用来保存在 CreateWindow 呼叫中指定 
视窗的全部资讯跟一些其他资讯，而 Windows 稍後就是依据视窗代号找到这些 
资讯的。 

然而，光是这样子，视窗并不会出现在视讯显示器上。您还需要两个函式 
呼叫， 一 个是： 

ShowWindow (hwnd, iCmdShow); 

第一个参数是刚刚用 CreateWindow 建立的视窗代号。第二个参数是作为参 
数传给 WinMain 的 iCmdShow 。 它确定最初如何在萤幕上显示视窗，是一般大小、 
最小化还是最大化。 在开始功能表中安装程式时，使用者可能做出最佳选择。 
如果视窗按一般大小显示，那么 WinMain 接收到後传递给 ShowWindow 的就是 
SW _ SH 0 WN 0 RMAL ； 如果视窗是最大化显示的，则为 SW + SHOWMAXIMIZED 。 而如果视 
窗只显示在工作列上，则是 SW_SHOWMINNOACTIVEo 

ShowWindow 函式在显示器上显示视窗。如果 ShowWindow 的第二个参数是 
SW _ SH 0 WN 0 RMAL ， 则视窗的显示区域就会被视窗类别中定义的背景画刷所覆盖。 
函式呼叫 

UpdateWindow (hwnd) ; 

会重画显示区域。它经由发送给视窗讯息处理程式（即 HELLOWIN . C 中的 
WndProc 函式）一个 WM _ PAINT 讯息做到这一点。後面，我们将说明 WndProc 如 
何处理这个讯息。 
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讯息回圈 

呼叫 UpdateWindow 之後，视窗就出现在视讯显示器上。程式现在必须准备 
读入使用者用键盘和滑鼠输入的资料。 Windows 为当前执行的每个 Windows 程式 
维护一个「讯息伫列」。在发生输入事件之後， Windows 将事件转换为一个「讯 
息」并将讯息放入程式的讯息伫列中。 

程式通过执行一块称之为「讯息回圈」的程式码从讯息伫列中取出 讯息： 

while (GetMessage (&msg, NULL, 0 , 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 


msg 变数是型态为 MSG 的结构，型态 MSG 在 WINUSER . H 中定义 如下: 


typedef struct 

tagMSG 


HWND hwnd ; 


UINT message ; 


WPARAM 

wParam ; 


LPARAM 

IParam ; 


DWORD 

time ; 


POINT 

pt ; 

f 

MSG, 

* PMSG ; 



POINT 资料型态也是一个结构，它在 WINDEF . H 中定义 如下: 


typedef struct tagPOINT 
{ 

LONG x ; 

LONG y ; 

} 

POINT, * PPOINT; 

讯息回圈以 GetMessage 呼叫开始，它从讯息伫列中取出一个 讯息： 

GetMessage (&msg, NULL, ◦, 0) 

这一呼叫传给 Windows 一个指标，指向名为 msg 的 MSG 结构。 第二、第三 
和第四个参数设定为 NULL 或者0,表示程式接收它自己建立的所有视窗的所有 

讯息。 Windows 用从讯息伫列中取出的下一个讯息来填充讯息结构的各个栏位， 
各个栏位 包括： 

hwnd 接收讯息的视窗代号。在 HELL 0 WIN 程式中，这一参数与 CreateWindow 
传回的 hwnd 值相同，因为这是该程式拥有的唯一视窗。 

message 讯息识别字。这是一个数值，用以标识讯息。对於每个讯息，均 
有一个对应的识别字，这些识别字定义於 Windows 表头档案（其中大多数在 
WINUSER . H 中），以字首丽 （「window message 」 ，视窗讯息）开头。例如， 
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使用者将滑鼠游标放在 HELL 0 WIN 显示区域之内，并按下滑鼠左按钮 ， Windows 
就在讯息伫列中放入一个讯息，该讯息的 message 栏位等於 WM _ LBUTT 0 ND 0 WN 。 
这是一个常数，其值为0 x 0201。 


wParam 

一个 32 位元的 「message parameter ( 讯息参数）」，其含义和数值根 

据讯息的不同而不同。 

IParam 

一个 32 位元的讯息参数，其值与讯息有关。 

time 

讯息放入讯息伫列中的时间。 

pt 

讯息放入讯息伫列时的滑鼠座标。 


只要从讯息伫列中取出讯息的 message 栏位不为 WM _ QUIT (其值为0 x 0012)， 


GetMessage 就传回一个非零值 。 WM QUIT 讯息将导致 GetMessage 传回0。 

叙述 

TranslateMessage (&msg); 

将 msg 结构传给 Windows ， 进行一些键盘转换。 (关於这一点，我们将在第 
六章中深入讨论。 ) 

叙述 

DispatchMessage (&msg) ; 

又将 msg 结构回传给 Windows 。 然後， Windows 将该讯息发送给适当的视窗 

讯息处理程式，让它进行处理。这也就是说， Windows 将呼叫视窗讯息处理 

在 HELL 0 WIN 中，这个视窗讯息处理程式就是 WndProe 函式。 处理完讯息之後， 
WndProc 传回到 Windows 。 此时 ， Windows 还停留在 DispatchMessage 呼叫中。 
在结束 DispatchMessage 呼叫的处理之後， Windows 回到 HELL 0 WIN ， 并且接著 
从下一个 GetMessage 呼叫开始讯息回圈。 

视窗讯息处理程式 

以上我们所讨论的都是必要的 负担： 注册视窗类别，建立视窗，然後在萤 
幕上显示视窗，程式进入讯息回圈，然後不断从讯息伫列中取出讯息来处理。 

实际的动作发生在视窗讯息处理程式中。视窗讯息处理程式确定了在视窗 
的显示区域中显示些什么以及视窗怎样回应使用者输入。 

在 HELL 0 WIN 中，视窗讯息处理程式是命名为 WndProc 的函式。 视窗讯息处 
理程式可任意命名（只要求不和其他名字发生冲突）。一个 Windows 程式可以 
包含多个视窗讯息处理程式。一个视窗讯息处理程式总是与呼叫 RegisterClass 
注册的特定视窗类别相关联。 Createffindow 函式根据特定视窗类别建立一个视 _ 

窗。但依据一个视窗类别，可以建立多个视 €1 

~ 视窗讯息处理程式总是定义为如下形式： 

LRESULT CALLBACK WndProc (HWND hwnd , UINT message , WPARAM wParam , 
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LPARAM 1 Param ) 

注意，视窗讯息处理程式的四个参数与 MSG 结构的前四个栏位是相同的。 

第一个参数 hwnd 是接收讯息的视窗的代号，它与 CreateWindow 函式的传回值 
相同。对於与 HELL 0 WIN 相似的程式（只建立一个视窗），这个参数是程式所知 
道的唯一视窗代号。如果程式是依据同一视窗类别（同时也是同一视窗讯息处 
理程式）建立多个视窗，则 hwnd 标识接收讯息的特定视窗。 

第二个参数与 MSG 结构中的 message 栏位相同，它是标识讯息的数值。最 
後两个参数都是32位元的讯息参数，提供关於讯息的更多资讯。这些参数包含 
每个讯息型态的详细资讯。有时讯息参数是两个存放在一起的16位元值，而有 
时讯息参数又是一个指向字串或资料结构的指标。 

程式通常不直接呼叫视窗讯息处理程式， 视窗讯息处理程式通常由 Windows 
本身呼叫。通过呼叫 SendMessage 函式，程式能够直接呼叫它自己的视窗讯息 
处理程式。 我们将在後面的章节讨论 SendMessage 函式。 

处理讯息 

视窗讯息处理程式所接受的每个讯息均是用一个数值来标识的，也就是传 
给视窗讯息处理程式的 message 参数。 Windows 表头档案 WINUSER . H 为每个讯息 
参数定义以「丽」（视窗讯息）为字首开头的识别字。 

一般来说， Windows 程式写作者使用 switch 和 case 结构来确定视窗讯息处 
理程式接收的是什么讯息，以及如何适当地处理它。 视窗讯息处理程式在处理 
讯息时，必须传回0。视窗讯息处理程式不予处理的所有讯息应该被传给名为 
DefWindowProc 的 Windows 函式。从 DefWindowProc 传回的值必须由视窗讯息处 

理程式传回。 

在 HELL 0 WIN 中， WndProc 只选择处理三种 讯息： WM _ CREATE 、 WM _ PAINT 和 
WM _ DESTR 0 Y 。 视窗讯息处理程式的结构 如下： 

switch (iMsg) 

{ 

case WM—CREATE : 

处理 WM_CREATE 讯息 
return 0 ; 

case WM—PAINT : 

处理 WM_PAINT 讯息 
return 0 ; 

case WM—DESTROY : 

处理 WM—DESTROY 讯息 
return 0 ; 
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return DefWindowProc (hwnd, iMsg, wParam, IParam); 

呼叫 DefWindowProc 来为视窗讯息处理程式不予处理的所有讯息提供内定 
处理，这是很重要的。不然一般动作，如终止程式，将不会正常执行。 

播放音效档案 

视窗讯息处理程式接收的第一个讯息——也是 WndProc 选择处理的第一个 

讯息-是 WM _ CREATE 。 当 Windows 在 WinMain 中处理 CreateWindow 函式时， 

WndProc 接收这个讯息。就是说，在 HELL 0 WIN 呼叫 CreateWindow 时 ， Windows 
将做一些它必须做的工作。在这些工作中， Windows 呼叫 WndProc ， 将第一个参 
数设定为视窗代号，第二个参数设定为 WM _ CREATE 。 WndProc 处理 WM _ CREATE 讯 
息并将控制传回给 Windows 。 Windows 然後可以从 CreateWindow 呼叫中传回到 
HELL 0 WIN 中，继续在 WinMain 中进行下一步的处理。 

通常，视窗讯息处理程式在 WM _ CREATE 处理期间进行一次视窗初始化。 
HELL 0 WIN 对这个讯息的处理中播放一个名为 HELLOWIN . WAV 的音效档案。它使用 
简单的 PlaySound 函式来做到这一点。该函式说明在 /Platform SDK/Graphics 
and Multimedia Services/Multimedia Audio/Waveform Audio 中，而文件在 
/Platform SDK/Graphics and Multimedia Services/Multimedia 
Reference/Multimedia Functions 中。 

PlaySound 的第一个参数是音效档案的名称（它也可能是在 Control Panel 
的 Sounds 中定义的一种声音的别名，或者是一个程式资源）。第二个参数只有 
当音效档案是一种资源时才被使用。第三个参数指定一些选项。在这个例子中， 
我指定第一个参数是一个档案名，并且非同步地播放声音，即 PlaySound 函式 
呼叫在音效档案开始播放时立即传回，而不会等待它的完成。在这种方法下， 
程式能够继续初始化。 

WndProc 通过从视窗讯息处理程式中传回0,结束了整个 WM _ CREATE 的处理。 

WM-PAINT 讯息 

WndProc 处理的第二个讯息为 WM _ PAINT 。 这个讯息在 Windows 程式设计中 
是很重要的。当视窗显示区域的一部分显示内容或者全部变为「无效」，以致 
於必须「更新画面」时，将由这个讯息通知程式。 

显示区域的显示内容怎么会变得无效呢？在最初建立视窗的时候，整个显 
示区域都是无效的，因为程式还没有在视窗上画什么东西。第一条 WM _ PAINT 讯 
息（通常发生在 WinMain 中呼叫 UpdateWindow 时）指示视窗讯息处理程式在显 
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示区域上画一些东西。 

在使用者改变 HELL 0 WIN 视窗的大小後，显示区域的显示内容重新变得无效。 
读者应该还记得， HELL 0 WIN 中 wndclass 结构的 style 栏位设定为标志 
CS _ HREDRAW 和 CS _ VREDRAW ， 这样的格式设定指示 Windows ， 在视窗大小改变後， 
就把整个视窗显示内容当成无效。然後，视窗讯息处理程式将收到一条 WM_PAINT 
讯息。 

当使用者将 HELL 0 WIN 最小化，然後再次将视窗恢复为以前的大小时， 
Windows 将不会保存显示区域的内容。在图形环境下，视窗显示区域涉及的资料 
量很大。因此， Windows 令视窗无效，视窗讯息处理程式接收一条 WM _ PAINT 讯 
息，并自动恢复其视窗的内容。 

在移动视窗以致其相互重叠时， Windows 不保存一个视窗中被另一个视窗所 
遮盖的内容。在这一部分不再被遮盖之後，它就被标志为无效。视窗讯息处理 
程式接收到一条 WM _ PAINT 讯息，以更新视窗的内容。 

对 WM _ PAINT 的处理几乎总是从一个 BeginPaint 呼叫 开始： 

hdc = BeginPaint (hwnd A &ps); 

而以一个 EndPaint 呼叫结束： 

EndPaint (hwnd, &ps); 

在这两个呼叫中，第一个参数都是程式的视窗代号，第二个参数是指向型 
态为 PAINTSTRUCT 的结构指标。 PAINTSTRUCT 结构中包含一些视窗讯息处理程式， 

可以用来更新显示区域的内容。我们将在下一章中讨论该结构的各个栏位。现 
在我们只在 BeginPaint 和 EndPaint 函式中用到它。 

在 BeginPaint 呼叫中，如果显示区域的背景还未被删除，则由 Windows 来 
删除。它使用注册视窗类别的 WNDCLASS 结构的 hbrBackground 栏位中指定的画 
刷来删除背景。在 HELL 0 WIN 中，这是一个白色备用画刷。这意味著 ， Windows 
将通过把视窗背景设定为白色来删除视窗背景。 BeginPaint 呼叫令整个显示区 
域有效，并传回一个「装置内容代号」 o 装置内容是指实体输出设备（如视讯 
显示器）及其装置驱动程式。 在视窗的显示区域显示文字和图形需要装置内容 
代号。但是从 BeginPaint 传回的装置内容代号不能在显示区域之外绘图，读者 
可以试一试。 EndPaint 释放装置内容代号，使之不再有效。 

如果视窗讯息处理程式不处理 WM _ PAINT 讯息（这是很罕见的），它们必须 
被传送给 DefWindowProc 。 DefWindowProc 只是依次呼叫 BeginPaint 和 
EndPaint , 以使显示区域有效。 

呼叫完 BeginPaint 之後 ， WndProc 接著呼叫 GetClientRect ： 

GetClientRect (hwnd, &rect); 

第一个参数是程式视窗的代号。第二个参数是一个指标，指向一个 RECT 型 
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态的 rectangle 结构。该结构有四个 LONG 栏位，分别为 left 、 top 、 right 和 
bottom 。 GetClientRect 将这四个栏位设定为视窗显示区域的尺寸。 left 和 top 
栏位通常设定为0， right 和 bottom 栏位设定为显示区域的宽度和高度（图元 
点数）。 

WndProc 除了将该 RECT 结构指标作为 DrawText 的第四个参数传递外，不再 
对它做其他 处理： 

DrawText ( hdc, TEXT ("Hello, Windows 98!’’ ）， -1, &rect, 

DT_SINGLELINE | DT_CENTER | DT_VCENTER); 

DrawText 可以输出文字（正如其名字所表明的一样）。由於该函式要输出 
文字，第一个参数是从 BeginPaint 传回的装置内容代号，第二个参数是要输出 
的文字，第三个参数是-1，指示字串是以位元组0终结的。 

DrawText 最後一个参数是一系列位元旗标，它们均在 WINUSER . H 中定义（虽 
然由於其显示输出的效果，使得 DmwText 像一个 GDI 函式呼叫，但它确实因为 
相当高级的画图功能而成为 User 模组的一部分。此函式在 /Platform 
SDK/Graphics and Multimedia Services / GDI/Fonts and Text 中说明）。旗标 

指示了文字必须显示在一行上，水平方向和垂直方向都位於第四个参数指定的 
矩形中央。因此，这个函式呼叫将让字串 rHello , Windows 98!」显示在显示 
区域的中央。 

一 旦显示区域变得无效（正如在改变大小时所发生的情况一样 ）， WndProc 
就接收到一个新的 WM _ PAINT 讯息。 WndProc 通过呼叫 GetClientRect 取得变化 
後的视窗大小，并在新视窗的中央显示文字。 

WM - DESTR 0 Y 讯息 

WM _ DESTR 0 Y 讯息是另一个重要讯息。这一个讯息指示， Windows 正在根据 
使用者的指示关闭视窗。该讯息是使用者单击 Close 按钮或者在程式的系统功 
能表上选择 Close 时发生的（在本章的後面，我们将详细讨论 WM _ DESTR 0 Y 讯息 
是如何生效的）。 

HELL 0 WIN 通过呼叫 PostQuitMessage 以标准方式回应 WM _ DESTR 0 Y 讯息： 

PostQuitMessage ( 0 ) ; 

该函式在程式的讯息伫列中插入一个 WM _ QUIT 讯息。前面提到过， 
GetMessage 对於除了 WM _ QUIT 之外的从讯息伫列中取出的所有讯息都传回非0 
值。而当 GetMessage 得到一个 WM _ QUIT 讯息时，它传回0。这将导致 WinMain 
退出讯息回圈，并终止程式。然後程式执行下面的 叙述： 

return msg.wParam ; 

结构的 wParam 栏位是传递给 PostQuitMessage 函式的值（通常是 0) 。然 
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後 return 叙述将退出 WinMain 并终止程式。 

windows 程式设计的难点 

即使有了对 HELL 0 WIN 的说明，读者对程式的结构和原理可能仍然觉得神秘。 
在为传统环境编写简单的 C 程式时，整个程式可能包含在 main 函式中。而在 
HELL 0 WIN 中， WinMain 只包含了注册视窗类别，建立视窗，从讯息伫列中取出 
讯息和发送讯息所必须的程式码。 

程式的所有实际动作均在视窗讯息处理程式中发生。在 HELL 0 WIN 中，这些 
动作不多， WndProc 只是简单地播放了一个音效档案并在视窗中显示一个字串。 
但是在後面的章节中，读者将发现， Windows 程式所作的一切，都是回应发送给 
视窗讯息处理程式的讯息。这是概念上的主要难点之一，在开始写作 Windows 
程式之前，必须先搞清楚。 

别呼叫我，我会呼叫您 

前面我们提到过，程式写作者已经熟悉了使用作业系统呼叫的做法。例如， 
C 程式写作者使用 fopen 函式打开档案。 fopen 函式最终通过呼叫作业系统来打 
开档案，这一点问题也没有。 

但是 Windows 不同，尽管 Windows 有1000个以上的函式可供程式呼叫，但 
Windows 也呼叫使用者程式，比如前面定义的视窗讯息处理程式 WndProc 。 视窗 
讯息处理程式与视窗类别相关，视窗类别是程式呼叫 RegisterClass 注册 
依据该类别建立的视窗使用这个视窗讯息处理程式来处理视窗的所有讯息。 

Windows 通过呼口4视窗讯息处理程式对视窗发送 讯息 。 

在第一次建立视窗时， Windows 呼叫 WndProc 。 在视窗关闭时， Windows 也 
呼叫 WndProco 视窗改变大小、移动或者变成图示时，从功能表中选择某一项目、 
挪动卷动列、按下滑鼠按钮或者从键盘输入字元时，以及视窗显示区域必须被 
更新时， Windows 都要呼叫 WndProc 。 

所有这些 WndProc 呼叫都以讯息的形式进行 。在大多数 Windows 程式中， 
程式的主要部分都用来处理讯息。 Windows 可以发送给视窗讯息处理程式的讯息 
通常都以丽开头的名字标识，并且都在 WINUSER . H 表头档案中定义。 

实际上，从程式外呼叫程式内的常式这一种做法，在传统的程式设计中并 
非前所未闻。 C 中的 signal 函式可以拦截 Ctrl - C 中断或作业系统的其他中断。 
为 MS - DOS 编写的老程式中经常有拦截硬体中断的程式码。 

但在 Windows 中，这种概念扩展为包括一切事件。视窗中发生的一切都以 
讯息的形式传给视窗讯息处理程式。然後，视窗讯息处理程式以某种方式回应 
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这个讯息，或者将讯息传给 DefWindowProc , 进行内定处理。 

在 HELL 0 WIN 中，视窗讯息处理程式的 wParam 和 IParam 参数除了作为传递 
给 DefWindowProc 的参数外，不再有其他用处。这些参数给出了关於讯息的其 
他资讯，参数的含义与具体讯息相关。 

让我们来看一个例子。一旦视窗的显示区域大小发生了改变， Windows 就呼 
叫视窗的视窗讯息处理程式。视窗讯息处理程式的 hwnd 参数是改变大小的视窗 
的代号（请记住，一个视窗讯息处理程式能处理依据同一个视窗类别建立的多 
个视窗的讯息。参数 hwnd 让视窗讯息处理程式知道是哪个视窗在接收讯息）。 
参数 message 是 WM _ SIZE 。 讯息 WM_SIZE 的参数 wParam 的值是 SIZE _ RESTORED 、 
SIZE — MINIMIZED 、 SIZE — MAXIMIZED 、 SIZE—MAXSHOW 或 SIZE—MAXHIDE (在 
WINUSER . H 表头档案中分别定义为数字 0 到 4) 。也就是说，参数 wParam 表明 
视窗是非最小化还是非最大化，是最小化、最大化，还是隐藏。 

IParam 参数包含了新视窗的大小，新宽度和新高度均为16位元值，合在一 
起成为32位元的 IParam 。 WINDEF . H 中提供了帮助程式写作者从 IParam 中取出 
这两个值的巨集，我们将在下一章说明这个巨集。 

有时候， DefWindowProc 处理完讯息後会产生其他的讯息。例如，假设使用 
者执行 HELL 0 WIN ， 并且使用者最终单击了 Close 按钮，或者假设用键盘或滑鼠 
从系统功能表中选择了 Close ， DefWindowProc 处理这一键盘或者滑鼠输入， 
在检测到使用者选择了 Close 选项之後，它给视窗讯息处理程式发送一条 
WM_SYSCOMMAND 讯息 。 WndProc 将这个讯息传给 DefWindowProc。DefWindowProc 
给视窗讯息处理程式发送一条 WM _ CL 0 SE 讯息来回应之。 WndProc 再次将它传给 
DefWindowProcoDestroyWindow 呼叫 Destroyffindow 来回应这条 WM—CLOSE 讯息。 
DestroyWindow 导致 Windows 给视窗讯息处理程式发送一条 WM DESTROY 讯息。 
WndProc 再呼叫 PostQuitMessage , 将一条 WM QUIT 讯息放入讯息仁列中，以此 
来回应此讯息。这个讯息导致 WinMain 中的讯息回圈终止，然後程式结束。 

长列化讯息与非伫列化讯息 

我们已经谈到过， Windows 给视窗发送讯息，这意味著 Windows 呼叫视窗讯 
息处理程式。但是， Windows 程式也有一个讯息回圈，它呼叫 GetMessage 从讯 
息仁列中取出讯息，并且呼叫 DispatchMessage 将讯息发送给视窗讯息处理程 
式。 

那么， Windows 程式是依次等待讯息（类似于普通程式中相同的键盘输入）， 
然後将讯息送到某地方去的吗？或者，它是直接从程式外面接收讯息的吗？实 
际上，两种情况都存在。 
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讯息能够被分为「伫列化的」和「非伫列化的」。伫列化的讯息是由 Windows 
放入程式讯息伫列中的。在程式的讯息回圈中，重新传回并分配给视窗讯息处 
理程式。非伫列化的讯息在 Windows 呼叫视窗时直接送给视窗讯息处理程式。 
也就是说，伫列化的讯息被「发送」给讯息伫列，而非伫列化的讯息则「发送」 
给视窗讯息处理程式。任何情况下，视窗讯息处理程式都将获得视窗所有的讯 
息一 包括伫列化的和非伫列化的。视窗讯息处理程式是视窗的「讯息中心」。 

伫列化讯息基本上是使用者输入的结果，以击键(如 WM_KEYDOWN 和 WM_KEYUP 
讯息）、击键产生的字元 （ WM_CHAR) 、 滑鼠移动 （ WM_M0USEM0VE) 和滑鼠按钮 
(WM_LBUTT0ND0WN) 的形式给出。伫列化讯息还包含时钟讯息 （ WM_TIMER ) 、 
更新讯息 （ WM_PAINT) 和退出讯息 （ WM_QUIT ) 。 

非伫列化讯息则是其他讯息。在许多情况下，非伫列化讯息来自呼叫特定 
的 Windows 函式。例如，当 WinMain 呼叫 CreateWindow 时， Windows 将建立视 
窗并在处理中给视窗讯息处理程式发送一个 WM_CREATE 讯息。当 WinMain 呼叫 
ShowWindow 时， Windows 将给视窗讯息处理程式发送 WM_SIZE 和 WM_SH0WWIND0W 
讯息。当 WinMain 呼叫 UpdateWindow 时， Windows 将给视窗讯息处理程式发送 
WM_PAINT 讯息。键盘或滑鼠输入时发出的伫列化讯息信号，也能在非伫列化讯 
息中出现。例如，用键盘或滑鼠选择了一个功能表项时，键盘或滑鼠讯息就是 
伫列化的，而说明功能表项已选中的 WM_COMMAND 讯息则可能就是非伫列化的。 

这一过程显然很复杂，但幸运的是，其中的大部分是由 Windows 解决的， 
不关我们的程式的事。从视窗讯息处理程式的角度来看，这些讯息是以一种有 
序的、同步的方式进出的。视窗讯息处理程式可以处理它们，也可以不处理。 

当我说讯息是以一种有序的同步的方式进出时，我是说首先讯息与硬体的 
中断不同。在一个视窗讯息处理程式中处理讯息时，程式不会被其他讯息突然 
中断。 

虽然 Windows 程式可以多执行绪执行，但每个执行绪的讯息伫列只为视窗 
讯息处理程式在该执行绪中执行的视窗处理讯息。换句话说，讯息回圈和视窗 
讯息处理程式不是并发执行的。当一个讯息回圈从其讯息伫列中接收一个讯息， 
然後呼叫 DispatchMessage 将讯息发送给视窗讯息处理程式时，直到视窗讯息 
处理程式将控制传回给 Windows, DispatchMessage 才能结束执行。 

当然，视窗讯息处理程式能呼叫给视窗讯息处理程式发送另一个讯息的函 
式。这时，视窗讯息处理程式必须在函式呼叫传回之前完成对第二个讯息的处 
理。那时视窗讯息处理程式将处理最初的讯息。例如，当视窗程序呼叫 
UpdateWindow 时， Windows 将呼叫视窗讯息处理程式来处理 WM+PAINT 讯息。视 
窗讯息处理程式处理 WM_PAINT 讯息结束以後， UpdateWindow 呼叫将把控制传回 
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给视窗讯息处理程式。 

这也就是说视窗讯息处理程式必须是可重入。在大多数情况下，这不会带 
来问题，但是程式写作者应该意识到这一点。例如，假设您在视窗讯息处理程 
式中处理一个讯息时设置了一个静态变数，然後呼叫了一个 Windows 函式。在 
这个函式传回时，您还能保证那个变数的值还是原来那个吗？ 难说一 很可能您 
呼叫的 Windows 函式产生了另外一个讯息，并且视窗讯息处理程式在处理这个 
讯息时改变了该变数的值。这也是在编译 Windows 程式时，有些编译最佳化选 
项必须关闭的原因之一。 

在许多情况下，视窗讯息处理程式必须保存它从讯息中取得的资讯，并在 
处理另一个讯息时使用这些资讯。这些资讯可以储存在视窗的静态 （ static ) 
变数或整体变数中。 

当然，读者将在下面几章对此有一个更清楚的了解，因为视窗讯息处理程 
式将处理更多的讯息。 

行动迅速 

Windows 98和 Windows NT 都是优先权式的多工环境。这意味著当一个程式 
在进行一项长时间工作时， Windows 可以允许使用者将控制切换到另一个程式 
中。这是一件好事，也是现在的 Windows 优越於以前16位元 Windows 的地方。 

然而，由於 Windows 设计的方式，这种优先权式多工并不总是以您希望的 
样子工作。例如，假设您的程式花费一分钟左右来处理某一个讯息。是的，使 
用者可以将控制切换到另一个程式，但是却无法对您的程式进行任何动作。使 
用者无法移动您的程式视窗、缩放它、最小化、关闭它、什么都不能做。这是 
因为您的视窗讯息处理程式正忙於进行一项长时间的作业。表面上并不是视窗 
讯息处理程式在执行它自己的移动和缩放操作，但实际上确实是它在做。这就 
是 DefWindowProc 部分的工作，它必须被考虑为您的视窗讯息处理程式的一部 
分。 

如果您的程式在处理某些讯息时需要长时间的作业的话，可以选择我在第 
二十章里描述的那些方法来做得更有优雅一些。即使是在优先权式多工环境中， 
也不应该让您的程式呆在萤幕上一动不动。这会让使用者讨厌的，他们会认为 
您的程式中有 bug 、 不标准的动作，说明档案没写好。最好让使用者觉得程式只 
停了一下子就把全部讯息中快速料理完了。 
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第四章输出文字 

在前一章，您看到了一个简单的 Windows 98程式，它在视窗中央，或者更 
准确地说，在显示区域中央显示一行文字。正如我们学到的，显示区域是整个 
应用程式视窗中未被标题列、视窗边框，以及可选的功能表列、工具列、状态 
列和卷动列占据的部分。简而言之，显示区域是视窗中可以由程式任意书写和 
传递视觉资讯的部分。 

对於程式的显示区域，您几乎可以为所欲为，只不过您不能假定视窗大小 
是某一特定尺寸，或者在程式执行时其大小会保持不变。如果您不熟悉图形视 
窗环境的程式设计，这些限制可能会使您感到 惊讶： 不能再假设萤幕上的一行 
文字一定有80个字元了。您的程式必须与其他 Windows 程式共用视讯显示器。 
Windows 使用者控制程式视窗在萤幕上显示的方式。尽管可以建立固定大小的视 
窗（这对於计算器之类的应用是合理的），但在大多数情况下，使用者应该能 
够改变应用程式视窗的大小。您的程式必须能够接受指定给它的大小，并且合 
理地利用这一空间。 

这有两种可能的情况。一种可能是，程式只有仅能显示 「 hello 」 的显示区 
域； 还有另一种可能，即程式在一个大萤幕、高解析度的系统上执行，其显示 
区域大得足以显示两整页文字。灵活地处理这两种极端是 Windows 程式设计的 
要点之一。 

这一章，我们将讲述程式在显示区域显示资讯的方式，但比上一章说明的 
显示方式更加复杂。当程式在显示区域显示文字或图形时，它经常要「绘制」 
它的显示区域。本章著重讲述绘制的方法。 

尽管 Windows 为显示图形提供了强大的图形装置介面 （ GDI ) 函式，但在这 
一 章中，我只介绍简单文字行的显示。我也将忽略 Windows 能够使用的不同字 
体外形及字体大小，仅使用 Windows 的内定系统字体。这看起来似乎是一种限 
制，其实不然，本章涉及和解决的问题适用於所有 Windows 程式设计。 在混合 
显示文字和图形时， Windows 内定字体的字元大小通常决定了图形的尺寸。 

本章表面上是讨论绘图的方法，实际上是讨论与装置无关的程式设计基础。 
Windows 程式只能对显示区域大小甚至字元的大小做很少的假定，相反地，必须 
使用 Windows 提供的功能来取得关於程式执行环境的资讯。 


绘制和更新 

在文字模式环境下，程式可以在显示器的任意部分输出，程式输出到萤幕 
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上的内容会停留在原处，不会神秘地消失。因此，程式可以丟掉重新生成萤幕显示时所需 
的资讯。 

在 Windows 中，只能在视窗的显示区域绘制文字和图形，而且不能确保在 
显示区域内显示的内容会一直保留到程式下一次有意地改写它时还保留在那 
里。例如，使用者可能会在萤幕上移动另一个程式的视窗，这样就可能覆盖您 
的应用程式视窗的一部分。 Windows 不会保存您的视窗中被其他程式覆盖的区 
域，当程式移开後， Windows 会要求您的程式更新显示区域的这个部分。 

Windows 是一个讯息驱动系统。它通过把讯息投入应用程式讯息伫列中或者 
把讯息发送给合适的视窗讯息处理程式，将发生的各种事件通知给应用程式。 
Windows 通过发送 WM_PAINT 讯息通知视窗讯息处理程式，视窗的部分显示区域 
需要绘制。 

WM_PAINT 讯息 

大多数 Windows 程式在 WinMain 中进入讯息回圈之前的初始化期间都要呼 
叫函式 UpdateWindowo Windows 利用这个机会给视窗讯息处理程式发送第一个 
WM_PAINT 讯息。这个讯息通知视窗讯息处理 程式： 必须绘制显示区域。此後， 
视窗讯息处理程式应在任何时刻都准备好处理其他 WM_PAINT 讯息，必要的话， 
甚至重新绘制视窗的整个显示区域。在发生下面几种事件之一时，视窗讯息处 
理程式会接收到一个 WM_PAINT 讯息： 

在使用者移动视窗或显示视窗时，视窗中先前被隐藏的区域重新可见。 

使用者改变视窗的大小（如果视窗类别样式有著 CS_HREDRAW 和 CS_VREDRAW 
位元旗标的设定）。 

程式使用 ScrollWindow 或 ScrollDC 函式滚动显示区域的一部分。 

程式使用 InvalidateRect 或 InvalidateRgn 函式刻意产生 WM_PAINT 讯息。 
在某些情况下，显示区域的一部分被临时覆盖， Windows 试图保存一个显示 
区域，并在以後恢复它，但这不一定能成功。在以下情况下， Windows 可能发送 
WM_PAINT 讯息： 

Windows 擦除覆盖了部分视窗的对话方块或讯息方块。 

功能表下拉出来，然後被释放。 

显示工具提示讯息。 

在某些情况下， Windows 总是保存它所覆盖的显示区域，然後恢复它。这些 
情况是： 

滑鼠游标穿越显示区域。 

图示拖过显示区域。 
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处理 WM _ PAINT 讯息要求程式写作者改变自己向显示器输出的思维方式。程 
式应该组织成可以保留绘制显示区域需要的所有资讯，并且仅当「回应要求」 
——即 Windows 给视窗讯息处理程式发送 WM _ PAINT 讯息时才进行绘制。如果程 
式在其他时间需要更新其显示区域，它可以强制 Windows 产生一个 WM _ PAINT 讯 
息。这看来似乎是在萤幕上显示内容的一种舍近求远的方法。但您的程式结构 
可以从中受益。 

有效矩形和无效矩形 

尽管视窗讯息处理程式一旦接收到 WM _ PAINT 讯息之後，就准备更新整个显 
示区域，但它经常只需要更新一个较小的区域（最常见的是显示区域中的矩形 
区域）。显然，当对话方块覆盖了部分显示区域时，情况即是如此。在擦除对 
话方块之後，需要重画的只是先前被对话方块遮住的矩形区域。 

这个区域称为「无效区域」或「更新区域」。正是显示区域内无效区域的 
存在，才会让 Windows 将一个 WM _ PAINT 讯息放在应用程式的讯息伫列中。只有 
在显示区域的某一部分失效时，视窗才会接受 WM _ PAINT 讯息。 

Windows 内部为每个视窗保存一个「绘图资讯结构」，这个结构包含了包围 
无效区域的最小矩形的座标以及其他资讯，这个矩形就叫做「无效矩形」，有 
时也称为「无效区 域」。 如果在视窗讯息处理程式处理 WM _ PAINT 讯息之前显示 
区域中的另一个区域变为，则 Windows 计算出一个包围两个区域的新的无 
效区域（以及一个新的无效矩形），并将这种变化後的资讯放在绘制资讯结构 

中。 Windows 不会将多个 WM _ PAINT 讯息都放在讯息伫列中。 

视窗讯息处理程式可以通过呼叫 IrwalidateRect 使显示区域内的矩形无 
效。如果讯息伫列中已经包含一个 WM _ PAINT 讯息， Windows 将计算出新的无效 
矩形。否则，它将一个新的 WM _ PAINT 讯息放入讯息伫列中。在接收到 WM_PAINT 
讯息时，视窗讯息处理程式可以取得无效矩形的座标（我们马上就会看到这一 
点 ）。 通过呼口 Lj GetUpdateRect ， 可以在任何时候耳又得这些座标 。 

在处理 WM _ PAINT 讯息处理期间，视窗讯息处理程式在呼叫了 BeginPaint 
之後，整个显示区域即变为有效。程式也可以通过呼叫 ValidateRect 函式使显 
示区域内的任意矩形区域变为 有效。 如果这呼叫具有令整个无效区域变为有效 
的效果，则目前伫列中的任何 WM _ PAINT 讯息都将被删除。 


GDI 简介 


要在视窗的显示区域绘图，可以使用 Windows 的图形装置介面 ( GDI ) 函式。 
Windows 提供了几个 GDI 函式，用於将字串输出到视窗的显示区域内。我们已经 
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在上一章看过 DrawText 函式，但是目前使用最为普遍的文字输出函式是 
TextOuto 该函式的格式 如下： 

TextOut ( hdc , x , y , psText , iLength ); 

TextOut 向视窗的显不区域写入字串。 psText 参数是指向字串的指标， 
iLength 是字串的长度。 x 和 y 参数定义了字串在显示区域的开始位置（不久会 
讲述关於它们的详细情况）。 hdc 参数是「装置内容代号」，它是 GDI 的重要部 
分。 实际上， 每个 GDI 函式都需要将这个代号作为函式的第一个参数。 

装置内容 

读者可能还记得，代号只不过是一个数值， Windows 以它在内部使用物件。 
程式写作者从 Windows 取得代号，然後在其他函式中使用该代号。装置内容代 
号是 GDI 函式的视窗「通行证」，有了这种装置内容代号，程式写作者就能自 
如地在显示区域上绘图，使图形如自己所愿地变得好看或者难看。 

装置内容（简称为 「 DC 」） 实际上是 GDI 内部保存的资料结构。装置内容 
与特定的显示设备（如视讯显示器或印表机）相关。 对於视讯显示器，装置内 
容总是与显示器上的特定视窗相关。 

装置内容中的有些值是图形「属性」，这些属性定义了 GDI 绘图函式工作 
的细节。例如，对於 TextOut ， 装置内容的属性确定了文字的颜色、文字的背景 
色、 x 座标和 y 座标映射到视窗的显示区域的方式，以及显示文字时 Windows 使 
用的字体。 

当程式需要绘图时，它必须先取得装置内容代号。在取得了该代号後， 
Windows 用内定的属性值填入内部装置内容结构。在後面的章节中您会看到，可 
以通过呼叫不同的 GDI 函式改变这些预设值。利用其他的 GDI 函式可以取得这 
些属性的目前值。当然，还有其他的 GDI 函式能够在视窗的显示区域真正地绘 
图。 

当程式在显示区域绘图完毕後，它必须释放装置内容代号。代号被程式释 
放後就不再有效，且不能再被 使用。 程式必须在处理单个讯息处理期间取得和 
释放代号。除了呼叫 CreateDC (函式，在本章暂不讲述）建立的装置内 容之? T ， 

程式不能在两个讯息之间保存其他装置内容代号 I 

Windows 应用程式一般使用两种方法来取得装置内容代号，以备在萤幕上绘 
图。 

取得装置内容代号：方法一 

在处理 WM + PAINT 讯息时，使用这种方法。它涉及 BeginPaint 和 EndPaint 


第67页 













Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

两个函式，这两个函式需要视窗代号（作为参数传给视窗讯息处理程式）和 

PAINTSTRUCT 结构的变数(在 WINUSER . H 表头档案中定义）的地址为参数 。 Windows 
程式写作者通常把这一结构变数命名为 ps 并且在视窗讯息处理程式中定 义它： 

PAINTSTRUCT ps ; 

在处理 WM _ PAINT 讯息时，视窗讯息处理程式首先呼叫 BeginPaint 。 
BeginPaint 函式一般在准备绘制时导致无效区域的背景被擦除。该函式也填入 
ps 结构的栏位。 BeginPaint 传回的值是装置内容代号 ，这一传回值通常被保存 
在叫做 hdc 的变数中。它在视窗讯息处理程式中的定义 如下： 

HDC hdc ; 

HDC 资料型态定义为32位元的无正负号整数。然後，程式就可以使用需要 
装置内容代号的 TextOut 等 GDI 函式。 呼叫 EndPaint 即可释放装置内容代号。 
一 般地，处理 WM _ PAINT 讯息的形式如下: 

case WM—PAINT : 

hdc = BeginPaint (hwnd, &ps); 

使用 GDI 函式 

EndPaint (hwnd, &ps); 
return 0 ; 

在处理 WM _ PAINT 讯息时，必须成对地呼叫 BeginPaint 和 EndPaint 。 如果 
视窗讯息处理程式不处理 WM PAINT 讯息，则它必须将 WM PAINT 讯息传递给 

Windows 中 DefffindowProc (内定视窗讯息处理程式)。 DefWindowProc 以下列 
代码处理 WM _ PAINT 讯息： 

case WM—PAINT : 

BeginPaint (hwnd, &ps); 

EndPaint (hwnd, &ps); 
return 0 ; 

这两个 BeginPaint 和 EndPaint 呼叫之间中没有任何叙述，仅仅使先前无 
效区域变为有效。但以下方法是错 误的： 

case WM_PAINT : 

return 0 ; // WRONG !!! 

Windows 将一个 WM PAINT 讯息放到讯息伫列中，是因为显示区域的一部分 

无效。如果不呼叫 BeginPaint 和 EndPaint (或者 ValidateRect ) ，则 Windows 
不会使该区域变为有效。相反， Windows 将发送另一个 WM _ PAINT 讯息，且一直 

发送下去。 

绘图资讯结构 

前面提到过， Windows 为每个视窗保存一个「绘图资讯结构」，这就是 
PAINTSTRUCT ， 定义如下： 

typedef struct tagPAINTSTRUCT 
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{ 

HDC 

hdc ; 

BOOL 

fErase ; 

RECT 

rcPaint ; 

BOOL 

fRestore ; 

BOOL 

flncUpdate ; 

BYTE 

} PAINTSTRUCT ; 

rgbReserved[32 ]; 


在程式呼口 H BeginPaint 时， Windows 会适当填入该结构的各个栏位值。使 
用者程式只使用前三个栏位，其他栏位由 Windows 内部使用。 hdc 栏位是装置内 


容代号。在旧版本的 Windows 中， BeginPaint 的传回值也曾是这个装置内容代 
号。在大多数情况下， fErase 被标志为 FALSE (0) ,这意味著 Windows 已经擦 
除了无效矩形的背景。这最早在 BeginPaint 函式中发生( 如果要在视窗讯息处 
理程式中自己定义一些背景擦除行为，可以自行处理 WM _ ERASEBKGND 讯息） 。 

Windows 使用 WNDCLASS 结构的 hbrBackground 栏位指定的画刷来擦除背景 ，这 

个 WNDCLASS 结构是程式在 WinMain 初始化期间登录视窗类别时使用的。许多 
Windows 程式使用白色画刷。以下叙述设定视窗类别结构栏 位值： 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

不过，如果程式通过呼叫 Windows 函式 InvalidateRect 使显示区域中的矩 

形失效，则该函式的最後一个参数会指定是否擦除背景。如果这个参数为 FALSE 
(即0)，则 Windows 将不会擦除背景，并且在呼叫完 BeginPaint 後 PAINTSTRUCT 
结构的 fErase 栏位将为 TRUE (非零）。 

PAINTSTRUCT 结构的 rcPaint 栏位是 RECT 型态的结构。您已经在第三章中 
看到， RECT 结构定义了一个矩形，其四个栏位为 left 、 top 、 right 和 bottom 。 
PAINTSTRUCT 结构的 rcPaint 栏位定义了无效矩形的边界，如图 4-1 所示。 _ 
值均以图素为单位，并相对於显示区域的左上角。无效矩形是应该重画的 
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图 4-1 无效矩形的边界 


PAINTSTRUCT 中的 rcPaint 矩形不仅是无效矩形，它还是一个「剪取」矩形。 

这意味著 Windows 将绘图操作限制在剪取矩形内（更确切地说，如果无效矩 i 

区域不为矩形，则 Windows 将绘图操作限制在这个区域 内）： 

在处理 WM _ PAINT 讯息时，为了在更新的矩形外绘图，可以使用如下 呼叫: 

InvalidateRect (hwnd, NULL, TRUE); 

该呼叫在 BeginPaint 呼叫之前进行，它使整个显示区域变为无效，并擦除 
背景。但是，如果最後一个参数等於 FALSE ， 则不擦除背景，原有的东西将保留 
在原处。 

通常这是 Windows 程式在无论何时收到 WM _ PAINT 讯息而不考虑 rcPaint 结 
构的情况下简单地重画整个显示区域最方便的方法。例如，如果在显示区域的 
显示输出中包括了一个圆，但是只有圆的一部分落到了无效矩形中，它就使仅 
绘制圆的无效部分变得没有意义。这需要画整个圆。在您使用从 BeginPaint 传 
回的装置内容代号时， Windows 不会绘制 rcPaint 矩形外的任何部分。 

在第三章的 HELL0WIN 程式中，我们并不关心处理 WM_PAINT 讯息时的无效 
矩形。如果文字显示区域恰巧在无效矩形内，则由 DrawText 恢复之。否则，在 
处理 DrawText 呼叫的某个时刻， Windows 会确定它无须向显示器上输出。不过， 
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这一决定需要时间。关心程式性能和速度的程式写作者希望在处理 WM + PAINT 期 
间使用无效矩形范围，以避免不必要的 GDI 呼叫。如果绘制时需要存取例如点 
阵图这样的磁片档案，则这就显得尤其重要。 

取得装置内容代号：方法二 

虽然最好是在处理 WM ^ PAINT 讯息处理期间更新整个显示区域，但是您也会 
发现在处理非 WM _ PAINT 讯息处理期间绘制显示区域的某个部分也是非常有用 
的。或者您需要将装置内容代号用於其他目的，如取得装置内容的资讯。 

要得到视窗显示区域的装置内容代号，可以呼叫 GetDC 来取得代号，在使 
用完後呼叫 ReleaseDC ： 

hdc = GetDC (hwnd); 

使用 GDI 函式 

ReleaseDC (hwnd, hdc); 

与 BeginPaint 和 EndPaint ——样， GetDC 和 ReleaseDC 函式必须成对地使用。 

如果在处理某讯息时呼叫 GetDC ， 则必须在退出视窗讯息处理程式之前 
ReleaseDC 。 不要在一个讯息中呼口 H GetDC 去 P 在另一个讯息呼口 H ReleaseDC 。 
与从 BeginPaint 传回装置内容代号不同， GetDC 传回的装置内容代号 ^ 有 

一 个剪取矩形，它等於整个显示区域。 可以在显示区域的某一部分绘图，而不 
只是在无效矩形上绘图（如果确实存在无效矩形）。 与 BeginPaint 不同 ， GetDC 
不会使任何无效区域变为有效。如果需要使整个显示区域有效，可以呼叫 

ValidateRect (hwnd, NULL) ; 

一般可以呼叫 GetDC 和 ReleaseDC 来对键盘讯息（如在字处理程式中）和 
滑鼠讯息（如在画图程式中）作出反应。此时，程式可以立刻根据使用者的键 
盘或滑鼠输入来更新显示区域，而不需要考虑为了视窗的无效区域而使用 
WM _ PAINT 讯息。不过， 一 旦确实收到了 WM _ PAINT 讯息，程式就必须要收集足够 
的资讯後才能更新显示。 

与 GetDC 相似的函式是 GetWindowDCc GetDC 传回用於写入视窗显示区域的 
装置内容代号，而 GetWindowDC 传回写入整个视窗的装置内容代号。例如，您 
的程式可以使用从 GetWindowDC 传回的装置内容代号在视窗的标题列上写入文 
字。然而，程式同样也应该处理 WM_NCPAINT ( 「非显示区域绘制」）讯息。 

TextOut : 细节 

TextOut 是用於显示文字的最常用的 GDI 函式。语 法是： 

TextOut (hdc, x, y, psText, iLength); 

以下将详细地讨论这个函式。 
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第一个参数是装置内容代号，它既可以是 GetDC 的传回值，也可以是在处 
理 WM _ PAINT 讯息时 BeginPaint 的传回值。 

装置内容的属性控制了被显示的字串的特徵。例如，装置内容中有一个属 
性指定文字颜色，内定颜色为 黑色； 内定装置内容还定义了白色的背景。在程 
式向显示器输出文字时， Windows 使用这个背景色来填入字元周围的矩形空间 
(称为「字元框」）。 

该文字背景色与定义视窗类别时设置的背景并不相同。视窗类别中的背景 
是一个画刷，它是一种纯色或者非纯色组成的画刷， Windows 用它来擦除显示区 
域，它不是装置内容结构的一部分。 在定义视窗类别结构时，大多数 Windows 
应用程式使用 WHITE _ BRUSH , 以便内定装置内容中的内定文字背景颜色与 
Windows 用以擦除显示区域背景的画刷颜色相同。 

psText 参数是指向字串的指标， iLength 是字串中字元的个数。如果 psText 
指向 Unicode 字串，则字串中的位元组数就是 iLength 值的两倍。 字串中不能 
包含任何 ASCII 控制字元 （如回车、换行、制表或退格）， Windows 会将这些控 
制字元显示为实心块。 TextOut 不识别作为字串结束标志的内容为零的位元组 
(对於 Unicode ， 是一个短整数型态的 0) ，而需要由 nLength 参数指明 长度。 

TextOut 中的 x 和 y 定义显示区域内字串的开始位置， x 是水平位置， y 是 
垂直位置。字串中第一个字元的左上角位於座标点 ( x ， y )。 在内定的装置内容中， 
原点 （ x 和 y 均为0的点）是显示区域的左上角。如果在 TextOut 中将 x 和 y 设 
为0,则将从显示区域左上角开始输出字串。 

当您阅读 GDI 绘图函式（例如 TextOut ) 的文件时，就会发现传递给函式的 
座标常常被称为「逻辑座标」。在第五章会详细地解释这种情况。现在请注意， 
Windows 有许多「座标映射方式」，它们用来控制 GDI 函式指定的逻辑座标转换 
为显示器的实际图素座标的方式。映射方式在装置内容中定义，内定映射方式 
是 MM_TEXT (使用 WINGDI . H 中定义的识别字）。在 MM _ TEXT 映射方式下，逻辑 

单位与实际单位相同，都是 图素； X 的值从左向右递增， y 的值从上向下递增（参 
看图 4-2 )o MM _ TEXT 座标系与 Windows 在 PAINTSTRUCT 结构中定义无效矩形时 

使用的座标系相同，这为我们带来了很多方便（但是，其他映射方式并非如此）。 
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图 4-2 MM _ TEXT 映射方式下的 x 座标和 y 座标 
装置内容也定义了一个剪裁区域。您已经看到，对於从 GetDC 取得的装置 
内容代号，内定剪裁区域是整个显示 区域； 而对於从 BeginPaint 取得的装置内 
容代号，则为无效区域。 Windows 不会在剪裁区域之外的任何位置显示字串。如 
果一个字元有一部分在剪裁区域外，则 Windows 将只显示此区域内的那部分。 
要想将输出写到视窗的显示区域之外不是那么容易的，所以不用担心会无意间 
出现这种事情。 

系统字体 

装置内容还定义了在您呼叫 TextOut 显示文字时 Windows 使用的字体。内 
定字体为「系统字体」，或用 Windows 表头档案中的识别字，即 SYSTEM _ FONT 。 
系统字体是 Windows 用来在标题列、功能表和对话方块中显示字串的内定字体。 

在 Windows 的早期版本中，系统字体是等宽 ( fixed - pitch ) 字体，这意味著 
所有字元均具有同样的宽度，非常类似於打字机。然而，从 Windows 3. 0开始， 
系统字体成为一种变宽 ( variable - pitch ) 字体，这意味著不同的字元具有不同 
的大小，比如， 「 W 」 要比 「 i 」 宽。变宽字体比等宽字体好读，这已经是公认 
的事实。不过，可以想见，这一转变使很多原来的 Windows 程式码不再适用， 
从而要求程式写作者学习一些使用字体的新技术。 

系统字体是一种「点阵字体」，这意味著字元被定义为图素块（在第十七 
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章，将讨论 TrueType 字体，它是由轮廓定义的）。至於确切的大小，系统字体 
的字元大小取决於视讯显示器的大小。系统字体设计为至少能在显示器上显示 
25行80列文字。 

字元大小 

要用 TextOut 显示多行文字，就必须确定字体的字元大小，可以根据字元 
的高度来定位字元的後续行，以及根据字元的宽度来定位字元的後续列。 

系统字体的字元高度和平均宽度是多少？这个问题取决於视讯显示器的图 
素大小。 Windows 需要的最小显不大小是640 480，但是许多使用者更喜欢 
800 600或1024 768的显示大小。另外，对於这些较大的显示尺寸 ， Windows 
允许使用者选择不同大小的系统字体。 

程式可以呼叫 GetSystemMetrics 函式以取使用者介面上各类视觉元件大小 
的资讯，呼叫 GetTextMetrics 取得字体大小。 GetTextMetrics 传回装置内容中 
目前选取的字体资讯，因此它需要装置内容代号。 Windows 将文字大小的不同值 
复制到在 WINGDI . H 中定义的 TEXTMETRIC 型态的结构中。 TEXTMETRIC 结构有20 

个栏位，我们只使用前 七个： 

typedef struct tagTEXTMETRIC 
{ 

LONG tmHeight ; 

LONG tmAscent ; 

LONG tmDescent ; 

LONG tmlnternalLeading ; 

LONG tmExternalLeading ; 

LONG tmAveCharWidth ; 

LONG tmMaxCharWidth ; 

其他结构栏位 

} 

TEXTMETRIC, * PTEXTMETRIC ; 

这些栏位值的单位取决於选定的装置内容映射方式。在内定装置内容下， 
映射方式是 MM _ TEXT ， 因此值的大小是以图素为单位。 

要使用 GetTextMetrics 函式，需要先定义一个结构变数（通常称为 tm ) : 

TEXTMETRIC tm ; 

在需要确定文字大小时，先取得装置内容代号，再呼叫 GetTextMetrics : 

hdc = GetDC (hwnd); 

GetTextMetrics (hdc, &tm); 

ReleaseDC (hwnd, hdc); 

此後，您就可以查看文字尺寸结构中的值，并有可能保存其中的一些以备 
将来使用。 
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文字大小：细节 

TEXTMETRIC 结构提供了关於目前装置内容中选用的字体的丰富资讯。但是， 
字体的纵向大小只由5个值确定，其中4个值如图 4-3 所示。 

\ tmlntemalLeading 


> tmAscent 

〉 tmHeight 


一 Baseline 
\ tmDescent 
f J 

图 4-3 定义字体中纵向字元大小的 4 个值 

最重要的值是 tmHeight , 它是 tmAscent 和 tmDescent 的和。这两个值表示 
了基准线上下字元的最大纵向高度。「间距」 （ leading ) 指印表机在两行文字 
间插入的空间。在 TEXTMETRIC 结构中，内部的间距包括在 tmAscent 中（因此 
也在 tmHeight 中），并且它经常是重音符号出现的地方 。 tmlntemalLeading 

栏位可被设成0,在这种情况下，加重音的字母会稍稍缩短以便容纳重音符号。 

TEXTMETRIC 结构还包括一个不包含在 tmHeight 值中的栏位 
tmExternalLeading 。 它是字体设计者建议加在横向字元之间的空间大小。在安 
排文字行之间的空隙时，您可以接受设计者建议的值，也可以拒绝它。在系统 
字体中 tmExternalLeading 可以为0，因此我没有在图 4-3 中显示它。（尽管我 
不想告诉你们，图 4-3 确实就是 Windows 在640 480的显示解析度中使用的系 
统字体。） 

TEXTMETRICS 结构包含有描述字元宽度的两个栏位，即 tmAveCharWidth (小 
写字母加权平均宽度）和 tmMaxCharWidth (字体中最宽字元的宽度）。对於定 
宽字体，这两个值是相等的（图 4-3 中这些值分别为7和 14) 。 

本章的范例程式还需要另一种字元宽度，即大写字母的平均宽度，这可以 
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用 tmAveCharWidth 乘以150%大致计算出来。 

必须认识到，系统字体的大小取决於 Windows 所执行的视讯显示器的解析 
度，在某些情况下，取决於使用者选取的系统字体的大小。 Windows 提供了一个 
与装置无关的图形介面，但程式写作者还是有事情要处理的。不要想当然耳地 
猜测字体大小来写作 Windows 程式，也不要把值定死，您可以使用 
GetTextMetrics 函式取得这一资讯。 

格式化文字 

Windows 启动後，系统字体的大小就不会发生改变，所以在程式执行过程中， 
程式写作者只需要呼叫一次 GetTexMetricSo 最好是在视窗讯息处理程式中处理 
WM _ CREATE 讯息时进行此呼叫， WM _ CREATE 讯息是视窗讯息处理程式接收的第一 
个讯息。在 WinMain 中呼叫 CreateWindow 时 ， Windows 会以一'个 WM_CREATE 讯 
息呼叫视窗讯息处理程式。 

假设要编写一个 Windows 程式，在显示区域显示几行文字，这需要先取得 
字元宽度和高度。您可以在视窗讯息处理程式内定义两个变数来保存平均字元 
宽度 ( cxChar ) 和总的字元高度 ( cyChar ) : 

static int cxChar, cyChar ; 

变数名的字首 c 代表 「 count 」 ，在这里指图素数，与 x 和 y 结合，分别指 
宽和高。这些变数定义为 static 静态变数，因为它们在视窗讯息处理程式中处 
理其他讯息（如 WM _ PAINT ) 时也应该是有效的。如果变数在函式外面定义，则 
不需要定义为 static 。 


下面是取得系统字体的字元宽度和高度的 WM _ CREATE 程 式码: 


case WM—CREATE: 


hdc = GetDC (hwnd); 

GetTextMetrics (hdc, &tm); 

cxChar = t 

m.tmAveCharWidth ; 

cyChar = t 

m.tmHeight + tm.tmExternalLeading ; 

ReleaseDC 

(hwnd, hdc); 

return 0 ; 



注意我在计算 cyChar 时包括了 tmExternalLeading 栏位，虽然该栏位在系 
统字体中为0,但是因为它使得文字的可读性更好，所以还是应该把它包括进去。 
沿著视窗向下每隔 cyChar 图素就会显示一行文字。 


您会发现常常需要显示格式化的数字跟简单的字串。我在第二章讲到过， 
您不能使惯用的工具（可爱的 printf 函式）来完成这项工作，但是可以使用 
sprintf 和 Windows 片反的 sprintf - wsprintf 。这些函式与 printf 相 { 以，只 
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是把格式化字串放到字串中。然後，可以用 TextOut 将字串输出到显示器上。 
非常方便的是，从 sprintf 和 wsprintf 传回的值就是字串的长度。您可以将这 
个值传递给 TextOut 作为 iLength 参数。下面的程式码显示了 wsprintf 与 
TextOut 的典型 组合： 

int iLength ; 

TCHAR szBuffer [40]; 

其他行程式 

iLength = wsprintf (szBuffer, TEXT ("The sum of %i and %i is %i "), 

iA, iB, iA + iB); 

TextOut (hdc, x, y, szBuffer, iLength); 

对於这样简单的情况，可以将 nLength 的定义值与 TextOut 放在同一条叙 
述中，从而无需定义 iLength ： 

TextOut (hdc, x, y A szBuffer, 

wsprintf (szBuffer, TEXT ("The sum of %i and %i is %i n ), 
iA, iB, iA + iB)); 

虽然这样子写起来不好看，但是功能与前者是一样的。 

综合使用 

现在，我们似乎已经具备了在萤幕上显示多行文字所需要的所有知识。我 
们知道如何在 WM _ PAINT 讯息处理期间取得一个装置内容代号，如何使用 TextOut 
函式以及如何根据字元大小来安排字距，剩下的就是显示一点有意义的东西了。 

在前一章里，我们大概知道从 Windows 的 GetSystemMetrics 函式中取得的 
资讯是很有意义的，该函式传回 Windows 中不同视觉元件的大小资讯，如图示、 
游标、标题列和卷动列等。它们的大小因显示卡和驱动程式的不同而有所不同。 
GetSystemMetrics 是在程式中完成与装置无关图形输出的重要函式。 

该函式需要一个参数，叫做「索引」，在 Windows 表头档案定义了 75个整 
数索引识别字（识别字的数量随著每个版本的 Windows 的发布而不断地增加， 
在 Windows 1. 0的程式写作者文件中仅列出了 26个）。 GetSystemMetrics 传回 
一个整数，这个整数通常就是参数中指定的图形元件大小。 

让我们来编写一个程式，显示一些可以从 GetSystemMetrics 呼叫中取得的 
资讯，显示格式为每种视觉元件一行。如果我们建立一个表头档案，在表头档 
案中定义一个结构阵列，此结构包含 GetSystemMetrics 索引对应的 Windows 表 
头档案识别字和呼叫所传回的每个值对应的字串，这样处理起来要容易一些。 
表头档案名为 SYSMETS . H ， 如程式 4-1 所示。 

程式 4-1 SYSMETS . H 

/* - 

SYSMETS.H -- System metrics display structure 
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#define NUMLINES ((int) (sizeof sysmetrics / sizeof sysmetrics [◦])) 

struct 

{ 

int Index ; 

TCHAR * szLabel ; 

TCHAR * szDesc ; 

} 

sysmetrics []= 

{ 

SM—CXSCREEN, TEXT ( ，， SM—CXSCREEN ，，）， 

TEXT ("Screen width in pixels ’，）， 

SM—CYSCREEN, TEXT ("SM_CYSCREEN"), 

TEXT ("Screen height in pixels n ), 

SM—CXVSCROLL, TEXT ("SM_CXVSCROLL n ), 

TEXT ("Vertical scroll width"), 

SM—CYHSCROLL, TEXT ( n SM—CYHSCROLL ”）， 

TEXT ( "Horizontal scroll height"), 
SM—CYCAPTION, TEXT ( n SM_CYCAPTION n ), 

TEXT ("Caption bar height"), 

SM—CXBORDER, TEXT ("SM_CXBORDER"), 

TEXT ("Window border width"), 

SM—CYBORDER, TEXT ( n SM—CYBORDER ，，）， 

TEXT ("Window border height"), 

SM—CXFIXEDFRAME,TEXT ( n SM—CXFIXEDFRAME n ), 

TEXT ( n Dialog window frame width"), 
SM—CYFIXEDFRAME,TEXT ( n SM_CYFIXEDFRAME n ), 

TEXT ("Dialog window frame height"), 

SM—CYVTHUMB, TEXT ("SM_CYVTHUMB"), 

TEXT ("Vertical scroll thumb height"), 

SM—CXHTHUMB, TEXT ( n SM—CXHTHUMB ，，）， 

TEXT ("Horizontal scroll thumb width"), 
SM—CXICON, TEXT ( n SM_CXICON n ), 

TEXT ("Icon width"), 

SM_CYICON, TEXT ( n SM—CYICON ，'）， 

TEXT ("Icon height"), 

SM—CXCURSOR, TEXT ( n SM—CXCURSOR ，'）， 

TEXT ( "Cursor width"), 

SM—CYCURSOR, TEXT ( n SM—CYCURSOR ，，）， 

TEXT ( "Cursor height"), 

SM—CYMENU, TEXT ( "SM_CYMENU"), 

TEXT ("Menu bar height"), 

SM—CXFULLSCREEN,TEXT ("SM_CXFULLSCREEN"), 

TEXT ("Full screen client area width"), 
SM—CYFULLSCREEN,TEXT ("SM_CYFULLSCREEN"), 

TEXT ("Full screen client area height ’’）， 

SM—CYKANJIWINDOW,TEXT ( n SM—CYKANJIWINDOW n ), 

TEXT ("Kanji window height"), 
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SM 

MOUSEPRESENT 

,TEXT ("SM MOUSEPRESENT"), 



TEXT 

("Mouse present flag ’’）， 

SM 

CYVSCROLL, 

TEXT 

("SM CYVSCROLL"), 



TEXT 

("Vertical scroll arrow height"), 

SM 

_CXHSCROLL, 

TEXT 

("SM CXHSCROLL"), 



TEXT 

("Horizontal scroll arrow width"), 

SM 

DEBUG, 

TEXT ("SM DEBUG"), 



TEXT 

("Debug version flag"), 

SM 

SWAPBUTTON, 

TEXT 

("SM SWAPBUTTON"), 



TEXT 

("Mouse buttons swapped flag ”）， 

SM 

CXMIN, 

TEXT ("SM CXMIN ，'）， 



TEXT 

("Minimum window width"), 

SM 

_CYMIN, 

TEXT ( n SM—CYMIN ”）， 



TEXT 

("Minimum window height "), 

SM 

CXSIZE, 

TEXT ("SM CXSIZE ，'）， 



TEXT 

("Min/Max/Close button width"), 

SM 

_CYSIZE a 

TEXT ( n SM—CYSIZE n ), 



TEXT 

("Min/Max/Close button height "), 

SM 

CXSIZEFRAME, 

TEXT 

("SM CXSIZEFRAME ，'）， 



TEXT 

("Window sizing frame width"), 

SM 

_CYSIZEFRAME, 

TEXT 

("SM CYSIZEFRAME ，'）， 



TEXT 

("Window sizing frame height"), 

SM 

CXMINTRACK, 

TEXT 

("SM CXMINTRACK ”）， 



TEXT 

("Minimum window tracking width"), 

SM 

_CYMINTRACK, 

TEXT 

("SM CYMINTRACK"), 



TEXT 

("Minimum window tracking height"), 

SM 

_CXDOUBLECLK, 

TEXT 

("SM_CXDOUBLECLK"), 



TEXT 

("Double click x tolerance"), 

SM 

_CYDOUBLECLK, 

TEXT 

("SM CYDOUBLECLK"), 



TEXT 

("Double click y tolerance ”）， 

SM 

CXICONSPACING,TEXT ( 

"SM CXICONSPACING ，'）， 



TEXT 

("Horizontal icon spacing ’，）， 

SM 

_CYICONSPACING,TEXT ( 

， 'SM—CYICONSPACING ，，）， 



TEXT 

("Vertical icon spacing"), 

SM 

MENUDROPALIGNMENT, r 

TEXT ("SM MENUDROPALIGNMENT ”）， 




TEXT ("Left or right menu drop"), 

SM 

PENWINDOWS, 


TEXT ("SM PENWINDOWS ，'）， 




TEXT ("Pen extensions installed ”）， 

SM 

DBCSENABLED, 


TEXT ("SM DBCSENABLED"), 




TEXT ("Double-Byte Char Set enabled ’，）， 

SM 

CMOUSEBUTTONS, TEXT ("SM CMOUSEBUTTONS"), 




TEXT ("Number of mouse buttons ”）， 

SM 

SECURE, 

TEXT ("SM SECURE"), 




TEXT ("Security present flag"), 

SM 

_CXEDGE a 

TEXT ( ， ’ SM—CXEDGE"), 




TEXT (’’3-D border width"), 

SM 

_CYEDGE, 

TEXT ("SM CYEDGE"), 




TEXT ( n 3-D border height"), 
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SM 

_CXMINSPACING, 

TEXT ("SM CXMINSPACING ，，）， 

TEXT ("Minimized window spacing width"), 

SM 

CYMINSPACING, 

TEXT ("SM CYMINSPACING ”）， 

TEXT ("Minimized window spacing height"), 

SM 

_CXSMICON, 

TEXT ("SM CXSMICON"), 

TEXT ("Small icon width"), 

SM 

CYSMICON, 

TEXT ("SM CYSMICON ”）， 

TEXT ("Small icon height"), 

SM 

_CYSMCAPTION, 

TEXT ( n SM—CYSMCAPTION ”）， 

TEXT (’’Small caption height"), 

SM 

CXSMSIZE, 

TEXT ( n SM—CXSMSIZE ”）， 

TEXT (’’Small caption button width 1 ’）， 

SM 

_CYSMSIZE, 

TEXT ( n SM—CYSMSIZE ”）， 

TEXT (’’Small caption button height"), 

SM 

CXMENUSIZE, 

TEXT ("SM CXMENUSIZE"), 

TEXT ("Menu bar button width"), 

SM 

_CYMENUSIZE, 

TEXT ("SM CYMENUSIZE ”）， 

TEXT ("Menu bar button height"), 

SM 

ARRANGE A 

TEXT ("SM ARRANGE"), 

TEXT ("How minimized windows arranged"), 

SM 

_CXMINIMIZED, 

TEXT ( n SM—CXMINIMIZED ”）， 

TEXT ("Minimized window width"), 

SM 

CYMINIMIZED, 

TEXT ("SM CYMINIMIZED ，'）， 

TEXT ("Minimized window height"), 

SM 

_CXMAXTRACK a 

TEXT ("SM CXMAXTRACK"), 

TEXT ("Maximum draggable width"), 

SM 

CYMAXTRACK, 

TEXT ("SM_CYMAXTRACK"), 

TEXT ("Maximum draggable height"), 

SM 

_CXMAXIMIZED, 

TEXT ( n SM—CXMAXIMIZED ，'）， 

TEXT ("Width of maximized window"), 

SM 

CYMAXIMIZED, 

TEXT ("SM CYMAXIMIZED ”）， 

TEXT ("Height of maximized window"), 

SM 

_NETWORK, 

TEXT ("SM NETWORK"), 

TEXT ("Network present flag ’’）， 

SM 

CLEANBOOT, 

TEXT ("SM CLEANBOOT"), 

TEXT ("How system was booted ”）， 

SM 

_CXDRAG, 

TEXT (" SM—CXDRAG ，'）， 

TEXT ("Avoid drag x tolerance "), 

SM 

CYDRAG, 

TEXT ("SM CYDRAG"), 

TEXT ("Avoid drag y tolerance"), 

SM 

SHOWSOUNDS, 

TEXT ("SM SHOWSOUNDS"), 

TEXT (’’Present sounds visually"), 

SM 

CXMENUCHECK, 

TEXT ("SM CXMENUCHECK"), 

TEXT ("Menu check-mark width"), 

SM 

_CYMENUCHECK, 

TEXT ("SM—CYMENUCHECK ”）， 

TEXT ("Menu check-mark height"), 

SM 

SLOWMACHINE, 

TEXT ("SM SLOWMACHINE ，'）， 

TEXT ("Slow processor flag '，）， 


第80页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 







SM 

MIDEASTENABLED, 

TEXT ("SM MIDEASTENABLED ，'）， 

TEXT ("Hebrew and Arabic enabled flag ’’）， 


SM 

MOUSEWHEELPRESENT, 

TEXT ("SM MOUSEWHEELPRESENT") A 

TEXT ("Mouse wheel present flag ”）， 


SM 

XVIRTUALSCREEN, 

TEXT ("SM XVIRTUALSCREEN ”）， 

TEXT ("Virtual screen x origin "), 


SM 

YVIRTUALSCREEN, 

TEXT ("SM YVIRTUALSCREEN ”）， 

TEXT ("Virtual screen y origin ’，）， 


SM 

_CXVIRTUALSCREEN, 

TEXT ("SM_CXVIRTUALSCREEN"), 

TEXT ("Virtual screen width "), 


SM 

_CYVIRTUALSCREEN, 

TEXT ("SM—CYVIRTUALSCREEN ”）， 

TEXT ("Virtual screen height"), 


SM 

_CMONITORS, 

TEXT ("SM_CMONITORS n ), 

TEXT ("Number of monitors ’’）， 

}; 

SM 

SAMEDISPLAY FORMAT, 

TEXT ("SM SAMEDISPLAYFORMAT ，'）， 

TEXT ( n Same color format flag") 


显示资讯的程式命名为 SYSMETS 1。 SYSMETS 1. C 的原始码如程式 4-2 所示。 
现在大多数程式码看起来都很熟悉。 WinMain 中的程式码实际上与 HELL 0 WIN 中 
的程式码相同，并且 WndProc 中的大部分程式码都已经讨论过了。 


程式 4-2 SYSMETS 1 .C 


卜 - 

SYSMETS1.C -- System Metrics Display Program No. 

(c) Charles Petzold, 1998 


♦include <windows.h> 
♦include "sysmets.h" 



LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("SysMetsl"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style = CS_HREDRAW | CS_VREDRAW ; 

wndclass.lpfnWndProc = WndProc ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass•hlnstance = hlnstance ; 

wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor = LoadCursor (NULL, 工 DC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = NULL ; 

wndclass.IpszClassName = szAppName ; 
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if ( ! RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT !’’）， 

szAppName, MB_ICONERROR); 

return 0 ; 

} 

hwnd = CreateWindow (szAppName, TEXT ("Get System Metrics No. 1"), 

WS_OVERLAPPEDWINDOW a 
CW_USEDEFAULT a CW—USEDEFAULT, 

CW_USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 



static int cxChar, cxCaps, cyChar ; 
HDC hdc ; 

int i ; 


PAINTSTRUCT ps ; 

TCHAR szBuffer [10]; 

TEXTMETRIC tm ; 


switch (message) 

{ 

case WM—CREATE: 

hdc = GetDC (hwnd); 

GetTextMetries (hdc, &tm); 
cxChar = tm.tmAveCharWidth ; 

cxCaps = (tm.tmPitchAndFamily & 1 ? 3 : 2) * cxChar / 2 ; 
cyChar = tm.tmHeight + tm.tmExternalLeading ; 

ReleaseDC (hwnd, hdc); 
return 0 ; 


case WM—PAINT : 

hdc = BeginPaint (hwnd, &ps); 

for (i = ◦ ; i < NUMLINES ; i++) 
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{ 

TextOut (hdc, 0, cyChar * i, 

sysmetrics[i].szLabel, 

lstrlen (sysmetrics[i].szLabel)); 

TextOut (hdc, 22 * cxCaps, cyChar * i, 

sysmetrics[i].szDesc, 

lstrlen (sysmetrics[i].szDesc)); 


SetTextAlign (hdc, TA—RIGHT | TA—TOP); 

TextOut (hdc, 22 * cxCaps + 40 * cxChar, cyChar * i, szBuffer, 
wsprint f (szBuffer, TEXT (’’ ％ 5d n ), 

GetSystemMetries (sysmetrics[i]•ilndex))); 

SetTextAlign (hdc, TA—LEFT | TA—TOP); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 
case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

return DefWindowProc (hwnd, message, wParam, IParam); 


图 4-4 显示了在标准 VGA 上执行的 SYSMETSlo 在程式显示区域的前两行可 
以看到，萤幕宽度是640个图素，萤幕高度是480个图素，这两个值以及程式 
所显示的其他值可能会因视讯显示器型态的不同而不同。 
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SM 

CXSCREEN 

歸 

Screen width in pixels 

64n 

SM 

CYSCREEN 

睡 

Screen height in pixels 

480 

1 SM 

CXVSCROLL 

Vertical scroll width 

16 

SM 

■ 

CVHSCROLL 

_ 

Horizontal scroll height 

16 

SM 

CVCAPTION 

Caption bar height 

19 

SM 

CXBORDER 

Window border width 

1 

SM 

CYBORDER 

Window border height 

1 

SM 

CXFIXEDFHAME 

Dialog window frame width 

3 

SM 

■ 

CVFIXED FRAME 

■ 

Dialog window frame height 

3 

SM 

CYVTHUMB 

Vertical scroll thumb height 

16 

SM 

CXHTHUMB 

Horizontal scroll thumb width 

16 

SM 

CXICON 

Icon width 

32 

SM" 

■ 

CYICON 

• 

Icon height 

32 

SM 

CXCURSOR 

Cursor width 

32 

SM 

CVCURSOR 

Cursor height 

32 

| SM 

CVMENU 

Menu bar height 

19 

SM 

CXFULLSCREEN 

Full screen client area width 

640 

SM 

CVFULLSCREEN 

CYKANJIWINDOW 

■ 

Full screen client area height 

433 

SM 

m 

Kanji window height 

0 

SM 

— 

MOUSEPRESENT 

■ 

Mouse present flag 

1 

SM 

CWSCROLL 

Vertical scroll arrow height 

16 

SM 

CXHSCROLL 

Horizontal scroll arrow width 

16 

SM 

DEBUG 

Debug version flag 

0 

SM 

m 

SWAPDUTTON 

_ 

Mouse buttons swapped flag 

0 

SM 

CXMIN 

Minimum window width 

112 1 

SM 

■ 

CVMIN 

• 

Minimum window height 

27 


~t Gel System Metrics N... 

禱农 6:00 PM 


图 4-4 SYSMETS 1 的显示 


SYSMETS 1. C 视窗讯息处理程式 

SYSMETS 1. C 程式中的 WndProc 视窗讯息处理程式处理三个 讯息: WM _ CREATE 、 
WM _ PAINT 和 WM _ DESTROY 。 WM _ DESTROY 讯息的处理方法与第三章的 HELL 0 WIN 程 
式相同。 

WM_CREATE 讯息是视窗讯息处理程式接收到的第一个讯息。在 CreateWindow 
函式建立视窗时， Windows 产生这个讯息。在处理 WM+CREATE 讯息时， SYSMETS 1 
呼叫 GetDC 取得视窗的装置内容，并呼叫 GetTextMetrics 取得内定系统字体的 
文字大小。 SYSMETS 1 将平均字元宽度保存在 cxChar 中，将字元的总高度（包括 
外部间距）保存在 cyChar 中。 

SYSMETS 1 还将大写字母的平均宽度保存在静态变数 cxCaps 中。对於固定宽 
度的字体， cxCaps 等於 cxChar 。 对於可变宽度字体， cxCaps 设定为 cxChar 乘 
以150%。对於可变宽度字体， TEXTMETRIC 结构中的 tmPitchAndFamily 栏位的 
低位元为1，对於固定宽度字体，该值为0。 SYSMETS 1 使用这个位元从 cxChar 
计算 cxCaps ： 

cxCaps = (tm.tmPitchAndFamily & 1 ? 3 : 2) * cxChar / 2 ; 

SYSMETS 1 在处理 WM _ PAINT 讯息处理期间完成所有视窗建立工作。通常，视 
窗讯息处理程式先呼叫 BeginPaint 取得装置内容代号，然後用一道 for 叙述对 


第84页 







Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

SYSMETS . H 中定义的 sysmetrics 结构的每一行进行回圈。三列文字用三个 
TextOut 函式显示，对於每一列， TextOut 的第三个参数都设定为： 

cyChar * i 

这个参数指示了字串顶端相对於显示区域顶部的图素位置。 

第一条 TextOut 叙述在第一列显示了大写识别字。 TextOut 的第二个参数是 
0，这是说文字从显示区域的左边缘开始。文字的内容来自 sysmetrics 结构的 
szLabel 栏位。我使用 Windows 函式 lstrlen 来计算字串的长度，它是 TextOut 

需要的最後一个参数。 

第二条 TextOut 叙述显示了对系统尺寸值的描述。这些描述存放在 
sysmetrics 结构的 szDesc 栏位中。在这种情况下， TextOut 的第二个参数设定 

为： 

22 * cxCaps 

第一列显示的最长的大写识别字有20个字元，因此第二列必须在第一列文 
字开头向右20 cxCaps 处开始。我使用22，以在两列之间加一点多余的空间。 

第三条 TextOut 叙述显示从 GetSystemMetrics 函式取得的数值。变宽字体 
使得格式化向右对齐的数值有些棘手。从0到9的数字具有相同的宽度，但是 
这个宽度比空格宽度大。数值可以比一个数字宽，所以不同的数值应该从不同 
的横向位置开始。 

那么，如果我们指定字串结束的图素位置，而不是指定字串的开始位置， 
以此向右对齐数值，是否会容易一些呢？用 SetTextAlign 函式就可以做到这一 
点。在 SYSMETS 1 呼叫： 

SetTextAlign (hdc, TA—RIGHT | TA—TOP); 

之後，传给後续 TextOut 函^的座标将指定字串的右上角，而不是左上角。 
显示列数的 TextOut 函式的第二个参数设 定为： 

22 * cxCaps + 40 * cxChar 

值 40* C xChar 包含了第二列的宽度和第三列的宽度。在 TextOut 函式之後， 
另一个对 SetTextAlign 的呼叫将对齐方式设定回普通方式，以进行下次回圈。 

空间不够 

在 SYSMETS 1 程式中存在著一个很难处理的 问题： 除非您有一个大萤幕跟高 
解析度的显示卡，否则就无法看到系统尺度列表的最後几行。如果视窗太窄， 
甚至根本看不到值。 

SYSMETS 1 不知道这个问题。否则我们就会显示一个讯息方块说「抱歉！」 
程式甚至不知道它的显示区域有多大，它从视窗顶部开始输出文字，并仰赖 
Windows 裁剪超出显示区域底部的内容。 
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显然，这很不理想。为了解决这个问题，我们的第一个任务是确定程式在 
显示区域内能输出多少内容。 

显示区域的大小 

如果您使用过现有的 Windows 应用程式，可能会发现视窗的尺寸变化极大。 
视窗最大化时（假定视窗只有标题列并且没有功能表），显示区域几乎占据了 
整个萤幕。这一最大化了的显示区域的尺寸可以通过以 SM _ CXFULLSCREEN 和 
SM _ CYFULLSCREEN 为参数呼叫 GetSystemMetrics 来获得。视窗的最小尺寸可以 
很小，有时甚至不存在，更不用说显示区域了。 

在最近一章，我们 使用 GetClientRect 函式来 取得显示区域的大小。使用 
这个函式没有什么不好，但是在您 每次要使用时就去呼叫它一遍是 没有效 
率的。 确定视窗显示区域大小的更好方法是在视窗讯息处理程式中处理 WM_SIZE 

讯息。在视窗大小改变时， Windows 给视窗讯息处理程式发送一个 WM _ SIZE 讯息。 
传给视窗讯息处理程式的 IParam 参数的低字组中包含显示区域的宽度，高字组 
中包含显示区域的高度。 要保存这些尺寸，需要在视窗讯息处理程式中定义两 
个静态变数: 

static int cxClient, cyClient ; 


与 cxChar 和 cyChar 相似，这两个变数在视窗讯息处理程式内定义为静态 
变数，因为在以後处理其他讯息时会用到它们。处理 WM _ SIZE 的方法 如下： 


case WM—SIZE: 



cxClient = 

LOWORD 

(IParam); 

cyClient = 

return 0 ; 

HIWORD 

(IParam); 


实际上您会在每个 Windows 程式中看到类似的程式码。 L 0 W 0 RD 和 HI WORD 巨 


集在 Windows 表头档案 WINDER H 中定义。这些巨集的定义看起来像 这样： 

♦define LOWORD(1) ((WORD)(1)) 

♦define HIWORD(l) ((WORD)(((DWORD)(1) >> 16) & OxFFFF)) 

这两个巨集传回 WORD 值 （16 位元的无正负号整数，范围从0到 OxFFFF ) 。 
一般，将这些值保存在32位元有号整数中。这就不会牵扯到任何转换问题，并 
使得这些值在以後需要的任何计算中易於使用。 

在许多 Windows 程式中， WM _ SIZE 讯息必然跟著一个 WM _ PAINT 讯息。为什 
么呢？因为在我们定义视窗类别时指定视窗类别样 式为： 

CS_HREDRAW | CS—VREDRAW 

这种视窗类别样式告诉 Windows , 如果水平或者垂直大小发生改变，则强 
制更新显示区域。 

用如下公式计算可以在显示区域内显示的文字的总行数： 

cyClient / cyChar 
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如果显示区域的高度太小以至无法显示一个完整的字元，这个公式的结果 
可以为0。类似地，在显示区域的水平方向可以显示的小写字元的近似数 目为： 

cxClient / cxChar 

如果在处理 WM CREATE 讯息处理期间取得 cxChar 和 cyChar , 则不用担心在 
这两个计算公式中会出现被0除的情况。在 WinMain 呼叫 CreateWindow 时，视 
窗讯息处理程式接收一个 WM _ CREATE 讯息。在 WinMain 呼叫 ShowWindow 之後接 
收到第一个 WM CREATE 讯息，此时 cxChar 和 cyChar 已经被赋予正的非零值了。 

如果显示区域的大小不足以容纳所有的内容，那么，知道视窗显示区域的 
大小只是为使用者提供了在显示区域内卷动文字的第一步。如果您对其他有类 
似需求的 Windows 应用程式很熟悉，就很可能知道，这种情况下，我们需要使 
用「卷动列」。 

卷动列 

卷动列是图形使用者介面中最好的功能之一，它很容易使用，而且提供了 
很好的视觉回馈效果。您可以使用卷动列显示任何东西一无论是文字、图形、 
表格、资料库记录、图像或是网页，只要它所需的空间超出了视窗的显示区域 
所能提供的空间，就可以使用卷动列。 

卷动列既有垂直方向的（供上下移动），也有水平方向的（供左右移动）。 
使用者可以使用滑鼠在卷动列两端的箭头上或者在箭头之间的区域中点一下， 
这时，「卷动方块」在卷动列内的移动位置与所显示的资讯在整个文件中的近 
似相关位置成比例。使用者也可以用滑鼠拖动卷动方块到特定的位置。图4-5 
显示了垂直卷动列的建议用法。 
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Click here to scroll 
one page or one 
screenful up 


」 


Click here to scroll 
one page or one 
screenful down 


1 ] 




Stall V | 二 Scroll Bais 

|货赛 4 &43PM 


图 4-5 垂直卷动列 


Click here 
to scroll 
one line up 
(contents 
of window 
go down) 


Drag thumb 
to go to 
approximate 
location 


Click here to 
scroll one line 
down 

(contents of 
window go 
up) 


有时，程式写作者对卷动概念很难理解，因为他们的观点与使用者的观点 
不同：使用者向下卷动是想看到文件较下面的 部分； 但是，程式实际上是将文 
件相对於显示视窗向上移动。 Windows 文件和表头档案识别字是依据使用者的观 
点： 向上卷动意味著朝文件的开头 移动； 向下卷动意味著朝文件尾部移动。 

很容易在应用程式中包含水平或者垂直的卷动列，程式写作者只需要在 
CreateWindow 的第三个参数中包括视窗样式 ( WS ) 识别字 WS_VSCROLL (垂直卷 
动）和/或 WS_HSCROLL (水平卷动）即可。这些卷动列通常放在视窗的右部和底 
部，伸展为显示区域的整个长度或宽度。显示区域不包含卷动列所占据的空间。 
对於特定的显示驱动程式和显示解析度，垂直卷动列的宽度和水平卷动列的高 
度是恒定的。如果需要这些值，可以使用 GetSystemMetrics 呼叫来取得（如前 
面的程式那样）。 

Windows 负责处理对卷动列的所有滑鼠操作，但是，视窗卷动列没有自动的 
键盘介面。如果想用游标键来完成卷动功能，则必须提供这方面的程式码（我 
们将在下一章另一个版本的 SYSMETS 程式中做到这一点）。 


卷动列的范围和位置 


每个卷动列均有一个相关的「范围」（这是一对整数，分别代表最小值和 
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最大值）和「位置」（它是卷动方块在此范围内的位置）。当卷动方块在卷动 
列的顶部（或左部）时，卷动方块的位置是范围的最 小值； 在卷动列的底部（或 
右部）时，卷动方块的位置是范围的最大值。 

在内定情况下，卷动列的范围是从0 (顶部或左部）至100 (底部或右部）， 
但将范围改变为更方便於程式的数值也是很容 易的： 

SetScrollRange (hwnd, iBar, iMin, iMax, bRedraw); 

参数 iBar 为 SB _ VERT 或者 SB _ H 0 RZ , iMin 和 iMax 分别是范围的最小值和 
最大值。如果想要 Windows 根据新范围重画卷动列，则设置 bRedraw 为 TRUE (如 
果在呼叫 SetScrollRange 後，呼叫了影响卷动列位置的其他函式，则应该将 
bRedraw 设定为 FALSE 以避免过多的重画）。 

卷动方块的位置总是离散的整数值。例如，范围为0至4的卷动列具有5 
个卷动方块位置，如图 4-6 所示。 



Position 0 


Position 1 


Position 2 


Position 3 


Position 4 


Position 0 


Position 1 


Position 2 


Position 3 


Position 4 


图 4-6 具有 5 个卷动方块位置的卷动列 
您可以使用 SetScrollPos 在卷动列范围内设置新的卷动方块 位置： 

SetScrollPos (hwnd, iBar, iPos, bRedraw); 

参数 iPos 是新位置，它必须在 iMin 至 iMax 的范围内。 Windows 提供了类 
似的函式 （ GetScrollRange 和 GetScrollPos ) 来取得卷动列的目前范围和位置。 
在程式内使用卷动列时，程式写作者与 Windows 共同负责维护卷动列以及 
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更 jf 卷云力方块的位 置。 下面是 Windows 对卷云力歹 lj 的处理： 

~ • 处理所有卷动列滑鼠事件 

• 当使用者在卷动列内单击滑鼠时，提供一种「反相显示」的闪烁 
• 当使用者在卷动列内拖动卷动方块时，移动卷动方块 
• 为包含卷动列视窗的视窗讯息处理程式发送卷动列讯息 
以下是程式写作者应该完成的 工作 ： 

• 初始化卷动列的范围和位置 
• 处理视窗讯息处理程式的卷动列讯息 
• 更新卷动列内卷动方块的位 j 
• 更改显示区域的内容以回应对卷动列的更改 

像生活中的大多数事情一样，在我们看一些程式码时这些会显得更加有意 
义。 

卷动列讯息 

在用滑鼠单击卷动列或者拖动卷动方块时， Windows 给视窗讯息处理程式发 

送 WMJSCROLL (供上下移动）和 WM_HSCROLL (供左右移动）讯息。在卷动列上 
的每个滑鼠动作都至少产生两个讯息， 一 条在按下滑鼠按钮时产生， 一 条在备 

放按钮时产生。 

和所有的讯息一样， WM _ VSCROLL 和 WM _ HSCROLL 也带有 wParam 和 IParam 

讯息参数。对於来自作为视窗的一部分而建立的卷动列讯息，您可以忽略 
IParam ； 它只用于作为子视窗而建立的卷动列（通常在对话方块内）。 

wParam 讯息参数被分为一个低字组和一个高字组 。 wParam 的低字组是一个 
数值，它指出了滑鼠对卷动列进行的操作。这个数值被看作一个「通知码」。 


通知码的值由以 SB (代表 rscroll bar (卷动列）」 ） 开头的识别字定义。以 
下是在 WINUSER . H 中定义的通 知码： 


#define 

SB— 

LINEUP 


0 

#define 

SB_ 

LINELEFT 

0 


♦define 

SB_ 

LINEDOWN 

1 


♦define 

SB— 

LINERIGHT 

1 


#define 

SB_ 

PAGEUP 


2 

#define 

SB— 

PAGELEFT 

2 


♦define 

SB— 

PAGEDOWN 

3 


♦define 

SB_ 

PAGERIGHT 

3 


#define 

SB— 

THUMBPOSITION 


4 

#define 

SB_ 

THUMBTRACK 

5 


♦define 

SB— 

TOP 

6 


♦define 

SB— 

LEFT 6 



#define 

SB— 

BOTTOM 


7 
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#define 

SB— 

RIGHT 

7 

♦define 

SB— 

ENDSCROLL 

8 


包含 LEFT 和 RIGHT 的识别字用於水平卷动列，包含 UP 、 DOWN 、 TOP 和 BOTTOM 

的识别字用於垂直卷动列。滑鼠在卷动列的不同区域单击所产生的通知码如图 
4-7 所示。 


Scioll Bait 


Pressed: SB LINEUP or SB LINELEFT 
Released: SB 一 ENDSCROLL 

Pressed: SB_PAGEUP or SB_PAGELEFT 
Released: SB ENDSCROLL 




Pressed: SB_THUMBTRACK — 
Released: SB THUMBPOSITION 


、」 


Pressed: SB_PAGEDOWN or SB_PAGERIGHT 
Released: SB ENDSCROLL 


Pressed: SBJJNEDOWN or SB LINERIGHT 
Released: SB ENDSCROLL 


: J 


:SI 初 

J 造⑽ S 

|ZI Scroll Bais 


^^4 6.43 PM 


图 4-7 用於卷动列讯息的 wParam 值的识别字 


如果在卷动列的各个部位按住滑鼠键，程式就能收到多个卷动列讯息。当 
释放滑鼠键後，程式会收到一个带有 SB _ ENDSCROLL 通知码的讯息。一般可以忽 
略这个讯息， Windows 不会去改变卷动方块的位置，而您 可以在程式中呼叫 
SetScrollPos 来改变卷动方块的位置。 

~ 当把滑鼠的游标放在卷动方块上并按住滑鼠键时，您就可以移动卷动方块。 
这样就产生了带有 SB _ THUMBTRACK 和 SB _ THUMBPOSITION 通知码的卷动列讯息 。 
在 wParam 的低字组是 SB _ THUMBTRACK 时， wParam 的高字组是使用者在拖动卷动 
方块时的目前位置。该位置位於卷动列范围的最小值和最大值之间。在 wParani 

的低字组是 SB _ THUMBPOSITION 时， wParam 的高字组是使用者释放滑鼠键後卷动 
方块的最终位置。对於其他的卷动列操作， wParam 的高字组应该被忽略。 

~ 为了给使用者提供回馈， Windows 在您用滑鼠拖动卷动方块时移动它，同时 

您的程式会收到 SB _ THUMBTRACK 讯息。然而，如果不通过呼叫 SetScrollPos 来 
处理 SB _ THUMBTRACK 或 SB _ THUMBPOSITION 讯息，在使用者释放滑鼠键後，卷动 
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方块会迅速跳回原来的位置。 

程式能够处理 SB _ THUMBTRACK 或 SB _ THUMBPOSITION 讯息，但一般不同时处 
理两者。如果处理 SB _ THUMBTRACK 讯息，在使用者拖动卷动方块时您需要移动 
显示区域的内容。而如果处理 SB _ THUMBPOSITION 讯息，则只需在使用者停止拖 
动卷动方块时移动显示区域的内容。处理 SB _ THUMBTRACK 讯息更好一些（但更 
困难），对於某些型态的资料，您的程式可能很难跟上产生的讯息。 

WINUSER . H 表头档案还包括 SB _ T 0 P 、 SB _ B 0 TT 0 M 、 SB_LEFT 和 SB_RIGHT 通知 

码，指出卷动列已经被移到了它的最小或最大位置。然而，对於作为应用程式 
视窗一部分而建立的卷动列来说，永远不会接收到这些通知码。 

在卷动列范围使用32位元的值也是有效的，尽管这不常见。然而， wParam 
的高字组只有16位元的大小，它不能适当地指出 SB _ THUMBTRACK 和 
SB _ THUMBPOSmON 操作的位置。在这种情况下，需要使用 GetScrollInfo 函式 
(在下面描述）来得到资讯。 

在 SYSMETS 中加入卷动功能 


前面的说明已经很详尽了，现在，要将那些东西动手做做看了。让我们开 
始时简单些，从垂直卷动著手，因为我们实在太需要垂直卷动了，而暂时还可 
以不用水平卷动。 SYSMET 2 如程式 4-3 所示。这个程式可能是卷动列的最简单的 
应用。 


程式 4-3 SYSMETS 2. C 


■k _ 

SYSMETS2.C -- System Metrics Display Program No. 2 
(c) Charles Petzold, 1998 


♦include <windows.h> 
♦include "sysmets.h" 



LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 



PSTR 


szCmdLine, 


int iCmdShow) 


static TCHAR szAppName[] = TEXT (”SysMets2”）; 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc = WndProc ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass•hlnstance = hlnstance ; 
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wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor = LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = NULL ; 

wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("This program requires Windows NT! n ), 
szAppName, MB_ICONERROR); 
return 0 ; 

} 

hwnd = CreateWindow (szAppName, TEXT ("Get System Metrics No. 2 ’’）， 

WS_OVERLAPPEDWINDOW | WS—VSCROLL, 

CW_USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

static int cxChar, cxCaps, cyChar, cyClient, iVscrollPos ; 

HDC hdc ; 

int i, y ； 

PAINTSTRUCT ps ; 

TCHAR szBuffer[10]; 

TEXTMETRIC tm ; 
switch (message) 

{ 

case WM_CREATE : 

hdc = GetDC (hwnd); 

GetTextMetries (hdc, &tm); 
cxChar = tm.tmAveCharWidth ; 

cxCaps = (tm.tmPitchAndFamily & 1 ? 3 : 2) * cxChar / 2 ; 
cyChar = tm.tmHeight + tm.tmExternalLeading ; 

ReleaseDC (hwnd, hdc); 

SetScrollRange (hwnd, SB—VERT, 0, NUMLINES - 1, FALSE); 

SetScrollPos (hwnd, SB VERT, iVscrollPos, TRUE); 


第 93 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 
return 0 ; 

case WM_SIZE: 

cyClient = HIWORD (IParam); 
return 0 ; 

case WM—VSCROLL: 

switch (LOWORD (wParam)) 

{ 

case SB_LINEUP: 

iVscrollPos -= 1 ; 
break ; 

case SB_LINEDOWN: 

iVscrollPos += 1 ; 
break ; 

case SB_PAGEUP: 

iVscrollPos -= cyClient / cyChar ; 
break ; 

case SB_PAGEDOWN: 

iVscrollPos += cyClient / cyChar ; 
break ; 

case SB_THUMBPOSITION: 

iVscrollPos = HIWORD (wParam); 
break ; 

default : 

break ; 

} 

iVscrollPos = max (0, min (iVscrollPos, NUMLINES - 1)); 
if (iVscrollPos != GetScrollPos (hwnd, SB—VERT)) 

{ 

SetScrollPos (hwnd, SB—VERT, iVscrollPos, TRUE); 
InvalidateRect (hwnd, NULL, TRUE); 

} 

return 0 ; 
case WM_PAINT: 

hdc = BeginPaint (hwnd, &ps); 
for (i = ◦ ; i < NUMLINES ; i++) 

{ 

y = cyChar * (i - iVscrollPos); 

TextOut (hdc, 0, y, 

sysmetrics[i].szLabel, 

lstrlen (sysmetrics[i].szLabel)); 
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TextOut (hdc, 22 * cxCaps, y, 
sysmetrics[i].szDesc, 
lstrlen (sysmetrics[i].szDesc)); 

SetTextAlign (hdc, TA—RIGHT | TA—TOP); 

TextOut (hdc, 22 * cxCaps + 40 * cxChar, y, szBuffer, 
wsprintf (szBuffer, TEXT ("%5d"), 

GetSystemMetries (sysmetrics[i].ilndex))); 
SetTextAlign (hdc, TA—LEFT | TA_TOP); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

新的 CreateWindow 呼叫在第三个参数中包含了 WS _ VSCR 0 LL 视窗样式，从 
而在视窗中加入了垂直卷动列，其视窗样式为： 

WS_OVERLAPPEDWINDOW | WS—VSCROLL 

WndProc 视窗讯息处理程式在处理 WM_CREATE 讯息时增加了两条叙述，以设 
置垂直卷动列的范围和初始 位置： 

SetScrollRange (hwnd, SB—VERT, 0, NUMLINES - 1, FALSE); 

SetScrollPos (hwnd, SB—VERT, iVscrollPos, TRUE); 

sysmetrics 结构具有 NUMLINES 行文字，所以卷动列范围被设定为 0 至 
NUMLINES-lo 卷动列的每个位置对应于在显示区域顶部显示的一个文字行。如 
果卷动方块的位置为0,则第一行会被放置在显示区域的顶部。如果位置大於0, 
其他行就会出现在显示区域的顶部。当位置为 NUMLINES -1 时，则最後一行文字 
出现在显示区域的顶部。 

为了有助於处理 WM _ VSCR 0 LL 讯息，在视窗讯息处理程式中定义了一个静态 
变数 iVscrollPos ， 这一变数是卷动列内卷动方块的目前位置。对於 SB_LINEUP 
和 SB _ LINED 0 WN ， 只需要将卷动方块调整一个单位的位置。对於 SB _ PAGEUP 和 
SB _ PAGED 0 WN , 我们想移动一整面的内容，或者移动 cyClient /cyChar 个单位 
的位置。对於 SB _ THUMBP 0 Sm 0 N ， 新的卷动方块位置是 wParam 的高字组。 
SB _ ENDSCR 0 LL 和 SB_THUMBTRACK 讯息被忽略。 

在程式依据收到的 WM _ VSCR 0 LL 讯息计算出新的 iVscrollPos 值後，用 min 
和 max 巨集来调整 iVscrollPos , 以确保它在最大值与最小值之间。程式然後将 
iVscrollPos 与呼叫 GetScrollPos 取得的先前位置相比较，如果卷动位置发生 
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了变化，则使用 SetScrollPos 来进行更新，并且呼叫 InvalidateRect 使整个 
视窗无效。 

InvalidateRect 呼叫产生一个 WM_PAINT 讯息。 SYSMETS 1 在处理 WM_PAINT 
讯息时，每一行的 y 座标计算公 式为： 

cyChar * i 

在 SYSMETS 2 中，计算公 式为： 

cyChar * (i - iVscrollPos) 

回圈仍然显示 NUMLINES 行文字，但是对於非零值的 iVscrollPos 是负数。 
程式实际上在显示区域以外显示这些文字行。当然， Windows 不会显示这些行， 
因此蛮幕显得乾净和漂亮。 

前面说过，我们一开始不想弄得太复杂，这样的程式码很浪费，效率很低。 
下面我们对此加以修改，但是先要考虑在 WM_VSCROLL 讯息之後更新显示区域的 
方法。 

绘图程式的组织 

在处理完卷动列讯息後， SYSMETS 2 不更新显示区域，相反，它呼叫 
InvalidateRect 使显示区域失效。这导致 Windows 将一个 WM PAINT 讯息放入讯 

息伫列中。 

最好能使 Windows 程式在回应 WM_PAINT 讯息时完成所有的显示区域绘制功 
能。因为程式必须在一接收到 WM_PAINT 讯息时就更新整个显示区域，如果在程 
式的其他部分也绘制的话，将很可能使程式码重复。 

首先，您可能对这种拐弯抹角的方式感到厌烦。在 Windows 的早期，因为 
这种方式与文字模式的程式设计差别太大，程式写作者感到这种概念很难理解。 
并且，程式要不断地通过马上绘制画面来回应键盘和滑鼠。这样做既方便又有 
效，但是在很多情况下，这完全不必要。 当您掌握了在回应 WM_PAINT 讯息时积 
累绘制显示区域所需要的全部资讯的原则之後，会对这种结果感到满意的。 

如同 SYSMETS 2 示范的，程式仍然需要在处理非 WM_PAINT 讯息时更新特定 
的显示区域，使用 InvalidateRect 就很方便，您可以用它使显示区域内的特定 
矩形或者整个显示区域失效。 

只将视窗显示区域标记为无效以产生 WM_PAINT 讯息，对於某些应用程式来 
说也许不是完全令人满意的选择。在呼叫 InvalidateRect 之後， Windows 将 
WM_PAINT 讯息放入讯息伫列中，最後由视窗讯息处理程式处理它。然而， Windows 
将 WM_PAINT 讯息当成低优先顺序讯息，如果系统有许多其他的动作正在发生， 
那么也许会让您等待一会儿工夫。这时，当对话方块消失时，将会出现一些空 
白的「洞」，程式仍然等待更新它的视窗。 
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如果您希望立即更新无效区域，可以在呼叫 InvalidateRect 之後呼叫 

UpdateWindow ： 

UpdateWindow (hwnd) ; 

如果显示区域的任——部分无效，贝 1 J UpdateWindow 将导致 Windows 用 
WM . PAINT 讯息呼叫视窗讯息处理程式（如果整个显示区域有效，则不呼叫视窗 

讯息处理程式）。这一 WM _ PAINT 讯息不进入讯息伫列，直接由 Windows 呼叫视 
窗讯息处理程式。视窗讯息处理程式完成更新後立即退出， Windows 将控制彳 H 

给程式中 UpdateWindow 呼叫之後的叙述。 

您可能注意到， UpdateWindow 与 WinMain 中用来产生第一个 WM PAINT 讯息 
的函式相同。最初建立视窗时，整个显示区域内容变为无效， UpdateWindow 指 
示视窗讯息处理程式绘制显示区域。 

建立更好的滚动 

SYSMETS 2 动作良好，但它只是模仿其他程式中的卷动列，并且效率很低。 
很快我将示范一个新的版本，改进它的不足。也许最有趣的是这个新版本不使 
用目前所讨论的四个卷动列函式。相反，它将使用 Win 32 API 中才有的新函式。 

卷动列资讯函式 


卷动列文件（在 /Platform SDK/User Interface Services / Controls/Scroll 
Bars 中)指出 SetScrollRange 、 SetScrollPos、GetScrollRange 和 GetScrollPos 
函式是「过时的」，但这并不完全正确。这些函式在 Windows 1.0 中就出现了， 
在 Win 32 API 中升级以处理32位元参数。它们仍然具有良好的功能。而且，它 
们不与 Windows 程式设计中新函式相冲突，这就是我在此书中仍使用它们的原 
因。 

Win 32 API 介绍的两个卷动列函式称作 SetScrollInfo 和 GetScrollInfo 。 
这些函式可以完成以前函式的全部功能，并增加了两个新特 

第一个功能涉及卷动方块的大小。 您可能注意到，卷动方块大小在 SYSMETS 2 
程式中是固定的。然而，在您可能使用到的一些 Windows 应用程式中，卷动方 
块大小与在视窗中显示的文件大小成比例。显示的大小称作「页面大小」。演 
算 法为： 


捲動方塊大小 

頁面大小 

^ /V 

顯示的文件數量 

滾動長度 ^ 

•-/ - _ • 

範圍 

^文件的總大小 


可以使用 SetScrollInfo 来设置页面大小（从而设置了卷动方块的大小) ， 

如将要看到的 SYSMETS 3 程式所示。 
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GetScrollInfo 函式增加了第二个重要的功能，或者说它改进了目前 API 的 
不足。假设您要使用 65, 536 或更大单位的范围，这在 16 位元 Windows 中是不 
可能的。当然在 Win 32 中，函式被定义为可接受32位元参数，因此是没有问题 
的。（记住如果使用这样大的范围，卷动方块的实际物理位置数仍然由卷动列 
的图素大小限制）。然而，当使用 SB_THUMBTRACK 或 SB_THUMBPOSmON 通知码 
得到 WM_VSCROLL 或 WM_HSCROLL 讯息时，只提供了 16 位元资料来指出卷动方块 
的目前位置。通过 GetScrollInfo 函式可以取得真实的32位元值。 


SetScrollInfo 和 GetScrollInfo 函式的语法是 


SetScrollInfo 

(hwnd, 

iBar, 

&si, bRedraw); 

GetScrollInfo 

(hwnd. 

iBar, 

&si); 


像在其他卷动列函式中那样， iBar 参数是 SB _ VERT 或 SB _ H 0 RZ ， 它还可以 
是用於卷动列控制的 SB _ CTL 。 SetScrollInfo 的最後一个参数可以是 TRUE 或 
FALSE ， 指出了是否要 Windows 重新绘制计算了新资讯後的卷动列。 


两个函式的第三个参数是 SCR 0 LLINF 0 结构，定 义为: 


typedef struct tagSCROLLINFO 


UINT 

cbSize ; 

// 

set to 

sizeof (SCROLLINFO) 

UINT 

fMask ; 

// 

values 

to set or get 

int 

nMin ; 

// minimum range value 

int 

nMax ; 

// 

maximum range value 

UINT 

nPage ; 

// 

page size 

int 

nPos ; 

// 

current position 

int 

nTrackPos 

; // current 

tracking position 

/ 

SCROLLINFO 

,* PSCROLLINFO 

• 

r 



在程式中，可以定义如下的 SCR 0 LLINF 0 结构 型态: 


SCROLLINFO si ; 

在呼叫 SetScrollInfo 或 GetScrollInfo 之前，必须将 cbSize 栏位设定为 
结构的 大小： 

si.cbSize = sizeof (si); 

或 

si.cbSize = sizeof (SCROLLINFO); 

逐渐熟悉 Windows 後，您就会发现另外几个结构像这个结构一样，第一个 
栏位指出了结构大小。这个栏位使将来的 Windows 版本可以扩充结构并添加新 
的功能，并且仍然与以前编译的版本相容。 

把 fMask 栏位设定为一个以上以 SIF 字首开头的旗标，并且可以使用 C 的 
位元操作 OR 运算子 （ | ) 组合这些旗标。 

SetScrollInfo 函式使用 SIF_RANGE 旗标时，必须把 nMin 和 nMax 栏位设定 
为所需的卷动列范围。 GetScrollInfo 函式使用 SIF_RANGE 旗标时，应把 nMin 
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和 nMax 栏位设定为从函式传回的目前范围。 

SIF _ P 0 S 旗标也一样。当通过 SetScrollInfo 使用它时，必须把结构的 nPos 
栏位设定为所需的位置。可以通过 GetScrollInfo 使用 SIF _ P 0 S 旗标来取得目 
前位置。 

使用 SIF _ PAGE 旗标能够取得页面大小。用 SetScrollInfo 函式把 nPage 设 
定为所需的页面大小。 GetScrollInfo 使用 SIF _ PAGE 旗标可以取得目前页面的 
大小。如果不想得到比例化的卷动列，就不要使用该旗标。 

当处理带有 SB_THUMBTRACK 或 SB_THUMBPOSITION 通知码的 WM_VSCROLL 或 
WM _ HSCROLL 讯息时，通过 GetScrollInfo 只使用 SIF _ TRACKPOS 旗标。从函式的 
传回中， SCR 0 LLINF 0 结构的 nTrackPos 栏位将指出目前的32位元的卷动方块位 
置。 

在 SetScrollInfo 函式中仅使用 SIF _ DISABLENOSCROLL 旗标。如果指定了 
此旗标，而且新的卷动列参数使卷动列消失，则该卷动列就不能使用了（下面 
会有更多的解释）。 

SIF_ALL 旗标是 SIF _ RANGE 、 SIF _ P 0 S 、 SIF_PAGE 和 SIF_TRACKPOS 的组合。 
在 WM + SIZE 讯息处理期间设置卷动列参数时，这是很方便的（在 SetScrollInfo 
函式中指定 SIF _ TRACKK ) S 後，它会被忽略）。这在处理卷动列讯息时也是很方 
便的。 

卷动范围 

在 SYSMETS 2 中，卷动范围设置最小为0，最大为 NUMLINES -1。 当卷动列位 
置是0时，第一行资讯显示在显示区域的顶部；当卷动列的位置是 NUMLINES -1 
时，最後一行显示在显示区域的顶部，并且看不见其他行。 

可以说 SYSMETS 2 卷动范围太大。事实上只需把资讯最後一行显示在显示区 
域的底部而不是顶部即可。我们可以对 SYSMETS 2 作出一些修改以达到此点。当 
处理 WM _ CREATE 讯息时不设置卷动列范围，而是等到接收到 WM _ SIZE 讯息後再 
做此 工作： 

iVscrollMax = max (0， NUMLINES - cyClient / cyChar ); 

SetScrollRange ( hwnd , SB _ VERT , 0, iVscrollMax , TRUE ); 

假定 NUMLINES 等於75,并假定特定视窗大 小是: 50( cyChar 除以 cyClient )。 
换句话说，我们有75行资讯但只有50行可以显示在显示区域中。使用上面的 
两行程式码，把范围设置最小为0,最大为25。当卷动列位置等於0时，程式 
显示0到49行。当卷动列位置等於1时，程式显示1到50 行； 并且当卷动列 
位置等於25 (最大值）时，程式显示25到74行。很明显需要对程式的其他部 
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分做出修改，但这是可行的。 

新卷动列函式的一个好的功能是当使用与卷动列范围一样大的页面时，它 
已经为您做掉了一大堆杂事。可以像下面的程式码一样使用 SCR 0 LLINF 0 结构和 
SetScrollInfo ： 


si.cbSize = 

sizeof (SCROLLINFO); 

si.cbMask = 

SIF RANGE 

| SIF PAGE ; 

si.nMin = 

0 ； 


si.nMax = 

NUMLINES - 

1 ； 

si.nPage = 

cyClient / 

cyChar ; 

SetScrollInfo 

(hwnd, SB 

VERT, &si, TRUE); 


这样做之後， Windows 会把最大的卷动列位置限制为 si . nMax - si . nPage +1 


而不是 si . nMax 。 像前面那样做出 假设： NUMLINES 等於75 (所以 si . nMax 等於 
74) ， si . nPage 等於50。这意味著最大的卷动列位置限制为74 - 50 + 1，即 
25。这正是我们想要的。 

当页面大小与卷动列范围一样大时，会发生什么情况呢？在这个例子中， 
就是 nPage 等於75或更大的情况。 Windows 通常隐藏卷动列，因为它并不需要。 
如果不想隐藏卷动列，可在呼叫 SetScrollInfo 时使用 SIF _ DISABLEN 0 SCR 0 LL ， 
Windows 只是让那个卷动列不能被使用，而不隐藏它。 

新 SYSMETS 


SYSMETS 3 ——此章中最後的 SYSMETS 程式版本——显示在程式 4-4 中。此 
版本使用 SetScrollInfo 和 GetScrollInfo 函式，添加左右卷动的水平卷动列， 
并能更有效地重画显示区域。 


程式 4-4 SYSMETS 3 


SYSMETS3.C 

卜 - 

SYSMETS3.C -- System Metrics Display Program No. 3 

(c) Charles Petzold, 1998 


♦include <windows.h> 
♦include "sysmets.h" 



LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("SysMets3 M ); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 
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wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc= WndProc ; 


wndclass 

wndclass 

wndclass 

wndclass 

wndclass 


.cbClsExtra = 0 ; 

.cbWndExtra = 0 ; 

•hlnstance = hlnstance ; 

•hlcon = Loadlcon (NULL, IDI—APPLICATION) 

.hCursor = LoadCursor (NULL, IDC ARROW); 


wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH) 
wndclass.IpszMenuName = NULL ; 
wndclass.IpszClassName = szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("Program requires Windows NT !’'）， 
szAppName, MB_ICONERROR); 
return 0 ; 

} 

hwnd = CreateWindow (szAppName, TEXT ("Get System Metrics No. 3 n ), 

WS_OVERLAPPEDWINDOW | WS—VSCROLL | WS_HSCROLL, 
CW_USEDEFAULT a CW—USEDEFAULT, 

CW_USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

static int cxChar, cxCaps, cyChar, cxClient, cyClient, iMaxWidth ; 

HDC hdc ; 

int i, x, y, iVertPos, iHorzPos, iPaintBeg, iPaintEnd ; 

PAINTSTRUCT ps ; 

SCROLLINFO si ; 

TCHAR szBuffer[10]; 

TEXTMETRIC tm ; 


switch (message) 

{ 

case WM—CREATE: 

hdc = GetDC (hwnd); 
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GetTextMetrics (hdc, &tm) ; 
cxChar = tm.tmAveCharWidth ; 

cxCaps = (tm.tmPitchAndFamily & 1 ? 3 : 2) * cxChar / 2 ; 
cyChar = tm.tmHeight + tm.tmExternalLeading ; 

ReleaseDC (hwnd, hdc); 

// Save the width of the three columns 
iMaxWidth = 40 * cxChar + 22 * cxCaps ; 
return 0 ; 

case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 

// Set vertical scroll bar range and page size 
si.cbSize = sizeof (si); 
si.fMask = SIF_RANGE | SIF_PAGE ; 
si . nMin = 0 ; 
si.nMax = NUMLINES - 1 ; 

si.nPage = cyClient / cyChar ; 

SetScrollInfo (hwnd, SB—VERT, &si, TRUE); 

// Set horizontal scroll bar range and page size 
si.cbSize = sizeof (si); 
si.fMask = SIF_RANGE | SIF_PAGE ; 
si . nMin = 0 ; 

si.nMax = 2 + iMaxWidth / cxChar ; 
si.nPage = cxClient / cxChar ; 

SetScrollInfo (hwnd, SB_HORZ, &si, TRUE); 
return 0 ; 

case WM—VSCROLL: 

// Get all the vertical scroll bar information 
si.cbSize = sizeof (si); 
si.fMask = SIF—ALL ; 

GetScrollInfo (hwnd, SB—VERT, &si); 

// Save the position for comparison later on 
iVertPos = si.nPos ; 
switch (LOWORD (wParam)) 

{ 

case SB_TOP : 

si.nPos = si.nMin ; 
break ; 

case SB—BOTTOM: 

si.nPos = si.nMax ; 
break ; 

case SB LINEUP: 
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si.nPos - = 1 ; 

break ; 



case 

SB LINEDOWN: 

si.nPos += 1 ; 

break ; 



case 

SB PAGEUP: 

si.nPos -= si.nPage ; 

break ; 



case 

SB PAGEDOWN: 

si.nPos += si.nPage ; 

break ; 



case 

SB THUMBTRACK: 

si.nPos = si.nTrackPos ; 

break ; 



default : 

break ; 

1 



f 

// Set the position and then retrieve it. 
// by Windows it may not be the same as 

Due to 

the value 

adjustments 

set. 

si.fMask = SIF POS ; 

SetScrollInfo (hwnd, SB VERT, &si, TRUE); 

GetScrollInfo (hwnd, SB VERT, &si); 



// If the position has changed, scroll the window 

if (si.nPos != iVertPos) 

f 

and update it 

X 

\ 

ScrollWindow ( hwnd, ◦, cyChar * (iVertPos — si. 

NULL, NULL); 

UpdateWindow (hwnd); 

,nPos), 

return 0 ; 

case WM HSCROLL: 

// Get all the vertical scroll bar 

si.cbSize = sizeof (si); 

si. fMask = SIF ALL ; 

information 


// Save the position for comparison 
GetScrollInfo (hwnd, SB HORZ, &si); 

iHorzPos = si.nPos ; 

later on 



switch (LOWORD (wParam)) 

{ 
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case SB_LINELEFT: 

si.nPos -= 1 ; 
break ; 

case SB_LINERIGHT: 

si.nPos += 1 ; 
break ; 

case SB—PAGELEFT: 

si.nPos -= si.nPage ; 
break ; 

case SB_PAGERIGHT: 

si.nPos += si.nPage ; 
break ; 

case SB—THUMBPOSITION: 

si.nPos = si.nTrackPos ; 
break ; 

default : 
break ; 

} 

// Set the position and then retrieve it. Due to adjustments 
// by Windows it may not be the same as the value set. 

si.fMask = SIF_POS ; 

SetScrollInfo (hwnd, SB—HORZ, &si, TRUE); 

GetScrollInfo (hwnd, SB_HORZ, &si); 

// If the position has changed, scroll the window 

if (si.nPos != iHorzPos) 

{ 

ScrollWindow ( hwnd, cxChar * (iHorzPos - si.nPos), 0, 

NULL, NULL); 

} 

return 0 ; 
case WM_PAINT : 

hdc = BeginPaint (hwnd, &ps); 

// Get vertical scroll bar position 
si.cbSize = sizeof (si); 
si.fMask = SIF_POS ; 

GetScrollInfo (hwnd, SB—VERT, &si); 
iVertPos = si.nPos ; 

// Get horizontal scroll bar position 
GetScrollInfo (hwnd, SB HORZ, &si); 
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iHorzPos = si.nPos ; 

// Find painting limits 

iPaintBeg = max (◦, iVertPos + ps.rcPaint.top / cyChar); 
iPaintEnd = min (NUMLINES - 1, 

iVertPos + ps.rcPaint.bottom / cyChar); 

for (i = iPaintBeg ; i <= iPaintEnd ; i++) 

{ 

x = cxChar * (1 - iHorzPos); 
y = cyChar * (i - iVertPos); 

TextOut (hdc, x, y, 

sysmetrics[i].szLabel, 

lstrlen (sysmetrics[i].szLabel)); 

TextOut (hdc, x + 22 * cxCaps, y, 
sysmetrics[i].szDesc, 
lstrlen (sysmetrics[i].szDesc)); 

SetTextAlign (hdc, TA_RIGHT | TA—TOP); 

TextOut (hdc, x + 22 * cxCaps + 40 * cxChar, y, szBuffer, 
wsprintf (szBuffer, TEXT ("%5d"), 

GetSystemMetries (sysmetrics[i]•ilndex))); 

SetTextAlign (hdc, TA—LEFT | TA_TOP); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

这个版本的程式仰赖 Windows 保存卷动列资讯并做边界检查。在 WM _ VSCR 0 LL 
和 WM _ HSCR 0 LL 处理的开始，它取得所有的卷动列资讯，根据通知码调整位置， 
然後呼叫 SetScrollInfo 设置其位置。程式然後呼叫 GetScrollInfo 。 如果该位 
置超出了 SetScrollInfo 呼叫的范围，则由 Windows 来纠正该位置并且在 
GetScrollInfo 呼叫中传回正确的值。 

SYSMETS 3 使用 ScrollWindow 函式在视窗的显示区域中卷动资讯而不是重画 
它。虽然该函式很复杂（在新版本的 Windows 中已被更复杂的 ScrollWindowEx 
所替代）， SYSMETS 3 仍以相当简单的方式使用它。函式的第二个参数给出了水 
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平卷动显示区域的数值，第三个参数是垂直卷动显示区域的数值，单位都是图 
素。 

ScrollWindow 的最後两个参数设定为 NULL ， 这指出了要卷动整个显示区域。 
Windows 自动把显示区域中未被卷动操作覆盖的矩形设为无效。这会产生 
WM—PAINT 讯息。再也不需要 InvalidateRect 了。注意 ScrollWindow 不是 GDI 
函式，因为它不需装置内容代号。它是少数几个非 GDI 的 Windows 函式之一， 
它可以改变视窗的显示区域外观。很特殊但不方便，它是随卷动列函式一起记 
载在文件中。 

WM_HSCROLL 处理拦截 SB_THUMBPOSITION 通知码并忽略 SB _ THUMBTRACK 。 因 
而，如果使用者在水平卷动列上拖动卷动方块，在使用者释放滑鼠按钮之前， 
程式不会水平卷动视窗的内容。 

WM _ VSCROLL 的方法与之 不同： 程式拦截 SB _ THUMBTRACK 讯息并忽略 
SB _ THUMBPOSITION 。 因而，程式随使用者在垂直卷动列上拖动卷动方块而垂直 
地滚动内容。这种想法很好，但应 注意： 一 旦使用者发现程式会立即回应拖动 
的卷动方块，他们就会不断地来回拖动卷动方块。幸运的是现在的 PC 快得可以 
胜任这种严酷的测试。但是在较慢的机器上，可以考虑为 GetSystemMetrics 使 
用 SB _ SLOWMACHINE 参数来替代这种处理。 

加快 WM _ PAINT 处理的一个方法由 SYSMETS 3 展示： WM _ PAINT 处理程式确定 
无效区域中的文字行并仅仅重画这些行。当然，程式码复杂一些，但速度很快。 

不用滑鼠怎么办 

在 Windows 的早期，有大量的使用者不喜欢使用滑鼠，而且， Windows 自身 
也不要求必须有滑鼠。虽然，没有滑鼠的 PC 现在走上了单色显示器和点阵印表 
机的没落之路，但我仍然建议您编写可以使用键盘来产生与滑鼠操作相同效果 
的程式，尤其对於像卷动列这样的基本操作物件更是如此。因为我们的键盘有 
一组游标移动键，所以应该实作同样的操作。 

在下一章，您将学习使用键盘和在 SYSMETS 3 中增加键盘介面的方法。您可 
能会注意到， SYSMETS 3 似乎在通知码等於 SB _ T 0 P 和 SB _ B 0 TT 0 M 时处理了 
WM _ VSCROLL 讯息。前面已经提到过，视窗讯息处理程式不从卷动列接收这些讯 
息，所以，目前这是多余的程式码。当我们在下一章再次回到这个程式时，您 
将会明白这样做的原因。 
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第五章图形基础 

图形装置介面 ( GDI ： Graphics Device Interface ) 是 Windows 的子系统， 
它负责在视讯显示器和印表机上显示图形。正如您所认为的那样， GDI 是 Windows 
非常重要的部分。不只您为 Windows 编写的应用系统在显示视觉资讯时使用 GDI ， 
就连 Windows 本身也使用 GDI 来显示使用者介面物件，诸如功能表、卷动列、 
图示和滑鼠游标。 

不幸的是，如果要对 GDI 进行全面的讲述，将需要一整本书 一一 当然不是 
这本书。在本章中，我只是想向您提供画线和填入区域的基本知识，这对於理 
解下面几章的 GDI 已经足够了。在後面几章中会讲述 GDI 支援的点阵图、 
metafile 以及格式化文字。 

GDI 的结构 

从程式写作者的观点来看， GDI 由几百个函式呼叫和一些相关的资料型态、 
巨集和结构组成。但是在开始讲述这些函式的细节之前，让我们先从巨观上了 
解一下 GDI 的整体结构。 

GDI 原理 

Windows 98和 Microsoft Windows NT 中的图形主要由 GDI 32. DLL 动态连结 
程式库输出的函式来处理。在 Windows 98中，这个 GDI 32. DLL 实际是利用16 
位元 GDI . EXE 动态连结程式库来执行许多函式。在 Windows NT 中， GDI . EXE 只 
用於16位元的程式。 

这些动态连结程式库呼叫您安装的视讯显示器和任何印表机呼叫驱动程式 
中的常式。视讯驱动程式存取视讯显示器的硬体，印表机驱动程式将 GDI 命令 
转换为各种印表机能够理解的代码或者命令。显然，不同的视讯显示卡和印表 
机要求不同的装置驱动程式。 

因为 PC 相容机种上可以连接许多种不同的视讯设备，所以， GDI 的主要目 
的之一是支援与装置无关的图形。 Windows 程式应该能够毫无困难地在 Windows 
支援的任意一种图形输出设备上执行， GDI 通过将您的程式和不同输出设备的特 
性隔离开来的方法来达到这一目的。 

图形输出设备分为两大类：位元映射设备和向量设备。大多数 PC 的输出设 
备是位元映射设备，这意味著它们以图点构成的阵列来表示图像，这类设备包 
括视讯显示卡、点阵印表机和雷射印表机。向量设备使用线来绘制图像，通常 
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局限於绘图机。 

许多传统的电脑图形程式设计方式都是完全以向量为主的，这意味著使用 
向量图形系统的程式与硬体有著一定层次的隔离。输出设备用图素表示图形， 
但是程式与程式介面之间并不是用图素进行沟通的。您当然可以使用 Windows 
GDI 作为一个高阶的向量绘制系统，同时也可以将它用於比较低阶的图素操作。 

从这方面来看 ， Windows GDI 和传统的图形介面语言之间的关系，就如同 C 
和其他程式设计语言之间的关系一样。 C 以它在不同作业系统和环境之间的高度 
可携性而闻名，然而 C 也以允许程式写作者进行低阶系统呼叫而闻名，这些呼 
叫在其他高阶语言中通常是不可能的。正如 C 有时被认为是一种「高级组合语 
言」一样，您可以认为 GDI 是图形设备硬体之间的一种高阶介面。 

您已经看到， Windows 内定使用图素座标系统。大多数传统的图形语言使用 
「虚拟」座标系，其水平和垂直轴的范围在0到32, 767之间。虽然有些图形语 
言不让您使用图素座标，但是 Windows GDI 允许您使用两种座标系统之一（甚 
至依据实际度量衡的座标系）。您可以使用虚拟座标系以便让程式独立於硬体 
之外，或者也可以使用设备座标系而完全迎合硬体设备提供的环境。 

某些程式写作者认为一旦开始使用操作图素的程式设计方式，就放弃了装 
置无关性。我们在上一章看到，这不完全是正确的，其中的诀窍是在与装置无 
关的方式中使用图素。这要求图形介面语言为程式提供一些方法来确定设备的 
硬体特徵，并进行适当的调节。例如，在 SYSMETS 程式中，我们根据标准系统 
字体字元的图素大小来确定萤幕上的文字间距，这种方法允许程式针对解析度、 
文字大小和方向比例各不相同的显示卡进行相应的调节。您将在本章看到一些 
用於确定显示尺寸的其他方法。 

早期，许多使用者在单色显示器上执行 Windows 。 即使是几年前，笔记本电 
脑也还只有灰阶显示。为此， GDI 的设计保证了您可以在编写一个程式时不必太 
担心色彩问题——也就是说， Windows 可以将色彩转换为灰阶显示。甚至在今天， 
Windows 98使用的视讯显示已经具有了不同的色彩能力 （ 16色、256色、 
rhigh - ColorJ 以及 「 true - color 」） 。虽然，彩色喷墨印表机的成本已经很 
低了，但是大多数使用者仍然坚持使用黑白印表机。盲目地使用这些设备是可 
以的，但是您的程式也应该能决定在某种显示设备上有多少色彩可以使用，从 
而最佳利用硬体功能。 

当然，就如同您编写 C 程式时，为了使它在其他电脑上执行而遇到一些微 
妙的移植性问题一样，您也可能不小心让装置依赖性溜进您的 Windows 程式， 
这就是不与硬体完全隔离的代价。您还应该知道 Windows GDI 的局限。虽然可 
以在显示器上到处移动图形物件，但 GDI 通常是一个静态的显示系统，只有有 
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限的动画支援。如果需要为游戏编写复杂的动画，就应该研究一下 Microsoft 
DirectX , 它提供了您需要的支援。 

GDI 函式呼叫 

组成 GDI 的几百个函式呼叫可以分为几 大类： 

取得（或者建立）和释放（或者清除）装置内容的函式 我们在前面的章节 

中已经看到过，您在绘图时需要装置内容代号。 GetDC 和 RealseDC 函式让您在 
非 WM _ PAINT 的讯息处理期间来做到这一点，而 BeginPaint 和 EndPaint 函式(虽 
然在技术上它们是 USER 模组而不是 GDI 模组的一部分）在进行绘图的 WM_PAINT 
讯息处理期间使用。我们马上还会介绍有关装置内容的其他一些函式。 

取得有关装置内容资讯的函式 再以第四章中 SYSMETS 程式为例，我们使用 
GetTextMetrics 函式来取得有关装置内容中目前所选字体的尺寸资讯。在本章 
後面，我们将看到一个取得非常广泛的装置内容资 讯的〉 DEVCAPS 1 程式。 

绘图函式 显然，在所有前提条件都得以满足之後，这些函式是真正重要的 
部分。在上一章中，我们使用 TextOut 函式在视窗的显示区域显示一些文字。 
我们将看到，其他 GDI 函式还可以让您画线、填入区域。在第十四章和第十五 
章还会看到如何建立点阵图图像。 

设定和取得装置内容参数的函式 装置内容的「属性」决定有关绘图函式如 
何工作的细节。例如，用 SetTextColo ]： 来指定 TextOut (或者其他文字输出函 
式）所绘制的文字色彩。在第四章中 SYSMETS 程式中，我们使用 SetTextAlign 
来告诉 GDI : TextOut 函式中的字串的开始位置应该在字串的右边而不是内定的 
左边。装置内容的所有属性都有预设值，取得装置内容时这些预设值就设定好 
了。对於所有的 Set 函式，都有相应的 Get 函式，以允许您取得目前装置内容 
属性。 

使用 GDI 物件的函式 GDI 在这里变得有点混乱。首先举一个 例子： 内定时 
使用 GDI 绘制的所有直线都是实线并具有一个标准的宽度。您可能希望绘制更 
细的直线，或者是由一系列的点或短划线组成的直线。这种线的宽度和这种线 
的画笔样式不是装置内容的属性，而是一个「逻辑画笔」的特徵。您可以通过 
在 CreatePen 、 CreatePenlndirect 或 ExtCreatePen 函式中指定这些特徵来建 

立一个逻辑画笔，这些函式传回一个逻辑画笔的代号（虽然这些函式被认为是 
GDI 的一部分，但是和大多数 GDI 函式呼叫不一样，它们不要求装置内容的代号）。 
要使用这个画笔，就要将画笔代号选进装置内容。我们认为，装置内容中目前 
选中的画笔就是装置内容的一个属性。这样，您画任何线都使用这个画笔，然 
後，您可以取消装置内容中的画笔选择，并清除画笔物件。清除画笔物件是必 
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要的，因为画笔定义占用了分配的记忆体空间。除了画笔以外， GDI 物件还用於 
建立填入封闭区域的画刷、字体、点阵图以及 GDI 的其他一些方面。 

GDI 基本图形 

您在萤幕或印表机上显示的图形型态本身可以被分为几类，通常被称为「基 
本图形」，它 们是： 

直线和曲线 线条是所有向量图形绘制系统的基础。 GDI 支援直线、矩形、 
椭圆（包括椭圆的子集，也就是我们所说的「圆」 ） 、楠圆圆周上的部分曲线 
即所谓的「弧」以及贝塞尔曲线 (Bezier spline ) ,我们将在本章中分别对它 
们进行介绍。所有更复杂的曲线可由折线 ( polyline ) 代替，折线通过一组非 
常短的直线来定义一条曲线。线条用装置内容中选中的目前画笔绘制。 

填入区域 当一系列直线或者曲线封闭了一个区域时，该区域可以使用目前 
GDI 画刷物件进行填图。这个画刷可以是实心色彩、图案（可以是一系列的水平、 
垂直或者对角标记）或者是在区域内垂直或者水平重复的点阵图图像。 

点阵图 点阵图是位元的矩形阵列，这些位元对应於显示设备上的图素，它 
们是位元映射图形的基础工具。点阵图通常用於在视讯显示器或者印表机上显 
示复杂（一般都是真实的）图像。点阵图还可以用於显示必须快速绘制的小图 
像（诸如图示、滑鼠游标以及在应用工具条中出现的按钮等）。 GDI 支援两种型 
态的点阵图 一一 旧式的（虽然还非常有用）「装置相关」点阵图，是 GDI 物件; 
和新的（如 Windows 3.0 的）「装置无关」点阵图（或者 DIB ) ， 可以储存在磁 
片档案中。第十四章和第十五章讨论点阵图。 

文字 文字的数学味道不像电脑图形的其他方面那样浓。文字和几百年的 
传统印刷术有关，它被许多印刷工人看作为一门艺术。因此，文字通常不仅是 
所有的电脑图形系统中最复杂的部分，而且（如果识字还是社会基本要求的话) 
也是最重要的部分。用於定义 GDI 字体物件和取得字体资讯的资料结构是 
Windows 中最庞大的部分之一。从 Windows 3. 1开始， GDI 开始支援 TrueType 
字体，该字体是在填入轮廓线基础上建立的，这样的填入轮廓线可由其他 GDI 
函式处理。依据相容性和储存大小的考虑， Windows 98继续支援旧式的点阵字 
体。我会在第十七章讨论字体。 

其他部分 

GDI 的其他部分无法这么容易地分类，它 们是： 

映射模式和变换 虽然内定以图素为单位进行绘图，但是您并非局限於此。 
GDI 映射模式允许您以英寸（或者甚至以几分之一英寸）、毫米或者任何您想使 
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用的单位来绘图 （Windows NT 还支援传统的以三乘三矩阵表示的「座标变换」， 
这允许倾斜和旋转图形物件。不幸的是，在 Windows 98中不支援座标变换）。 

Metafile Metafile 是以二进位形式储存的 GDI 命令集合。 Metafile 主要 
用於通过剪贴板传输向量图形，第十八章会讨论 metafile 。 

绘图区域 绘图区域是形状任意的复杂区域，通常定义为较简单的绘图区域 
组合。在 GDI 内部，绘图区域除了储存为最初用来定义绘图区域的线条组合以 
外，还以一系列扫描线的形式储存。您可以将绘图区域用於绘制轮廓、填入图 
形和剪裁。 

路径 路径是 GDI 内部储存的直线和曲线的集合。路径可以用於绘图、填 
入图形和剪裁，还可以转换为绘图区域。 

剪裁 绘图可以限制在显示区域的某一部分中，这就是所谓的剪裁。剪裁 
区域是不是矩形都可以，剪裁通常是通过区域或者路径来定义的。 

调色盘 自订调色盘通常限於显示256色的显示器。 Windows 仅保留这些色 
彩之中的20种以供系统使用，您可以改变其他236种色彩，以准确显示按点阵 
图形式储存的真实图像。第十六章会讨论调色盘。 

列印 虽然本章限於讨论视讯显示，但是您在本章中所学到的全部知识都 
适用於列印。第十三章会讨论列印。 

装置内容 

在开始绘图之前，让我们比第四章更精确地讨论一下装置内容。 

当您想在一个图形输出设备（诸如萤幕或者印表机）上绘图时，您首先必 
须获得一个装置内容（或者 DC ) 的代号。将代号传回给程式时， Windows 就给 
了您使用设备的许可权。然後您在 GDI 函式中将这个代号作为一个参数，向 
Windows 标识您想在其上进行绘图的设备。 

装置内容中包含许多确定 GDI 函式如何在设备上工作的目前「属性」，这 
些属性允许传递给 GDI 函式的参数只包含起始座标或者尺寸资讯，而不必包含 
Windows 在设备上显示物件时需要的所有其他资讯。例如，呼叫 TextOut 时，您 
只需要在函式中给出装置内容代号、起始座标、文字和文字的长度。您不必指 
定字体、文字颜色、文字後面的背景色彩以及字元间距，因为这些属性都是装 
置内容的一部分。当您想改变这些属性之一时，您呼叫一个可以改变装置内容 
中属性的函式，以後针对该装置内容的 TextOut 呼叫来使用改变後的属性。 

取得装置内容代号 

Windows 提供了几种取得装置内容代号的方法。如果在处理一个讯息时取得 
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了装置内容代号，应该在退出视窗函式之前释放它（或者删除它）。 一 旦释放 
了代号，它就不再有效了。对於印表机装置内容代号，规则就没有这么严格。 
在第十三章会讨论列印。 

最常用的取得并释放装置内容代号的方法是，在处理 WM _ PAINT 讯息时，使 
用 BeginPaint 和 EndPaint 呼叫： 

hdc = BeginPaint (hwnd, &ps); 

其他行程式 

EndPaint (hwnd, &ps); 

变数 ps 是型态为 PAINTSTRUCT 的结构，该结构的 hdc 栏位是 BeginPaint 
传回的装置内容代号。 PAINTSTRUCT 结构又包含一个名为 rcPaint 的 RECT (矩 
形）结构， rcPaint 定义一个包围视窗显示区域无效范围的矩形。使用从 
BeginPaint 获得的装置内容代号，只能在这个区域内绘图。 BeginPaint 呼叫使 
该区域有效。 

Windows 程式还可以在处理非 WM _ PAINT 讯息时取得装置内容 代号： 

hdc = GetDC (hwnd); 

其他行程式 

ReleaseDC (hwnd, hdc); 

这个装置内容适用於视窗代号为 hwnd 的显示区域。这些呼叫与 BeginPaint 
和 EndPaint 的组合之间的基本区另 ll 是，利用从 GetDC 传回的代号可以在整个显 
示区域上绘图。当然， GetDC 和 ReleaseDC 不使显示区域中任何可能的无效区 
域变成有效。 

~ Windows 程式还可以取得适用於整个视窗(而不仅限於视窗的显示区域）的 
装置内容代号： 

hdc = GetWindowDC (hwnd) ; 

其他行程式 

ReleaseDC (hwnd, hdc); 

这个装置内容除了显示区域之外，还包括视窗的标题列、功能表、卷动列 
和框架 （ frame ) 。 GetWindowDC 函式很少使用，如果想尝试用一用它，则必须 
拦截处理 WM _ NCPAINT 讯息， Windows 使用该讯息在视窗的非显示区域上绘图。 

BeginPaint 、 GetDC 和 GetWindowDC 获得的装置内容都与视讯显示器上的某 
个特定视窗相关。取得装置内容代号的另一个更通用的函式是 CreateDC ： 

hdc = CreateDC (pszDriver A pszDevice, pszOutput, pData); 

其他行程式 

DeleteDC (hdc); 

例如，您可以通过下面的呼叫来取得整个萤幕的装置内容 代号： 

hdc = CreateDC (TEXT ("DISPLAY ， ' ）， NULL, NULL, NULL); 

在视窗之外写入画面一般是不恰当的，但对於一些不同寻常的应用程式来 
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说，这样做很方便（您还可通过在呼叫 GetDC 时使用一个 NULL 参数，从而取得 
整个蛮幕的装置内容代号，不过这在文件中已经提到了）。在第十三章中，我 
们将使用 CreateDC 函式来取得一个印表机装置内容代号。 

有时您只是需要取得关於某装置内容的一些资讯而并不进行任何绘画，在 
这种情况下，您可以使用 CreateIC 来取得一个「资讯内容」的代号，其参数与 
CreateDC 函式相同，例如： 

hdc = CreateIC (TEXT ("DISPLAY’ ，）， NULL, NULL, NULL); 

您不能用这个资讯内容代号往设备上写东西。 

使用点阵图时，取得一个「记忆体装置内容」有时是有 用的： 

hdcMem = CreateCompatibleDC (hdc); 

其他行程式 

DeleteDC (hdcMem); 

您可以将点阵图选进记忆体装置内容，然後使用 GDI 函式在点阵图上绘画。 
我将在第十四章讨论这些技术。 

前面已经提到过， metafile 是一些 GDI 呼叫的集合，以二进位形式编码。 
您可以通过取得 metafile 装置内容来建立 metafile ： 

hdcMeta = CreateMetaFile (pszFilename); 

其他行程式 

hmf = CloseMetaFile (hdcMeta); 

在 metafile 装置内容有效期间，任何用 hdcMeta 所做的 GDI 呼叫都变成 
metafile 的一部分而不会显示。在呼叫 CloseMetaFile 之後，装置内容代号变 
为无效，函式传回一个指向 metafile ( hmf ) 的代号。我会在第十八章讨论 

metafile 。 

取得装置内容资讯 

一 个装置内容通常是指一个实际显示设备，如视讯显示器和印表机。通常， 
您需要取得有关该设备的资讯，包括显示器的大小（单位为图素或者实际长度 
单位）和色彩显示能力。您可以通过呼叫 GetDeviceCaps ( 「取得设备功能」） 
函式来取得这些资讯： 

iValue = GetDeviceCaps (hdc, ilndex); 

其中，参数 ilndex 取值为 WINGDI . H 表头档案中定义的29个识别字之一。 
例如， ilndex 为 H 0 RZRES 时将使 GetDeviceCaps 传回设备的宽度（单位为图 素）; 
ilndex 为 VERTRES 时将让 GetDeviceCaps 传回设备的高度（单位为图素）。如 
果 hdc 是印表机装置内容的代号，则 GetDeviceCaps 传回印表机显示区域的高 
度和宽度，它们也是以图素为单位的。 

还可以使用 GetDeviceCaps 来确定设备处理不同型态图形的能力，这对於 
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视讯显示器并不很重要，但是对於列印设备却是非常重要。例如，大多数绘图 
机不能画点阵图图像， GetDeviceCaps 就可以将这一情况告诉您。 

DEVCAPS 1 程式 


程式 5-1 所示的 DEVCAPS 1 程式显示了以一个视讯显示器的装置内容为参数 
时，可以从 GetDeviceCaps 函式中获得的部分资讯（该程式的另一个扩充版本 
DEVCAPS 2 将在第十三章给出，用於取得印表机资讯）。 

程式 5-1 DEVCAPS1 

DEVCAPSl.C 

/* - 

DEVCAPSl.C -- Device Capabilities Display Program No. 1 

(c) Charles Petzold, 1998 

- " 

♦include <windows.h> 

♦define NUMLINES ((int) (sizeof devcaps / sizeof devcaps [◦])) 
struct 
{ 

int ilndex ; 


TCHAR * 
TCHAR * 


szLabel 

szDesc 


} 


devcaps [] 


{ 


HORZSIZE, 

VERTSIZE, 

HORZRES, 

VERTRES, 

BITSPIXEL, 

PLANES, 


TEXT ("HORZSIZE") , TEXT ("Width in millimeters :，'）， 
TEXT ( n VERTSIZE n ) , TEXT ("Height in millimeters :，，）， 
TEXT ("HORZRES") , TEXT ("Width in pixels :，'）， 

TEXT ("VERTRES"),TEXT ("Height in raster lines :”）， 
TEXT ( n BITSPIXEL n ) , TEXT ("Color bits per pixel :，'）， 
TEXT ("PLANES") , TEXT ("Number of color planes :，'）， 


NUMBRUSHES, 

TEXT 

("NUMBRUSHES") A 

TEXT 

("Number 

of 

device 

brushes : , 

NUMPENS, 

TEXT 

("NUMPENS"), 

TEXT 

("Number 

of 

device 

pens : n ), 

NUMMARKERS, 

TEXT 

("NUMMARKERS"), 

TEXT 

("Number 

of 

device 

markers ， 

NUMFONTS, 

TEXT 

("NUMFONTS"), 

TEXT 

("Number 

of 

device 

fonts, 

NUMCOLORS, 

TEXT 

("NUMCOLORS"), 

TEXT 

("Number 

of 

device 

colors : ， 

PDEVICESIZE 

f 

TEXT ("PDEVICESIZE ”）， 

TEXT 

r ； 

Size 

of devi< 


structure, 


ASPECTX, 

TEXT 

("ASPECTX"), 

TEXT 

ASPECTY, 

TEXT 

("ASPECTY"),TEXT 

("Rel 

ASPECTXY, 

TEXT 

("ASPECTXY"), 

TEXT 

LOGPIXELSX, 

TEXT 

("LOGPIXELSX"), 

TEXT 

LOGPIXELSY, 

TEXT 

( n LOGPIXELSY n ), 

TEXT 

SIZEPALETTE 

F 

TEXT ( n SIZEPALETTE n ), 


("Relative width of pixel :”）， 


("Relative diagonal of pixel :’’）， 


("Number of palette 


entries : , 

NUMRESERVED, 
entries ， 


TEXT ("NUMRESERVED"), TEXT 


("Reserved 


palette 


第 114 页 






Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


COLORRES, TEXT ("COLORRES") , TEXT ("Actual color resolution:") 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("DevCapsl"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc= WndProc ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass.hlnstance = hlnstance ; 

wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor = LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = NULL ; 

wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT !’'）， 

szAppName, MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow ( szAppName, TEXT ("Device Capabilities "), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 
CW_USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 
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static int cxChar , cxCaps, cyChar ; 
TCHAR szBuffer[10]; 

HDC hdc ; 

int i ; 


PAINTSTRUCT ps ; 
TEXTMETRIC tm ; 


switch (message) 

{ 

case WM—CREATE: 

hdc = GetDC (hwnd); 

GetTextMetries (hdc, &tm); 
cxChar = tm.tmAveCharWidth ; 

cxCaps = (tm.tmPitchAndFamily & 1 ? 3 : 2) * cxChar / 2 ; 

cyChar = tm.tmHeight + tm.tmExternalLeading ; 


ReleaseDC (hwnd, hdc); 
return 0 ; 


case WM_PAINT: 

hdc = BeginPaint (hwnd, &ps); 
for (i = 0 ; i < NUMLINES ; i++) 

{ 

TextOut ( hdc, ◦, cyChar * i, 
deveaps [i] .szLabel, 
lstrlen (deveaps[i].szLabel)); 


TextOut ( hdc, 14 * cxCaps, cyChar * i, 
deveaps[i].szDesc, 
lstrlen (deveaps[i].szDesc)); 

SetTextAlign (hdc, TA—RIGHT | TA—TOP); 

TextOut (hdc, 14*cxCaps+35*cxChar, cyChar*i, szBuffer, 
wsprintf (szBuffer, TEXT ( "%5d"), 

GetDeviceCaps (hdc, deveaps[i].ilndex))); 

SetTextAlign (hdc, TA—LEFT | TA_TOP); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 


case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 
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HORZSIZE 

VERTS IZE 

HORZRES 

VERTRES 

BITSP1XEL 

PLANES 

NUMBRUSHES 

NUMPENS 

NUMMARKERS 

NUMFONTS 

NUMCOLORS 

POEVICESIZE 

ASPECTS 

ASPECTY 

ASPECTXY 

LOGPIXELSX 

LOGPIXELSY 

SIZEPALETTE 

NUMRESERVED 

COLORRES 


Width in millimeters ： 
Height in millimeters: 
Width in pixels ： 

Height in raster lines ： 

Color bits per pixel ： 
Number of color planes ： 
Number of device brushes ： 
Number of device pens ： 
Number of device markers ： 
Number of device fonts ： 
Number of device colors: 
Size of device structure ： 
Relative width of pixel ： 
Relative height of pixel ： 
Relative diagonal of pixel ： 
Horizontal dots per inch ： 
Vertical dots per inch ： 
Number of palette entries ： 
Reserved palette entries ： 
Actual color resolution ： 


可以看到，这个程式非常类似第四章的 SYSMETS 1。 为了保持程式码的短小，我没有使用 
卷动列，因为我知道资讯可以在一个画面上显示出来◦在256色，640 480的 VGA 上显示的 
结果如图 5-1 所示。 


图 5-1 256色， 640 X 480 VGA 上的 DEVCAPS 1 显示 


装置的大小 


假定要绘制边长为1英寸的正方形，您（程式写作者）或 Windows (作业系 
统）需要知道视讯显示上1英寸对应多少图素。使用 GetDeviceCaps 函式能取 
得有关如视讯显示器和印表机之类输出设备的实际显示大小资讯。 

视讯显示器和印表机是两个不同的设备。但也许最不明显的区别是「解析 

度」与装置联系起来的方式。对於印表机，我们经常用「每英寸的点数 （ dpi ) 」 
表示解析度。 例如，大多数雷射印表机有300或 600 dpi 的解析度。 然而 ， Ml 

显示器的解析度是以水平和垂直的总图素数来表示 的，例如，1024 768。大多 
数人不会告诉您他的印表机在一张纸上水平和垂直列印多少图素或他们的视讯 
显示器上每英寸有多少图素。 


素数< 

在本书中， 

我用 

「解析度」 

来严格定义每度量单位（一般为英寸）内的图 

3我使用 

「图素大小」或「图素尺寸」表示设备水平或垂直显示的总图素 

数。 

「度量大小」或「度量尺寸」 

是以英寸或毫米为单位的设备显示区域的大 


小。（对於印表机页面，它不是整个页面，只是可列印的区域。）图素大小除 



Device Capabilities 




9 7 0 0 8 1 
6 2 4 8 


0266166608 
Z133599521 
1 2 
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以度量大小就得到解析度。 

~ 现在 Windows 使用的大多数视讯显示器的萤幕都是宽比高多33%。这就表示 
纵横比为 1.33:1 或（一般写法）4:3。历史上，该比例可追溯到 Thomas Edison 
制作电影的年代。它一直作为电影的标准纵横比，直到1953年出现各种型态的 
宽银幕投影机。电视机萤幕的纵横比也是4:3。 

然而， Windows 应用程式不应假设视讯显示器具有4:3的纵横比。人们进行 
文字处理时希望视讯显示器与一张纸的长和宽类似。最普通的选择是把4:3变 
为3:4显示，把标准显示翻转一下。 

如果设备的水平解析度与垂直解析度相等，就称设备具有「正方形图素」。 

现在， Windows 普遍使用的视讯显示器都具有正方形图素，但也有例外。（应用 
程式也不应假设视讯显示器总是具有正方形图素。 ） Windows 第一次发表时，标 
准显示卡卡是 IBM Color Graphics Adapter ( CGA ) ，它有 640 200 的图素 大小; 
Enhanced Graphics Adapter ( EGA ) 有 640 350 的图素大小 ； Hercules Graphics 
Card 有 720 348 的图素大小。所有这些显示卡都使用 4 : 3 纵横比的显示器，但 
是水平和垂直图素数的比值都不是4:3。 

执行 Windows 的使用者很容易确定视讯显示器的图素大小。在「控制台」 
中执行「显示器」，并选择「设定」页面标签。在标有「桌面区域」的栏位中， 
可以看到这些图素尺寸 之一： 

• 640 X 480 图素 

• 800 X 600 图素 

• 1024 X 768 图素 

• 1280 X 1024 图素 

• 1600 X 1200 图素 

所有这些都是4:3。（除了 1280 1024图素大小。这不但有些不好，还有些 
令人反感。所有这些图素尺寸都认为在4:3的显示器上会产生正方形的图素。） 
Windows 应用程式可以使用 SM _ CXSCREEN 和 SM _ CYSCREEN 参数从 
GetSystemMetrics 得到图素尺寸。从 DEVCAPS 1 程式中您会注意到，程式可以用 
H 0 RZRES (水平解析度）和 VERTRES 参数从 GetDeviceCaps 中得到同样的值。这 
里「解析度」指的是图素大小而不是每度量单位的图素数。 

这些是设备大小的简单部分，现在开始复杂的部分。 

前两个设备能力， H 0 RZSIZE 和 VERTSIZE ， 文件中称为「以毫米计的实际萤 
幕的宽度」及「以毫米计的实际萤幕的高度」（在 /Platform SDK / Graphics 和 
Multimedia Services / GDI/Device Contexts/Device Context 

Reference/Device Context Functions/GetDeviceCaps 中） 0 这些看起来更像 
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直接的定义。例如，给出视讯显示卡和显示器的介面特性， Windows 如何真正知 
道显示器的大小呢？如果您有台膝上型电脑（它的视讯驱动程式能知道准确的 
萤幕大小）并且连接了外部显示器，又是哪种情况呢？如果把视讯投影机连接 
到电脑上呢？ 

在 Windows 的 16位元版本中（及在 Windows NT 中 ）， Windows 为 H 0 RZSIZE 
和 VERTSIZE 使用「标准」的显示大小。然而，从 Windows 95开始， H 0 RZSIZE 
和 VERTSIZE 值是从 HORZRES 、 VERTRES、LOGPIXELSX 和 LOGPIXELSY 值中衍生出 
来的。这是它的工作方式。 

当您在「控制台」中使用「显示器」程式选择显示的图素大小时，也可以 
选择系统字体的大小。这个选项的原因是用於640 480显示的字体在提升到 
1024 768或更大时字太小，而您可能想要更大的系统字体。这些系统字体大小 
指「显示器」程式的「设定」页面标签中的「小字体」和「大字体」。 

在传统的排版中，字体的字母大小由「点」表示。1点大约1/72英寸，在 
电脑排版中1点正好为 1/72 ^ Tq 

~ 理论上，字体的点值是从字体中最高的字元顶部到例如 j 、 P 、 q 和 y 等字 


母下部的字元底部的距离，其中不包括重音符号。 例如，在10点的字体中此距 
离是10/72英寸。根据 TEXTMETRIC 结构，字体的点值等於 tmHeight 栏位减去 
tmlnternalLeading 栏位，如图 5- 2所示（该图与上一章的图 4-3 —样）。 



图 5-2 小字体和 TEXTMETRIC 栏位。 


在真正的排版中，字体的点值与字体字母的实际大小并不正好相等。字体 
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的设计者做出的实际字元比点值指示的要大一些或小一些。毕竟，字体设计是 
一 种艺术而不是科学。 

TEXTMETRIC 结构的 tmHeight 栏位指出文字的连续行在萤幕或印表机上间隔 
的方式。这也可以用点来测量。例如，12点的行距指出文字连续行的基准线应 
该间隔12/72 ( 或 1/6) 英寸。不应该为10点字体使用10点行距，因为文字的 
连续行会碰到一起。 

10点字体读起来很舒服。小於10点的字体不益於长时间阅读。 

Windows 系统字体——不考虑是大字体还是小字体，也不考虑所选择的视频 
图素大小——固定假设为10点字体和12点行距。这听起来很奇怪，如果字体 
都是10点，为什么还把它们称为大字体和小字体呢？ 

解 答是： 当您在「控制台」的「显示」程式上选择小字体或大字体时，实 
际上是选择了一个假定的视讯显示解析度，单位是每英寸的点数。 当选择小字 
体时，即要 Windows 假定视讯显示解析度为每英寸96点。当选择大字体时，即 
要 Windows 假定视讯显示解析度为每英寸120点。 

再看看图5-2。那是小字体，它依据的显示解析度为每英寸96点。我说过 
它是 10点字体。10点即是 10/72 英寸，如果乘以96点，每英寸大概就为13图 
素。这即是 tmHeight 减去 tmlnternalLeading 的值。行距是12点，或 12/72 
英寸，它乘以96点，每英寸就为16图素。这即是 tmHeight 的值。 

~ 图 5-3 显示大字体。这是依据每英寸120点的解析度。同样，它是10点字 
体，10/72乘以120点，每英寸等於16图素，即是 tmHeight 减 tmlnternalLeading 
的值。12点行距等於20图素，即是 tmHeight 的值。（像第四章一样， 再次强 
调所显示的是实际的度量大小， 因此您可以理解它工作的方式。不要在您的程 
式中对此写作程式。） 


第120页 
















Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 







A 
■ ■ 




tmExternalLeading 


BBM ■■ / tmAscent 

■i r 



：r 



s ii 

圔 ■ 

■■ ■画國 


tmHeight 



=/一 Baseline 


tm Descent 



J 


图 5-3 大字体和 FONTMETRIC 栏位 


在 Windows 程式中，您可以使用 GetDeviceCaps 函式取得使用者在「控制 
台」的「显示器」程式中选择的以每英寸的点数为单位的假定解析度。要得到 
这些值（如果视讯显示器不具有正方形图素，在理论上这些值是不同的），可 
以使用索引 LOGPIXELSX 和 LOGPIXELSY 。 LOGPIXELS 指逻辑图素，它的基本意思 

是「以每英寸的图素数为单位的非实际解析度」。 

用 H 0 RZSIZE 和 VERTSIZE 索引从 GetDeviceCaps 得到的设备能力，在文件 

上称为「实际萤幕的宽度，单位毫米」及「实际萤幕的高度，单位毫米」。因 
为这些值是从 HORZRES 、 VERTRES 、 LOGPIXELSX 和 LOGPIXELSY 值中衍生出来的， 

所以它们应该称为「逻辑宽度」和「逻辑高度」。公 式是： 


水平大 ^'(mm) 


= 25 Ax 


水平解析度 ( 圖素） 

邏辑圖素 X( 每英寸的點軟 ) 


垂直大 ^'(mm) = 25.4 x 


垂直解析度 (: 圖素 ) 


邏辑圖素 7 ( 每英寸的點數 ) 


常数 25. 4用於把英寸转变为毫米。 

这看起来是种不合逻辑的退步。毕竟，视讯显示器是可以用尺以毫米为单 
位的大小（至少是近似的）衡量的。但是 Windows 98并不关心这个大小。相反， 
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它以使用者选择的显示图素大小和系统字体大小为基础计算以毫米为单位的显 
示大小。更改显示的图素大小并根据 GetDeviceCaps 更改度量大小。这有什么 
意义呢？ 

这非常有意义。假定有一个17英寸的显示器。实际的显示大小大约是12 
英寸乘9英寸。假定在最小要求的640 480图素大小下执行 Windows 。 这意味著 
实际的解析度是每英寸53点。10点字体（在纸上便於阅读）在萤幕上从 A 的顶 
部到 q 的底部只有7个图素。这样的字体很难看而且不易读。（可问问那些在 
旧的 Color Graphics Adapter 上执行 Windows 的人们。） 

现在，把您的电脑接上视讯投影机。投影的视讯显示器是4英尺宽，3英尺 
高。同样的640 480图素大小现在是大约每英寸13点的解析度。在这种条件下 
试图显示10点的字体是很可笑的。 

10点字体在视讯显示器上应是可读的，因为它在列印时是肯定可读的。所 
以10点字体就成为一个重要的参照。当 Windows 应用程式确保10点蛮幕字体 
为平均大小时，就能够使用8点字体显示较小的文字（仍可读），或用大於10 
点的字体显示较大的文字。因而，视频解析度（以每英寸的点数为单位）由10 
点字体的图素大小来确定是很有意义的。 

然而，在 Windows NT 中，用老的方法定义 H 0 RZSIZE 和 VERTSIZE 值。这种 
方法与 Windows 的16位元版本一致。 H 0 RZRES 和 VERTRES 值仍然表示水平和垂 
直图素的数值， L 0 GPIXELSX 和 L 0 GPIXELSY 仍然与在「控制台」的「显示器」程 
式中选择的字体有关。在 Windows 98中， L 0 GPIXELSX 和 L 0 GPIXELSY 的典型值 
是96和120 dpi ， 这取决於您选择的是小字体还是大字体。 

在 Windows NT 中的区别是 H 0 RZSIZE 和 VERTSIZE 值固定表示标准显示器大 
小。对於普通的显示卡，取得的 H 0 RZSIZE 和 VERTSIZE 值分别是320和240毫 
米。这些值是相同的，与选择的图素大小无关。因此，这些值与用 H 0 RZRES 、 
VERTRES 、 L 0 GPIXELSX 和 L 0 GPIXELSY 索引从 GetDeviceCaps 中得到的值不同。 
然而，可以用前面的公式计算在 Windows 98下的 H 0 RZSIZE 和 VERTSIZE 值。 

如果程式需要实际的视讯显示大小该怎么办？也许最好的解决方法是用对 
话方块让使用者输入它们。 

最後，来自 GetDeviceCaps 的另三个值与视讯大小有关。 ASPECTX、ASPECTY 
和 ASPECTXY 值是每一个图素的相对宽度、高度和对角线大小，四舍五入到整数。 
对於正方形图素， ASPECTX 和 ASPECTY 值相同。无论如何， ASPECTXY 值应等於 
ASPECTX 与 ASPECTY 平方和的平方根，就像直角三角形一样。 
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关於色彩 

如果视讯显示卡仅显示黑色图素和白色图素，则每个图素只需要记忆体中 
的一位元。彩色显示器中每个图素需要多个位元。位元数越多，色彩越多，或 
者更具体地说，可以同时显示的不同色彩的数目等於2的位元数次方。 

「 Full - Color 」 视讯显示器的解析度是每个图素24位元-8位元红色、8 

位元绿色以及8位元蓝色。红、绿、蓝即「色光三原色」。混合这三种基本颜 
色可以生成许多其他的颜色，您通过放大镜看显示幕，就可以看出来。 

「 High - Color 」 显示解析度是每个图素16位元-5位元红色、6位元绿 

色以及5位元蓝色。绿色多一位元是因为人眼对绿色更敏感一些。 

显示256种颜色的显示卡每个图素需要8位元。然而，这些8位元的值一 
般由定义实际颜色的调色盘组织的。我会在第十六章详细地讨论它们。 

最後，显示16种颜色的显示卡每个图素需要4位元。这16种颜色一般固 
定分为暗的或亮的红、黑、蓝、青、紫、黄、两种灰色。这16种颜色要回溯到 
老式的 IBM CGA 。 

只有在某些怪异的程式中才需要知道视讯显示卡上的记忆体是如何组织 
的，但是 GetDeviceCaps 使程式写作者可以知道显示卡的储存组织以及它能够 
表示的色彩数目，下面的呼叫传回色彩平面的数目： 

iPlanes = GetDeviceCaps (hdc, PLANES); 

下面的呼叫传回每个图素的色彩位 元数： 

iBitsPixel = GetDeviceCaps (hdc, BITSPIXEL); 

大多数彩色图形显示设备使用多个色彩平面或每图素有多个色彩位元的设 
计，但是不能同时一齐使用这两种 方式； 换句话说，这两个呼叫必有一个传回1。 
显示卡能够表示的色彩数可以用如下公式来计算： 

iColors = 1 << (iPlanes * iBitsPixel) ; 

这个值与用 NUM ⑶ L 0 RS 参数得到的色彩数值可能一样，也可能不 一样： 

iColors = GetDeviceCaps (hdc, NUMCOLORS); 

我提到过， 256 色的显示卡使用色彩调色盘。在那种情况下，以 NUMCOLORS 
为参数时， GetDeviceCaps 传回由 Windows 保留的色彩数，值为20，剩余的236 
种颜色可以由 Windows 程式用调色盘管理器设定。对於 High-Color 和 
True-Color 显示解析度，带有 NUMCOLORS 参数的 GetDeviceCaps 通常传回 - 1， 
这样就无法得到需要的资讯，因此应该使用前面所示的带有 PLANES 和 BITSPIXEL 
值的 iColors 公式。 

在大多数 GDI 函式呼叫中，使用⑶ L 0 RREF 值（只是一个32位元的无正负 
号长整数）来表示一种色彩。⑶ L 0 RREF 值按照红、绿和蓝色的亮度指定了一种 
颜色，通常叫做 「 RGB 色彩」。32位元的⑶ L 0 RREF 值的设定如图 5-4 所示。 


第123页 








Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 



0 Blue Green Red 


图 5-4 32 位 C0L0RREF 值 

注意最前面是标为0的8个位元，并且每种原色都指定为一个8位元的值。 
理论上，⑶ L 0 RREF 可以指定二的二十四次方种或一千六百万种色彩。 

这个无正负号长整数常常称为一个 「 RGB 色彩」。 Windows 表头档案 WINGDI . H 
提供了几种使用 RGB 色彩值的巨集。 RGB 巨集要求三个参数分别代表红、绿和蓝 
值，然後将它们组合为一个无正负号长 整数： 

#define RGB(r,g,b) ((COLORREF)(((BYTE)(r) | \ 

( (WORD)((BYTE)(g)) « 8)) | \ 

(((DWORD) (BYTE) (b) ) « 16))) 

注意三个参数的顺序是红、绿和蓝。因此 ，值： 

RGB (255 , 255, 0 ) 

是 OxOOOOFFFF ， 或黄色（红色和绿色的合成）。当所有三个参数设定为0 
时，色彩为 黑色； 当所有参数设定为255时，色彩为白色。 GetRValue、GetGValue 
和 GetBValue 巨集从 COLORREF 值中抽取出原色值。当您在使用传回 RGB 色彩值 
的 Windows 函式时，这些巨集有时会很方便。 

在16色或256色显示卡上， Windows 可以使用「混色」来类比设备能够显 
示的颜色之外的色彩。混色利用了由多种色彩的图素组成的图素图案。可以呼 
叫 GetNearestColor 来决定与某一色彩最接近的纯色： 

crPureColor = GetNearestColor (hdc, crColor); 


装置内容属性 

前面已经提到过， Windows 使用装置内容来保存控制 GDI 函式在显示器上如 
何操作的「属性」。例如，在用 TextOut 函式显示文字时，程式写作者不必指 
定文字的色彩和字体， Windows 从装置内容取得这个资讯。 

程式取得一个装置内容的代号时， Windows 用预设值设定所有的属性（在下 
一节会看到如何取代这种设定）。表 5-1 列出了 Windows 98支援的装置内容属 
性，程式可以改变或者取得任何一种属性。 


表 5-1 


装置内容属性 

预设值 

修改该值的函式 

取得该值的函式 

Mapping Mode 

MM—TEXT 

SetMapMode 

GetMapMode 

Window Origin 

(0 ， 0) 

SetWindowOrgEx 

OffsetWindowOrgEx 

GetWindowOrgEx 
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Viewport Origin 

(0 ， 0) 

SetViewportOrgEx 

OffsetViewportOrgEx 

GetViewportOrgEx 

Window Extents 

(1 ， 1) 

SetWindowExtEx 

SetMapMode 

ScaleWindowExtEx 

GetWindowExtEx 

Viewport 

Extents 

(1 ， 1) 

SetViewportExtEx 

SetMapMode 

SealeViewportExtEx 

GetViewportExtEx 

Pen 

BLACK—PEN 

SelectObject 

SelectObject 

Brush 

WHITE_BRUSH 

SelectObject 

SelectObject 

Font 

SYSTEM—FONT 

SelectObject 

SelectObject 

Bitmap 

None 

SelectObject 

SelectObject 

Current 

Position 

(0 ， 0) 

MoveToEx 

LineTo 

PolylineTo 

PolyBezierTo 

GetCurrentPositionEx 

Background Mode 

OPAQUE 

SetBkMode 

GetBkMode 

Background 

Color 

White 

SetBkColor 

GetBkColor 

Text Color 

Black 

SetTextColor 

GetTextColor 

Drawing Mode 

R2_C0PYPEN 

SetR0P2 

GetR0P2 

Stretching Mode 

BLACKONWHITE 

SetStretchBltMode 

GetStretchBltMode 

Polygon Fill 

Mode 

ALTERNATE 

SetPolyFillMode 

GetPolyFillMode 

Intercharacter 

Spacing 

■ 

SetTextCharacterExtra 

GetTextCharacterExtra 

Brush Origin 

(0 ， 0) 

SetBrushOrgEx 

GetBrushOrgEx 

Clipping Region 

None 

SelectObject 

SelectClipRgn 

IntersectClipRgn 

OffsetClipRgn 

Excluded ipRect 

SelectClipPath 

GetClipBox 
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保存装置内容 

通常，在您呼叫 GetDC 或 BeginPaint 时， Windows 用预设值建立一个新的 
装置内容，您对属性所做的一切改变在装置内容用 ReleaseDC 或 EndPaint 呼叫 
释放时，都会丢失。如果您的程式需要使用非内定的装置内容属性，则您必须 
在每次取得装置内容代号时初始化装置内容： 

case WM—PAINT : 

hdc = BeginPaint (hwnd, &ps); 

装置内容属性 
绘制视窗显示区域 
EndPaint (hwnd, &ps) ; 
return 0 ; 

虽然在通常情况下这种方法已经很令人满意了，但是您还可能 想要在释放 
装置内容之後，仍然保存程式中对装置内容属性所做的改变，以便在下一次呼 

叫 GetDC 和 BeginPaint 时它们仍然能够起作用。为此，可在登录视窗类别时， 

将 CS _0 WNDC 旗标纳入视窗类别的一 部分： 

wndclass . style = CS—HREDRAW | CS—VREDRAW | CS—OWNDC ; 

现在，依据这个视窗类别所建立的每个视窗都将拥有自己的装置内容，它 

一直存在，直到视窗被删除。 如果使用了 CS _0 WNDC 风格，就只需初始化装置内 
容一次，可以在处理 WM _ CREATE 讯息处理期间完成这一 操作： 

case WM_CREATE : 

hdc = GetDC (hwnd); 

初始化装置内容属性 

ReleaseDC (hwnd, hdc); 

这些属性在改变之前一直有效。 

CS _0 WNDC 风格只影响 GetDC 和 BeginPaint 获得的装置内容，不影响其他函 
式（如 GetWindowDC ) 获得的装置内容。 以前不提倡使用 CS _0 WNDC 风格，因为 
它需要记 忆体； 现在，在处理大量图形的 Windows NT 应用程式中，它可以提高 
性能。 即使用了 CS _0 WNDC ， 您仍然应该在退出视窗讯息处理程式之前释放装置 

内容。 

~~ "1 些情况下，您可能想改变某些装置内容属性，用改变後的属性进行绘图， 

然後恢复原来的装置内容。要简化这一过程，可以通过如下呼叫来保存装置 & 

容的状态 : 

idSaved = SaveDC (hdc) ; 

现在，可以改变一些属性，在想要回到呼叫 SaveDC 前存在的装置内容时， 

呼叫： 

RestoreDC (hdc, idSaved) ; 

您可以在呼叫 RestoreDC 之前呼叫 SaveDC 数次。 
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大多数程式写作者以不同的方式使用 SaveDC 和 RestoreDC 。 然而，更像组 
合语言中的 PUSH 和 POP 指令，当您呼叫 SaveDC 时，不需要保存传 回值： 

SaveDC (hdc) ; 

然後，您可以更改某些属性并再次呼叫 SaveDCo 要将装置内容恢复到一个 
已经保存的状态，呼叫： 

RestoreDC (hdc, -1) ; 

这就将装置内容恢复到最近由 SaveDC 函式保存的状态中。 

画点和线 

在第一章，我们谈论过 Windows 图形装置介面将图形输出设备的装置驱动 
程式与电脑连在一起的方式。在理论上，只要提供 SetPixel 和 GetPixel 函式， 
就可以使用图形装置驱动程式绘制一切东西了。其余的一切都可以使用 GDI 模 
组中实作的更高阶的常式来处理。例如，画线时，只需 GDI 呼叫 SetPixel 数次， 
并适当地调整 x 和 y 座标。 

在实际情况中，也的确可以仅使用 SetPixel 和 GetPixel 函式进行您需要 
的任何绘制。您也可以在这些函式的基础上设计出简洁和构造良好的图形编程 
系统。唯一的问题是启能。如果一个函式通过几次呼叫才能到达 SetPixel 函式， 
那么它执行起来会非常慢。如果一个图形系统画线和进行其他复杂的图形操作 
是在装置驱动程式的层次上，它就会更有效得多，因为装置驱动程式对完成这 
些操作的程式码进行了最佳化。此外，一些显示卡包含了图形辅助运算器，它 
允许视讯硬体自己绘制图形。 

设定图素 

即使 Windows GDI 包含了 SetPixel 和 GetPixel 函式，但很少使用它们。 
在本书，仅在第七章的 CONNECT 程式中使用了 SetPixel 函式，仅在第八章的 
WHATCLR 程式中使用了 GetPixel 函式。尽管如此，由它们开始来研究图形仍是 
非常方便。 

SetPixel 函式在指定的 x 和 y 座标以特定的颜色设定图素： 

SetPixel (hdc, x, y, crColor); 

如同在任何绘图函式中一样，第一个参数是装置内容的代号。第二个和第 
三个参数指明了座标位置。通常要获得视窗显示区域的装置内容，并且 x 和 y 
相对于该显示区域的左上角。最後一个参数是⑶ L 0 RREF 型态指定了颜色。如果 
在函式中指定的颜色视讯显示器不支援，则函式将图素设定为最接近的纯色并 
从函式传回该值。 

GetPixel 函式传回指定座标处的图素 颜色： 
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crColor = GetPixel (hdc, x, y); 

直线 

Windows 可以画直线、椭圆线（椭圆圆周上的曲线）和贝塞尔曲线 。 Windows 
98支援的7个画线函 式是： 

• LineTo 画直线。 

• Polyline 和 PolylineTo 画一系列相连的直线。 

• PolyPolyline 画多组相连的线。 

• Arc 画椭圆线。 

• PolyBezier 和 PolyBezierTo 画贝塞尔曲线。 

另外 ， Windows NT 还支援3种画线函式: 

• ArcTo 和 AngleArc 画椭圆线。 

• PolyDraw 画一系列相连的线以及贝塞尔曲线。 

这三个函式 Windows 98不支援。 

在本章的後面我将介绍一些既画线也填入所画图形的封闭区域的函式，这 
些函 式是： 

• Rectangle 画矩形。 

• Ellipse 画椭圆。 

• RoundRect 画带圆角的矩形。 

• Pie 画椭圆的一部分，使其看起来像一个扇形。 

• Chord 画椭圆的一部分，以呈弓形。 

装置内容的五个属性影响著用这些函式所画线的 外观： 目前画笔的位置（仅 
用於 LineTo 、 PolylineTo 、 PolyBezierTo 和 ArcTo ) 、画笔、背景方式、背景 

色和绘图模式。 

画一条直线，必须呼叫两个函式。第一个函式指定了线的开始点，第二个 
函式指定了线的终点： 

MoveToEx (hdc, xBeg, yBeg, NULL); 

LineTo (hdc, xEnd, yEnd); 

MoveToEx 实际上不会画线，它只是设定了装置内容的「目前位置」属性。 
然後 LineTo 函式从目前的位置到它所指定的点画一条直线。目前位置只是用於 
其他几个 GDI 函式的开始点。在内定的装置内容中，目前位置最初设定在点 
(0,0)。如果在呼叫 LineTo 之前没有设定目前位置，那么它将从显示区域的 
左上角开始画线。 


小历史: 
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Windows 的16位元版本中，用来改变目前位置的函式是 MoveTo 。 该函式只 
调整三个参数 一一 装置内容代号、 x 和 y 座标。函式通过两个16位元数拼成的 
32位元无正负号长整数传回先前的目前位置。然而，在 Windows 的32位元版本 
中，座标是32位元的数值，而 C 的32位元版本中又没有定义64位元的整数资 
料型态，因此这种改变意味著 MoveTo 在其传回值中不再指出先前的目前位置。 
在实际的程式写作中，由 MoveTo 传回的值几乎从来不用，因此就需要一个新函 
式，这就是 MoveToEx 。 

MoveToEx 的最後一个参数是指向 POINT 结构的指标。从该函式传回後 ， POINT 
结构的 x 和 y 栏位指出了先前的目前位置。如果您不需要这种资讯（通常如此）， 
可以简单地如上面的例子所示的那样将最後一个参数设定为 NULL 。 

警告： 

尽管 Windows 98 中的座标值看起来是 32 位元的，实际上却只用到了低 16 
位元，座标值实际上被限制在 -32, 768 到 32, 767 之间。在 Windows NT 中，使用 
完整的 32 位元值。 


如果您需要目前位置，就可以通过以下呼叫 获得: 
GetCurrentPositionEx ( hdc ，& pt ) : 

其中， pt 是 POINT 结构的。 


下面的程式码从视窗的左上角开始，在显示区域中画一个网格，线与线之 
间相隔100个图素，其中 hwnd 是视窗代号， hdc 是装置内容代号，而 x 和 y 是 
整数： 


GetClientRect 

(hwnd, &rect); 


for 

r 

(x = ◦; 

x < rect.right ; x+= 

100) 

i 

MoveToEx (hdc, x, ◦, NULL); 



LineTo 

(hdc, x, rect.bottom) 

• 

f 

I 

for 

r 

(y = ◦; 

y < rect. bottom ; y -+ 

-=100) 

I 

MoveToEx (hdc, 0 , y, NULL); 


} 

LineTo 

(hdc, rect.rights y) 

• 

f 


虽然用两个函式来画一条直线显得有些麻烦，但是在希望画一组相连的直 


线时，目前画笔位置属性又会变得很有用。例如，您可能想定义一个包含5个 
点 （10 个值）的阵列，来画一个矩形的边 界框： 

POINT apt [5] = { 100, 100, 200, 100 A 200, 200, 100, 200, 100 A 100 }; 
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注意，最後一个点与第一个点相同。现在，只需要使用 MoveToEx 移到第一 
个点，并对後面的点使用 LineTo : 

MoveToEx (hdc, apt[0] ,x r apt[0].y, NULL); 
for ( i = 1 ; i < 5 ; i++) 

LineTo (hdc, apt [i] .x, apt[i] .y); 

由於 LineTo 从目前位置画到（但不包括） LineTo 函式中给出的点，所以这 
段程式码没有在任何座标处画两次。虽然在显示器上多输出几次不存在问题， 
但是在绘图机上或者在其他绘图方式（下面马上会讲到）下，视觉效果就不太 
好了。 

当您要将阵列中的点连接成线时，使用 Polyline 函式要简单得多。下面这 
条叙述画出与上面一段程式码相同的 矩形： 

Polyline (hdc, apt, 5); 

最後一个参数是点的数目。我们还可以使用 (sizeof ( apt ) / sizeof 
( POINT )) 来表示这个值。 Polyline 与一个 MoveToEx 函式後面加几个 LineTo 函 
式的效果相同，但是， Polyline 既不使用也不改变目前位置。 PolylineTo 有些 
不同，这个函式使用目前位置作为开始点，并将目前位置设定为最後一根线的 
终点。下面的程式码画出与上面所示一样的矩形： 

MoveToEx (hdc, apt[ 0 ] .x, apt [0] .y, NULL); 

PolylineTo (hdc, apt + 1, 4); 

您可以对几条线使用 Polyline 和 PolylineTo , 这些函式在绘制复杂曲线最 
有用了。您使用由几百甚至几千条线组成的极短线段，把它们连在一起就像一 
条曲线一样。例如，画正弦波就是这样的，程式 5-2 所示的 SINEWAVE 程式显示 
了如何做到这一点。 


程式 5-2 SINEWAVE 


SINEWAVE.C 

/* - 

SINEWAVE.C -- Sine Wave Using Polyline 
(c) Charles Petzold, 1998 


♦include <windows.h> 
♦include <math.h> 



♦ define NUM 100 0 

♦define TWOPI (2 * 3.14159) 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain ( HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("SineWave"); 

HWND hwnd ; 
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MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc= WndProc ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass•hlnstance = hlnstance ; 

wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor = LoadCursor (NULL, 工 DC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = NULL ; 

wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("Program requires Windows NT!’▼), 

szAppName, MB_ICONERROR); 
return 0 ; 

} 

hwnd = CreateWindow ( szAppName, TEXT ("Sine Wave Using Polyline"), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT A 
CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

static int cxClient, cyClient ; 

HDC hdc ; 

int i ; 

PAINTSTRUCT ps ; 

POINT apt [NUM]; 

switch (message) 

{ 

case WM—SIZE: 
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cxClient = LOWORD (IParam) ; 
cyClient = HIWORD (IParam); 
return 0 ; 


case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 


MoveToEx (hdc, 0, cyClient / 2, NULL); 

LineTo (hdc, cxClient, cyClient / 2); 



for (i = ◦ ; i < NUM ; i++) 

apt [i] .x = i * cxClient / NUM ; 
apt [i] . y = (int) (cyClient / 2 * 


Polyline (hdc, apt, NUM); 
return 0 ; 


(1 - sin 


(TWOPI 


i / NUM))); 


case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 


这个程式有一个含有 1000 个 POINT 结构的阵列。随著 for 回圈从0增加到 
999，结构的 x 成员设定为从0递增到数值 cxClient 。 结构的 y 成员设定为一个 
周期的正弦曲线值，并被放大以填满显示区域。整个曲线的绘制仅仅使用了一 
个 Polyline 呼叫。因为 Polyline 函式是在装置驱动程式层次上实作的，因此 
它要比呼叫1000次 LineTo 快得多，结果如图 5-5 所示。 
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图 5-5 SINEWAVE 显示 


边界框函式 


下面我想讨论的是 Arc 函式，它绘制椭圆曲线。然而，如果不先讨论一下 
Ellipse 函式，那么 Arc 函式将难以理解；而如果不先讨论 Rectangle 函式，那 
么 Ellipse 函式又将难以理解；而如果讨论 Ellipse 和 Rectangle 函式，那么 
我又会讨论 RoundRect 、 Chord 和 Pie 函式。 

问题在於， Rectangle 、 Ellipse 、 RoundRect、Chord 和 Pie 函式严格来说 
不是画线函式。没错，这些函式是在画线，但它们同时又填入画刷填入一个封 
闭区域。这个画刷内定为白色，因此当您第一次使用这些函式时，您可能不会 
注意到它们不只是画线。严格地说，这些函式属於後面「填入区域」的小节， 
不过，我还是在这里讨论它们。 

上面提到的函式有一个共同特性，即它们都是依据一个矩形边界框来绘图 
的。您定义一个包含该物件的框，即「边界框 (bounding box ) 」； Windows 就在 
这个框内画出该物件。 

这些函式中最简单的就是画一个 矩形： 

Rectangle (hdc, xLeft, yTop, xRight, yBottom); 

点 ( xLeft , yTop ) 是矩形的左上角， ( xRight , yBottom ) 是矩形的右下角。 
用函式 Rectangle 画出的图形如图 5-6 所示，矩形的边总是平行于显示器的水 
平和垂直边。 
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xLeft xRight 

- —yTop 


- —— yBottom 

图 5-6 使用 Rectangle 函式画出的图形 

以前写过图形程式的程式写作者熟悉图素偏差的问题。有些图形系统画出 
的图形包含右座标和底座标，而有些则只画到（而不包含）右座标和底座标。 
Windows 采用後一种方法，不过有一种更简单的方法来思考这个问题。 

考虑下面的函式 呼叫： 

Rectangle (hdc, 1, 1, 5, 4 ) ; 

上面我们提到， Windows 在边界框内画图。可以将显示器想像成一个网格， 
其中，每个图素都在一个网格单元内。边界框画在网格上，然後在边界框内画 
矩形，下面说明了图形画出来时的 样子： 


0 1 2 3 4 5 6 



将矩形和显示区域左上角分开的区域有 1 个图素宽。 

我以前提到过， Rectangle 严格地说不是画线函式， GDI 也填入封闭区域。 
然而，因为内定用白色填入区域，因此 GDI 填入区域并不明显。 

您知道了如何画矩形，也就知道了如何画椭圆，因为它们使用的参数都是 
相同的： 

Ellipse (hdc, xLeft, yTop, xRight, yBottom); 

用 Ellipse 函式画出的图形如图 5-7 所示（加上了虚线构成的边界框）。 
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xLeft 


xRight 



yTop 


—— yBottom 


图 5-7 用 Ellipse 函式画出的图形 

画圆角矩形的函式使用与函式 Rectangle 及 Ellipse 函式相同的边界框， 
还包含另外两个参数： 

RoundRect ( hdc, xLeft, yTop, xRight, yBottom, 

xCornerEllipse, yCornerEllipse); 

用这个函式画出的图形如 5-8 所示。 

xLeft xRight 


yTop 






yBottom 


Ss 


I^H 


yCornerEllipse 


xCornerEllipse 


图 5_8 用 RoundRect 函式画出的图形 

Windows 使用一个小椭圆来画圆角，这个椭圆的宽为 xCornerEllipse ， 高 
为 yCornerEllipse 。 可以想像这个小椭圆分为了四个部分，一个象限一个，每 
个刚好用在矩形的一个角上。 xCornerEllipse 和 yCornerEllipse 的值越大， 
角就越明显。如果 xCornerEl 1 ipse 等於 xLeft 与 xRight 的差，且 yCornerEl 1 ipse 
等於 yTop 与 yBottom 的差，那么 RoundRect 函式将画出一个椭圆。 

在绘制图 5-8 所示的圆角矩形时，用了下面的公式来计算角上椭圆的尺寸。 

xCornerEllipse = (xRight - xLeft) / 4 ; 
yCornerEllipse = (yBottom- yTop) / 4 ; 

这是一种简单的方法，但是结果看起来有点不对劲，因为角的弯曲部分在 
矩形长的一边要大些。要矫正这一问题，您可以让 xCornerEllipse 与 


yCornerEllipse 的值相等。 

Arc 、 Chord 和 Pie 函式都只要相同的参数: 


Arc 

(hdc, 

xLeft, 

yTop, 

xRight, 

yBottom, 

xStart, 

yStart, 

xEnd, 

yEnd); 

Chord 

(hdc. 

xLeft, 

yTop, 

xRight, 

yBottom, 

xStart, 

yStart, 

xEnd, 

yEnd); 

Pie 

(hdc. 

xLeft, 

yTop, 

xRight, 

yBottom, 

xStart, 

yStart, 

xEnd, 

yEnd); 
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用 Arc 函式画出的线如图 5-9 所示；用 Chord 和 Pie 函式画出的线分别如 
图 5-10 和 5-11 所示。 Windows 用一条假想的线将 ( xStart ， yStart ) 与椭圆的中 
心连接，从该线与边界框的交点开始， Windows 按反时针方向，沿著椭圆画一 
条弧。 Windows 还用另一条假想的线将 ( xEnd ， yEnd ) 与椭圆的中心连接，在该线 
与边界框的交点处， Windows 停止画弧。 


xStart 



图 5-9 Arc 函式画出的线 


xStart 



xStart 

xLeft I xRight 

I yStart _. I 



图 5-11 Pie 函式画出的线 


yTop 


yBottom 


对於 Arc 函式，这样就结束了。因为弧只是一条椭圆形的线而已，而不是 
一 个填入区域。对於 Chord 函式， Windows 连接弧线的端点。而对於 Pie 函式， 
Windows 将弧的两个端点与椭圆的中心相连接。弦与扇形图的内部以目前画刷填 
入。 


您可能不太明白在 Arc 、 Chord 和 Pie 函式中开始和结束位置的用法，为什 
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么不简单地在椭圆的周线上指定开始和结束点呢？是的，您可以这么做，但是 
您将不得不算出这些点。 Windows 的方法在不要求这种精确性的条件下，却完成 
了相同的工作。 

程式 5-3 LINEDEM 0 画一个矩形、一个椭圆、一个圆角矩形和两条线段，不 
过不是按这一顺序。程式表明了定义封闭区域的函式实际上对这些区域进行了 
填入，因为在椭圆後面的线被遮住了，结果如图 5-12 中所示。 


程式 5-3 LINEDEM0 


LINEDEMO.C 

/* - 

LINEDEMO.C —— Line-Drawing Demonstration Program 

(c) Charles Petzold, 1998 



♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("LineDemo"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc= WndProc ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass•hlnstance = hlnstance ; 

wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor = LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = NULL ; 

wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("Program requires Windows NT! n ), 
szAppName, MB_ICONERROR); 
return 0 ; 

} 

hwnd = CreateWindow ( szAppName, TEXT ("Line Demonstration"), 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW—USEDEFAULT, 

CW USEDEFAULT, CW USEDEFAULT, 
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NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

static int cxClient, cyClient ; 

HDC hdc ; 

PAINTSTRUCT ps ; 

switch (message) 

{ 

case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

Rectangle (hdc, cxClient / 8, cyClient / 8, 

7 * cxClient / 8, 7 * cyClient / 8); 

MoveToEx (hdc, ◦, ◦, NULL); 

LineTo (hdc, cxClient, cyClient); 

MoveToEx (hdc, 0, cyClient, NULL); 

LineTo (hdc, cxClient, 0); 

Ellipse (hdc, cxClient / 8, cyClient / 8, 

7 * cxClient / 8, 7 * cyClient / 8); 

RoundRect (hdc, cxClient / 4, cyClient / 4, 

3 * cxClient / 4, 3 * cyClient / 4, 

cxClient / 4, cyClient / 4); 

EndPaint (hwnd, &ps); 
return 0 ; 
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case WM—DESTROY: 

PostQuitMessage ( 0 ) ; 
return 0 ; 


return DefWindowProc (hwnd, message, wParam, IParam); 



图 5-12 LINEDEMO 显示 


贝塞尔曲线 


「曲尺」这个词从前指的是一片木头、橡皮或者金属，用来在纸上画曲线。 
比如说，如果您有一些不同图点，您想要在它们之间画一条曲线（内插或者外 
插），您首先将这些点描在绘图纸上，然後，将曲尺定在这些点上，并用铅笔 
沿著曲尺绕著这些点弯曲的方向画曲线。 

当然，时至今日，曲尺已经数学公式化了。有很多种不同的曲尺公式，它 
们各有千秋。贝塞尔曲线是电脑程式设计中用得最广的曲尺公式之一，它是直 
到最近才加到作业系统层次的图形支援中的。在六十年代 Renault 汽车公司进 
行了由手工设计车体（要用到粘土）到电脑辅助设计的转变。他们需要一些数 
学工具，而 Pierm Bezier 找到了一套公式，最後显示出这套公式应付这样的工 
作非常有用。 

此後，二维的贝塞尔曲线成了电脑图学中最有用的曲线（在直线和椭圆之 
後）。在 PostScript 中，所有曲线都用贝塞尔曲线表示 一一 椭圆线用贝塞尔曲 
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线来逼近。贝塞尔曲线也用於定义 PostScript 字体的字元轮廓 （ TrueType 使用 
一种更简单更快速的曲尺公式）。 

一 条二维的贝塞尔曲线由四个点定义 一一 两个端点和两个控制点。曲线的 
端点在两个端点上，控制点就好像「磁石」一样把曲线从两个端点间的直线处 
拉走。这一点可以由底下的 BEZIER 互动交谈程式做出最好的展示，如程式5-4 
所示。 


程式 5-4 BEZIER 


BEZIER.C 

/* - 

BEZIER.C -- Bezier Splines Demo 

(c) Charles Petzold, 1998 



♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain ( HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("Bezier"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc= WndProc ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass•hlnstance = hlnstance ; 

wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor = LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = NULL ; 

wndclass.IpszClassName = szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("Program requires Windows NT! n ), 

szAppName, MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow ( szAppName, TEXT ("Bezier Splines"), 

WS_OVERLAPPEDWINDOW, 
CW_USEDEFAULT, CW—USEDEFAULT, 

CW USEDEFAULT, CW USEDEFAULT, 
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NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

void DrawBezier (HDC hdc, POINT apt[]) 

{ 

PolyBezier (hdc, apt, 4); 

MoveToEx (hdc, apt[0].x, apt[0].y, NULL); 

LineTo (hdc, apt [ 1] .x, apt [ 1] . y); 

MoveToEx (hdc, apt[2].x A apt[2].y, NULL); 

LineTo (hdc, apt [3] .x A apt[3] .y); 

} 

LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

static POINT apt [4]; 

HDC hdc ; 

int cxClient, cyClient ; 

PAINTSTRUCT ps ; 

switch (message) 

{ 

case WM_SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 

apt [0] .x = cxClient / 4 ; 

apt [0] .y = cyClient / 2 ; 

apt [ 1] .x = cxClient / 2 ; 

apt [ 1] .y = cyClient / 4 ; 

apt [2] .x = cxClient / 2 ; 

apt [2] .y = 3 * cyClient / 4 ; 

apt [3] .x = 3 * cxClient / 4 ; 

apt [3] .y = cyClient / 2 ; 


return 0 ; 


第 141 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


case WM—LBUTTONDOWN : 
case WM—RBUTTONDOWN: 
case WM—MOUSEMOVE: 

if (wParam & MK_LBUTTON || wParam & MK—RBUTTON) 

{ 

hdc = GetDC (hwnd); 

SelectObj ect (hdc, GetStockObj ect (WHITE—PEN)); 

DrawBezier (hdc, apt); 

if (wParam & MK_LBUTTON) 

{ 

apt [ 1] .x = LOWORD (IParam); 
apt [ 1] .y = HIWORD (IParam); 

} 

if (wParam & MK_RBUTTON) 

{ 

apt [2] .x = LOWORD (IParam); 
apt [2] .y = HIWORD (IParam); 

} 

SelectObj ect (hdc, GetStockObj ect (BLACK—PEN)); 

DrawBezier (hdc, apt); 

ReleaseDC (hwnd, hdc); 

} 

return 0 ; 
case WM—PAINT: 

InvalidateRect (hwnd, NULL, TRUE); 

hdc = BeginPaint (hwnd, &ps); 

DrawBezier (hdc, apt); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

由於这个程式要用到一些在第七章才讲的滑鼠处理方式，所以我不在这里 
讨论它的内部运作（不过，这也是简单的），而是用这个程式来实验性地操纵 
贝塞尔曲线。在这个程式中，两个顶点设定在显示区域的上下居中、左右位於 
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1/4和3/4处的位置；两个控制点可以改变，按住滑鼠左键或右键并拖动滑鼠可 
以分别改动两个控制点之一。图 5-13 是一个典型的例子。 

除了贝塞尔曲线本身，程式还从第一个控制点向左边的第一个端点（也叫 
做开始点）画一条直线，并从第二个控制点向右边的端点画一条直线。 

由於下面几个特点，贝塞尔曲线在电脑辅助设计中非常有用。首先，经过 
少量练习，就可以把曲线调整到与想要的形状非常接近。 



图 5-13 BEZIER 程式的显示 


其次，贝塞尔曲线非常好控制。对於有的曲尺种类来说，曲线不经过任何 
一 个定义该曲线的点。贝塞尔曲线总是由其两个端点开始和结束的（这是在推 
导贝塞尔公式时所做的假设之一）。另外，有些形式的曲尺公式有奇异点，在 
这些点处曲线趋向无穷远，这在电脑辅助设计中通常是很不合适的。事实上， 
贝塞尔曲线总是受限於一个四边形（叫做「凸包」），这个四边形由端点和控 
制点连接而成。 

第三个特点涉及端点和控制点之间的关系。曲线总是与第一个控制点到起 
点的直线相切，并保持同一 方向； 同时，也与第二个控制点到终点的直线相切， 
并保持同一方向。这是用於推导贝塞尔公式时所做的另外两个假设。 

第四，贝塞尔曲线通常比较具有美感。我知道这是一个主观评价的问题， 
不过，并非只有我才这样想。 

在32位元的 Windows 版本之前，您必须利用 Polyline 来自己建立贝塞尔 
曲线，并且还需要知道下面的贝塞尔曲线的参数方程。起点是 （ xO ， yO )， 终点 
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是 （ x 3， y 3)， 两个控制点是 ( xl ， yl ) 和 ( x 2， y 2)， 随著 t 的值从0到1的变化， 
就可以画出曲线. • 


X(t) = (1 

— t) 3 

xO 

+ 31 

(1 

- t)2 

xl 

+ 3t2 

(1 

- t) 

x2 

+ t3 

x3 

y(t) = (1 

- t) 3 

yo 

+ 31 

(1 

- t)2 

yi 

+ 3t2 

(1 

- t) 

y2 

+ t3 

Y3 


在 Windows 98中，您不需要知道这些公式。要画一条或多条连接的贝塞尔 
曲线，只需呼叫： 


PolyBezier (hdc, apt, iCount); 

或 

PolyBezierTo (hdc, apt, iCount); 

两种情况下， apt 都是 POINT 结构的阵列。 PolyBezier , 前四个点（按 
照顺序）给出贝塞尔曲线的起点、第一个控制点、第二个控制点和终点。此後 
的每一条贝塞尔曲线只需给出三个点，因为後一条贝塞尔曲线的起点就是前一 
条贝塞尔曲线的终点，如此类推。 iCount 参数等於1加上您所绘制的这些首尾 
相接曲线条数的三倍。 

PolyBezierTo 函式使用目前点作为第一个起点，第一条以及後续的贝塞尔 
曲线都只需要给出三个点。当函式传回时，目前点设定为最後一个终点。 

一点 提示： 在画一系列相连的贝塞尔曲线时，只有当第一条贝塞尔曲线的 
第二个控制点、第一条贝塞尔曲线的终点（也就是第二条曲线的起点）和第二 
条贝塞尔曲线的第一个控制点线性相关时，也就是说这三个点在同一条直线上 
时，曲线在连接点处才是光滑的。 


使用现有画笔 （Stock Pens ) 


当您呼叫这一节中讨论的任何画线函式时， Windows 使用装置内容中目前选 
中的「画笔」来画线。画笔决定线的色彩、宽度和画笔样式，画笔样式可以是 
实线、点划线或者虚线，内定装置内容中画笔为 BLACK _ PEN 。 不管映射方式是什 
么，这种画笔都画出一个图素宽的黑色实线来。 BLACK _ PEN 是 Windows 提供的三 
种现有画笔之一，其他两种是 WHITE _ PEN 和 NULL _ PEN ， NULL _ PEN 什么都不画。 
您也可以自己自订画笔。 

Windows 程式以代号来使用画笔。 Windows 表头档案 WINDEF . H 中包含一个 
叫做 HPEN 的型态定义，即画笔的代号，可以定义这个型态的变数（例如 hPen ) : 
HPEN hPen : 

呼叫 GetStockOb . iect ， 可以获得现有画笔的代号。 例如，假设您想使用名 
为 WHITE _ PEN 的现有画笔，可以如下取得画笔的 代号： 

hPen = GetStockObject (WHITE_PEN); 

现在必须将画笔选进装置 

SelectObj ect (hdc, hPen); 
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目前的画笔是白色。在这个呼叫後，您画的线将使用 WHITE _ PEN ， 直到您将 
另外一个画笔选进装置内容或者释放装置内容代号为止。 

您也可以不定义 hPen 变数，而将 GetStockObject 和 SelectObject 呼叫合 

并成一个 叙述： 

SelectObject (hdc, GetStockObj ect (WHITE—PEN)); 

如果想恢复到使用 BLACK _ PEN 的状态，可以用一个叙述取得这种画笔的代 
号，并将其选进装置 内容： 

SelectObject (hdc, GetStockObj ect (BLACK—PEN)); 

SelectObject 的传回值是此呼叫前装置内容中的画笔代号。如果启动一个 
新的装置内容并呼叫 

hPen = SelectObject (hdc, GetStockobj ect (WHITE_PEN)); 

则装置内容中的目前画笔将为 WHITE _ PEN , 变数 hPen 将会是 BLACK _ PEN 的 
代号。以後通过呼叫 

SelectObject (hdc, hPen) ; 

就能够将 BLACK _ PEN 选进装置内容。 

画笔的建立、选择和删除 

尽管使用现有画笔非常方便，但却受限於实心的黑画笔、实心的白画笔或 
者没有画笔这三种情况。如果想得到更丰富多彩的效果，就必须建立自己的画 
笔。 

这一过程通常是: 使用函式 CreatePen 或 CreatePenlndirect 建立一个「逻 
辑画笔」，这仅仅是对画笔的描述。这些函式传回逻辑画笔的 代号； 然後，呼 
叫 SelectObject 将画笔选进装置内容。现在，就可以使用新的画笔来画线 f"T 

在任何时候，都只能有一种画笔选进装置内容。在释放装置内容（或者在选 § 

了另一种画笔到装置内容中）之後，就可以呼叫 DeleteObject 来删除所建 
逻辑画笔了。在删除後，该画笔的代号就不再有效了 。 

~ 逻辑画笔是一种 「 GDI 物件」，它是您可以建立六种 GDI 物件之一，其他 

五种是画刷、点阵图、区域、字体和调色盘。除了调色盘之外，这些物 件者^ 

通过 SelectObject 选进装置内 容的。 

在使用画笔等 GDI 物件时，应该遵守以下三条 规则： 

• 桌後要 删除目 岂建立 的加有 GDI 物仵。 

• 当 GDI 物件正在一个有效的装置内容中使用时，不要删 除它。 

• 不要删除现有物件。 

这些规则当然是有道理的，而且有时这道理还挺微妙的。下面我们将举些 
例子来帮助理解这些规则。 
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CreatePen 函式的语法形如： 

hPen = CreatePen (iPenStyle, iWidth, crColor); 

其中， iPenStyle 参数确定画笔是实线、点线还是虚线，该参数可以是 
WINGDI . H 表头档案中定义的以下识别字，图 5-14 显示了每种画笔产生的画笔样 
式。 

PS—SOLID - 

PS_DASH - 

PS—DOT . 

PS.DASHDOT - 

PS.DASHDOTDOT - 

PS—NULL 

PSJNSIDEFRAME - 

图 5-14 七种画笔样式 

对於 PS _ S 0 LID 、 PS_NULL 和 PS_INSIDEFRAME 画笔样式 ， iWidth 参数是画笔 
的宽度。 iWidth 值为0则意味著画笔宽度为一个图素。现有画笔是一个图素宽。 
如果指定的是点划线或者虚线式画笔样式，同时又指定一个大於1的实际宽度 ， 

那么 Windows 将使用实线画笔来代替。 

CreatePen 的 crColor 参数是一个 C 0 L 0 RREF 值，它指定画笔的颜色。对於 
除了 PS _ INSIDEFRAME 之外的画笔样式，如果将画笔选入装置内容中 ， Windows 
会将颜色转换为设备所能表示的最相近的纯色。 PS _ INSIDEFRAME 是唯 一一 种可 
以使用混色的画笔样式，并且只有在宽度大於1的情况下才如此。 

在与定义一个填入区域的函式一起使用时， PS _ INSIDEFRAME 画笔样式还有 
另外一个奇特 之处： 对於除了 PS _ INSIDEFRAME 以外的所有画笔样式来说，如果 
用来画边界框的画笔宽度大於1个图素，那么画笔将居中对齐在边界框线上， 
这样边界框线的一部分将位於边界框 之外； 而对於 PS _ INSIDEFRAME 画笔样式来 
说，整条边界框线都画在边界框之内。 

您也可以通过建立一个型态为 L 0 GPEN ( 「逻辑画笔」）的结构，并呼叫 

CreatePenlndirect 来建立画笔。如 果您的程式使用许多能在原始码中初始化的 

画笔，那么使用这种方法将有效得多。 

要使用 CreatePenlndirect , 首先定义一个 L 0 GPEN 型态的结构： 

LOGPEN logpen ; 

此结构有三个 成员 ： lopnStyle (无正负号整数或 UINT ) 是画笔样式， 
lopnWidth ( POINT 结构）是按逻辑单位度量的画笔宽度 ， lopnColor ( C 0 L 0 RREF ) 
是画笔颜色。 Windows 只使用 lopnWidth 结构的 x 值作为画笔宽度，而忽略 y 值 。 
将结构的位址传递给 CreatePenlndirect 结构就可以建立画笔了： 

hPen = CreatePenlndirect (&logpen) ; 
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注意， CreatePen 和 CreatePenlndirect 函式不需要装置内容代号作为参数。 
这些函式建立与装置内容没有联系的逻辑画笔。直到呼叫 SelectObject 之後， 
画笔才与装置内容发生联系。因此，可以对不同的设备（如萤幕和印表机）使 
用相同的逻辑画笔。 

下面是建立、选择和删除画笔的一种方法。假设您的程式使用三种画笔一 
一一种宽度为1的黑画笔、一种宽度为3的红画笔和一种黑色点式画笔，您可 
以先定义三个变数来存放这些画笔的 代号： 

static HPEN hPenl, hPen2 , hPen3 ; 

在处理 WM_CREATE 期间，您可以建立这三种 画笔： 

hPenl = CreatePen (PS_SOLID, 1, 0); 

hPen2 = CreatePen (PS_S0LID, 3, RGB (255, ◦, 0)); 

hPen3 = CreatePen (PS—DOT, ◦, 0); 

在处理 WM_PAINT 期间，或者是在拥有一个装置内容有效代号的任何时间里， 
您都可以将这三个画笔之一选进装置内容并用它来 画线： 

SelectObject (hdc, hPen2); 

画线函式 

SelectObject (hdc, hPenl); 

其他画线函式 

在处理 WM _ DESTR 0 Y 期间，您可以删除您建立的三种 画笔： 

DeleteObj ect (hPenl); 

DeleteObj ect (hPen2); 

DeleteObj ect (hPen3); 

这是建立、选择和删除画笔最直接的方法。但是您的程式必须知道执行期 
间需要哪些逻辑画笔，为此，您可能想要在每个 WM_PAINT 讯息处理期间建立画 
笔，并在呼叫 EndPaint 之後删除它们（您可以在呼叫 EndPaint 之前删除它们， 
但是要小心， 不要删除装置内容中目前选择的画笔 ) o 

您可能还希望随时建立画笔，并将 CreatePen 和 SelectObject 呼叫组合到 
同一个叙述中： 

SelectObject (hdc, CreatePen (PS—DASH, 0 , RGB (255, 0 , 0))); 

现在再开始画线，您将使用一个红色虚线画笔。在画完红色虚线之後，可 
以删除画笔。糟了！由 於没有保存画笔代号 ，怎么才能删除这些画笔呢？不要 
紧，请记住， SelectObject 将传回装置内容中上一次选择的画笔代号。所以， 
您 可以通过呼叫 SelectObject 将 BLACK_PEN 选进装置内容，并删除从 

SelectObject 传回的值： 

DeleteObj ect (SelectObject (hdc, GetStockObj ect (BLACK—PEN))); 

""" 下面是 另一种方法，在将新建立的画笔选进装置内容时，保存 SelectObject 
传回的画笔代号： 

hPen = SelectObject (hdc, CreatePen (PS DASH, 0 , RGB (255, 0 , ◦))); 
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现在 hPen 是什么呢？如果这是在取得装置内容之後第一次呼叫 
SelectObject ， 则 hPen 是 BLACK _ PEN 物件的代号。现在，可以 将 hPen 选进装 
置内容，并删除所建立的画笔（第二次 SelectObject 呼叫传回的代号） ，只要 
一 道叙述 即可: 

DeleteObject (SelectObj ect (hdc, hPen)); 

如果有一个画笔的代号，就可以通过呼叫 GetObject 取得 L 0 GPEN 结构各个 

成员的倌： 

GetObject (hPen, sizeof (LOGPEN), (LPVOID) &logpen); 

如果需要目前选进装置内容的画笔代号，可以呼叫： 

hPen = GetCurrentObj ect (hdc, OBJ—PEN); 

在第十七章将讨论另一个建立画笔的函式 ExtCreatePen 。 

填人空隙 

使用点式画笔和虚线画笔会产生一个有趣的 问题： 点和虚线之间的空隙会 
怎样呢？您所需要的是什么？ 

空隙的著色取决於装置内容的两个属性 一一 背景模式和背景颜色。内定背 

景模式为 OPAQUE ,在这种方式下， Windows 使用背景色来填入空隙，内定的背 

景色为白色。 这与许多程式在视窗类别中用 WHITE _ BRUSH 来擦除视窗背景的做 
法是一致的。 

您、可以通过如下呼口来改变 Windows 用来填入空隙的背景色： 

SetBkColor (hdc, crColor) ; 

与画笔色彩所使用的 crColor 参数一样， Windows 将这里的背景色转换为纯 
色。 可以通过用 GetBkColor 来取得装置内容中定义的目前背景色 。 

通过将背景模式转换为 TRANSPARENT ， 可以阻止 Windows 填入空隙： 

SetBkMode (hdc, TRANSPARENT) ; 

此後， Windows 将忽略背景色，并且不填入空隙， 可以通过呼叫 GetBkMode 
来取得目前背景模式 ( TRANSPARENT 或者 OPAQUE ) 。 

绘图方式 

装置内容中定义的绘图方式也影响显示器上所画线的外观。设想画这样一 
条直线，它的色彩由画笔色彩和画线区域原来的色彩共同决定。设想用同一种 
画笔在白色表面上画出黑线而在黑色表面上画出白线，而且不用知道表面是什 
么色彩。这样的功能对您有用吗？通过绘图方式的设定，这些都可以实作。 

当 Windows 使用画笔来画线时，它实际上执行画笔图素与目标位置处原来 
图素之间的某种位元布林运算。图素间的位元布林运算叫做「位元映射运算」， 
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简称为 「 R 0 P 」 。由於画一条直线只涉及两种图素（画笔和目标），因此这种布 
林运算又称为「二元位元映射运算」，简记为 「 R 0 P 2」 。 Windows 定义了 16# 

R 0 P 2 代码，表示 Windows 组合画笔图素和目标图素的方式。在内定装置内容中， 

绘图方式定义为 R 2_ C 0 PYPEN ， 这意味著 Windows 只是将画笔图素复制到目标图 
素，这也是我们通常所熟知的。此外，还有15种 R 0 P 2 码。 

16种不同的 R 0 P 2 码是怎样得来的呢？为了示范的需要，我们假设使用单色 
系统，目标色（视窗显示区域的色彩）为黑色（用0来表示）或者白色（用1 
来表示），画笔也可以为黑色或者白色。用黑色或者白色画笔在黑色或者白色 
目标上画图有四种 组合： 白笔与白目标、白笔与黑目标、黑笔与白目标、黑笔 
与黑目标。 

画笔在目标上绘制後会得到什么呢？ 一 种可能是不管画笔和目标的色彩， 
画出的线总是黑色的，这种绘图方式由 R 0 P 2 代码 R 2_ BLACK 表示。另一种可能 
是只有当画笔与目标都为黑色时，画出的结果才是白色，其他情况下画出的都 
是黑色。尽管这似乎有些奇怪， Windows 还是为这种方式起了一个名字，叫做 
R 2_ N 0 TMERGEPEN o Windows 执行目标图素与画笔图素的位元「或」运算，然後翻 
转所得色彩。 

表 5-2 显示了所有16种 R 0 P 2 绘图方式，表中指示了画笔色彩 ( P ) 与目标色 
彩 ( D ) 是如何组合而成结果色彩的。在标有「布林操作」的那一栏中，用 C 语言 


的表示法给出了目标图素与画笔图素的组合方式。 

表 5-2 


画笔 （ P ): 目标⑼: 

11 

10 

0 1 

0 0 

布林操作 

绘图模式 

结果： 

0 

0 

0 

0 

0 

R2—BLACK 


0 

0 

0 

1 

〜 (P 

D) 

R2 N0TMERGEPEN 


0 

0 

1 

0 

~P & D 

R2 MASKN0TPEN 


0 

0 

1 

1 

〜 P 

R2 N0TC0PYPEN 


0 

1 

0 

0 

P & ~D 

R2 MASKPENN0T 


0 

1 

0 

1 

〜 D 

R2—NOT 


0 

1 

1 

0 

P ^ D 

R2 X0RPEN 


0 

1 

1 

1 

〜 (P & D) 

R2 N0TMASKPEN 


1 

0 

0 

0 

P & D 

R2 MASKPEN 


1 

0 

0 

1 

〜 (P 〃 D) 

R2 N0TX0RPEN 


1 

0 

1 

0 

D 

R2—NOP 


1 

0 

1 

1 

〜 P 

D 

R2 MERGEN0TPEN 


1 

1 

0 

0 

P 

R2_C0PYPEN (内 定) 
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1 

1 

0 

1 

P 

〜 D 

R2 MERGEPENN0T 


1 

1 

1 

0 

P 

D 

R2 MERGEPEN 


1 

1 

1 

1 

1 

R2_WHITE 


可以通过以下呼叫在装置内容中设定新的绘图 模式: 


SetROP2 (hdc, iDrawMode); 

iDrawMode 参数是表中「绘图模式」 一 栏中给出的值之一。您可以用 函式 ： 

iDrawMode = GetR0P2 (hdc); 

来取得目前绘图方式。装置内容中的内定设定为 R 2_ C 0 PYPEN ， 它用画笔色 
彩替代目标色彩。在 R 2_ N 0 TC 0 PYPEN 方式下，若画笔为黑色，则画成 白色； 若 
画笔为白色，则画成黑色。 R 2_ BLACK 方式下，不管画笔和背景色为何种色彩， 
总是画成黑色。与此相反， R 2_ WHITE 方式下总是画成白色。 R 2_ N 0 P 方式就是「不 
操作」，让目标保持不变。 

现在，我们已经讨论了单色系统。然而，大多数系统是彩色的。在彩色系 
统中， Windows 为画笔和目标图素的每个颜色位元执行绘图方式的位元运算，并 
再次使用上表描述的16种 R 0 P 2 代码。 R 2_ N 0 T 绘图方式总是翻转目标色彩来决 
定线的颜色，而不管画笔的色彩是什么。例如，在青色目标上的线会变成紫色。 
R 2_ N 0 T 方式总是产生可见的画笔，除非画笔在中等灰度的背景上绘图。我将在 
第七章的 BL 0 K 0 UT 程式中展示 R 2_ N 0 T 绘图方式的使用。 


绘制填入区域 

现在再更进一步，从画线到画图形。 Windows 中七个用来画带边缘的填入图 
形的函式列於表 5-3 中。 

表 5-3 


函式 

图形 

Rectangle 

直角矩形 

Ellipse 

椭圆 

RoundRect 

圆角矩形 

Chord 

補圆周上的弧，两端以弦连接 

Pie 

椭圆上的圆形图 

Polygon 

多边形 

PolyPolygon 

多个多边形 


Windows 用装置内容中选择的目前画笔来画图形的边界框，边界框还使用目 
前背景方式、背景色彩和绘图方式，这跟 Windows 画线时一样。关於直线的一 
切也适用於这些图形的边界框。 
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图形以目前装置内容中选择的画刷来填入。内定情况下，使用现有物件， 
这意味著图形内部将画为白色。 Windows 定义六种现有 画刷： WHITE _ BRUSH 、 
LTGRAY _ BRUSH 、 GRAY _ BRUSH 、 DKGRAY _ BRUSH 、 BLACK_BRUSH 和 NULL_BRUSH (也 

叫 H 0 LL 0 W _ BRUSH ) 。您可以将任何一种现有画刷选入您的装置内容中，就和您 
选择一种画笔一样。 Windbws 将 HBRUSH 定义为画刷的代号，所以可以先定义一 
个画刷代号 变数： 

HBRUSH hBrush ; 

您可以通过呼叫 GetStockObject 来取得 GRAY _ BRUSH 的 代号： 

hBrush = GetStockObject (GRAY_BRUSH); 

您可以呼叫 SelectObject 将它选进装置 内容： 

SelectObj ect (hdc, hBrush); 

现在，如果您要画上表中的任一个图形，则其内部将为灰色。 

如果您想画一个没有边界框的图形，可以将 NULL _ PEN 选进装置 内容： 

SelectObj ect (hdc, GetStockObject (NULL—PEN)); 

如果您想画出图形的边界框，但不填入内部，则将 NULL _ BRUSH 选进装置内 

容： 

SelectObj ect (hdc, GetStockObject (NULL—BRUSH); 

您也可以自订画刷，就如同您自订画笔一样。我们将马上谈到这个问题。 


Polygon 函式和多边形填入方式 


我已经讨论过了前五个区域填入函式， Polygon 是第六个画带边界框的填入 
图形的函式，该函式的呼叫与 Polyline 函式 相似： 

Polygon (hdc, apt, iCount); 

其中， apt 参数是 POINT 结构的一个阵列， iCount 是点的数目。如果该阵 
列中的最後一个点与第一个点不同，则 Windows 将会再加一条线，将最後一个 
点与第一个点连起来（在 Polyline 函式中， Windows 不会这么做 ）。 PolyPolygon 
函式如下所示： 

PolyPolygon (hdc, apt, aiCounts, iPolyCount); 

该函式绘制多个多边形。最後一个参数给出了所画的多边形的个数。对於 
每个多边形， aiCounts 阵列给出了多边形的端点数。 apt 阵列具有全部多边形 
的所有点。除传回值以外， PolyPolygon 在功能上与下面的代码 相同： 

for (i = ◦, iAccum = 0 ; i < iPolyCount ; i++) 

{ 

Polygon (hdc, apt + iAccum, aiCounts[i]); 
iAccum += aiCounts[i]; 

} 

对於 Polygon 和 PolyPolygon 函式， Windows 使用定义在装置内容中的目前 
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画刷来填入这个带边界的区域。 至於填入内部的方式，则取决於多边形填入方 
式，您可以用 SetPolyFillMode 函式来设定 ： 

SetPolyFillMode (hdc, iMode) ; 

内定情况下，多边形填入方式是 ALTERNATE ,但是您可以将它设定为 



_首先， ALTERNATE 和 WINDING 方式之间的区别很容易察觉。 对於 ALTERNATE 
方式，您可以设想从一个无穷大的封闭区域内部的点画线，只有假想的线穿过 
了奇数条边界线时，才填入封闭区域。 这就是填入了星的角而中心没被填入的 
原因。 

五角星的例子使得 WINDING 方式看起来比实际上更简单一些。在绘制单个 
的多边形时，大多数情况下， WINDING 方式会填入所有封闭的区域。但是也有 
例外。 

在 WINDING 方式下要确定一个封闭区域是否被填入，您仍旧可以设想从那 
个无穷大的区域画线。如果假想的线穿过了奇数条边界线，区域就被填入， 

和 ALTERNATE 方式一样。如果假想的线穿过了偶数条边界线，则区域可能被 : j 

入也可能不被填入。如果一个方向（相对於假想线）的边界线数与另一个方向 

的边界线数不相等，就填入区 € 

例如，考虑图 5-16 中的物体。线上的箭头指出了画线的方向。两种方式都 
会填入三个封闭的 L 形区域，号码从1到3。号码为4和5的两个小内部区域， 
在 ALTERNATE 方式下不会被填入。但是，在 WINDING 方式下，号码为5的区域 
会被填入，因为从区域内必须穿过两条相同方向的线才能到达图形外部。号码 
为4的区域不会被填入，因为必须穿过两条方向相反的线。 

如果您怀疑 Windows 没有这么聪明，那么程式 5-5 ALTWIND 会展示给您看。 


第152页 






























Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 



图 5-16 WINDING 方式不能填入所有内部区域的图形 


程式 5-5 ALTWIND 


ALTWIND.C 

/* - 

ALTWIND.C -- 


Alternate and Winding Fill Modes 
(c) Charles Petzold, 1998 
- */ 


♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain ( HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("AltWind"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc= WndProc ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass•hlnstance = hlnstance ; 

wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor = LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = NULL ; 

wndclass.IpszClassName = szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("Program requires Windows NT!")a 

szAppName, MB_ICONERROR); 

return 0 ; 
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hwnd = CreateWindow (szAppName, TEXT ("Alternate and Winding Fill Modes ’，）， 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW_USEDEFAULT A 
CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

static POINT aptFigure [10] = {10,70, 50,70, 50,10, 90,10, 90,50, 

30,50, 30,90, 70,90, 70,30, 10,30 }; 
static int cxClient, cyClient ; 

HDC hdc ; 

int i ; 

PAINTSTRUCT ps ; 

POINT apt [10]; 

switch (message) 

{ 

case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

SelectObj ect (hdc, GetStockObj ect (GRAY—BRUSH)); 

for (i = 0 ; i < 10 ; i++) 

{ 

apt [i] .x = cxClient * aptFigure[i] .x / 200 ; 
apt[i] .y = cyClient * aptFigure[i] .y / 100 ; 

} 

SetPolyFillMode (hdc, ALTERNATE); 

Polygon (hdc, apt, 10); 
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for (i = ◦ ; i 

r 

<10 ; 

i++) 


apt [i] .x += cxClient / 2 ; 

} 


SetPolyFillMode 

(hdc, 

WINDING); 


Polygon (hdc, apt, 10) 

• 

f 


EndPaint (hwnd. 

&ps); 



return 0 ; 




case WM DESTROY: 




PostQuitMessage 

(0); 



return 0 ; 



} 

i 

return DefWindowProc 

(hwnd. 

message, wParam, IParam); 


图形的座标（划分为100 100个单位）储存在 aptFigure 阵列中。这些座 
标是依据显示区域的宽度和高度划分的。程式显示图形两次， 一 次使用 
ALTERNATE 填入方式，另一次使用 WINDING 方式。结果见图5-17。 



图 5—17 ALTWIND 的显示 


用画刷填入内部 

Rectangle 、 RoundRect 、 Ellipse 、 Chord 、 Pie 、 Polygon 和 PolyPolygon 
图形的内部是用选进装置内容的目前画刷（也称为「图样」）来填入的。画刷 
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是一个8 8的点阵图，它水平和垂直地重复使用来填入内部区域。 

当 Windows 用混色的方法来显示多於可从显示器上得到的色彩时，实际上 
是将画刷用於色彩。在单色系统上， Windows 能够使用黑色和白色图素的混色建 
立64种不同的灰色，更精确地说， Windows 能够建立64种不同的单色画刷。对 
於纯黑色，8 8点阵图中的所有位元均为0。第一种灰色有一位元为1，第二种 
灰色有两位元为1，以此类推，直到8 8点阵图中所有位元均为1，这就是白色。 
在16色或256色显示系统上，混色也是点阵图，并且可以得到更多的色彩。 

Windows 还有五个函式，可以让您建立逻辑画刷，然後就可使用 
SelectObject 将画刷选进装置内容。与逻辑画笔一样，逻辑画刷也是 GDI 物件。 
您建立的所有画刷都必须被删除，但是当它还在装置内容中时不能将其删除。 

下面是建立逻辑画刷的第一个函式： 

hBrush = CreateSolidBrush (crColor); 

函式中的 Solid 并不是指画刷为纯色。在将画刷选入装置内容中时 ， Windows 
建立一个混色色的点阵图，并为画刷使用该点阵图。 

您还可以使用由水平、垂直或者倾斜的线组成的「影线标记 (hatch marks ) 」 
来建立画刷，这种风格的画刷对著色条形图的内部和在绘图机上进行绘图最有 
用。建立影线画刷的函 式为： 

hBrush = CreateHatchBrush (iHatchStyle, crColor); 

iHatchStyle 参数描述影线标记的外观。图 5-18 显示了六种可用的影线标 
记风格。 

HS—HORIZONTAL 
HS 一 VERTICAL |||||| 

HS—FDIAGONAL 

图 5-18 

CreateHatchBrush 中的 crColor 参数是影线的色彩。在将画刷选进装置内 
容时， Windows 将这种色彩转换为与之最相近的纯色。影线之间的区域根据装置 
内容中定义的背景方式和背景色来著色。如果背景方式为 OPAQUE ， 则用背景色 
(它也被转换为纯色）来填入线之间的空间。在这种情况下，影线和填入色都 
不能是混色而成的颜色。如果背景方式为 TRANSPARENT ， 则 Windows 只画出影线， 
不填入它们之间的区域。 

您也可以使用 CreatePatternBrush 和 CreateDIBPatternBrushPt 建立自己 
的点阵图画刷。 

建立逻辑画刷的第五个函式包含其他四个 函式： 

hBrush = CreateBrushlndirect (&logbrush); 


HS BDIAGONAL 



HS CROSS 



HS DIAGCROSS 



种 影线画刷风格 
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变数 logbrush 是一个型态为 L 0 GBRUSH ( 「逻辑画刷」）的结构，该结构的 
三个栏位如表 5-4 所示， lbStyle 栏位的值确定了 Windows 如何解释其他两个栏 
位的值： 


表 5-4 


lbStyle (UINT) 

lbColor (COLORREF) 

lbHatch (LONG) 

BS_S0LID 

画刷的色彩 

忽略 

BS—HOLLOW 

忽略 

忽略 

BS_HATCHED 

影线的色彩 

影线画刷风格 

BS_PATTERN 

忽略 

点阵图的代号 

BS_DIBPATTERNPT 

忽略 

指向 DIB 的指标 


前面我们用 SelectObject 将逻辑画笔选进装置内容，用 DeleteObject 删 
除画笔，用 GetObject 来取得逻辑画笔的资讯。对於画刷，同样能使用这三个 
函式。一旦您取得到了画刷代号，就可以使用 SelectObject 将该画刷选进装置 
内容： 

SelectObject (hdc, hBrush) ; 

然後，您可以使用 DeleteObject 函式删除所建立的画刷： 

DeleteObject (hBrush) ; 

但是，不要删除目前选进装置内容的画刷。 

如果您需要取得画刷的资讯，可以呼叫 GetObject ： 

GetObject (hBrush, sizeof (LOGBRUSH), (LPVOID) &logbrush); 

其中， logbrush 是一个型态为 LOGBRUSH 的结构。 


GDI 映射方式 


到目前为止，所有的程式都是相对於显示区域的左上角，以图素为单位绘 
图的。这是内定情况，但不是唯一选择。事实上，「映射方式」是一种几乎影 
响任何显示区域绘图的装置内容属性。另外有四种装置内容属性 一一 视窗原点、 
视埠原点、视窗范围和视埠范围——与映射方式密切相关。 

大多数 GDI 绘图函式需要座标值或大小。例如，下面是 TextOut 函式： 

TextOut (hdc, x, y, psText, iLength); 

参数 x 和 y 分别表示文字的开始位置。参数 x 是在水平轴上的位置，参数 y 
是在垂直轴上的位置，通常用 ( x ， y ) 来表示这个点。 

在 TextOut 中，以及在几乎所有 GDI 函式中，这些座标值使用的都是一种 
「逻辑单位」。 Windows 必须将逻辑单位转换为「装置单位」，即图素。这种转 
换是由映射方式、视窗和视埠的原点以及视窗和视埠的范围所控制的。映射方 
式还指示著 x 轴和 y 轴的方向 （ orientation ) ;也就是说，它确定了当您在向显 
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示器的左或者右移动时 x 的值是增大还是减小，以及在上下移动时 y 的值是增 
大还是减小。 

Windows 定义了 8种映射方式，它们在 WINGDI . H 中相应的识别字和含义如 
表5~5所示。 


表 5-5 


映射方式 

逻辑单位 

增加值 

x 值 

y 值 

MM—TEXT 

图素 

右 

下 

MM_L0METRIC 

0. 1 mm 

右 

上 

MM_HIMETRIC 

0. 01 mm 

右 

上 

MM—L0ENGLISH 

0.01 in. 

右 

上 

MM—HIENGLISH 

0.001 in. 

右 

上 

MM—TWIPS 

1/1440 in. 

右 

上 

MM_IS0TR0PIC 

任意 (x = y) 

可选 

可选 

MM_ANIS0TR0PIC 

任意 (x != y) 

可选 

可选 


METRIC 和 ENGLISH 指一般通行的度量衡系统，点是印刷的测量单位，约等 
於1/72英寸，但在图形程式设计中假定为正好1/72英寸。 「 Twip 」 等於1/20 
点，也就是1/1440英寸。 「 Isotropic 」 和 「 anisotropic 」 是真正的单字，意 
思是「等方性」（同方向）和「异方性」（不同方向）。 

您可以使用下面的叙述来设定映射方式： 

SetMapMode (hdc , iMapMode) ; 

其中， iMapMode 是8个映射方式识别字之一。您可以通过以下呼叫取得目 
前的映射方式： 

iMapMode = GetMapMode (hdc) ; 

内定映射方式为 MM _ TEXT 。 在这种映射方式下，逻辑单位与实际单位相同， 
这样我们可以直接以图素为单位进行操作。在 TextOut 呼叫中，它看起来像这 

样： 

TextOut (hdc, 8, 16, TEXT ("Hello") , 5); 

文字从距离显示区域左端 8 图素、上端16图素的位置处开始。 

如果映射方式设定为 MM _ L 0 ENGLISH ： 

SetMapMode (hdc, MM_LOENGLISH); 

则逻辑单位是百分之一。现在， TextOut 呼叫 如下： 

TextOut (hdc, 50, -100 , TEXT ("Hello"), 5); 

文字从距离显示区域左端 0. 5 英寸、上端1英寸的位置处开始。至於 y 座 
标前面的负号，随著我们对映射方式更详细的讨论，将逐渐清楚。其他映射方 
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式允许程式按照毫米、印表机的点大小或者任意单位的座标轴来指定座标。 

如果您认为使用图素进行工作很合适，那么就不要使用内定的 MM _ TEXT 方 
式外的任何映射方式。如果需要以英寸或者毫米尺寸显示图像，那么可以从 
GetDeviceCaps 中取得所需要的资讯，自己再进行缩放。其他映射方式都是避免 
您自己进行缩放的一个方便途径而已。 

虽然您在 GDI 函式中指定的座标是32位元的值，但是仅有 Windows NT 能 
够处理全32位元。在 Windows 98中，座标被限制为16位元，范围从-32, 768 
到32, 767。 一 些使用座标表示矩形的开始点和结束点的 Windows 函式也要求矩 
形的宽和高小於或者等於32, 767。 

装置座标和逻辑座标 

您也许 会问： 如果使用 MMJLOENGLISH 映射方式，是不是将会得到以百分之 
一 英寸为单位的 WM _ SIZE 讯息呢？绝对不会。 Windows 对所有讯息（如 WM _ M 0 VE 、 
WM _ SIZE 和 WM _ M 0 USEM 0 VE ) ，对所有非 GDI 函式，甚至对一些 GDI 函式，永远 

使用装置座标。 可以这样来 考虑： 由於映射方式是一种装置内容属性，所以， 
只有对需要装置内容代号作参数的 GDI 函式，映射方式才会起作用。 
GetSystemMetrics 不是 GDI 函式，所以它总是 以装置单位（即图素) 为量度来 
传回大小的。尽管 GetDeviceCaps 是 GDI 函式，需要一个装置内容代号作为参 
数，但是 Windows 仍然对 H 0 RZRES 和 VERTRES 以装置单位作为传回值，因为该 

函式的目的之一就是给程式提供以图素为单位的设备大小。 

不过，从 GetTextMetrics 呼叫中传回的 TEXTMETRIC 结构的值是使用逻辑 
单位的。如果在进行此呼叫时映射方式为 MM _ LOENGLISH ， 则 GetTextMetrics 将 
以百分之一英寸为单位提供字元的宽度和高度。在呼叫 GetTextMetrics 以取得 
关於字元的宽度和高度资讯时，映射方式必须设定成根据这些资讯输出文字时 
所使用的映射方式，这样就可以简化工作。 

装置座标系 

Windows 将 GDI 函式中指定的逻辑座标映射为装置座标。在讨论以各种不同 
的映射方式使用逻辑座标系之前，我们先来看一下 Windows 为视讯显示器区域 
定义的不同的装置座 标系。 尽管我们大多数时间在视窗的显示区域内工作，但 
Windows 在不同的时间使用另外两种装置座标区域。所有装置座标系都以图素为 

单位，水平轴（即 x 轴）上的值从左到右递增，垂直轴（即 y 轴）上的值从上 
到下递增。 

~ 当我们使用整个萤幕时，就根据「萤幕座标」进行操作。萤幕的左上角为 
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(0, 0) 点， 萤幕座标用在 WM _ M 0 VE 讯息（对於非子视窗）以及下列 Windows 函式 
中 ： CreateWindow 和 MoveWindow (都是对於非子视窗）、 GetMessagePos 、 
GetCursorPos 、 SetCursorPos、GetWindowRect 以及 WindowFromPoint (这不是 

全部函式的列表）。它们或者是与视窗无关的函式（如两个游标函式），或者 
是必须相对於某个萤幕点来移动（或者寻找）视窗的函式。 如果以 DISPLAY 为 
参数呼叫 CreateDC ， 以取得整个萤幕的装置内容，则内定情况下 GDI 呼叫中指 

定的逻辑座标将被映射为蛮幕座标 。 

「全视窗座标」以程式的整个视窗为基准，如标题列、功能表、卷动列和 
视窗框都包括在内。 而对於普通视窗，点（0,0)是缩放边框的左上角。全视窗 
座标在 Windows 中极少使用，但是 如果用 GetWindowDC 取得装置内容， GDI 函式 
中的逻辑座标就会转换为 

第三种座标系是我们最常使用的 「显示区域座标系」。点（0,0)是显示区 
域的左上角。当使用 GetDC 或 BeginPlTnt 取得装置内容时， GDI 函式中的逻辑 

座标就会内定转换为显示区域 

用函式 ClientToScreen 和 ScreenToClient 可以将显示区域座标转换为萤 
幕座标，或者反过来，将萤幕座标转换为显示区域座标。也可以使用 
GetWindowRect 函式取得萤幕座标下的整个视窗的位置和大小。这三个函式为一 
种装置座标转换为另一种提供了足够的资讯。 

视埠和视窗 

映射方式定义了 Windows 如何将 GDI 函式中指定的逻辑座标映射为装置座 

标，这里的装置座标系取决於您用哪个函式来取得装置内容。要继续讨论映射 
方式，我们需要一些术语：映射方式用於定义从「视窗」（逻辑座标)到「视 
埠」（装置座标）的映射。 

「视窗」和「视埠」这两个词用得并不恰当。在其他图形介面语言中，视 
埠通常包含有剪裁区域的意思，并且，我们已经用视窗来指程式在萤幕上占据 
的 区域。 在这里的讨论中，我们必须把关於这些词的先入之见丢到一边。 

「视埠」是依据装置座标（图素）的。通常，视埠和显示区域相同，但是， 

如果您已经用 GetWindowDC 或 CreateDC 耳又得了一个装置内容，贝视埠也可以是 
指整视窗座标或者萤幕座标。点 (0,0) 是显不区域（或者整个视窗或萤幕）的左 

上角， X 的值向右增加， y 的值向下增加。 

「视窗」是依据逻辑座标的， 逻^标 可以是图素、毫米、英寸或者您想 

要的任何其他单位 。您在 GDI 绘图函式中指定逻辑视窗座标。 

~ 但是在真正的意义上，视埠和视窗仅是数学上的概念。 对於所有的映射方 
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式， Windows 都用下面两个公式来将视窗（逻辑）座标转化为视埠（设备） 座标: 


xViewport = (xWindow - xWinOrg ) x 


xViewExt 

xWinExt 


+ xViewOrg 


y Viewport = (y Window - yWinOrg ) x 


yViewExt 

yWinExt 


+ yViewOrg 


其中， （ xWindow , yWindow ) 是待转换的逻辑点， （ xViewport , yViewport ) 是 
转换後的装置座标点，一般情形下差不多就是显示区域座标了。 

这两个公式使用了分别指定视窗和视埠「原点」的点： （ xWinOrg ， yWinOrg ) 
是逻辑座标的视窗原点； ( xViewOrg , yViewOrg ) 是装置座标的视埠原点。在内定 
的装置内容中，这两个点均被设定为(0,0)，但是它们可以改变。此公式意味著， 
逻辑点 ( xWinOrg , yWinOrg ) 总被映射为装置点 ( xViewOrg , yViewOrg ) 0 如果视窗 
和视埠的原点是预设值(0,0)，则公式简 化为： 


xViewport = xWindow x 


xViewExt 

xWinExt 


yViewport - yWindow x 


yViewExt 

yWinExt 


此公式还使用了两点来指定「范围」： （ xWinExt , yWinExt ) 是逻辑座标的视 
窗 范围； （ xViewExt , yViewExt ) 是装置座标的视窗范围。 在多数映射方式中，范 
围是映射方式所隐含的，不能够改变。每个范围自身没有什么意义，但是视埠 
范围与视窗范围的比例是逻辑单位转换为装置单位的换算因数 。 

例如，当您设定 MMJLOENGLISH 映射方式时， Windows 将 xViewExt 设定为某 
个图素数而将 xWinExt 设定为 xViewExt 图素占据的一英寸内有几百图素的长 
度。比值给出了一英寸内有几百个图素的数值。为了提高转换效能，换算因数 
表示为整数比而不是浮点数。 

范围可以为负，也就是说，逻辑 x 轴上的值不一定非得在向右时 增加； 逻 
辑 y 轴上的值不一定非得在向下时增加。 

Windows 也能将视埠（设备）座标转换为视窗（逻辑） 座标： 

xWindow - (xViewport - xViewOrg ) x - h xWinOrg 

xViewExt 


yWindow - (yViewport - yViewOrg ) x 


yWinExt 

yViewExt 


+ yWinOrg 
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Windows 提供了两个函式来让您将装置点转换为逻辑点以及将逻辑点转换 
为装置点。下面的函式将装置点转换为逻辑点： 

DPtoLP (hdc, pPoints, iNumber); 

其中， pPoints 是一个指向 POINT 结构阵列的指标，而 iNumber 是要转换的 
点的个数。您会发现这个函式对於将 GetClientRect (它总是使用装置单位）取 
得的显示区域大小转换为逻辑座标很 有用： 

GetClientRect (hwnd, &rect); 

DPtoLP (hdc, (PPOINT) &rect, 2); 

下面的函式将逻辑点转换为装 置点： 

LPtoDP (hdc, pPoints, iNumber); 


处理 MM-TEXT 

对於 MM _ TE )( T 映射方式，内定的原点和范围如下 所示： 

• 视窗 原点： （0， 0) 可以改变 
• 视埠 原点： （0， 0) 可以改变 
• 视窗范围：（1， 1) 不可改变 
• 视埠范围：（1， 1) 不可改变 

视埠范围与视窗范围的比例为1，所以不用在逻辑座标与装置座标之间进行 
缩放。上面所给出的公式可以简 化为： 

xViewport = xWindow - xWinOrg + xViewOrg 
y Viewport = y Window - yWinOrg + yViewOrg 

这种映射方式称为「文字」映射方式，不是因为它对於文字最适合，而是 
由於轴的方向。我们读文字是从左至右，从上至下的，而 MM _ TEXT 以同样的方 
向定义轴上值的增长 方向： 

|+y 


Windows 提供了函式 SetViewportOrgEx 和 SetWindowOrgEx , 用来改变视焊 

和视窗的原点，这些函式都具有改变轴的效果，以致(0,0)不再指左上角。一般 

来说，您会使用 SetViewportOrgEx 或 SetWindowOrgEx 之一，但不会同时使用 

二者。 

~ ¥ 们来看一看这些函式有何 效果： 如果将视埠原点改变为 
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( xViewOrg , yViewOrg ) 


则逻辑点 （0.0) 就会映射为装置点 


( xViewOrg , yViewOrg ) 。如果将视窗原点改变为 ( xWinOrg , yWinOrg ) ,则逻辑点 
( xWin 0]： g ， yWin 0 rg ) 将会映射为装置点(0,0)，即左上角。不管对视窗和视埠原 
点作什么改变，装置点(0, 0) 始终是显示区域的左上角。 

例如，假设显示区域为 cxClient 个图素宽和 cyClient 个图素高。如果想 
将逻辑点(0, 0) 定义为显示区域的中心，可进行如下呼叫： 

SetViewportOrgEx (hdc, cxClient / 2, cyClient / 2, NULL) ; 

SetViewLortOirgEx 的参数总是使用装置单位。现在，逻辑点(0,0)将映射为 
装置点 ( cxClient /2, cyClient /2) ，而显示区域的座标系变成如下 形状： 


i 

-y 

—X 



+X 齡 


逻辑 x 轴的范围从 - cxClient /2 到 + cxClient /2 ，逻辑 y 轴的范围从 
- cyClient /^ 到 + cyClient /2 ,显示区域的右下角为逻辑点 
( cxClient /2, cyClient /2) 0 如果您想从显示区域的左上角开始显示文字。则需 
要使用负座标' 

TextOut (hdc, -cxClient / 2, -cyClient / 2, "Hello " , 5) 

用下面的 SetWindowOrgEx 叙述可以获得与上面使用 SetViewportOrgEx 同 


样的 效果 ： \\ 


SetWindowOrgEx < 

: hdc, -cxClient / 2, -cyClient / 2, NULL); 


SetWindowOrgEx 的参数总是使用逻辑单位。在这个呼叫之後，逻辑点 
(-cxClient / 2 ，- cyClient / 2) 映射为装置点（0, 0) ，即显示区域的左上角。 

您不会将这两个函式一起用，除非您知道这么做的 结果： 

SetViewportOrgEx (hdc, cxClient / 2, cyClient / 2, NULL); 

SetWindowOrgEx (hdc, -cxClient / 2, -cyClient / 2, NULL); 

这意味著逻辑点 (- cxClient /2, - cyClient /2) 将映射为装置点 ( cxClient /2 
cyClient /2), 结果是如下所示的座标系： 



您可以使用下面两个函式取得目前视埠和视窗的 原点： 

GetViewportOrgEx (hdc, &pt); 

GetWindowOrgEx (hdc , &pt); 

其中 pt 是 POINT 结构。由 GetViewportOrgEx 传回的值是装置座标，而由 
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GetWindowOrgEx 传回的值是逻辑座标。 

您可能想改变视埠或者视窗的原点，以改变视窗显示区域内的显示输出一 
一 例如，回应使用者在卷动列内的输入。但是，改变视埠和视窗原点并不能立 
即改变显示输出，而必须在改变原点之後更新输出。例如，在第四章的 SYSMETS 2 


程式中，我们使用了 iVscrollPos 值（垂直卷动列的目前位置）来调整显示输 
出的 y 座标： 


case WM 

PAINT: 


hdc 

= BeginPaint 

(hwnd, &ps); 

for 

(i = ◦ ; i < 

NUMLINES ; i++) 

X 

y = cyChar 

* (i - iVscrollPos); 

1 

// 显示文字 


EndPaint (hwnd, 

return 0 ; 

&ps) ; 

我们可以使用 SetWindowOrgEx 获得同样的效果： 

case WM 

PAINT: 


hdc 

= BeginPaint 

(hwnd, &ps ); 

SetWindowOrgEx (hdc , ◦, cyChar * iVscrollPos ); 

for 

r 

( i = 0 ; i < 

NUMLINES ; i++) 

i 

y = cyChar 

* i ； 


// 显示文字 



EndPaint (hwnd, &ps) ; 
return 0 ; 

现在， TextOut 函式的 y 座标的计算不需要 iVscrollPos 的值。这意味著您 
可以将文字输出函式放到一个常式中，不用将 iVscrollPos 值传给该常式，因 
为我们是通过改变视窗原点来调整文字显示的。 

如果您有使用直角座标系（即笛卡尔座标系）的经验，那么将逻辑点（0,0) 
移到显示区域的中央（像我们上面所说的那样）的确值得考虑。但是，对於 
MM _ TE )( T 映射方式来说，还存在著一个小小的 问题： 笛卡尔座标系中， y 值是随 
著上移而增加的，而 MM _ TEXT 定义为下移时 y 值增加。从这一点来看， MM_TEXT 
有点古怪，而下面这五种映射方式都使用通常的增值方法。 

「度量」映射方式 

Windows 包含五种以实际尺寸来表示逻辑座标的映射方式。由於 x 轴和 y 轴 
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的逻辑座标映射为相同的实际单位，这些映射方式能使您画出不变形的圆和矩 
形。 

这五种「度量」映射方式在表 5-6 中列出，按照从低精度到高精度的顺序 
排列。右边的两列分别给出了以英寸和毫米为单位时逻辑单位的大小，以便比 
较。 


表 5-6 


映射方式 

逻辑单位 

英寸 

亳米 

MM—L0ENGLISH 

0.01 in. 

0.01 

0. 254 

MM L0METRIC 

0. 1 mm. 

0. 00394 

0 . 1 

MM—HIENGLISH 

0.001 in. 

0.001 

0. 0254 

MM—TWIPS 

1/1400 in. 

0.000694 

0.0176 

MM—HIMETRIC 

0. 01 mm. 

0.000394 

0.01 


内定视窗及视埠的原点和范围如下所示： 

• 视窗 原点： （0， 0) 可以改变 
• 视捍 原点： （0， 0) 可以改变 
• 视窗 范围： （1， 1) 不可改变 
• 视埠 范围： （1， 1) 不可改变 

问号表示视窗和视埠的范围依赖於映射方式和设备的解析度。前面已经提 
到过，这些范围本身并不重要，但是表示比例时就必须知道。下面是视窗座标 
到视埠座标的转换 公式： 


xViewport - (xWindow - xWinOrg ) x 


xViewExt 

xWinExt 


xViewOrg 


y Viewport = (y Window - yWinOrg ) x 


yViewExt 



yWinExt 


yViewOrg 


例如，对於 MMJLOENGLISH ， Windows 计算的范围 如下: 


xViewExt 

xWinExt 


= 0.01 in 中的水平圖素數 


二^^ =0 .01说中的垂直圖素數 
yWinExt 


Windows 使用这些来自 GetDeviceCaps 的有用资讯设定范围。只是在 
Windows 98和 Windows NT 之间有一点差别。 

首先，来看看 Windows 98是如何 做的： 假设您使用「控制台」的「显示」 
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程式选择了 96 dpi 的系统字体 。 GetDeviceCaps 对於 L 0 GPIXELSX 和 L 0 GPIXELSY 
索引都将传回值96。 Windows 为视埠范围使用这些值并以表 5-7 的方式设定视 
埠和视窗的范围。 

表 5-7 


映射方式 

视谭范围 （ X ,y) 

视窗范围 (x, y) 


MM L0METRIC 

(96, 96) 

(254, -254) 

MM HIMETRIC 

(96, 96) 

(2540, -2540) 

、 MM— L0ENGLISH 

(96, 96) 

(100, -100) 

MM HIENGLISH 

(96, 96) 

(1000, -1000) 

Spi TWIPS 

(96, 96) 

(1440, -1440) 

这 4 
对 MM_L 

Wir 

Windows 

VERTRE ^ 

它是您 1 

争 ，对 MM _ L 0 ENGLISH 来说， 96 除以 100 的比值是 0. 01 英寸中的图素数。 

0 METRIC 来说，96除以254的比值是 0. 1毫米中的图素数。 

Kiows NT 使用不同的方法设定视埠和视窗的范围（与早期16位元版本的 
;一致的方法）。视埠范围依据萤幕的图素尺寸。可以使用 H 0 RZRES 和 
>索引从 GetDeviceCaps 取得这种资讯。视窗范围依据假定的显示大小， 

吏用 H 0 RZSIZE 和 VERTSIZE 索引时由 GetDeviceCaps 传回的。我在前面 


提到过，这些值一般是320和240毫米。 如果您将显示器的图素尺寸设定为 
1024 768，则表 5-8 就是 Windows NT 报告的视埠和视窗范围的值。 


表 5- 8 


映射方式 

视埠范围 （ X ,y) 

视窗范围 (x, y) 

MM—L0METRIC 

(1024, -768) 

(3, 200, 2,400) 

MM HIMETRIC 

(1024, -768) 

(32, 000, 24,000) 

MM—L0ENGLISH 

(1024, -768) 

(1,260, 945) 

MM HIENGLISH 

(1024, -768) 

(12,598 ， 9,449) 

MM—TWIPS 

(1024, -768) 

(18,142, 13,606) 


这些视窗范围表示包含显示器全部宽度和高度的逻辑单位元数值。320毫米 
宽的萤幕也为1260 MM _ L 0 ENGLISH 单位或 12. 6英寸 (320 除以 25. 4毫米/英寸）。 

范围中， y 前面的负号表示改变了轴的方向。 对於这五种映射方式， y 值随 
上升而增加，然而注意内定的视窗和视埠原点均为(0,0)。这个事实有一个有趣 
的结果。当一开始改变为五种映射方式之一时，座标系 如下： 
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v- y 


要想在显示区域显示任何东西，必须使用负的 y 值。例如下面的程 式码： 

SetMapMode (hdc, MM_LOENGLISH); 

TextOut (hdc, 100, -100 A "Hello ", 5); 

将把文字显示在距离显示区域左边和上边各一英寸的地方。 

为了使自己保持头脑清醒，您可能想避免这样做。 一 种解决办法是将逻辑 
的(0, 0) 点设为显示区域的左下角，您可以通过呼叫 SetViewportOrgEx 来完成 
(假设 cyClient 是以图素为单位的显示区域的高 度）： 

SetViewportOrgEx (hdc, 0 , cyClient, NULL); 

此时的座标系 如下： 


A 

+y 

+x 

— —► 

这是直角座标系的右上象限。 

另一种方法是将逻辑(0, 0) 点设为显示区域的 中心： 

SetViewportOrgEx (hdc, cxClient / 2, cyClient / 2, NULL); 

此时的座标系如下 所示： 


i 

+y 

—X 



+x 黔 


现在，我们有了一个真正的4象限笛卡尔座标系，在 x 轴和 y 轴上有相等 
的按英寸、毫米或 twip 计算的逻辑单位。 

您还 可以使用 SetWindowOrgEx 函式来改变逻辑(0, 0) 点，但是这稍微困难 
一些， W ^] SetffindowOrgEx 的参数必须使用逻辑单位，先要将 
( cxClient ， cyClient ) 用 DPtoLP 函式转换为逻辑座标。 假设变数 pt 是型态为 
POINT 的结构，下面的代码将逻辑(0,0)点改变到显示区域的 中央： 

pt•x = cxClient ; 
pt•y = cyClient ; 

DptoLP (hdc, &pt, 1); 

SetWindowOrgEx (hdc, -pt.x / 2, -pt.y / 2 , NULL); 
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r 自行决定』的映射方式 

剩下的两种映射方式为 MM _ IS 0 TR 0 PIC 和 MM _ ANIS 0 TR 0 PICo 只有这两种映射 
方式可以让您改变视埠和视 ％ 范围，也就是说可以改变 Windows 用来转换逻辑 

和装置座标的换算因数。 「 isotropic 」 的意思是「同方向性」； 「 anisotropic 」 
的意思是「异方向性」。与上面所讨论的度量映射方式相似， MM _ IS 0 TR 0 PIC 使 
用相同的轴， x 轴上的逻辑单位与 y 轴上的逻辑单位的实际尺寸相等。这对您建 
立纵横比与显示比无关的图像是有帮助的。 

MM _ IS 0 TR 0 PIC 与度量映射方式之间的区别是，使用 MMjSOTROPIC ， 您可以 

控制逻辑单位的实际尺寸。 如果愿意，您可以根据显示区域的大小来调整逻辑 
单位的实际尺寸，从而使所画的图像总是包含在显示区域内，并相应地放大或 
缩小。例如，第八章的两个时钟程式就是方向同性的例子。在您改变视窗大小 
时，时钟也相应地调整。 

Windows 程式完全可以通过调整视窗和视埠范围来处理图像大小的变化。因 
此，不管视窗尺寸怎样变，程式都可以在绘图函式中使用相同的逻辑单位。 " 

有时候 MM _ TEXT 和度量映射方式称为「完全局限性」映射方式，这就是说， 

您不能改变视窗和视埠的范围以及 Windows 将逻辑座标换算为装置座标的方 E 

MM _ IS 0 TR 0 PIC 是一种「半局限性」的映射方式， Windows 允许您改变视窗和视 

埠范围，但只是调整它们，以便 x 和 y 逻辑单位代表同样的实际尺 寸。' 

MM _ ANIS 0 TR 0 PIC 映射方式是「非局限性」的，您可以改变视窗和视埠范围，但 
是 Windows 不调整这些值。 


MM—IS0TR0PIC 映射方式 


如果想要在使用任意的轴时都保证两个轴上的逻辑单位相同，则 
MM _ IS 0 TR 0 PIC 映射方式就是理想的映射方式。 这时，具有相同逻辑宽度和高度 
的矩形显示为正方形，具有相同逻辑宽度和高度的椭圆显示为圆。 

当您刚开始将映射方式设定为 MM _ IS 0 TR 0 PIC 时， Windows 使用与 
MMJLOMETRIC 同样的视窗和视埠范围（但是，不要对此有所依赖）。区别在於， 
您现在可以呼叫 SetWindowExtEx 和 SetViewportExtEx 来根据自己的偏好改变 
范围了，然後， Windows 将调整范围的值，以便两条轴上的逻辑单位有相同的实 

际距离。 

~ 一般说来，您可以用所期望的逻辑视窗的逻辑尺寸作为 SetWindowExtEx 的 
参数，用显示区域的实际宽和高作为 SetViewportExtEx 的参数。 Windows 在调 
整这些范围时，必须让逻辑视窗适应实际视窗，这就有可能导致显示区域的一 
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段落到了逻辑视窗的外面。必须在呼叫 SetViewportExtEx 之前呼叫 
SetffindowExtEx , 以便最有效地使用显示区域中的空间。 

~ 例如，假设您想要一个「传统的」单象限虚拟座标系，其中（0,0)在显示区 
域的左下角，宽度和高度的范围都是从0到32, 767,并且希望 x 和 y 轴的单位 
具有同样的实际尺寸。以下就是所需的程式： 

SetMapMode (hdc, MM_ISOTROPIC) ; / 

SetWindowExtEx (hdc , 32767, 32767, NULL) ; / 

SetViewportExtEx (hdc, cxClient , -cyClient, NULL) 

SetViewportOrgEx (hdc, 0 , cyClient, NULL); 

如果其後用 GetWindowExtEx 和 GetViewportExtEx 函式获得了视窗和视焊 
的范围，可以发现，它们并不是先前指定的值。 Windows 将根据显示设备的纵横 
比来调整范围，以便两条轴上的逻辑单位表示相同的实际尺寸。 

如果显示区域的宽度大於高度（以实际尺寸为准）， Windows 将调整 x 的范 
围，以便逻辑视窗比显示区域视埠窄。这样，逻辑视窗将放置在显示区域的左 



边 


Windows 98不允许在显示区域的右边超越 x 轴的范围之外显示任何东西， 
因为这需要一个大於16位元所能表示的座标 。 Windows NT 使用全32位元座标， 
您可以在超出右边显示一些东西。 

如果显示区域的高度大於宽度（以实际尺寸为准），那么 Windows 将调整 y 
的范围。这样，逻辑视窗将放置在显示区域的 下边： 


+32,767 

+y 

+x 32,767 

► 

Windows 98 不允许在显示区域的顶部显示任何东西。 

如果您希望逻辑视窗总是放在显示区域的左上部，那么将前面给出的程式 
码改为： 

SetMapMode (MM ISOTROPIC) ; 
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SetWindowExtEx (hdc, 32767, 32767, NULL) ; 

SetViewportExtEx (hdc, cxClient , -cyClient, NULL); 

SetWindowOrgEx (hdc, ◦, 32767, NULL); 

在呼叫 SetWindowOrgEx 中，我们要求将逻辑点 （0，32767) 映射为装置点 
(0,0)。现在，如果显示区域的高大於宽，则座标系将安 排为： 

对於时钟程式，您也许想要使用一个四象限的笛卡尔座标系，四个方向的 
座标尺度可以任意指定，（0,0)必须居於显示区域的中央。如果您想要每条轴 
的范围从0到1000，则可以使用以下程 式码： 

SetMapMode (hdc, MM_ISOTROPIC); 

SetWindowExtEx (hdc, 10 00, 1000, NULL); 

SetViewportExtEx (hdc, cxClient / 2, -cyClient / 2, NULL); 

SetViewportOrgEx (hdc, cxClient / 2, cyClient / 2, NULL); 

如果显示区域的宽度大於高度，则逻辑座标系 形如： 


i 

+y 

-X 

+X 


- y 


如果显示区域的高度大於宽度，那么逻辑座标也会 居中: 


i 

+y 

-X 



- y 


记住，视窗或者视 燁范 围并不意味著要进行剪裁。在呼叫 GDI 函式时，您 
仍然对以随便地使用小於 -1000 和大於1000的 x 和 y 值。根据显示区域的外形， 
这些点可能看得见，也可能看不见。 

在 MM _ IS 0 TR 0 PIC 映射方式下，可以使逻辑单位大於图素。例如，假设您想 
要一种映射方式，使点(0,0)显示在萤幕的左上角， y 的值向下增长（和 MM _ TE)(T 
相似），但是逻辑座标单位为1/16英寸。以下是一种 方法： 

SetMapMode (hdc, MM_ISOTROPIC); 

SetWindowExtEx (hdc, 16, 16, NULL); 

SetViewportExtEx (hdc, GetDeviceCaps (hdc, LOGPIXELSX), 

GetDeviceCaps (hdc, LOGPIXELSY), NULL); 

SetWindowExtEx 函式的参数指出了每一英寸中逻辑单位数。 
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SetViewportExtEx 函式的参数指出了每一英寸中实际单位数（图素）。 

然而，这种方法与 Windows NT 中的度量映射方式不一致。这些映射方式使 
用显示器的图素大小和公制大小。要与度量映射方式保持一致，可以这 样做： 

SetMapMode (hdc, MM_ISOTROPIC); 

SetWindowExtEx (hdc , 160 * GetDeviceCaps (hdc, HORZSIZE) / 254, 

160 * GetDeviceCaps (hdc, VERTSIZE) / 254, NULL); 

SetViewportExtEx (hdc, GetDeviceCaps (hdc, HORZRES), 

GetDeviceCaps (hdc, VERTRES), NULL); 

在这个程式码中，视埠范围设定为按图素计算的整个萤幕的大小，视窗范 
围则必须设定为以1/16英寸为单位的整个萤幕的大小。 GetDeviceCaps 以 
HORZRES 和 VERTRES 为参数，传回以毫米为单位的装置尺寸。如果我们使用浮点 
数，将把毫米数除以 25. 4,转换为英寸，然後，再乘以16以转换为1/16英寸。 
但是，由於我们使用的是整数，所以先乘以160,再除以254。 

当然，这种座标系会使逻辑单位大於实际单位。在设备上输出的所有东西 
都将映射为按1/16英寸增量的座标值。当然，这样就不能画两条间隔1/32英 
寸的水平直线，因为这样将需要小数逻辑座标。 

MM.ANIS0TR0PIC : 根据需要放缩图像 

在 MM _ IS 0 TR 0 PIC 映射方式下设定视窗和视埠范围时， Windows 会调整范围， 
以便两条轴上的逻辑单位具有相同的实际尺度。在 MM _ ANIS 0 TR 0 PIC 映射方式下， 
Windows 不对您所设定的值进行调整，这就是说， MM _ ANIS 0 TR 0 PIC 不需要维持 
正确的纵横比。 

使用 MM _ ANIS 0 TR 0 PIC 的一种方法是对显示区域使用任意座标，就像我们对 
MM _ IS 0 TR 0 PIC 所做的一样。下面的程式码将点(0, 0) 设定为显示区域的左下角， 
x 轴和 y 轴都从0到32, 767: 

SetMapMode (hdc, MM—ANISOTROPIC); 

SetWindowExtEx (hdc , 32767, 32767, NULL); 

SetViewportExtEx (hdc, cxClient, -cyClient, NULL); 

SetViewportOrgEx (hdc, ◦, cyClient, NULL); 

在 MM _ IS 0 TR 0 PIC 方式下，相似的程式码导致显示区域的一部分在轴的范围 
之外。但是对於 MM _ ANIS 0 TR 0 PIC ， 不论其尺度多大，显示区域的右上角总是 
(32767，32767)。如果显示区域不是正方形的，则逻辑 x 和 y 的单位具有不同 
的实际尺度。 

前一节在 MM _ IS 0 TR 0 PIC 映射方式下，我们讨论了在显示区域中画一个类似 
时钟的图像， x 和 y 轴的范围都是从 -1000 到+1000。对於 MM _ ANIS 0 TR 0 PIC ， 也 
可以写出类似的 程式： 

SetMapMode (hdc, MM ANISOTROPIC); 
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SetWindowExtEx (hdc, 1000, 1000, NULL) ; 

SetViewportExtEx (hdc, cxClient / 2, -cyClient / 2, NULL); 

SetViewportOrgEx (hdc, cxClient / 2, cyClient / 2, NULL); 

与 MM _ ANIS 0 TR 0 PIC 方式不同的是，这个时钟一般是椭圆形的，而不是圆形 
的。 

另一种使用 MM _ ANIS 0 TR 0 PIC 的方法是将 x 和 y 轴的单位固定，但其值不相 
等。例如，如果有一个只显示文字的程式，您可能想根据单个字元的高度和宽 
度设定一种粗刻度的座标： 

SetMapMode (hdc, MM—ANISOTROPIC); 

SetWindowExtEx (hdc, 1, 1, NULL); 

SetViewportExtEx (hdc, cxChar, cyChar, NULL); 

当然，这里假设 cxChar 和 cyChar 分别是那种字体的字元宽度和高度。现 
在，您可以按字元行和列指定座标。下面的叙述在距离显示区域左边三个字元， 
上边二个字元处显示文字： 

TextOut (hdc, 3, 2, TEXT ("Hello") , 5); 

如果您使用固定大小的字体时会更加方便，就像下面的 WHATSIZE 程式所示 
的那样。 

当您第一次设定 MM _ ANIS 0 TR 0 PIC 映射方式时，它总是继承前面所设定的映 
射方式的范围，这会很方便。可以认为 MM _ ANIS 0 TR 0 PIC 不「锁定」 范围； 也就 
是说，它允许您任意改变视窗范围。例如，假设您想用 MM _ L 0 ENGLISH 映射方式， 
因为希望逻辑单位为 0. 01英寸，但您不希望 y 轴的值向上增加，喜欢如 MM—TEXT 
那样的方向，即 y 轴的值向下增加，可以使用如下的代码： 

SIZE size ; 

其他行程式 

SetMapMode (hdc, MM_LOENGLISH) ; 

SetMapMode (hdc, MM—ANISOTROPIC); 

GetViewportExtEx (hdc, &size); 

SetViewportExtEx (hdc, size.ex, -size.cy, NULL); 

我们首先将映射方式设定为 MM _ L 0 ENGLISH ， 然後，通过将映射方式设定为 
MM _ ANIS 0 TR 0 PIC 让范围可以自由改变。 GetViewportExtEx 取得视埠范围并放到 
一个 SIZE 结构中，然後，我们使用范围来呼叫 SetViewportExtEx ， 只是要将 y 
范围取反。 

WHATSIZE 程式 

Windows 的小历史：第一篇如何写作 Windows 程式的介绍文章出现在 
《Microsoft Systems Journal 》 1986年12月号上。在那篇文章中，范例程式 
叫做 WSZ (「what size ： 什么尺寸」），它以图素、英寸和毫米为单位显示了 
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显示区域的大小。那个程式的更简易版本是 WHATSIZE ， 如程式 5-6 所示。程式 
显示了以五种度量映射方式显示的视窗显示区域的大小。 


程式 5-6 WHATSIZE 


WHATSIZE.C 
卜 - 


WHATSIZE.C -- What Size is the Window? 
(c) Charles Petzold, 1998 



♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("WhatSize"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 


wndclass.style = CS_HREDRAW | CS_VREDRAW; 

wndclass.lpfnWndProc= WndProc ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass•hlnstance = hlnstance ; 

wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor= LoadCursor (NULL, 工 DC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 
wndclass.IpszMenuName = NULL ; 

wndclass.IpszClassName = szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("This program requires Windows NT !’’）， 
szAppName, MB_ICONERROR); 
return 0 ; 


hwnd = CreateWindow (szAppName, TEXT ("What Size is the Window ?”）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW_USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0 , 0)) 


TranslateMessage (&msg); 
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DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

void Show (HWND hwnd, HDC hdc, int xText, int yText, int iMapMode, 

TCHAR * szMapMode) 

{ 

TCHAR szBuffer [60]; 

RECT rect ; 

SaveDC (hdc); 

SetMapMode (hdc, iMapMode); 

GetClientRect (hwnd, &rect); 

DPtoLP (hdc, (PPOINT) &rect, 2); 

RestoreDC (hdc, -1); 

TextOut ( hdc, xText, yText, szBuffer, 

wsprintf (szBuffer, TEXT ("%-20s %7d %7d %7d %7d") , szMapMode, 
rect.left, rect.right, rect.top, rect.bottom)); 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, 

{ 

static TCHAR szHeading []= 

TEXT ("Mapping Mode Left Right Top Bottom"); 
static TCHAR szUndLine []= 


LPARAM IParam) 


TEXT (" - - 

static int cxChar, cyChar ; 
HDC hdc ; 

PAINTSTRUCT ps ; 

TEXTMETRIC tm ; 


") 


switch (message) 

{ 

case WM—CREATE: 

hdc = GetDC (hwnd); 

SelectObject (hdc, GetStockObject (SYSTEM—FIXED—FONT)); 

GetTextMetrics (hdc, &tm); 
cxChar = tm.tmAveCharWidth ; 

cyChar = tm.tmHeight + tm.tmExternalLeading ; 

ReleaseDC (hwnd, hdc); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

SelectObject (hdc, GetStockObject (SYSTEM FIXED FONT)); 
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SetMapMode (hdc, MM—ANISOTROPIC) ; 

SetWindowExtEx (hdc, 1, 1, NULL); 

SetViewportExtEx (hdc, cxChar, cyChar, NULL); 

TextOut (hdc, 1, 1, szHeading, lstrlen (szHeading)); 

TextOut (hdc, 1, 2, szUndLine, lstrlen (szUndLine)); 

Show (hwnd, hdc, 1, 3, MM—TEXT, TEXT ("TEXT (pixels)，，））; 

Show (hwnd, hdc, 1, 4, MM—LOMETRIC, TEXT (’’LOMETRIC ( • 1 mm) n )); 

Show (hwnd, hdc, 1, 5, MM—HIMETRIC, TEXT ("HIMETRIC ( . 01 

mm)”））; 

Show (hwnd, hdc, 1, 6, MM—LOENGLISH, TEXT ( n LOENGLISH ( .01 in )"))； 
Show (hwnd, hdc, 1, 7, MM_HIENGLISH,TEXT ("HIENGLISH (.001 in )"))； 
Show (hwnd, hdc, 1, 8, MM—TWIPS, EXT ( n TWIPS (1/1440 in)，，））; 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

为了便於用 TextOut 函式显示资讯， WHATSIZE 使用了一种固定间距的字体。 
下面一条简单的叙述就可以切换为固定间距的字体（在 Windows 3.0 中它是优 
先使用 的）： 

SelectObject (hdc, GetStockObject (SYSTEM—FIXED—FONT)); 

有两个同样的函式用於选取画笔和画刷。像前面提到的， WHATSIZE 也使用 
MM _ ANISTR 0 PIC 映射方式将逻辑单位设定为字元大小。 

当 WHATSIZE 需要取得六种映射方式之一的显示区域的大小时，它保存目前 
的装置内容，设定一种新的映射方式，取得显示区域座标，将它们转换为逻辑 
座标，然後在显示资讯之前，恢复原映射方式。底下这些程式码在 WHATSIZE 的 
Show 函式里： 

SaveDC (hdc) ; 

SetMapMode (hdc, iMapMode); 

GetClientRect (hwnd, &rect); 

DptoLP (hdc, (PPOINT) &rect, 2); 

RestoreDC (hdc, -1); 

图 5-19 显示了 WHATSIZE 的典型输出。 
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图 5-19 典型的 WHATSIZE 显示 


矩形、区域和剪裁 

Windows 包含了几种使用 RECT (矩形）结构和「区域」的绘图函式。区域 
就是萤幕上的一块地方，它是矩形、多边形和椭圆的组合。 

矩形函式 

下面三个绘图函式需要一个指向矩形结构的 指标： 

FillRect (hdc, &rect, hBrush); 

FrameRect (hdc, &rect, hBrush); 

工 nvertRect (hdc, &rect); 

在这些函式中 ， rect 参数是一个 RECT 型态的结构，它包含有4个栏位: left 、 
top 、 right 和 bottom 。 这个结构中的座标被当作逻辑座标。 

FillRect 用指定画刷来填入矩形（直到但不包含 right 和 bottom 座标） ， 
该函式不需要先将画刷选进装置内容。 

FrameRect 使用画刷画矩形框，但是不填入矩形。使用画刷画矩形看起来有 
点奇怪，因为对於我们所介绍过的函式（如 Rectangle ) ，其边线都是用目前画 
笔绘制的。 FrameRect 允许使用者画一个不一定为纯色的矩形框。该边界框为一 
个逻辑单位元宽。如果逻辑单位大於装置单位，则边界框将会为2个图素宽或 
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者更宽。 

InvertRect 将矩形中所有图素翻转，1转换成0, 0转换为1，该函式将白 
色区域转变成黑色，黑色区域转变为白色，绿色区域转变成洋红色。 


Windows 还提供了 9个函式，使您可以更容易、更清楚地操作 RECT 结构。 
例如，要将 RECT 结构的四个栏位设定为特定值，通常使用如下的程 式段： 


rect.left 

=xLeft ; 

rect.top 

=xTop ; 

rect.right 

=xRight ; 

rect.bottom 

=xBottom ; 


但是，通过呼叫 SetRect 函式，只需要一道叙述就可以得到同样的 结果: 


SetRect (&rect, xLeft, yTop, xRight, yBottom); 


在您想要做以下事情之一时，可以很方便地选用其他8个 函式: 


将矩形沿 x 轴和 y 轴移动几个单元 

OffsetRect (&rect, x, y); 

增减矩形的尺寸 

InflateRect (&rect, x, y); 

矩形各栏位设定为 0 

SetRectEmpty (&rect); 

将矩形复制给另一个矩形 

CopyRect (&DestRect, &SrcRect); 

取得两个矩形的交集 

IntersectRect (&DestRect, &SrcRectl, &SrcRect2); 

取得两个矩形的联集 

UnionRect (&DestRect, &SrcRectl, &SrcRect2); 

确定矩形是否为空 

bEmpty 二 IsRectEmpty (&rect); 

确定点是否在矩形内 

blnRect 二 PtlnRect (&rect, point); 


大多数情况下，与这些函式相同作用的程式码很简单。例如，您可以用下 
列叙述来替代 CopyRect 函式呼叫： 


DestRect = SrcRect ; 


随机矩形 

在图形系统中，有这么一个「永远」有人执行的有趣程式，它简单地使用 
随机的大小和色彩绘制一系列矩形。您可以在 Windows 中建立一个这样的程式， 
但是它并不像乍看起来那样容易编写。我希望您能认识到，您不能简单地在 
WM _ PAINT 讯息中使用一个 while ( TRUE ) 回圈。当然，它能够执行，但是程式将 
停止对其他讯息的处理，同时，这个程式不能中止或者最小化。 

一种可以接受的方法是设定一个 Windows 计时器，给视窗程序发送 WM_TIMER 
讯息（我将在第八章中讨论计时器）。对於每条 WM _ TIMER 讯息，您使用 GetDC 
取得一个装置内容，画一个随机的矩形，然後用 ReleaseDC 释放装置内容。但 
是这样又降低了程式的趣昧性，因为程式不能尽可能快地画随机矩形，它必须 
等待 WM _ TIMER 讯息，而这又依赖於系统时钟的解析度。 

在 Windows 中一定有很多「闲置时间」，在这个时间内，所有讯息伫列为 
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空， Windows 只停在一个小回圈中等待键盘或者滑鼠输入。我们能否在闲置时间 
内获得控制，绘制矩形，并且只在有讯息加入程式的讯息伫列之後才释放控制 
呢？这就是 PeekMessage 函式的目的之一。下面是 PeekMessage 呼叫的一个例 

子： 

PeekMessage (&msg, NULL, ◦, ◦, PM—REMOVE); 

前面的四个参数（一个指向 MSG 结构的指标、 一 个视窗代号、两个值指示 
讯息范围）与 GetMessage 的参数相同。将第二、三、四个参数设定为 NULL 或0 
时，表明我们想让 PeekMessage 传回程式中所有视窗的所有讯息。 如果要将讯 
息从讯息伫列中删除，则将 PeekMessage 的最後一个参数设定为 PM _ REM 0 VE 。 如 
果您不希望删除讯息，那么您可以将这个参数设定为 PM _ N 0 REM 0 VE 。 这就是为什 
么 PeekMessage 是「偷看」而不是「取得」的原因，它使得程式可以检查程式 
的伫列中的下一个讯息，而不实际删除它。 

GetMessage 不将控制传回给程式，直到从程式的讯息伫列中取得讯息，但 
是 PeekMessage 总是立刻传回，而不论一个讯息是否出现。当讯息伫列中有一 
个讯息时， PeekMessage 的传回值为 TRUE (非 0) ，并且将按通常方式处理讯息。 
当仁列中没有讯息时， PeekMessage 传回 FALSE (0) 。 

这使得我们可以改写普通的讯息回圈。我们可以将如下所示的 回圈： 

while (GetMessage (&msg, NULL, 0 , 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 


替换为下面的回圈: 


while 

(TRUE) 


I 

if (PeekMessage (&msg, 

NULL, ◦, ◦, PM REMOVE)) 



if (msg.message : 

==WM QUIT) 



break ; 




TranslateMessage 

(&msg); 


} 

else 

{ 

} 

DispatchMessage 

(&msg); 


// 完成某 A 工作的其他行程式 

} 

return msg. 

.wParam ; 



注意， WM _ QUIT 讯息被另外挑出来检查。在普通的讯息回圈中您不必这么作， 
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因为如果 GetMessage 接收到一个 WM QUIT 讯息，它将传回0，但是 PeekMessage 
用它的传回值来指示是否得到一个讯息，所以需要对 WM _ QUIT 进行检查。 

如果 PeekMessage 的传回值为 TRUE ， 则讯息按通常方式进行处理。如果传 
回值为 FALSE ， 则在将控制传回给 Windows 之前，还可以作一点工作（如显示另 
一个随机矩形）。 

(尽管 Windows 文件上说，您不能用 PeekMessage 从讯息仁列中删除 
WM _ PAINT 讯息，但是这并不是什么大不了的问题。毕竟， GetMessage 并不从讯 
息伫列中删除 WM _ PAINT 讯息。 从伫列中删除 WM _ PAINT 讯息的唯一方法是令视 
窗显示区域的失效区域变得有效，这可以用 ValidateRect 和 ValidateRgn 或者 
BeginPaint 和 EndPaint 对来完成。如果您在使用 PeekMessage 从仁列中取出 
WM _ PAINT 讯息後，同平常一样处理它，那么就不会有问题了。所不能作的是使 
用如下所示的程式码来清除讯息伫列中的所有 讯息： 

while (PeekMessage (&msg, NULL, ◦, ◦, PM—REMOVE)); 

这行叙述从讯息伫列中删除 WM _ PAINT 之外的所有讯息。如果伫列中有一个 
WM _ PAINT 讯息，程式就会永远地陷在 while 回圈中。） 

PeekMessage 在 Windows 的早期版本中比在 Windows 98中要重要得多。这 
是因为 Windows 的16位元版本使用的是非优先权式的多工（我将在第二十章中 
讨论这一点）。 Windows 的 Terminal 程式在从通讯燁接收输入後，使用一个 
PeekMessage 回圈。列印管理器程式使用这个技术来进行列印，其他的 Windows 
列印应用程式通常都会使用一个 PeekMessage 回圈。在 Windows 98优先权式的 
多工环境下，程式可以建立多个执行绪，我们将第二十章看到这一点。 

不管怎样，有了 PeekMessage 函式，我们就可以编写一个不停地显示随机 
矩形的程式。这个 RANDRECT 如程式 5-7 中所示。 


程式 5-7 RANDRECT 


RANDRECT.C 

/* - 

RANDRECT.C -- Displays Random Rectangles 

(c) Charles Petzold, 1998 



♦include <windows.h> 

♦include <stdlib.h> // for the rand function 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 
void DrawRectangle (HWND); 

int cxClient , cyClient ; 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 
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{ 

static TCHAR szAppName[] = TEXT ("RandRect"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc= WndProc ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass•hlnstance = hlnstance ; 

wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor = LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = NULL ; 

wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("This program requires Windows NT ! ▼，）， 

szAppName, MB_ICONERROR); 

return 0 ; 

} 

hwnd = CreateWindow ( szAppName, TEXT ("Random Rectangles M ), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT A 
NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (TRUE) 

{ 

if (PeekMessage (&msg, NULL, 0, ◦, PM—REMOVE)) 

{ 

if (msg.message == WM—QUIT) 
break ; 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

else 

DrawRectangle (hwnd); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc (HWND hwnd, UINT iMsg, WPARAM wParam, LPARAM IParam) 
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switch (iMsg) 

{ 

case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, iMsg, wParam, IParam); 

} 

void DrawRectangle (HWND hwnd) 

{ 

HBRUSH hBrush ; 

HDC hdc ; 

RECT rect ; 

if (cxClient == ◦ || cyClient == 0) 
return ; 

SetRect (&rect, rand () % cxClient, rand () % cyClient, 

rand () % cxClient, rand () % cyClient); 
hBrush = CreateSolidBrush ( 

RGB (rand () % 256, rand () % 256, rand () % 256)); 
hdc = GetDC (hwnd); 

FillRect (hdc, &rect, hBrush); 

ReleaseDC (hwnd, hdc); 

DeleteObj ect (hBrush); 

} 

这个程式在现在的电脑上执行得非常快，看起来都不像是一系列随机矩形 
了。程式使用我在上面讨论过的 SetRect 和 FillRect 函式，根据由 C 的 rand 
函式得到的乱数决定矩形座标和实心画刷的色彩。我将在第二十章中提供这个 
程式的多执行绪版本。 

建立和绘制剪裁区域 

剪裁区域是对显示器上一个范围的描述，这个范围是矩形、多边形和椭圆 
的组合。剪裁区域可以用於绘制和剪裁，通过将剪裁区域选进装置内容，就可 _ 

以用剪裁区域来进行剪裁（就是说，将可以绘图的范围限制为显示区域的一部 

分）。与画笔、画刷和点阵图一样，剪裁区域是 GDI 物件，您应该呼叫 DeleteObject 
来删除您所建立的剪裁区域。 

当您建立一个剪裁区域时， Windows 传回一个该剪裁区域的代号，型态为 
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HRGN 。 最简单的剪裁区域是矩形，有两种建立矩形的 方法： 

hRgn = CreateRectRgn (xLeft, yTop, xRight, yBottom); 

或者 

hRgn = CreateRectRgnIndirect (&rect); 

您也可以建立椭圆剪裁 区域： 

hRgn = CreateEllipticRgn (xLeft, yTop, xRight, yBottom); 

或者 

hRgn = CreateEllipticRgnIndirect (&rect); 

CreateRoundRectRgn 建立圆角的矩形剪裁区域。 

建立多边形剪裁区域的函式类似於 Polygon 函式： 

hRgn = CreatePolygonRgn (&point , iCount, iPolyFillMode); 

point 参数是一个 POINT 型态的结构阵列， iCount 是点的数目， 
iPolyFillMode 是 ALTERNATE 或者 WINDING 。 您还可以用 CreatePolyPolygonRgn 

来建立多个多边形剪裁区域。 

那么，您会问，剪裁区域究竟有什么特别之处？下面这个函式才真正显示 
出了剪裁区域的 作用： 

iRgnType = CombineRgn (hDestRgn, hSrcRgnl , hSrcRgn2, iCombine); 

这一函式将两个剪裁区域 （ hSixRgnl 和 hSrcRgn 2 ) 组合起来并用代号 
hDestRgn 指向组合成的剪裁区域。这三个剪裁区域代号都必须是有效的，但是 
hDestRgn 原来所指向的剪裁区域被破坏掉了（当您使用这个函式时，您可能要 
让 hDestRgn 在初始时指向一个小的矩形剪裁区域）。 

iCombine 参数说明 hSrcRgnl 和 hSrcRgn 2 如何组合，见表5-9。 


表 5-9 


iCombine 值 

新剪裁区域 

RGN_AND 

两个剪裁区域的公共部分 

RGN—OR 

两个剪裁区域的全部 

RGN—XOR 

两个剪裁区域的全部除去公共部分 

RGN—DIFF 

hSrcRgnl 不在 hSrcRgn2 中的部分 

RGN—COPY 

hSrcRgnl 的全部（忽略 hSrcRgn2) 


从 CombineRgn 传回的 iRgnType 值是下列 之一： NULLREGION ， 表示得到一 
个空剪裁 区域； SIMPLEREGION ， 表示得到一个简单的矩形、椭圆或者多边形； 
C 0 MPLEXREGI 0 N ， 表示多个矩形、椭圆或多边形的 组合； ERROR ， 表示出错了。 
剪裁区域的代号可以用於四个绘图函式： 

FillRgn (hdc , hRgn, hBrush); 

FrameRgn (hdc, hRgn, hBrush, xFrame, yFrame); 

InvertRgn (hdc, hRgn); 

PaintRgn (hdc, hRgn); 
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FillRgn 、 FrameRgn 和 InvertRgn 类似方令 FillRect 、 FrameRect 和 
InvertRect 。 FrameRgn 的 xFrame 和 yFrame 参数是画在区域周围的边框的宽度 
和高度。 PaintRgn 函式用装置内容中目前画刷填入所指定的区域。 所有这些函 
式都假定区域是用逻辑座标定义的。 

~ 在您用完一个区域後，可以像删除其他 GDI 物件那样删 除它： 

DeleteObj ect (hRgn); 

矩形与区域的剪裁 

区域也在剪裁中扮演了一个角色。 InvalidateRect 函式使显示的一个矩形 
区域失效，并产生一个 WM PAINT 讯息。例如，您可以使用 InvalidateRect 函 
式来清除显示区域并产生一个 WM _ PAINT 讯息： 

InvalidateRect (hwnd, NULL, TRUE); 

您可以通过呼叫 GetUpdateRect 来取得失效矩形的座标，并且可以使用 
ValidateRect 函式使显示区域的矩形有效。 当您接收到一个 WM _ PAINT 讯息时， 
无效矩形的座标可以从 PAINTSTRUCT 结构中得到，该结构是用 BeginPaint 函式 
填入的。这个无效矩形还定义了一个「剪裁区域」，您不能在剪裁区域外绘图。 
~~ Windows 有两个作用於剪裁区域而不是矩形的函式，它们类似於 

InvalidateRect 和 ValidateRect ： 

工 nvalidateRgn (hwnd, hRgn, bErase); 

和 

ValidateRgn (hwnd A hRgn); 

当您接收到一个由无效区域引起的 WM _ PAINT 讯息时，剪裁区域不一定是矩 
形。 

_ 您可以使用以下两个函式 之一： 

SelectObj ect (hdc, hRgn); 

或 

SelectClipRgn (hdc, hRgn); 

通过将一个剪裁区域选进装置内容来建立自己的剪裁区域， 这个剪裁区域 
使用装置座标。 

~ GDI 为剪裁区域建立一份副本，所以在将它选进装置内容之後，使用者可以 
删除它。 Windows 还提供了几个对剪裁区域进行操作的函式，如 ExcludedipRect 
用於将一个矩形从剪裁区域里排除掉， IntersectClipRect 用於建立一个新的剪 
裁区域，它是前一个剪裁区域与一个矩形的交， OffsetClipRgn 用於将剪裁区域 
移动到显示区域的另一部分。 
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CLOVER 程式 


CLOVER 程式用四个楠圆组成一个剪裁区域，将这个剪裁区域选进装置内容 
中，然後画出从视窗显示区域的中心出发的一系列直线，这些直线只出现在剪 
裁区域所限定的范围，结果显示如图 5-20 所示。 



图 5-20 CLOVER 利用复杂的剪裁区域画出的图像 


要用常规的方法画出这个图形，就必须根据椭圆的边线公式计算出每条直 
线的端点。利用复杂的剪裁区域，可以直接画出这些线条，而让 Windows 确定 
其端点。 CLOVER 如程式 5-8 所示。 


程式 5-8 CLOVER 

CLOVER.C 


■k _ 

CLOVER.C -- Clover Drawing Program Using Regions 

(c) Charles Petzold, 1998 


♦include <windows.h> 
♦include <math.h> 



♦define TWO_PI ( 2.0 * 3.14159) 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("Clover"); 

HWND hwnd ; 
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MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc= WndProc ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass•hlnstance = hlnstance ; 

wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor = LoadCursor (NULL, 工 DC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = NULL ; 

wndclass.IpszClassName = szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("This program requires Windows NT! n ), 
szAppName, MB_ICONERROR); 
return 0 ; 


hwnd = CreateWindow (szAppName, TEXT (’’Draw a Clover"), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT A 
CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 
ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT iMsg, WPARAM wParam, LPARAM IParam) 

{ 

static HRGN hRgnClip ; 

static int cxClient, cyClient ; 

double fAngle, fRadius ; 

HCURSOR hCursor ; 

HDC hdc ; 

HRGN hRgnTemp[6]; 

int i ; 

PAINTSTRUCT ps ; 

switch (iMsg) 
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case WM—SIZE: 

cxClient = LOWORD (IParam); 

cyClient = HIWORD (IParam); 

hCursor = SetCursor (LoadCursor (NULL, IDC_WAIT)); 

ShowCursor (TRUE); 

if (hRgnClip) 

DeleteObj ect (hRgnClip); 

hRgnTemp[0] = CreateEllipticRgn (◦, cyClient / 3, 

cxClient / 2, 2 * cyClient / 3); 
hRgnTemp[1] = CreateEllipticRgn (cxClient / 2, cyClient / 3, 

cxClient, 2 * cyClient / 3); 
hRgnTemp[2] = CreateEllipticRgn (cxClient / 3, ◦, 

2 * cxClient / 3, cyClient / 2); 
hRgnTemp[3] = CreateEllipticRgn (cxClient / 3, cyClient / 2 , 

2 * cxClient / 3, cyClient); 

hRgnTemp [4] = CreateRectRgn (◦, 0, 1, 1); 

hRgnTemp [5] = CreateRectRgn (◦, ◦, 1, 1); 

hRgnClip = CreateRectRgn (0, ◦, 1, 1); 

CombineRgn (hRgnTemp[4], hRgnTemp[◦], hRgnTemp[1], RGN—OR); 
CombineRgn (hRgnTemp[5], hRgnTemp[2], hRgnTemp[3], RGN—OR); 
CombineRgn (hRgnClip, hRgnTemp[4], hRgnTemp[5], RGN—XOR); 

for (i = ◦ ; i < 6 ; i++) 

DeleteObj ect (hRgnTemp[i]); 

SetCursor (hCursor); 

ShowCursor (FALSE); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

SetViewportOrgEx (hdc, cxClient / 2, cyClient / 2, NULL); 
SelectClipRgn (hdc, hRgnClip); 

fRadius = _hypot (cxClient / 2.0, cyClient / 2.0); 
for (fAngle = 0.0 ; fAngle < TWO_PI ; fAngle += TWO_PI / 360) 
{ 

MoveToEx (hdc, 0, ◦, NULL); 

LineTo (hdc, (int) ( fRadius * cos (fAngle) + 0.5), 

(int) (-fRadius * sin (fAngle) + 0.5)); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 
case WM DESTROY: 
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显示区域左右的两个椭圆区域组合 起来: 


同样，显示区域上下两个椭圆区域组合 起来: 


最後，两个组合後的区域再组合到 hRgnClip 中: 


RGN _ X 0 R 识别字用於从结果区域中排除重叠部分。最後，删除6个临时 区域: 


DeleteObj ect (hRgnClip); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, iMsg, wParam, IParam); 


由於剪裁区域总是使用装置座标， CLOVER 程式必须在每次接收到 WM_SIZE 
讯息时重新建立剪裁区域。几年前，这可能需要几秒钟。现在的快速机器在一 
瞬间就可以画出来。 

CLOVER 从建立四个椭圆剪裁区域开始，这四个椭圆存放在 hRgnTemp 阵列的 
头四个元素中，然後建立三个「空」剪裁 区域： 


hRgnTemp 

[4] 

= CreateRectRgn (◦, 

0 , 

1, 1); 

hRgnTemp 

[5] 

=CreateRectRgn (◦, 

0 , 

1, 1); 

hRgnClip 


=CreateRectRgn (◦, ◦, 

1, 

1 )； 


for (i = ◦ ; i < 6 ; i++) 

DeleteObj ect (hRgnTemp [i]); 


CombineRgn (hRgnTemp [4], hRgnTemp [0], hRgnTemp [1], RGN OR); 


CombineRgn (hRgnTemp [5], hRgnTemp [2], hRgnTemp [3], RGN OR); 


CombineRgn (hRgnClip, hRgnTemp [4], hRgnTemp [5], RGN XOR); 


与画出的图形比起来，丽 PAINT 的处理很简单。视埠原点设定为显示区域 


































Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

的中心（使画直线更容易一些），在 WM . SIZE 讯息处理期间建立的区域选择为 
装置内容的剪裁 区域： 

SetViewportOrg (hdc, xClient / 2, yClient / 2); 

SelectClipRgn (hdc, hRgnClip); 

现在，剩下的就是画直线了，共 360 条，每隔一度画一条。每条线的长度 
为变数 fRadius , 这是从中心到显示区域的角落的 距离： 

fRadius = hypot (xClient / 2.0, yClient / 2.0); 

for (fAngle = 0.0 ; fAngle < TW0_PI ; fAngle += TW0_PI / 360) 

{ 

MoveToEx (hdc, 0, 0, NULL); 

LineTo (hdc, (int) ( fRadius * cos (fAngle) + 0.5), 

(int) (-fRadius * sin (fAngle) + 0.5)); 

} 

在处理 WM _ DESTR 0 Y 讯息时，删除该剪裁 区域： 

DeleteObj ect (hRgnClip); 

这不是本书关於图形程式设计的最後内容第十三章讨论列印，第十四章和 
十五章讨论点阵图，第十七章讨论文字和字体，第十八章讨论 metafile 。 
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第六章键盘 

在 Microsoft Windows 98中，键盘和滑鼠是两个标准的使用者输入来源， 
在一些连贯操作中常产生互补作用。当然，滑鼠在今天的应用程式中比十年前 
使用得更为广泛。甚至在一些应用程式中，我们更习惯於使用滑鼠，例如在游 
戏、画图程式、音乐程式以及 Web 浏览器等程式中就是这样。然而，我们可以 
不使用滑鼠，但绝对不能从一般的 PC 中把键盘拆掉。 

相对於个人电脑的其他元件，键盘有非常久远的历史，它起源於1874年的 
第一台 Remington 打字机。早期的电脑程式员用键盘在 Hollerith 卡片上打孔， 
後来在终端机上用键盘直接与大型主机沟通。 PC 上的键盘在某些方面进行了扩 
充，加上了功能键、游标移动键和单独的数字键盘，但它们的输入原理基本相 
同。 

键盘基础 

您大概已经猜到 Windows 程式是如何获得键盘输 入的： 键盘输入以讯息的 
形式传递给程式的视窗讯息处理程式。实际上，第一次学习讯息时，键盘事件 
就是一个讯息如何将不同型态资讯传递给应用程式的显例。 

Windows 用八种不同的讯息来传递不同的键盘事件。这好像太多了，但是(就 
像我们所看到的一样）程式可以忽略其中至少一半的讯息而不会有任何问题。 
并且，在大多数情况下，这些讯息中包含的键盘资讯会多於程式所需要的。处 
理键盘的部分工作就是识别出哪些讯息是重要的，哪些是不重要的。 


忽略#盘 


虽然键盘是 Windows 程式中使用者输入的主要来源，但是程式不必对它接 
收的所有讯息都作出回应。 Windows 本身也能处理许多键盘功能。 

例如，您可以忽略那些属於系统功能的按键，它们通常用到 Alt 键。程式 
不必监视这些按键，因为 Windows 会将按键的作用通知程式（当然，如果程式 
想这么做，它也能监视这些按键）。虽然呼叫程式功能表的按键将通过视窗的 
视窗讯息处理程式，但通常内定的处理方式是将按键传递给 DefWindowProc 。 最 
终，视窗讯息处理程式将获得一个讯息，表示一个功能表项被选择了。通常， 
这是所有视窗讯息处理程式需要知道的（在第十章将介绍功能表）。 

有些 Windows 程式使用「键盘加速键」来启动通用功能表项。加速键通常 
是功能键或字母同 Ctrl 键的组合（例如， Ctrl - S 用於保存档案）。这些键盘加 
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速键与程式功能表一起在程式的资源描述档案中定义（我们可以在第十章看 
到）。 Windows 将这些键盘加速键转换为功能表命令讯息，您不必自己去进行转 
换。 

对话方块也有键盘介面，但是当对话方块处於活动状态时，应用程式通常 
不必监视键盘。键盘介面由 Windows 处理， Windows 把关於按键作用的讯息发送 
给程式。对话方块可以包含用於输入文字的编辑控制项。它们一般是小方框， 
使用者可以在框中键入字串。 Windows 处理所有编辑控制项逻辑，并在输入完毕 
後，将编辑控制项的最终内容传送给程式。关於对话方块的详细资讯，请参见 
第十一章。 

编辑控制项不必局限於单独一行，而且也不限於只在对话方块中。一个在 
程式主视窗内的多行编辑控制项就能够作为一个简单的文字编辑器了（参见第 
九、十、十一和十三章的 P 0 PPAD 程式）。 Windows 甚至有一个 Rich Text 文字 
编辑控制项，允许您编辑和显示格式化的文字（请参见 /Platform SDK/User 
Interface Services / Controls/Rich Edit Controls ) 。 

您将会发现，在开发 Windows 程式时，可以使用处理键盘和滑鼠输入的子 
视窗控制项来将较高层的资讯传递回父视窗。只要这样的控制项用得够多，您 
就不会因处理键盘讯息而烦恼了。 

谁获得了焦点 

与所有的个人电脑硬体一样，键盘必须由在 Windows 下执行的所有应用程 
式共用。有些应用程式可能有多个视窗，键盘必须由该应用程式内的所有视窗 
共用。 

回想一下，程式用来从讯息伫列中检索讯息的 MSG 结构包括 hwnd 栏位。此 
栏位指出接收讯息的视窗控制项码。讯息回圈中的 DispatchMessage 函式向视 
窗讯息处理程式发送该讯息，此视窗讯息处理程式与需要讯息的视窗相联系。 
在按下键盘上的键时，只有一个视窗讯息处理程式接收键盘讯息，并且此讯息 
包括接收讯息的视窗控制项码。 

接收特定键盘事件的视窗具有输入焦点。输入焦点的概念与活动视窗的概 
念很相近。有输入焦点的视窗是活动视窗或活动视窗的衍生视窗（活动视窗的 
子视窗，或者活动视窗子视窗的子视窗等等）。 

通常很容易辨别活动视窗。它通常是顶层视窗 一一 也就是说，它的父视窗 
代号是 NULL 。 如果活动视窗有标题列， Windows 将突出显示标题列。如果活动 
视窗具有对话方块架（对话方块中很常见的格式）而不是标题列， Windows 将突 
出显示框架。如果活动视窗目前是最小化的， Windows 将在工作列中突出显示该 
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项，其显示就像一个按下的按钮。 

如果活动视窗有子视窗，那么有输入焦点的视窗既可以是活动视窗也可以 
是其子视窗。最常见的子视窗有类似以下控 制项： 出现在对话方块中的下压按 
钮、单选钮、核取方块、卷动列、编辑方块和清单方块。子视窗不能自己成为 
活动视窗。只有当它是活动视窗的衍生视窗时，子视窗才能有输入焦点。子视 
窗控制项一般通过显示一个闪烁的插入符号或虚线来表示它具有输入焦点。 

有时输入焦点不在任何视窗中。这种情况发生在所有程式都是最小化的时 
候。这时， Windows 将继续向活动视窗发送键盘讯息，但是这些讯息与发送给非 
最小化的活动视窗的键盘讯息有不同的形式。 

视窗讯息处理程式通过拦截 WM _ SETFOCUS 和 WM _ KILLFOCUS 讯息来判定它的 
视窗何时拥有输入焦点。 mLSETFOCTS 指示视窗正在得到输入焦点， 
WM _ KILLFOCUS 表示视窗正在失去输入焦点。我将在本章的後面详细说明这些讯 


长列和同步 

当使用者按下并释放键盘上的键时， Windows 和键盘驱动程式将硬体扫描码 

转换为格式讯息。然而，这些讯息并不保存在讯息伫列中。实际上， Windo ~ 

所谓的「系统讯息伫列」中保存这些讯息。系统讯息伫列是独立的讯息伫列， 
它由 Windows 维护，用於初步保存使用者从键盘和滑鼠输入的资讯。只有 g 

Windows 应用程式处理完前一个使用者输入讯息时， Windows 才会从系统 讯息亡 

列中取出下一个讯息，并将其放入应用程式的讯息伫列中。 

此过程分为两步：首先在系统讯息伫列中保存讯息，然後将它们放入应用 

程式的讯息伫列，其原因是需要同步。 就像我们刚才所学的，假定接收键盘输 
入的视窗就是有输入焦点的视窗。使用者的输入速度可能比应用程式处理按键 
的速度快，并且特定的按键可能会使焦点从一个视窗切换到另一个视窗，後来 
的按键就输入到了另一个视窗。但如果後来的按键已经记下了目标视窗的位址， 
并放入了应用程式讯息伫列，那么後来的按键就不能输入到另一个视窗。 

按键和字元 

应用程式从 Windows 接收的关於键盘事件的讯息可以分为按键和字元两类， 
这与您看待键盘的两种方式一致。 

首先，您可以将键盘看作是键的集合。键盘只有唯一的 A 键，按下该键是 
一次按键，释放该键也是一次按键。但是键盘也是能产生可显示字元或控制字 
元的输入设备。根据 Ctrl 、 Shift 和 Caps Lock 键的状态， A 键能产生几个字 
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元。通常情况下，此字元为小写 a 。 如果按下 Shift 键或者打开了 Caps Lock , 
则该字元就变成大写 A 。 如果按下了 Ctrl , 则该字元为 Ctrl-A (它在 ASCII 中 
有意义，但在 Windows 中可能是某事件的键盘加速键）。在一些键盘上， A 按键 
之前可能有「死字元键 ( dead-character key ) J 或者 Shift 、 Ctrl 或者 Alt 的 
不同组合，这些组合可以产生带有音调标记的小写或者大写，例如，3 、 t §、 

A 、 或 A 。 

对产生可显示字元的按键组合， Windows 不仅给程式发送按键讯息，而且还 

发送字元讯息。 有些键不产生字元，这些键包括 shift 键、功能键、游标移动 
键和特殊字元键如 Insert 和 Delete 。 对於这些键， Windows 只产生按键讯息。 

按键讯息 

当您按下一个键时， Windows 把 WM _ KEYDOWN 或者 WM _ SYSKEYDOWN 讯息放入 
有输入焦点的视窗的讯息 伫列； 当您释放一个键时， Windows 把 WM _ KEYUP 或者 
WM _ SYSKEYUP 讯息放入讯息伫列中。 


表 6-1 



键按下 

键释放 

非系统键 

WM—KEYD0WN 

WM—KEYUP 

系统键 

M_SYSKEYDOWN 

WM_SYSKEYUP 


通常 「down (按下）」和 「up (放开）」讯息是成对出现的。不过，如果 
您按住一个键使得自动重复功能生效，那么当该键最後被释放时， Windows 会给 
视窗讯息处理程式发送一系列 WM_KEYDOWN (或者 WM _ SYSKEYDOWN ) 讯息和一个 
WM_KEYUP (或者 WM _ SYSKEYUP ) 讯息。像所有放入伫列的讯息一样，按键讯息也 
有时间资讯。通过呼叫 GetMessageTime , 您可以获得按下或者释放键的相对时 
间。 

系统按键与非系统按键 

■ LSYSKEYDOWN 和 WM _ SYSKEYUP 中的 「 SYS 」 代表「系统」，它表示该按键 
对 Windows 比对 Windows 应用程式更加重要。 WM _ SYSKEYDOWN 和 WM _ SYSKEYUP 讯 
息经常由与 Alt 相组合的按键产生， 这些按键启动程式功能表或者系统功能表 
上的选项，或者用於切换活动视窗等系统功能 ( Alt - Tab 或者 Alt - Esc ) ，也可 
以用作系统功能表加速键 ( Alt 键与一个功能键相结合，例如 Alt - F 4 用於关闭 
应用程式）。程式通常忽略 WM _ SYSKEYUP 和 WM _ SYSKEYDOWN 讯息，并将它们传 
送到 DefWindowProc 。 由於 Windows 要处理所有 Alt 键的功能，所以您无需拦截 
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这些讯息。您的视窗讯息处理程式将最後收到关於这些按键结果（如功能表选 
择）的其他讯息。如果您想在自己的视窗讯息处理程式中加上拦截系统按键的 
程式码（如本章後面的 KEYVIEW 1 和 KEYVIEW 2 程式所作的那样），那么在处理 
这些讯息之後再传送到 DefWindowProc , Windows 就仍然可以将它们用於通常的 
目的。 


但是，请再考虑一下，几乎所有会影响使用者程式视窗的讯息都会先通过 
使用者视窗讯息处理程式。只有使用者把讯息传送到 DefWindowProc , Windows 
才会对讯息进行处理。例如，如果您将下面几行 叙述： 


case 

WM 

_SYSKEYDOWN: 

case 

WM 

SYSKEYUP: 

case 

WM 

_SYSCHAR: 



return 0 ; 


加入到一个视窗讯息处理程式中，那么当您的程式主视窗拥有输入焦点时， 
就可以有效地阻止所有 Alt 键操作（我将在本章的後面讨论 WM _ SYSCHAR ) ，其 


中包括 Alt - Tab 、 Alt - Esc 以及功能表操作。虽然我怀疑您会这么做，但是，我 
相信您会感到视窗讯息处理程式的强大功能。 

WM _ KEYDOWN 和 WM _ KEYUP 讯息通常是在按下或者释放不带 Alt 键的键时产生 
旌 您的程式可以使用或者忽略这些讯息， Windows 本身并不处理这些讯息。 

_ 对所有四类按键讯息， wParam 是虚拟键代码，表示按下或释放的键，而 
IParam 则包含属於按键的其他资料。 


虚拟键码 


虚拟键码保存在 WM _ KEYDOWN 、 WM _ KEYUP 、 WM_SYSKEYDOWN 和 WM_SYSKEYUP 
讯息的 wParam 参数中。此代码标识按下或释放的键。 

哈，又是「虚拟」，您喜欢这个词吗？虚拟指的是假定存在於思想中而不 
是现实世界中的一些事物，也只有熟练使用 DOS 组合语言编写应用程式的程式 
写作者才有可能指出，为什么对 Windows 键盘处理如此基本的键码是虚拟的而 
不是真实的。 

对於早期的程式写作者来说，真实的键码由实际键盘硬体产生。在 Windows 
文件中将这些键码称为「扫描码 (scan codes )」 。在 IBM 相容机种上，扫描码 
16是 Q 键，17是 W 键，18是 E 、 19是 R ， 20是 T ， 21是 Y 等等。这时您会发现， 
扫描码是依据键盘的实际布局的。 Windows 开发者认为这些代码过於与设备相关 
了，於是他们试图通过定义所谓的虚拟键码，以便经由与装置无关的方式处理 
键盘。其中一些虚拟键码不能在 IBM 相容机种上产生，但可能会在其他制造商 
生产的键盘中找到，或者在未来的键盘上找到。 
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您使用的大多数虚拟键码的名称在 WINUSER . H 表头档案中都定义为以 VK _ 
开头。表 6-2 列出了这些名称和数值（十进位和十六进位），以及与虚拟键相 
对应的 IBM 相容机种键盘上的键。下表也标出了 Windows 执行时是否需要这些 
键。下表还按数位顺序列出了虚拟键码。 

前四个虚拟键码中有三个指的是滑 鼠键： 


表 6-2 


十进位 

十六进位 

WINUSER . H 识别字 

必需？ 

IBM 相容键盘 


01 

VK_LBUTTON 


滑鼠左键 

2 

02 

VK—RBUTT0N 


滑鼠右键 

3 

03 

VK—CANCEL 

V 

Ctrl-Break 

4 

04 

VK—MBUTTON 


滑鼠中键 


您永远都不会从键盘讯息中获得这些滑鼠键代码。在下一章可以看到，我 
们能够从滑鼠讯息中获得它们。 VK _ CANCEL 代码是一个虚拟键码，它包括同时按 
下两个键 ( Ctrl - Break ) 。 Windows 应用程式通常不使用此键。 

表 6- 3中的键 -- Backspace 、 Tab 、 Enter、Escape 和 Spacebar -通常用 

方令 Windows 程式。不过 ， Windows —般用字元讯息（而不是键盘讯息）来处理这 
些键。 


表 6-3 


十进位 

十六进位 

WINUSER . H 识别字 

必需？ 

IBM 相容键盘 

8 

08 

VK—BACK 

V 

Backspace 

9 

09 

VK—TAB 

V 

Tab 

12 

0C 

VK—CLEAR 


Num Lock 关闭时的数字键盘 5 

13 

0D 

VK_RETURN 

V 

Enter ( 或者另一个） 

16 

10 

VK_SHIFT 

V 

Shift ( 或者另一个） 

17 

11 

VK—CONTROL 

V 

Ctrl ( 或者另一个） 

18 

12 

VK—MENU 

V 

Alt ( 或者另一个） 

19 

13 

VK—PAUSE 


Pause 

20 

14 

VK—CAP HAL 

V 

Caps Lock 

27 

1B 

VK—ESCAPE 

V 

Esc 

32 

20 

VK—SPACE 

V 

Spacebar 


另外， Windows 程式通常不需要监视 Shift 、 Ctrl 或 Alt 键的状态。 

表 6-4 列出的前八个码可能是与 VK _ INSERT 和 VK_DELETE 一 起最常用的虚 


拟 键码: 


表 6-4 
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十进位 

十六进位 

WINUSER . H 识别字 

必需？ 

IBM 相容键盘 

33 

21 

VK—PRIOR 

V 

Page Up 

34 

22 

VK—NEXT 

V 

Page Down 

35 

23 

VK—END 

V 

End 

36 

24 

VK—HOME 

V 

Home 

37 

25 

VK—LEFT 

V 

左箭头 

38 

26 

VK—UP 

V 

上箭头 

39 

27 

VK—RIGHT 

V 

右箭头 

40 

28 

VK—DOWN 

V 

下箭头 

41 

29 

VK—SELECT 



42 

2A 

VK_PRINT 



43 

2B 

VK_EXECUTE 



44 

2C 

VK_SNAPSHOT 


Print Screen 

45 

2D 

VK_INSERT 

V 

Insert 

46 

2E 

VK_DELETE 

V 

Delete 

47 

2F 

VK—HELP 




注意，许多名称（例如 VK _ PRI 0 R 和 VK + NEXT ) 都与键上的标志不同，而且 
也与卷动列中的识别字不统一 。 Print Screen 键在平时都被 Windows 应用程式 
所忽略。 Windows 本身回应此键时会将视讯显示的点阵图影本存放到剪贴板中。 
假使有键盘提供了 VK _ SELECT 、 VK _ PRINT 、 VK _ EXECUTE 和 VK _ HELP ，大概也没几 
个人看过那样的键盘。 

Windows 也包括在主键盘上的字母和数位键的虚拟键码（数字键盘将单独处 
理）。 


表 6-5 


十进位 

十六进位 

WINUSER . H 识别字 

必需？ 

IBM 相容键盘 

48-57 

30-39 

无 

V 

主键盘上的 0 到 9 

65-90 

41-5A 

无 

V 

A 到 Z 


注意，数字和字母的虚拟键码是 ASCII 码。 Windows 程式几乎从不使用这些 
虚拟 键码； 实际上，程式使用的是 ASCII 码字元的字元讯息。 

表 6- 6所示的代码是由 Microsoft Natural Keyboard 及其相容键盘产生的: 


表 6-6 


十进位 

十六进位 

WINUSER . H 识别字 

必需？ 

IBM 相容键盘 

91 

5B 

VK_LWIN 


左 Windows 键 
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92 

5C 

VK_RWIN 


右 Windows 键 

93 

5D 

VK_APPS 


Applications 键 


Windows 用 VKJLWIN 和 VK _ RWIN 键打开「开始」功能表或者（在以前的版本 
中）启动「工作管理员程式」。这两个都可以用於登录或登出 Windows (只在 
Microsoft Windows NT 中有效），或者登录或登出网路（在 Windows for 

Applications 中）。应用程式能够通过显示辅助资讯或者当成捷径键看待来处 
理 application 键。 

表 6-7 所示的代码用於数字键盘上的键（如果有的 话）： 


表 6-7 


十进位 

十六进位 

WINUSER . H 识别字 

必需？ 

IBM 相容键盘 

96-105 

60-69 

VK—NUMPAD0 到 VK_ NUMPAD9 


NumLock 打开时 

数字键盘上的 0 

到 9 

106 

6A 

VK—MULTIPLY 


数字键盘上的 * 

107 

6B 

VK—ADD 


数字键盘上的 + 

108 

6C 

VK_SEPARAT0R 



109 

6D 

VK_SUBTRACT 


数字键盘上的 - 

110 

6E 

VK—DECIMAL 


数字键盘上的 . 

111 

6F 

VK—DIVIDE 


数字键盘上的 / 


最後，虽然多数的键盘都有12个功能键，但 Windows 只需要10个，而位 
元旗标却有24个。另外，程式通常用功能键作为键盘加速键，这样，它们通常 
不处理表 6-8 所示的 按键： 


表 6-8 


十进位 

十六进位 

WINUSER . H 识别字 

必需？ 

IBM 相容键盘 

112-121 

70-79 

VK—F1 到 VK_F10 

V 

功能键 FI 到 F10 

122-135 

7A-87 

VK_F11 到 VK_F24 


功能键 FI 1 到 F24 

144 

90 

VK—NUMLOCK 


Num Lock 

145 

91 

VK_SCR0LL 


Scroll Lock 


另外，还定义了一些其他虚拟键码，但它们只用於非标准键盘上的键，或 
者通常在大型主机终端机上使用的键。查看/ Platform SDK / User Interface 
Services / User Input / Virtual-Key Codes , 可得到完整的列表。 
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IParam 资讯 

在四个按键讯息 （ WM _ KEYDOWN 、 WM _ KEYUP 、 WM_SYSKEYDOWN 和 WM _ SYSKEYUP ) 
中， wParam 讯息参数含有上面所讨论的虚拟键码，而 IParam 讯息参数则含有对 

了解按键非常有用的其他资讯。 IPamm 的32位分为6个栏位，如图 6_1 所示。 

Extended Key Flag 


31 

30 29 28 27 26 25 24 23 

• • • 

16 

15 

• • • 

00 



Context Code 


II l 

i 

16-Bit Repeat 


Previous Key State 


Count 

1 Transition State 

8-Bit OEM 


Scan Code 

图 6-1 IParam 变数的 6 个按键讯息栏位 

重复计数 (Repeat Count ) 

重复计数是该讯息所表示的按键次数，大多数情况下，重复计数设定为1。 
不过，如果按下一个键之後，您的视窗讯息处理程式不够快，以致不能处理自 
动重复速率（您可以在「控制台」的「键盘」中进行设定）下的按键讯息 ， Windows 
就把几个 WM + KEYDOWN 或者 WM _ SYSKEYDOWN 讯息组合到单个讯息中，并相应地增 
加重复计数。 WM _ KEYUP 或 WM _ SYSKEYUP 讯息的重复计数总是为1。 

因为重复计数大於1指示按键速率大於您程式的处理能力，所以您也可能 
想在处理键盘讯息时忽略重复计数。几乎每个人都有文书处理或执行试算表时 
画面卷过头的经验，因为多余的按键堆满了键盘缓冲区，所以当程式用一些时 
间来处理每一次按键时，如果忽略您程式中的重复计数，就能够解决此问题。 
不过，有时可能也会用到重复计数，您应该尝试使用两种方法执行程式，并从 
中找出一种较好的方法。 

OEM 扫描码 (OEM Scan Code ) 


OEM 扫描码是由硬体（键盘）产生的代码。这对中古时代的组合语言程式写 
作者来说应该很熟悉，它是从 PC 相容机种的 ROM BIOS 服务中所获得的值 (OEM 
指的是 PC 的原始设备制造商 （Original Equipment Manufacturer ) 及其与 「 IBM 

标准」同步的内容）。在此我们不需要更多的资讯。除非需要依赖实际键盘布 
局的样貌，不然 Windows 程式可以忽略掉几乎所有的 OEM 扫描码资讯，参见第 
二十二章的程式 KBMIDI 。 
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扩充键旗标 (Extended Key Flag) 


如果按键结果来自 IBM 增强键盘的附加键之一，那么扩充键旗标为1 (IBM 
增强型键盘有101或102个键。功能键在键盘顶端，游标移动键从数字键盘中 
分离出来，但在数字键盘上还保留有游标移动键的功能）。对键盘右端的 Alt 
和 Ctrl 键，以及不是数字键盘那部分的游标移动键(包括 Insert 和 Delete 键)、 
数字键盘上的斜线 （/) 和 Enter 键以及 Num Lock 键等，此旗标均被设定为1。 
Windows 程式通常忽略扩充键旗标。 


内容代码 (Context Code) 


右按键时，假如同时压下 ALT 键，那么内容代码为1。对 WM _ SYSKEYUP 与 
WM _ SYSKEYD 0 WN 而言，此位元总视为1;而对 WM _ KEYUP 与 m ^ KEYDOW 讯息而言， 
此位元为0。除了两个 之外： 

如果活动视窗最小化了，则它没有输入焦点。这时候所有的按键都会产生 
WM _ SYSKEYUP 和 WM _ SYSKEYD 0 WN 讯息。如果 Alt 键未被按下，则内容代码栏位被 
设定为0。 Windows 使用 WM _ SYSKEYUP 和 WM _ SYSKEYD 0 WN 讯息，从而使最小化了 
的活动视窗不处理这些按键。 

对於一些外国语文（非英文）键盘，有些字元是通过 Shift 、 Ctrl 或者 Alt 
键与其他键相组合而产生的。这时内容代码为1，但是此讯息并非系统按键讯息。 _ 

键的先前状态 (Previous Key State) 

如果在此之前键是释放的，则键的先前状态为0，否则为1。对 WM_KEYUP 
或者 WM _ SYSKEYUP 讯息，它总是设定为1;但是对 WM _ KEYD 0 ffN 或者 WM _ SYSKEYD 0 WN 
讯息，此位元可以为0,也可以为1。如果为1，则表示该键是自动重复功 

产生的第二个或者後续讯息。 

转换状态 (Transition State) 

如果键正被按下，则转换状态为0;如果键正被释放，则转换状态为1。对 
WM _ KEYD 0 WN 或者 WM _ SYSKEYD 0 WN 讯息，此栏位为0;对 WM_KEYUP 或者 WM_SYSKEYUP 

讯息，此栏位为1。 

位移状态 

在处理按键讯息时，您可能需要知道是否按下了位移键 （ Shift 、 Ctrl 和 
Alt ) 或开关键 （Caps Lock、Num Lock 和 Scroll Lock ) 。通过呼叫 GetKeyState 
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函式，您就能获得此资讯。 例如： 

iState = GetKeyState (VK—SHIFT); 

如果按下了 Shift , 则 iState 值为负（即设定了最高位置位元）。如果 Caps 
Lock 键打开，则从 

iState = GetKeyState (VK—CAPITAL); 

传回的值低位元被设 _ 为1。此位元与键盘上的小灯保持一致。 

通常，您在使用 GetKeyState 时，会带有虚拟键码 VK _ SHIFT 、 VK _ C 0 NTR 0 L 
和 VKJffiNU (在说明 Alt 键时呼叫）。使用 GetKeyState 时，您也可以用下面的 
识别字来确定按下的 Shift 、 Ctrl 或 Alt 键是左边的还是右 边的： VK _ LSHIFT 、 
VK _ RSHIFT 、 VKJXONTROL 、 VK _ RC 0 NTR 0 L 、 VKJLMENU 、 VK _ RMENU 。 这些识别字只 
用於 GetKeyState 和 GetAsyncKeyState (下面将详细说明）。 

使用虚拟键码 VK _ LBUTTON 、 VK _ RBUTTON 和 VK _ MBUTTON ， 您也可以获得滑鼠 
键的状态。不过，大多数需要监视滑鼠键与按键相组合的 Windows 应用程式都 
使用其他方法来做到这一点 一一 即在接收到滑鼠讯息时检查按键。实际上，位 
移状态资讯包含在滑鼠资讯中，正如您在下一章中将看到的一样。 

请注意 GetKeyState 的使用，它并非即时检查键盘状态，而只是检查直到 
目前为止正在处理的讯息的键盘状态 。多数情况下，这正符合您的要求。如果 
您需要确定使用者是否按下了 Shift - Tab , 请在处理 Tab 键的 WM _ KEYDOWN 讯息 
时呼叫 GetKeyState ， 带有参数 VK _ SHIFT 。 如果 GetKeyState 传回的值为负， 
那么您就知道在按下 Tab 键之前按下了 Shift 键。并且，如果在您开始处理 Tab 
键之前，已经释放了 Shift 键也没有关系。您知道，在按下 Tab 键的时候 Shift 
键是按下的。 

GetKeyState 不会让您获得独立於普通键盘讯息的键盘资讯 。例如，您或许 
想暂停视窗讯息处理程式的处理，直到您按下 F 1 功能键 为止： 

while (GetKeyState (VK—Fl) >= 0) ; // WRONG !!! 

不要这么做！这将让程式当死（除非在执行此叙述之前早就从讯息伫列中 
接收到了 F 1 的 WM _ KEYD 0 WN ) o 如果您确实需要知道目前某键的状态，那么您可 
以使用 GetAsyncKeyState 。 


使用按键讯息 

如果程式能够获得每个按键的资讯，这当然很理想，但是大多数 Windows 
程式忽略了几乎所有的按键，而只处理部分的按键讯息。 ^ LSYSKEYDOWN 和 
WM _ SYSKEYUP 讯息是由 Windows 系统函式使用的，您不必为此费心，就算您要处 
理丽 KEYD 0 WN 讯息，通常也可以忽略丽 KEYUP 讯 

Windows 程式通常为不产生字元的按键使用 WM _ KEYD 0 WN 讯息。虽然您可能 
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认为借助按键讯息和位移键状态资讯能将按键讯息转换为字元讯息，但是不要 
这么做，因为您将遇到国际键盘间的差异所带来的问题。 例如，如果您得到 
wParam 等於 0 x 33 的 WM _ KEYD 0 WN 讯息，您就可以知道使用者按下了键3,到此 
为止一切正常。这时，如果用 GetKeyState 发现 Shift 键被按下，您就可能会 
认为使用者输入了#号，这可不一定。比如英国使用者就是在输入 

对於游标移动键、功能键、 Insert 和 Delete 键， WM _ KEYD 0 WN 讯息是最有 
用的。不过， Insert 、 Delete 和功能键经常作为功能表加速键。因为 Windows 
能把功能表加速键翻译为功能表命令讯息，所以您就不必自己来处理按键。 

在 Windows 之前的 MS - DOS 应用程式中大量使用功能键与 ShiftXtrl 和 Alt 
键的组合，同样地，您也可以在 Windows 程式中使用（实际上 ， Microsoft Word 
将大量的功能键用作命令快捷方式），但并不推荐这样做。如果您确实希望使 
用功能键，那么这些键应该是重复功能表命令。 Windows 的目标之一就是提供不 
需要记忆或者使用复杂命令流程的使用者介面。 

因此，可以归纳 如下： 多数情况下，您将只为游标移动键（有时也为 Insert 
和 Delete 键）处理 WM _ KEYD 0 WN 讯息。在使用这些键的时候，您可以通过 
GetKeyState 来检查 Shift 键和 Ctrl 键的状态。例如， Windows 程式经常使用 
Shift 与游标键的组合键来扩大文书处理里选中的范围。 Ctrl 键常用於修改游 
标键的意义。例如， Ctrl 与右箭头键相组合可以表示游标右移一个字。 

决定您的程式中使用键盘方式的最佳方法之一是了解现有的 Windows 程式 
使用键盘的方式。如果您不喜欢那些定义，当然可以对其加以修改，但是这样 
做不利於其他人很快地学会使用您的程式。 

为 SYSMETS 加上键盘处理功能 

在编写第四章中三个版本的 SYSMETS 程式时，我们还不了解键盘，只能使 
用卷动列和滑鼠来卷动文字。现在我们知道了处理键盘讯息的方法，那么不妨 
在程式中加入键盘介面。显然，这是处理游标移动键的工作。我们将大多数游 
标键 （ Home 、 End、Page Up、Page Down、Up Arrow 和 Down Arrow ) 用於垂直 

卷动，左箭头键和右箭头键用於不太重要的水平卷动。 

建立键盘介面的一种简单方法是在视窗讯息处理程式中加入与 WM _ VSCR 0 LL 
和 WM _ HSCR 0 LL 处理方式相仿，而且本质上相同的 WM _ KEYD 0 WN 处理方法。不过 

这样子做是不聪明的，因为如果要修改卷动列的做法，就必须相对应地修改 
WM — KEYD 0 WN 。 

为什么不简单地将每一种 WM _ KEYD 0 WN 讯息都翻译成同等效用的 WM _ VSCR 0 LL 
或者 WM _ HSCR 0 LL 讯息呢？通过向视窗讯息处理程式发送假冒讯息，我们可能会 
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让 WndProc 认为它获得了卷动资讯。 

在 Windows 中，这种方法是可行的。发送讯息的函式叫做 SendMessage ， 它 
所用的参数与传递到视窗讯息处理程式的参数是相 同的： 

SendMessage (hwnd, message, wParam, IParam); 

在呼叫 SendMessage 时， Windows 呼叫视窗代号为 hwnd 的视窗讯息处理程 
式，并把这四个参数传给它。当视窗讯息处理程式完成讯息处理之後 ， Windows 
把控制传回到 SendMessage 呼叫之後的下一道叙述。您发送讯息过去的视窗讯 
息处理程式，可以是同一个视窗讯息处理程式、同一程式中的其他视窗讯息处 
理程式或者其他应用程式，中的视窗讯息处理程式。 

下面说明在 SYSMETS 程式中使用 SendMessage 处理 WM _ KEYDOWN 代码的 方法: 

case WM_KEYDOWN: 

switch (wParam) 

{ 

case VK—HOME: 

SendMessage (hwnd, WM—VSCROLL, SB_TOP, 0); 
break ; 

case VK—END: 

SendMessage (hwnd, WM_VSCROLL, SB_BOTTOM, 0); 
break ; 

case VK—PRIOR: 

SendMessage (hwnd, WM—VSCROLL, SB_PAGEUP, 0); 
break ; 

至此，您已经有了大概观念了吧。我们的目标是为卷动列添加键盘介面， 
并且也正在这么做。通过把卷动讯息发送到视窗讯息处理程式，我们实作了用 
游标移动键进行卷动列的功能。现在您知道在 SYSMETS 3 中为 WM _ VSCR 0 LL 讯息 
加上 SB _ T 0 P 和 SB _ B 0 TT 0 M 处理码的原因了吧。在那里并没有用到它，但是现在 
处理 Home 和 End 键时就有用了。如程式 6-1 所示的 SYSENTS 4 就加上了这些变 
化。编译这个程式时还需要用到第四章的 SYSMETS . H 档案。 


程式 6-1 SYSMETS4 


SYSMETS4.C 

/* - 

SYSMETS4.C -- System Metrics Display Program No. 4 

(c) Charles Petzold, 1998 



♦include <windows.h> 

♦include "sysmets.h" 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 
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PSTR szCmdLine, int iCmdShow) 


static TCHAR szAppName[] 


HWND 

MSG 

WNDCLASS 


hwnd ; 
msg ; 
wndclass 


=TEXT ("SysMets4 n ); 


wndclass.style 
wndclass.lpfnWndProc 


wndclass 

wndclass 

wndclass 

wndclass 

wndclass 


.cbClsExtra 
.cbWndExtra 
.hlnstance 
.hlcon 
.hCursor 




wndclass.hbrBackground = 
wndclass.IpszMenuName = 
wndclass.IpszClassName = 


=CS_HREDRAW | CS—VREDRAW ; 
WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION) 
LoadCursor (NULL, IDC—ARROW); 

(HBRUSH) GetStockObject (WHITE—BRUSH) 
NULL ; 
szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("Program requires Windows NT !’，）， 
szAppName, MB_ICONERROR); 
return 0 ; 


hwnd = CreateWindow 


WS HSCROLL, 


(szAppName, TEXT (’’Get System Metrics No. 4 M ), 

WS_OVERLAPPEDWINDOW I WS—VSCROLL 

CW_USEDEFAULT, CW—USEDEFAULT, 

CW_USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

static int cxChar, cxCaps, cyChar, cxClient, cyClient, iMaxWidth ; 

HDC hdc ; 

int i, x, y, iVertPos, iHorzPos, iPaintBeg, iPaintEnd ; 

PAINTSTRUCT ps ; 
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SCROLLINFO si ; 

TCHAR szBuffer[10]; 

TEXTMETRIC tm ; 

switch (message) 

{ 

case WM—CREATE: 

hdc = GetDC (hwnd); 

GetTextMetrics (hdc, &tm); 
cxChar = tm.tmAveCharWidth ; 

cxCaps = (tm.tmPitchAndFamily & 1 ? 3 : 2) * cxChar / 2 ; 

cyChar = tm.tmHeight + tm.tmExternalLeading ; 

ReleaseDC (hwnd, hdc); 

// Save the width of the three columns 


iMaxWidth = 40 * cxChar + 22 * cxCaps ; 
return 0 ; 


case WM—SIZE: 

cxClient = LOWORD (IParam); 

cyClient = HIWORD (IParam); 

// Set vertical scroll bar range and page size 


si.cbSize = sizeof (si); 

si.fMask = SIF_RANGE | SIF_PAGE ; 

si . nMin = 0 ; 

si.nMax = NUMLINES - 1 ; 


si.nPage = cyClient / cyChar ; 
SetScrollInfo (hwnd, SB VERT, &si, TRUE); 


// Set horizontal scroll bar range and page size 


si.cbSize = sizeof (si); 

si.fMask = SIF_RANGE | SIF_PAGE ; 

si . nMin = 0 ; 

si.nMax = 2 + iMaxWidth / cxChar ; 


si.nPage = cxClient / cxChar ; 
SetScrollInfo (hwnd, SB_HORZ, &si, TRUE); 
return 0 ; 


case WM—VSCROLL: 

// Get all the vertical scroll bar information 
si.cbSize = sizeof (si); 
si.fMask = SIF ALL ; 
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GetScrollInfo (hwnd, SB VERT, &si); 


// Save the position for comparison later on 
iVertPos = si.nPos ; 
switch (LOWORD (wParam)) 

{ 

case SB_TOP : 

si.nPos = si.nMin ; 
break ; 

case SB—BOTTOM: 

si.nPos = si.nMax ; 
break ; 

case SB_LINEUP: 

si.nPos -= 1 ; 
break ; 

case SB_LINEDOWN: 

si.nPos += 1 ; 
break ; 

case SB_PAGEUP: 

si.nPos -= si.nPage ; 
break ; 

case SB_PAGEDOWN: 

si.nPos += si.nPage ; 
break ; 

case SB—THUMBTRACK: 

si.nPos = si.nTrackPos ; 
break ; 

default : 
break ; 

} 

// Set the position and then retrieve it. Due to adjustments 
// by Windows it might not be the same as the value set. 

si.fMask = SIF_POS ; 

SetScrollInfo (hwnd, SB—VERT, &si, TRUE); 

GetScrollInfo (hwnd, SB VERT, &si); 



// If the position has changed, scroll the window and update 
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if (si.nPos != iVertPos) 

{ 

ScrollWindow (hwnd, ◦, cyChar 
UpdateWindow (hwnd); 

} 

return 0 ; 


(iVertPos - si.nPos), 

NULL, NULL); 


case WM—HSCROLL: 

// Get all the vertical scroll bar information 
si.cbSize = sizeof (si); 

si.fMask = SIF ALL ; 


// Save the position for comparison later on 


GetScrollInfo (hwnd, SB_HORZ, &si); 
iHorzPos = si.nPos ; 

switch (LOWORD (wParam)) 

{ 

case SB_LINELEFT: 

si.nPos -= 1 ; 
break ; 

case SB_LINERIGHT: 

si.nPos += 1 ; 
break ; 

case SB—PAGELEFT: 

si.nPos -= si.nPage ; 
break ; 


case SB—PAGERIGHT: 

si.nPos += si.nPage ; 
break ; 


case SB_THUMBPOSITION: 

si.nPos = si.nTrackPos ; 
break ; 


default : 
break ; 


adjustments 


/ / Set the position and then retrieve it. Due to 
// by Windows it might not be the same as the value set. 
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si.fMask = SIF_POS ; 

SetScrollInfo (hwnd, SB—HORZ, &si, TRUE); 
GetScrollInfo (hwnd, SB HORZ, &si); 


// If the position has changed, scroll the window 


if (si.nPos != iHorzPos) 

{ 

ScrollWindow (hwnd, cxChar * (iHorzPos - si.nPos), 0, 
NULL, NULL); 

} 

return 0 ; 


case WM_KEYDOWN: 

switch (wParam) 

{ 

case VK_HOME : 

SendMessage (hwnd, WM—VSCROLL, SB_TOP, 0); 
break ; 

case VK_END : 

SendMessage (hwnd, WM—VSCROLL, SB_BOTTOM, 0); 
break ; 

case VK_PRIOR: 

SendMessage (hwnd, WM—VSCROLL, SB_PAGEUP, 0); 
break ; 


case VK—NEXT: 

SendMessage (hwnd, WM—VSCROLL, SB_PAGEDOWN, 0); 
break ; 


case VK_UP: 

SendMessage (hwnd, WM—VSCROLL, SB_LINEUP, 0); 
break ; 

case VK_DOWN : 

SendMessage (hwnd, WM—VSCROLL, SB_LINEDOWN, 0); 
break ; 


case VK_LEFT: 

SendMessage (hwnd, WM—HSCROLL, SB_PAGEUP, 0); 
break ; 

case VK_RIGHT: 

SendMessage (hwnd, WM—HSCROLL, SB_PAGEDOWN, 0); 
break ; 
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return 0 ; 
case WM_PAINT: 

hdc = BeginPaint (hwnd, &ps); 

// Get vertical scroll bar position 
si.cbSize = sizeof (si); 

si.fMask = SIF_POS ; 

GetScrollInfo (hwnd, SB—VERT, &si); 
iVertPos = si.nPos ; 

// Get horizontal scroll bar position 

GetScrollInfo (hwnd, SB_HORZ , &si); 
iHorzPos = si.nPos ; 

// Find painting limits 


iPaintBeg 

iPaintEnd 


max (◦, iVertPos + ps.rcPaint.top / cyChar); 
min (NUMLINES - 1, 


iVertPos + ps.rcPaint.bottom / cyChar); 


for (i = iPaintBeg ; i <= iPaintEnd ; i++) 

{ 

x = cxChar * (1 一 iHorzPos); 
y = cyChar * (i - iVertPos); 

TextOut (hdc, x, y, 

sysmetrics[i].szLabel A 

lstrlen (sysmetrics[i].szLabel)); 

TextOut (hdc, x + 22 * cxCaps, y, 

sysmetrics[i].szDesc, 

lstrlen (sysmetrics[i] .szDesc)); 

SetTextAlign (hdc, TA—RIGHT | TA—TOP); 

TextOut (hdc, x + 22 * cxCaps +40* cxChar, y, szBuffer, 
wsprintf (szBuffer, TEXT ( "%5d n ), 

GetSystemMetries (sysmetrics[i]•ilndex))); 


SetTextAlign (hdc, TA—LEFT | TA_TOP); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 
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return DefWindowProc (hwnd, message , wParam, 


IParam) 


字元讯息 

前面讨论了利用位移状态资讯把按键讯息翻译为字元讯息的方法，并且提 
到，仅利用转换状态资讯还不够，因为还需要知道与国家/地区有关的键盘配置。 
由於这个原因，您不应该试图把按键讯息翻译为字元代码。 Windows 会为您完成 
这一工作，在前面我们曾看到过以下的程 式码： 

while (GetMessage (&msg, NULL, 0 , 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

这是 WinMain 中典型的讯息回圈。 GetMessage 函式用仁列中的下一个讯息 
填入 msg 结构的栏位。 DispatchMessage 以此讯息为参数呼叫适当的视窗讯息处 
理程式。 

在这两个函式之间是 TranslateMessage 函式，它将按键讯息转换为字元讯 
息。如果讯息为 WM _ KEYD 0 WN 或者 WM _ SYSKEYD 0 WN ， 并且按键与位移状态相组合 
产生一个字元，则 TranslateMessage 把字元讯息放入讯息伫列中。此字元讯息 
将是 GetMessage 从讯息伫列中得到的按键讯息之後的下一个讯息。 

四类字元讯息 

字元讯息可以分为四类，如表 6-9 所示。 


表 6-9 



字元 

死字元 

非系统字元 

WM—CHAR 

WM—DEADCHAR 

系统字元 

WM—SYSCHAR 

M_SYSDEADCHAR 


WM_CHAR 和 WM_DEADCHAR 讯息是从 WM _ KEYD 0 WN 得到的；而 WM_SYSCHAR 和 
WM _ SYSDEADCHAR 讯息是从 WM _ SYSKEYD 0 WN 讯息得到的（我将简要地讨论一下什 
么是死字元）。 

有一个好 讯息： 在大多数情况下， Windows 程式会忽略除 WM _ CHAR 之外的任 
何讯息。伴随四个字元讯息的 IParam 参数与产生字元代码讯息的按键讯息之 
IParam 参数相同。不过，参数 wParam 不是虚拟键码。实际上，它是 ANS I 或 Unicode 
字元代码。 

字元讯息是我们将文字传递给视窗讯息处理程式时遇到的第一个讯 
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息。它们不是唯一的讯息，其他讯息伴随以0结尾的整个字串。视窗讯息处理 
程式是如何知道该字元是8位元的 ANSI 字元还是16位元的 Unicode 宽字元呢？ 
很简单： 任何与您用 RegisterClassA ( RegisterClass 的 ANSI 版）注册的视窗 

类别相联系的视窗讯息处理程式，都会获得含有 ANSI 字元代码的讯息。如果 
窗讯息处理程式用 RegisterClassW ( RegisterClass 的宽字元版）注册，那么 
传递给视窗讯息处理程式的讯息就带有 Unicode 字元代码。如果程式 I 

RegisterClass 注册视窗类别，那么在 UNICODE 识别字被定义时就呼叫 
RegisterClassW , 否贝 呼口 H RegisterClassA 。 

除非在程式写作的时候混合了 ANSI 和 Unicode 的函式与视窗讯息处理程 
式，用 WM _ CHAR 讯息（及其他三种字元讯息）说明的字元代码 将是： 

(TCHAR) wParam 

同一个视窗讯息处理程式可能会用到两个视窗类别，一个用 
RegisterClassA 注册，而另一个用 RegisterClassW 注册。也就是说，视窗讯息 
处理程式可能会获得一些 ANSI 字元代码讯息和一些 Unicode 字元代码讯息。如 
果您的视窗讯息处理程式需要晓得目前视窗是否处理 Unicode 讯息，则它可以 
呼叫： 

fUnicode =工 sWindowUnicode (hwnd) ; 

如果 hwnd 的视窗讯息处理程式获得 Unicode 讯息，那么变数 fUnicode 将 
为 TRUE ， 这表示视窗是用 RegisterClassW 注册的视窗类别。 

讯息顺序 

因为 TranslateMessage 函式从 WM_KEYDOWN 和 WM_SYSKEYDOWN 讯息产生了 
字元讯息，所以字元讯息是夹在按键讯息之间传递给视窗讯息处理程式的 1 

如，如果 Caps Lock 未打开，而使用者按下再释放 A 键，则视窗讯息处理程式 
将接收到如表 6-10 所示的三个 讯息： 


表 6-10 


讯息 V 

W 或者代码 

WM—KEYD0WN 

「 A 」 的虚拟键码 （ 0x41) 

WM—CHAR 

「 a 」 的字元代码 (0x61) 

WM—KEYUP 

「 A 」 的虚拟键码 (0x41) 


如果您按下 Shift 键，再按下 A 键，然後释放 A 键，再释放 Shift 键，就 
会输入大写的 A ， 而视窗讯息处理程式会接收到五个讯息，如表 6-11 所示： 

表 6-11 

讯息 按键或者代码 
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WM—KEYD0WN 

虚拟键码 VK SHIFT (0x10) 

WM—KEYD0WN 

「 A 」 的虚拟键码 （ 0x41) 

WM—CHAR 

「 A 」 的字元代码 （ 0x41) 

WM—KEYUP 

「 A 」 的虚拟键码 （ 0x41) 

WM—KEYUP 

虚拟键码 VK_SHIFT (0x10) 


Shift 键本身不产生字元讯息。 

如果使用者按住 A 键，以使自动重复产生一系列的按键，那么对每条 
WM _ KEYDOWN 讯息，都会得到一条字元讯息，如表6_12 所示： 


表 6-12 


讯息 

按键或者代码 

WM—KEYD0WN 

「 A 」 的虚拟键码 （ 0x41) 

WM—CHAR 

「 a 」 的字元代码 (0x61) 

WM—KEYD0WN 

「 A 」 的虚拟键码 （ 0x41) 

WM—CHAR 

raj 的字元代码 (0x61) 

WM—KEYDOWN 

「 A 」 的虚拟键码 （ 0x41) 

WM—CHAR 

「 a 」 的字元代码 (0x61) 

WM—KEYDOWN 

「 A 」 的虚拟键码 （ 0x41) 

WM—CHAR 

「 a 」 的字元代码 (0x61) 

WM—KEYUP 

「 A 」 的虚拟键码 （ 0x41) 


如果某些 WM _ KEYDOWN 讯息的重复计数大於1，那么相应的 WM _ CHAR 讯息将 

具有同样的重复计数。 

~ 组合使用 CtiT ^ 与字母键会产生从 0 x 01 ( Ctrl - A ) 到 OxlA ( Ctrl ~ Z ) 的 

ASCII 控制代码，其中的某些控制代码也可以由表 6-13 列出的键 产生： 


表 6-13 


按键 

字元代码 

产生方法 

ANSI C 控制字元 

Backspace 

0x08 

Ctrl-H 

\b 

Tab 

0x09 

Ctrl-I 

\t 

Ctrl-Enter 

OxOA 

Ctrl-J 

\n 

Enter 

OxOD 

Ctrl-M 

\r 

Esc 

OxlB 

Ctrl-[ 



最右列给出了在 ANSI C 中定义的控制字元，它们用於描述这些键的字元代 
码。 

有时 Windows 程式将 Ctrl 与字母键的组合用作功能表加速键 ( 我将在第十 
章讨论），此时，不会将字母键转换成字元讯息。 
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处理控制字元 


处理按键和字元讯息的基本规 则是： 如果需要读取输入到视窗的键盘字元， 
那么您可以处理 WM _ CHAR 讯息。如果需要读取游标键、功能键、 Delete 、 Insert 、 
Shift 、 Ctrl 以及 Alt 键，那么您可以处理 WM _ KEYDOWN 讯息。 

但是 Tab 键怎么办？ Enter 、 Backspace 和 Escape 键又怎么办？传统上，这 
些键都产生表 6-13 列出的 ASCII 控制字元。但是在 Windows 中，它们也产生虚 


拟键码。这些键应该在处理 WM _ CHAR 或者在处理 WM _ KEYDOWN 期间处理吗？ 

经过10年的考虑（回顾这些年来我写过的 Windows 程式码），我 更喜欢将 
Tab 、 Enter 、 Backspace 和 Escape 键处理成控制字元，而不是虚拟键。 我通常 
这样处理 WM _ CHAR ： 

case WM—CHAR: 

~ // 其他行程式 

switch (wParam) 


case '\b *: 

// 其他行程式 
break ; 
case '\t 1 : 

// 其他行程式 
break ; 


// backspace 


/ / tab 


case '\n' : // linefeed 

//其他行程式 
break ; 

case *\r' : // carriage return 

//其他行程式 
break ; 


default : 

//其他行程式 
break ; 


// character codes 


return 


死字元讯息 

Windows 程式经常忽略 WM _ DEADCHAR 和 WM _ SYSDEADCHAR 讯息，但您应该明 
确地知道死字元是什么，以及它们工作的方式。 

在某些非 U . S . 英语键盘上，有些键用於给字母加上音调。因为它们本身不 
产生字元，所以称之为「死键」。例如，使用德语键盘时，对於 U . S . 键盘上的 
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+/=键，德语键盘的对应位置就是一个死键，未按下 Shift 键时它用於标识锐音， 
按下 Shift 键时则用於标识抑音。 

当使用者按下这个死键时，视窗讯息处理程式接收到一个 wParam 等於音调 
本身的 ASCII 或者 Unicode 代码的 WM _ DEADCHAR 讯息。当使用者再按下可以带 
有此音调的字母键（例如 A 键）时，视窗讯息处理程式会接收到 WM _ CHAR 讯息， 
其中 wParam 等於带有音调的字母「 a 」 的 ANSI 代码。 

因此，使用者程式不需要处理 WM _ DEADCHAR 讯息，原因是 WM _ CHAR 讯息已 
含有程式所需要的所有资讯。 Windows 的做法甚至还设计了内部错误处理。如果 
在死键之後跟有不能带此音调符号的字母（例如 「 s 」） ，那么视窗讯息处理程 
式将在一行接收到两条 WM _ CHAR 讯息——前一个讯息的 wParam 等於音调符号本 
身的 ASCII 代码（与传递到 WM _ DEADCHAR 讯息的 wParam 值相同），第二个讯息 
的 wParam 等於字母 s 的 ASCII 代码。 

当然，要感受这种做法的运作方式，最好的方法就是实际操作。您必须载 
入使用死键的外语键盘，例如前面讲过的德语键盘。您可以这样设 定：在 「控 
制台」中选择「键盘」，然後选择「语系」页面标签。然後您需要一个应用程 
式，该程式可以显示它接收的每一个键盘讯息的详细资讯。下面的 KEYVIEW 1 就 
是这样的程式。 


本章剩下的范例程式有缺陷。它们不能在所有版本的 Windows 下都正常执 
行。这些缺陷不是特意引过程式码 中的； 事实上，您也许永远不会遇到这些缺 
陷。只有在不同的键盘语言和键盘布局间切换，以及在多位元组字元集的远东 
版 Windows 下执行程式时，这些问题才会出现——所以我不愿将它们称为「错 
误」。 

不过，如果程式使用 Unicode 编译并在 Windows NT 下执行，那么程式会执 
行得更好。我在第二章提到过这个问题，并且展示了 Unicode 对简化棘手的国 
际化问题的重要性。 

KEYVIEW1 程式 

了解键盘国际化问题的第一步，就是检查 Windows 传递给视窗讯息处理程 
式的键盘内容和字元讯息。程式 6-2 所示的 KEYVIEW 1 会对此有所帮助。该程式 
在显示区域显示 Windows 向视窗讯息处理程式发送的8种不同键盘讯息的全部 
资讯。 

程式 6-2 KEYVIEW1 
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KEYVIEWl.C 

/* - 

KEYVIEW1.C —— 


Displays Keyboard and Character Messages 
(c) Charles Petzold, 1998 



#include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("KeyViewl n ); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=NULL ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("This program requires Windows NT! n ), 

szAppName, MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow (szAppName, TEXT ("Keyboard Message Viewer #l n ), 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 
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return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

static int cxClientMax, cyClientMax, cxClient, cyClient, cxChar, cyChar ; 
static int cLinesMax, cLines ; 
static PMSG pmsg ; 
static RECT rectScroll ; 

static TCHAR szTop [ ] = TEXT ("Message Key Char ’’） 

TEXT ("Repeat Scan Ext ALT Prev 

Tran"); 

static TCHAR szUnd[ ] = TEXT ("_ _ _") 

TEXT (" 


static TCHAR * szFormat[2] = { 

TEXT ("%-13s %3d %-15s%c%6u %4d %3s %3s %4s %4s n ), 
TEXT ("%-13s 0x%04X%ls%c %6u %4d %3s %3s %4s %4s") }; 

static TCHAR * szYes = TEXT ("Yes"); 

static TCHAR * szNo = TEXT ("No"); 

static TCHAR * szDown = TEXT ("Down"); 

static TCHAR * szUp = TEXT ("Up"); 


static TCHAR * szMessage [] = { 

TEXT ( n WM—KEY DOWN ，'）， TEXT ("WM_KEYUP"), 

TEXT ( n WM_CHAR"), TEXT ("WM_DEADCHAR"), 

TEXT ( n WM_SYSKEYDOWN"),TEXT ( n WM_SYSKEYUP"), 

TEXT ( n WM_SYSCHAR n ), TEXT ("WM SYSDEADCHAR") }; 

HDC 
int 

PAINTSTRUCT 
TCHAR 
TEXTMETRIC 

switch (message) 

{ 

case WM_CREATE : 
case WM_DISPLAYCHANGE : 

// Get maximum size of client area 
cxClientMax = GetSystemMetrics (SM—CXMAXIMIZED); 
cyClientMax = GetSystemMetrics (SM—CYMAXIMIZED); 

// Get character size for fixed-pitch font 
hdc = GetDC (hwnd); 

SelectObject (hdc, GetStockObject (SYSTEM—FIXED—FONT)); 
GetTextMetrics (hdc, &tm); 
cxChar = tm.tmAveCharWidth ; 


hdc ; 

i, iType ; 
ps ; 

szBuffer[128], szKeyName [32]; 

tm ; 
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cyChar = tm.tmHeight ; 

ReleaseDC (hwnd, hdc); 

// Allocate memory for display lines 

if (pmsg) 

free (pmsg); 

cLinesMax = cyClientMax / cyChar ; 

pmsg = malloc (cLinesMax * sizeof (MSG)); 

cLines = 0 ; 

// fall through 
case WM_SIZE: 

if (message == WM—SIZE) 

{ 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 

} 

// Calculate scrolling rectangle 
rectScroll.left = 0 ; 

rectScroll.right = cxClient ; 
rectScroll.top = cyChar ; 

rectScroll.bottom^ cyChar * (cyClient / cyChar); 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case WM—KEYDOWN: 
case WM_KEYUP : 
case WM_CHAR: 
case WM_DEADCHAR: 
case WM—SYSKEYDOWN: 
case WM_SYSKEYUP: 
case WM_SYSCHAR: 
case WM_SYSDEADCHAR: 

// Rearrange storage array 
for (i = cLinesMax - 1 ; i > 0 ; i--) 

{ 

pmsg[i] = pmsg[i - 1]; 

} 

// Store new message 
pmsg[0].hwnd = hwnd ; 
pmsg[0].message = message ; 
pmsg[0].wParam = wParam ; 
pmsg[0]•IParam = IParam ; 

cLines = min (cLines + 1, cLinesMax); 

// Scroll up the display 

ScrollWindow (hwnd, ◦, -cyChar, &rectScroll, &rectScroll); 
break ; // i.e., call DefWindowProc so Sys messages work 
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case WM_PAINT : 

hdc = BeginPaint (hwnd, &ps); 

SelectObject (hdc, GetStockObject (SYSTEM—FIXED—FONT)); 

SetBkMode (hdc, TRANSPARENT); 

TextOut (hdc, ◦, ◦, szTop, lstrlen (szTop)); 

TextOut (hdc, 0, ◦, szUnd, lstrlen (szUnd)); 

for (i = ◦ ; i < min (cLines, cyClient / cyChar - 1) ; i++) 

{ 

iType = pmsg[i].message == WM—CHAR || 

pmsg[i].message == WM—SYSCHAR || 
pmsg[i].message == WM_DEADCHAR || 
pmsg[i] .message == WM_SYSDEADCHAR ; 

GetKeyNameText (pmsg[i]•IParam, szKeyName, 

sizeof (szKeyName) / sizeof (TCHAR)); 

TextOut (hdc, ◦, (cyClient / cyChar - 1 - i) * cyChar, szBuffer, 
wsprintf (szBuffer, szFormat [iType], 
szMessage [pmsg[i]•message 一 WM_KEYFIRST], 
pmsg[i].wParam, 

(PTSTR) (iType ? TEXT (" ") : szKeyName), 

(TCHAR) (iType ? pmsg[i].wParam : 1 1 ), 

LOWORD (pmsg[i].IParam), 

HIWORD (pmsg[i].IParam) & OxFF, 

0x01000000 & pmsg[i]•IParam ? szYes : szNo, 

0x20000000 & pmsg[i]•IParam ? szYes : szNo, 

0x4 0000 000 & pmsg[i]•IParam ? szDown : szUp, 

0x80000000 & pmsg[i]•IParam ? szUp : szDown)); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

KEYVIEW 1 显示视窗讯息处理程式接收到的每次按键和字元讯息的内容，并 
将这些讯息储存在一个 MSG 结构的阵列中。该阵列的大小依据最大化视窗的大 
小和等宽的系统字体。如果使用者在程式执行时调整了视讯显示的大小（在这 
种情况下 KEYVIEW 1 接收 WM _ DISPLAYCHANGE 讯息），将重新分配此阵列。 KEYVIEW 1 
使用标准 C 的 malloc 函式为阵列配置记忆体。 

图 6-2 给出了在键入 「 Windows 」 之後 KEYVIEW 1 的萤幕显示。第一列显示 
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Up Down 
Up Down 
Up Down 
Down Up 
Down Up 
Up Down 
Up Domii 
D own Up 
Up Domii 
U p Down 
Doum Up 
Up Down 
Up DoMn 
Down Up 
Up DoMn 
Up Down 
Doi«n Up 
Up Down 
Up Domo 
D own Up 
Up Down 
Up DoMn 
Down Up 




16 Right Shift 
87 W 

0x0057 V/ 

87 W 

16 Right Shift 
73 I 

0x0069 i 

73 I 
78 N 

78 N 
68 D 

68 D 

79 0 

79 0 
87 W 

87 V 

83 S 

83 S 


0x006E n 


0xfUI6ii d 


0x006F o 


0x0077 w 


0x0073 S 


Keu 


Char 


Inlxl 

Repeat Scan Ext ALT Preu Tran 



Message 


WM KEVDOUN 
WM KEVDOUN 
WM~CHftR 
WM 二 KEVUP 
WM:KEVUP 

wmJkevdoun 

WM 一 CHAR 

wmJkevup 

WM~KEVDOUN 
WM—CHAR 
WM _ KEVUP 
WM KEVDOUN 
WM:CHAR 
WM KEVUP 

wmIkevdoun 

WH 二 CHAR 
VH 二 KEVUP 
WM KEVDOUN 
WM:CHAR 
WM KEVUP 
WM KEVDOUN 
WM—CHAR 
WM KEVUP 
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了键盘 讯息； 第二列在键名称的前面显示了按键讯息的虚拟键代码，此代码是 
经由 GetKeyNameText 函式取 得的； 第三列（标注为 「 Char 」） 在字元本身的後 
面显示字元讯息的十六进位字元代码。其余六列显示了 IParam 讯息参数中六个 
栏位的状态。 


图 6-2 KEYVIEW1 的萤#显示 

为便於以分行的方式显示此资讯， KEYVIEW 1 使用了等宽字体。与前一章所 
讨论的一样，这需要呼叫 GetStockObject 和 SelectObject ： 

SelectObject (hdc, GetStockObject (SYSTEM—FIXED—FONT)); 

KEYVIEW 1 在显示区域上部画了一个标题以确定分成九行。此列文字带有底 
线。虽然可以建立一种带底线的字体，但这里使用了另一种方法。我定义了两 
个字串变数 szTop (有文字）和 szUnd (有底线），并在 WM _ PAINT 讯息处理期 
间将它们同时显示在视窗顶部的同一位置。通常， Windows 以一种「不透明」的 
方式显示文字，也就是说显示字元时 Windows 将擦除字元背景区。这将导致第 
二个字串 （ szUnd ) 擦除掉前一个 （ szTop ) 。要防止这一现象的发生，可将装 
置内容切换到「透明」模式： 

SetBkMode (hdc, TRANSPARENT) ; 

这种加底线的方法只有在使用等宽字体时才可行。否则，底线字元将无法 
与显现在底线上面的字元等宽。 


Keyboard Message Viewer IM 


NONnNONONONONUNONUNONONONnNONONUNONONONONOHONO 
NONONOHONONONUNONONONONONONONONONONONONONONONO 

47774333999222444777111 

51115222444333222111333 
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外语键盘问题 

如果您执行美国英语版本的 Windows ， 那么您可安装不同的键盘布局，并输 
入外语。可以在 控 制台的 键盘 中安装外语键盘布局。选择 语系 页面标签， 
按下 新 增键。 要查看死键的工作方式，您可能想安装「德语」键盘。此外， 
我还要讨论「俄语」和「希腊语」的键盘布局，因此您也可安装这些键盘布局。 
如果在「键盘」显示的列表中找不到「俄语」和「希腊语」的键盘布局，则需 
要安装多语系支 援：从 「控制台」中选择 新增/删除 程式，然後选择 Windows 
安装程式 页面标签，确认选中 多语系支援 核取方块。在任何情况下，这些变 
更都需要原始的 Windows 光碟。 

安装完其他键盘布局後，您将在工作列右侧的通知区看到一个带有两个字 
母代码的蓝色框。如果内定的是英语，那么这两个字母是 「 EN 」 。单击此图示， 
将得到所有已安装键盘布局的列表。从中单击需要的键盘布局即可更改目前活 
动程式的键盘。此改变只影响目前活动的程式。 

现在开始进行实验。不使用 UNICODE 识别字定义来编译 KEYVIEW 1 程式（在 
本书附带的光碟中，非 Unicode 版本的 KEYVIEW 1 程式位於 RELEASE 子目录）。 
在美国英语版本的 Windows 下执行该程式，并输入字元 『 abcde 』 。 WM _ CHAR 讯 
息与您所期望的一样： ASCII 字元代码0 x 61、0 x 62、0 x 63、 0 x 64 和 0 x 65 以及字 
母 a 、 b 、 c、d 和 e 。 

现在， KEYVIEW 1 还在执行，选择德语键盘布局。按下=键然後输入一个母音 
( a 、 e 、 i 、 0 或者 u ) 。=键将产生一个 WM _ DEADCHAR 讯息，母音产生一个 WM_CHAR 
讯息和（单独的）字元代码 OxEl 、0 xE 9、 OxED 、0 xF 3、 OxFA 和字元6、6 、 K 
6 或 il 。 这就是死键的工作方式。 

现在选择希腊键盘布局。输入 [abodeJ ,您会得到什么？您将得到 WM_CHAR 
讯息和字元代码 OxEl 、0 xE 2、0 xF 8、0 xE 4、0 xE 5 和字元6 、 L 0、 a 和 i 。 在 
这里有些字元不能正确显示。难道您不应该得到希腊字母表中的字母吗？ 

现在切换到俄语键盘并重新输入 『 abcdd 。现在您得到 WM _ CHAR 讯息和字 
元代码 0 xF 4、0 xE 8、 OxFl 、0 xE 2 和 0 xF 3， 以及字元6、6、 fi 、 § 和6。而且， 
还是有些字母不能正常显示。您应从斯拉夫字母表中得到这些字母。 

问题 在於： 您已经切换键盘以产生不同的字元代码，但您还没有将此切换 
通知 GDI , 好让 GDI 能选择适当的符号来显示解释这些字元代码。 

如果您非常勇敢，还有可用的备用 PC ， 并且是专业或全球版 Microsoft 
Developer Network ( MSDN ) 的订阅户，那么您也许想安装（例如）希腊版的 
Windows , 您还可以把那四种键盘布局（英语、希腊语、德语和俄语）安装上去。 
现在执行 KEYL 00 K 1， 切换到英语键盘布局，然後输入 『 abcdd 。您应得到 ASCII 
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字元代码0 x 61、0 x 62、0 x 63、 0 x 64 和 0 x 65 以及字元 a 、 b 、 c 、 d 和 e (并且您 
可以 放心： 即使在希腊版， ASCII 还是正常通行的）。 

在希腊版的 Windows 中，切换到希腊键盘布局并输入 『 abcde 』 。您将得到 
WM _ CHAR 讯息和字元代码 OxEl 、0 xE 2、0 xF 8、0 xE 4 和 0 xE 5。 这与您在安装希腊 
键盘布局的英语版 Windows 中得到的字元代码相同。但现在显示的字元是 t 、 P 、 
\|/、5和 s 。 这些确实是小写的希腊字母 alpha 、 beta 、 psi 、 delta 和 epsilon 
( ga 腿 a 怎么了？是这样，如果使用希腊版的 Windows ， 那么您将使用键帽上带 
有希腊字母的键盘。与英语 c 相对应的键正好是 psi 。 gamma 由与英语 g 相对应 
的键产生。您可在 Nadine Kano 编写的 《Developing International Software 
for Windows 95 and Windows NT 》 的第 587 页看到完整的希腊字母表）。 

继续在希腊版的 Windows 下运行 KEYVIEW 1， 切换到德语键盘布局。输入『二』 
键，然後依次输入 a 、 e 、 i 、 o 和 u 。 您将得到 WM _ CHAR 讯息和字元代码 OxEl 、 
0 xE 9、 OxED 、0 xF 3 和 OxFA 。 这些字元代码与安装德语键盘布局的英语版 Windows 
中的一样。不过，显示的字元却是 a 、 I 、 v 、cj 和 ， 而不是正确的 6、6、 K 
6和 Uo 

现在切换到俄语键盘并输入 『 abcde 』 。您会得到字元代码 0 xF 4、0 xE 8、 OxFl 、 
0 xE 2 和 0 xF 3， 这与安装俄语键盘的英语版 Windows 中得到的一样。不过，显示 
的字元是 T 、 0、 p 、（3 和 cj ， 而不是斯拉夫字母表中的字母。 

您还可安装俄语版的 Windows 。 现在您可以猜到，英语和俄语键盘都可以工 
作，而德语和希腊语则不行。 

现在，如果您真的很勇敢，您还可安装日语版的 Windows 并执行 KEYVIEW 1。 
如果再依美国键盘输入，那么您将输入英语文字，一切似乎都正常。不过，如 
果切换到德语、希腊语或者俄语键盘布局，并且试著作上述介绍的任何练习， 
您将看到以点显示的字元。如果输入大写的字母 一一 无论是带重音符号的德语 
字母、希腊语字母还是俄语字母 一一 您将看到这些字母显示为日语中用於拼写 
外来语的片假名。您也许对输入片假名感兴趣，但那不是德语、希腊语或者俄 
语。 

远东版本的 Windows 包括一个称作「输入法编辑器」 （ IME ) 的实用程式， 
该程式显示为浮动的工具列，它允许您用标准键盘输入象形文字，即汉语、日 
语和朝鲜语中使用的复杂字元。一般来说，输入一组字母後，组成的字元将显 
示在另一个浮动视窗内。然後按 Enter 键，合成的字元代码就发送到了活动视 
窗（即 KEYVIEW 1) 。 KEYVIEW 1 几乎没什么回应—— WM _ CHAR 讯息带来的字元代 
码大於128，但这些代码没有意义 (Nadine Kano 的书中有许多关於使用 IME 的 
内容）。 
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这时，我们已经看到了许多 KEYL 00 K 1 显示错误字元的例子 一一 当执行安装 
了俄语或希腊语键盘布局的英语版 Windows 时，当执行安装了俄语或德语键盘 
布局的希腊版 Windows 时，以及执行安装了德语、俄语或者希腊语键盘布局的 
俄语版 Windows 时，都是这样。我们也看到了从日语版 Windows 的输入法编辑 
器输入字元时的错误显示。 

字元集和字体 

KEYL 00 K 1 的问题是字体问题。用於在萤幕上显示字元的字体和键盘接收的 
字元代码不一致。因此，让我们看一下字体。 

我将在第十七章进行详细讨论， Windows 支援三类字体——点阵字体、向量 
字体和(从 Windows 3.1 开始的) TrueType 字体。 

事实上向量字体已经过时了。这些字体中的字元由简单的线段组成，但这 
些线段没有定义填入区域。向量字体可以较好地缩放到任意大小，但字元通常 
看上去有些单薄。 

TrueType 字体是定义了填入区域的文字轮廓字体。 TrueType 字体可缩放； 
而且该字元的定义包括「提示」，以消除可能带来的文字不可见或者不可读的 
圆整问题。使用 TrueType 字体， Windows 就真正实现了 WYSIWYG ( 「所见即所 
得」 ） ，即文字在视讯显示器显示与印表机输出完全一致。 

在点阵字体中，每个字元都定义为与视讯显示器上的图素对应的位元点阵。 
点阵字体可拉伸到较大的尺寸，但看上去带有锯齿。点阵字体通常被设计成方 
便在视讯显示器上阅读的字体。因此， Windows 中的标题列、功能表、按钮和对 
话方块的显示文字都使用点阵字体。 

在内定的装置内容下获得的点阵字体称为系统字体。您可通过呼叫带有 
SYSTEM _ FONT 识别字的 GetStockObject 函式来获得字体代号。 KEYVIEW 1 程式选 
择使用 SYSTEM _ FIXED _ FONT 表示的等宽系统字体。 GetStockObject 函式的另一 
个选项是 0 EM _ FIXED _ F 0 NTo 

这三种字体有（各自的）字体名称- System 、 FixedSys 和 Terminal 。程 

式可以在 CreateFont 或者 CreateFontIndirect 函式呼叫中使用字体名称来指 
定字体。这三种字体储存在两组放在 Windows 目录内的 FONTS 子目录下的三个 
档案中。 Windows 使用哪一组档案取决於「控制台」里的「显示器」是选择显示 
「小字体」还是「大字体」（亦即，您希望 Windows 假定视讯显示器是96 dpi 
的解析度还是120 dpi 的解析度）。表 6-14 总结了所有的 情况： 

表 6-14 
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GetStockObject 识别字 

字体名称 

小字体档案 

大字体档案 

SYSTEM—FONT 

System 

VGASYS. F0N 

8514SYS. F0N 

SYSTEM—FIXED—FONT 

FixedSys 

VGAFIX. F0N 

8514FIX. F0N 

OEM—FIXED—FONT 

Terminal 

VGA0EM. F0N 

85140EM. F0N 


在档案名称中， 「 VGA 」 指的是视频图形阵列 (Video Graphics Array ) ， 
IBM 在 1987 年推出的显示卡。这是 IBM 第一块可显示 640 480 图素大小的 PC 显 
示卡。如果在「控制台」的「显示器」中选择了「小字体」（表示您希望 Windows 
假定视讯显示的解析度为96 dpi ) ，则 Windows 使用的这三种字体档案名将以 
「 VGA 」 开头。如果选择了「大字体」（表示您希望解析度为 120 dpi) ， Windows 
使用的档案名将以「8514」开头。8514是 IBM 在1987年推出的另一种显示卡， 
它的最大显示尺寸为1024 768。 

Windows 不希望您看到这些档案。这些档案的属性设定为系统和隐藏，如果 
用 Windows Explorer 来查看 FONTS 子目录的内容，您是不会看到它们的，即使 
选择了查看系统和隐藏档案也不行。从开始功能表选择「寻找」选项来寻找档 
名满足 *. F 0 N 限定条件的档案。这时，您可以双击档案名来查看字体字元是些 
什么。 

对於许多标准控制项和使用者介面元件， Windows 不使用系统字体。相反地， 
使用名称为 MS Sans Serif 的字体 （「 MS 」 代表 Microsoft ) 。这也是一种点阵 
字体。档案（名为 SSERIFE . F 0 N ) 包含依据96 dpi 视讯显示器的字体，点值为 
8、10、12、14、18和24。您可在 GetStockObject 函式中使用 DEFAULT — ⑶ I—FONT 
识别字来得到该字体。 Windows 使用的点值取决於「控制台」的「显示」中选择 
的显示解析度。 

到目前为止，我已提到四种识别字，利用这四种识别字，您可以用 
GetStockObject 来获得用於装置内容的字体。还有三种其他字体识 别字： 
ANSI _ FIXED _ F 0 NT 、 ANSI _ VAR _ F 0 NT 和 DEVICE _ DEFAULT _ F 0 NT 。 为了开始处理键 

盘和字元显示问题，让我们先看一下 Windows 中的所有备用字体。显示这些字 
体的程式是 ST 0 KF 0 NT ， 如程式 6-3 所示。 


程式 6-3 ST0KF0NT 


STOKFONT.C 

/* - 

STOKFONT.C -- Stock Font Objects 

(c) Charles Petzold, 1998 



♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 
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int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


static TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName[] = TEXT 
hwnd ; 
msg ; 

wndclass ; 


("StokFont") 


wndclass.style 
wndclass.lpfnWndProc 


=CS_HREDRAW 
=WndProc ; 


CS VREDRAW ; 


wndclass 

wndclass 

wndclass 

wndclass 

wndclass 


.cbClsExtra 
.cbWndExtra 
.hlnstance 
.hlcon 
.hCursor 



wndclass.hbrBackground = 
wndclass.IpszMenuName = 
wndclass.IpszClassName = 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION) 
LoadCursor (NULL, IDC—ARROW); 

(HBRUSH) GetStockObject (WHITE_BRUSH) 
NULL ; 
szAppName ; 


if (!RegisterClass (&wndclass)) 


{ 

MessageBox ( 

NULL, TEXT 

} 

return 0 ; 


hwnd 

=CreateWindow ( 

szAppName, 


WS VSCROLL, 


( n Program requires Windows NT !'，）， 
szAppName, MB ICONERROR); 


TEXT ("Stock Fonts"), 

WS_OVERLAPPEDWINDOW 

CW—USEDEFAULT, CW_USEDEFAULT, 
CW—USEDEFAULT, CW—USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 



static struct 
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int idStockFont 
TCHAR * szStockFont 


stockfont [: 


OEM—FIXED_FONT, n OEM_FIXED_FONT n , 

ANSI_FIXED_FONT, n ANSI_FIXED_FONT n , 
ANSI—VAR—FONT, "ANSI_VAR_FONT n , 

SYSTEM—FONT, n SYSTEM—FONT ”， 

DEVICE—DEFAULT—FONT, n DEVICE—DEFAULT_FONT 
SYSTEM FIXED FONT, 


"SYSTEM FIXED FONT", 


DEFAULT GUI FONT 


DEFAULT GUI FONT, 


static int iFont, cFonts = sizeof stockfont / sizeof stockfont [0]; 

HDC hdc ; 

int i, x, y, cxGrid, cyGrid ; 

PAINTSTRUCT ps ; 

TCHAR szFaceName [LF_FACESIZE], szBuffer [LF_FACESIZE + 

64]; 

TEXTMETRIC tm ; 
switch (message) 

{ 

case WM—CREATE: 

SetScrollRange (hwnd, SB—VERT, 0, cFonts - 1, TRUE); 
return 0 ; 

case WM—DISPLAYCHANGE: 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 


case WM—VSCROLL: 

switch (LOWORD (wParam)) 



case SB TOP : 

iFont = 0 ; 


break ; 

case 

SB BOTTOM: 

iFont = cFonts — 

1 ； 

break ; 


case SB LINEUP: 





case SB PAGEUP: 

iFont —= 1 ; 


break ; 

case 

SB LINEDOWN: 




case 

SB PAGEDOWN: 

iFont += 1 ; 


break ; 


case SB_THUMBPOSITION: iFont = HIWORD (wParam) ; break ; 
} 

iFont = max (◦, min (cFonts - 1, iFont)); 
SetScrollPos (hwnd, SB—VERT, iFont, TRUE); 
InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 


case WM—KEYDOWN: 

switch (wParam) 
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case VK_HOME : SendMessage (hwnd, WM—VSCROLL, SB_TOP, 0); 

break ; 

case VK—END: SendMessage (hwnd A WM—VSCROLL, SB_BOTTOM, ◦) ; break; 
case VK_PRIOR: 
case VK_LEFT: 

case VK_UP: SendMessage (hwnd, WM—VSCROLL, SB_LINEUP, ◦) ; break; 

case VK—NEXT: 
case VK_RIGHT: 

case VK—DOWN: SendMessage (hwnd, WM—VSCROLL, SB_PAGEDOWN, 0) ; break ; 

} 

return 0 ; 
case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

SelectObject (hdc. GetstoekObject (stockfont[iFont] .idStockFont)); 
GetTextFace (hdc, LF_FACESIZE, szFaceName); 

GetTextMetries (hdc, &tm); 

cxGrid = max (3 * tm.tmAveCharWidth A 2 * tm.tmMaxCharWidth); 
cyGrid = tm.tmHeight + 3 ; 

TextOut (hdc, ◦, ◦, szBuffer, 

wsprintf ( szBuffer, TEXT (" %s : Face Name = %s, CharSet = %i n ), 

stockfont[iFont].szStockFont, 
szFaceName, tm.tmCharSet)); 

SetTextAlign (hdc, TA—TOP | TA—CENTER); 

// vertical and horizontal lines 
for (i = 0 ; i < 17 ; i++) 

{ 

MoveToEx (hdc, (i + 2) * cxGrid, 2 * cyGrid, NULL); 

LineTo (hdc, (i + 2) * cxGrid, 19 * cyGrid); 

MoveToEx (hdc, cxGrid, (i + 3) * cyGrid, NULL); 

LineTo (hdc, 18 * cxGrid, (i + 3) * cyGrid); 

} 

// vertical and horizontal headings 

for (i = 0 ; i < 16 ; i++) 

{ 

TextOut (hdc, (2 * i + 5) * cxGrid / 2, 2 * cyGrid + 2, szBuffer, 
wsprintf (szBuffer, TEXT ("%X-"), i)); 

TextOut (hdc, 3 * cxGrid / 2, (i + 3) * cyGrid + 2, szBuffer, 
wsprintf (szBuffer, TEXT ("-%X"), i)); 

} 

// characters 
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for (y = ◦ ; y < 16 ; y++) 
for (x = ◦ ; x < 16 ; x++) 

{ 

TextOut (hdc, (2 * x + 5) * cxGrid / 2, 

(y + 3) * cyGrid + 2, szBuffer, 
wsprintf (szBuffer, TEXT ("%c") , 16 * x + y)); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

这个程式相当简单。它使用卷动列和游标移动键让您选择显示七种备用字 
体之一。该程式在一个网格中显示一种字体的256个字元。顶部的标题和网格 
的左侧显示字元代码的十六进位值。 

在显示区域的顶部， ST 0 KF 0 NT 用 GetStockObject 函式显示用於选择字体的 
识别字。它还显示由 GetTextFace 函式得到的字体样式名称和 TEXTMETRIC 结构 
的 tmCharSet 栏位。这个「字元集识别字」对理解 Windows 如何处理外语版本 
的 Windows 是非常重要的。 

如果在美国英语版本的 Windows 中执行 ST 0 KF 0 NT ， 那么您看到的第一个画 
面将显示使用 0 EM _ FIXED _ F 0 NT 识别字呼叫 GetStockObject 函式得到的字体。 
如图 6-3 所示。 
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图 6-3 美国版 Windows 中的 0EM_FIXED_F0NT 


第225页 







Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

在本字元集中（与本章其他部分一样），您将看到一些 ASCII 。 但请记住 
ASCII 是7位元代码，它定义了从代码 0 x 20 到 0 x 7 E 的可显示字元。到 IBM 开发 
出 IBM PC 原型机时，8位元位元组代码已被稳固地建立起来，因此可使用全8 
位元代码作为字元代码。 IBM 决定使用一系列由线和方块组成的字元、带重音字 
母、希腊字母、数学符号和一些其他字元来扩展 ASCII 字元集。许多文字模式 
的 MS - DOS 程式在其蛮幕显示中都使用绘图字元，并且许多 MS - DOS 程式都在档 
案中使用了一些扩展字元。 

这个特殊的字元集给 Windows 最初的开发者带来了一个问题。一方面，因 
为 Windows 有完整的图形程式设计语言，所以线和方块字元在 Windows 中不需 
要。因此，这些字元使用的48个代码最好用於许多西欧语言所需要的附带重音 
字母。另一方面， IBM 字元集定义了一个无法完全忽略的标准。 

因此， Windows 最初的开发者决定支援 IBM 字元集，但将其重要性降低到第 
二位 一一 它们大多用於在视窗中执行的旧 MS - DOS 应用程式，和需要使用由 
MS - DOS 应用程式建立档案的 Windows 程式。 Windows 应用程式不使用 IBM 字元 
集，并且随著时间的推移，其重要性日渐衰退。然而，如果需要，您还是可以 
使用。在此环境下， 「 OEM 」 指的就是 「 IBM 」 。 

(您应知道外语版本的 Windows 不必支援与美国英语版相同的 OEM 字元集。 
其他国家有其自己的 MS - DOS 字元集。这是个独立的问题，就不在本书中讨论了。） 

因为 IBM 字元集被认为不适合 Windows ， 於是选择了另一种扩展字元集。此 
字元集称作 「 ANSI 字元集」，由美国国家标准协会 (American National Standards 
Institute ) 制定，但它实际上是 ISO (International Standards Organization ， 
国际标准化组织）标准，也就是 ISO 标准8859。它还称为 Latin 1 、 Western 
European , 或者内码表1252。图 6-4 显示了 ANSI 字元集的一个版本——美国英 
语版 Windows 的系统字体。 
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图 6-4 美国版 Windows 中的 SYSTEM_FONT 


粗的垂直条表示这些字元代码没有定义。注意，代码 0 x 20 到 0 x 7 E 还是 
ASCIIo 此外， ASCII 控制字元 (0 x 00 到 OxlF 以及 0 x 7 F ) 并不是可显示字元。 
它们本应如此。 

代码 Ox ⑶到 OxFF 使得 ANSI 字元集对外语版 Windows 来说非常重要。这些 
代码提供64个在西欧语言中普遍使用的字元。字元 0 xA 0, 看起来像空格，但实 
际上定义为非断开空格，例如 「WW II 」中的空格。 

之所以说这是 ANSI 字元集的「一个版本」，是因为存在代码 0 x 80 到 0 x 9 F 
的字元。等宽的系统字体只包括其中的两个字元，如图 6-5 所示。 


第227页 
























Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


| 函 Stock Fonts 













1 

IBB 

SVSTEM^FIXED.FONT 

: Face 

Name 

=Fixedsys, 

CharSet = 

H 



0 - 

1- 

2 - 

3 - 

H- 

5 - 

6 - 

7 - 

8 - 

9 - 

A- 

B- 

c- 

D- 

E- 

F- 


_0 

■ 

■ 


0 

o 

D 

■ 

n 

□ 

□ 


H 

a 

□ 

□ 

Q 


-1 

■ 

■ 

f 

• 

1 

□ 

□ 

□ 

n 

D 

■ 

n 

□ 

El 

o 

a 

B 


•2 

■ 

■ 

• 0 

2 

□ 

a 

□ 

D 

D 


a 

B 

o 

u 

o 

B 


-3 

□ 

Q 

□ 

B 

B 

a 

□ 

Q 

□ 

口 

a 

B 

u 

Kfl 

B 

a 


1 — 

□ 

Q 

B 

□ 

□ 

D 

□ 

D 

D 

□ 

□ 


Q 

Q 

□ 

a 


-5 


■ 

7. 

5 

11 

o 

□ 

D 

□ 

口 

a 

13 

il 

El 

□ 

B 


-B 

■ 

■ 

& 

6 

□ 

□ 

□ 

D 

口 

□ 

D 

D 

□ 

O 

Q 

□ 


| _7 


■ 

t 

D 

□ 

Q 

n 

D 

口 

口 

D 

a 

a 

D 

13 

D 


mn 

■ 

■ 

( 

□ 

Q 

□ 

Q 

D 

Q 

口 

■ 


Q 

□ 

B 

□ 


l * 9 


■ 

) 

9 

□ 

D 

D 

El 

D 

□ 

O 

B 

H 

U 

□ 

□ 


_A 

■ 

■ 


• 

馨 

D 

B 

n 

E3 

D 

口 

a 


a 

U 

D 

□ 


• B 


■ 

+ 

• 

t 

□ 

n 

□ 

n 

口 

Q 


a 

H 

O 

□ 

O 


1 -c 

■ 

■ 

t 

< 

D 

n 

a 

n 

□ 

□ 


D 

K1 

H 

Q 

D 

JIM 

mn 


■ 

mm 

■ 

□ 

n 

D 

n 

口 

□ 


Q 

Kfl 

U 

B 

H 


-E 

■ 

■ 

• 

> 

O 

■ 

n 

■ 

口 

口 


a 

K1 

□ 

D 

n 


-F 

___ 

■ 

■ 

/ 

7 

□ 


□ 

□ 

Q 

□ 

■ 

n 

H 

□ 

D 

il 

















图 6-5 美国版 Windows 中的 SYSTEM_FIXED_FONT 


在 Unicode 中，代码 0 x 0000 到 0 x 007 F 与 ASCII 相同，代码 0 x 0080 到 0 x 009 F 
复制了 0 x 0000 到 OxOOlF 的控制字元，代码 OxOOAO 到 OxOOFF 与 Windows 中使 
用的 ANSI 字元集相同。 

如果执行德语版的 Windows ， 那么当您用 SYSTEM _ F 0 NT 或者 
SYSTEM _ FIXED _ F 0 NT 识别字来呼叫 GetStockObject 函式时会得到同样的 ANSI 字 
元集。其他西欧版 Windows 也是如此。 ANSI 字元集中含有这些语言所需要的所 
有字元。 

不过，当您执行希腊版的 Windows 时，内定的字元集就改变了。相反地， 
SYSTEM _ F 0 NT 如图 6-6 所示。 
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图 6-6 希腊版 Windows 中的 SYSTEM_FONT 

SYSTEM _ FIXED _ FONT 有同样的字元。注意从 Ox ⑶到 OxFF 的代码。这些代码 
包含希腊字母表中的大写字母和小写字母。当您执行俄语版 Windows 时，内定 
的字元集如图 6-7 所示。 
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图 6-7 俄语版 Windows 中的 SYSTEM_F0NT 

此外，注意斯拉夫字母表中的大写和小写字母占用了代码 OxCO 和 OxFF 。 

图 6-8 显示了日语版 Windows 的 SYSTEM _ F 0 NT 。 从 0 xA 5 到 OxDF 的字元都是 
片假名字母表的一部分。 
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图 6-8 日语版 Windows 中的 SYSTEM_FONT 


图 6-8 所示的日文系统字体不同於前面显示的那些，因为它实际上是双位 
元组字元集 （ DBCS ) ，称为 「 Shift - JIS 」（「 JIS 」 代表日本工业标准 ， Japanese 


Industrial Standard ) 0 从 0 x 81 到 0 x 9 F 以及从 OxEO 到 OxFF 的大多数字元代 


码实际上只是双位元组代码的第一个位元组，其第二个位元组通常在 0 x 40 到 
OxFC 的范围内（关於这些代码的完整表格，请参见 Nadine Kano 书中的附录 G ) 。 

现在，我们就可以看看 KEYVIEW 1 中的问题在 哪里： 如果您安装了希腊键盘 
布局并键入 『 abcde 』 ，不考虑执行的 Windows 版本， Windows 将产生 WM CHAR 
讯息和字元代码 OxEl 、0 xE 2、0 xF 8、0 xE 4 和 0 xE 5。 但只有执行带有希腊系统字 


体的希腊版 Windows 时，这些字元代码才能与 t 、 p 、 \(/、3和 s 相对应。 

如果您安装了俄语键盘布局并敲入 『 abcde 』 ，不考虑所使用的 Windows 版 
本 ， Windows 将产生 WM_CHAR 讯息和字元代码 0 xF 4、0 xE 8 、OxFK 0 xE 2 和 0 xF 3。 
但只有在使用俄语版 Windows 或者使用斯拉夫字母表的其他语言版，并且使用 
斯拉夫系统字体时，这些字元代码才会与字元4>、 M 、 c 、 b 和 y 相对应。 

如果您安装了德语键盘布局并按下=键（或者位於同一位置的键），然後按 
下 a 、 e 、 i 、 0 或者 ii 键，不考虑使用的 Windows 版本， Windows 将产生 WM CHAR 
讯息和字元代码 OxEl 、0 xE 9、 OxED , 0 xF 3 和 OxFA 。 只有执行西欧版或者美国版 
的 Windows 时，也就是说有西欧系统字体，这些字元代码才会和字元 
amp;nbsp;a 、 e 、 k 6 和 Ci 木目对应。 

如果安装了美国英语键盘布局，则您可在键盘上键入任何字元， Windows 将 
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产生 WM _ CHAR 讯息以及与字元正确匹配的字元代码。 

Unicode 怎么样？ 

我在第二章谈到过 Windows NT 支援的 Unicode 有助於为国际市场程式写作。 
让我们编译一下定义了 UNICODE 识别字的 KEYVIEW 1 ，并在不同版本的 Windows NT 
下执行（在本书附带的光碟中， Unicode 版的 KEYVIEW 1 位於 DEBUG 目录中）。 

如果程式编译时定义了 UNK0DE 识别字，则 rKeyViewlJ 视窗类别就用 
RegisterClassW 函式注册，而不是 RegisterClassA 函式。这意味著任何带有字 
元或文字资料的讯息传递给 WndProc 时都将使用 16 位元字元而不是 8 位元字元。 
特别是 WM_CHAR 讯息，将传递 16 位元字元代码而不是 8 位元字元代码。 

请在美国英语版的 Windows NT 下执行 Unicode 版的 KEYVIEW 1。 这里假定您 
已经安装了至少三种我们试验过的键盘布局——即德语、希腊语和俄语。 

使用美国英语版的 Windows NT ， 并安装了英语或者德语的键盘布局 ， Unicode 
版的 KEYVIEW 1 在工作时将与非 Unicode 版相同。它将接收相同的字元代码（所 
有 OxFF 或者更低的值），并显示同样正确的字元。这是因为最初的256个 Unicode 
字元与 Windows 中使用的 ANSI 字元集相同。 

现在切换到希腊键盘布局，并键入 『 abcde 』 。 WM _ CHAR 讯息将含有 Unicode 
字元代码 0 x 03 Bl 、0 x 03 B 2、0 x 03 C 8、0 x 03 B 4 和 0 x 03 B 5。 注意，我们先看到的 
字元代码值比 OxFF 高。这些 Unicode 字元代码与希腊字母 t 、 p 、 \)/、 d 和 s 相 
对应。不过，所有这五个字元都显示为方块！这是因为 SYSTEM _ FIXED _ FONT 只 
含有256个字元。 

现在切换到俄语键盘布局，并键入 『 abcde 』 。 KEYVIEW 1 显示 WM + CHAR 讯息 
和 Unicode 字元代码0 x 0444、0 x 0438、0 x 0441、 0 x 0432 和0 x 0443,这些字元对 
应於斯拉夫字母4>、 m 、 c 、 b 和 y 。 不过，所有这五个字母也显示为实心 
方块。 

简言之，非 Unicode 版的 KEYVIEW 1 显示错误字元的地方， Unicode 版的 
KEYVIEW 1 就显示实心方块，以表示目前的字体没有那种特殊字元。虽然我不愿 
说 Unicode 版的 KEYVIEW 1 是非 Unicode 版的改进，但事实确实如此。非 Unicode 
版显示错误字元，而 Unicode 版不会这样。 

Unicode 和非 Unicode 版 KEYVIEW 1 的不同之处主要在两个方面。 

首先， WM _ CHAR 讯息伴随一个16位元字元代码，而不是8位元字元代码。 
在非 Unicode 版本的 KEYVIEW 1 中，8位元字元代码的含义取决於目前活动的键 
盘布局。如果来自德语键盘，则 0xE1 代码表示如果来自希腊语键盘则代表 a ， 
如果来自俄语键盘则代表 cj 。 在 Unicode 版本程式中， 16 位元字元代码的含义 
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很明确： a 字元是 OxOOEl ， a 字元是 0 x 03 B 1， 而 cj 字元是 0 x 0431 。 

第二， Unicode 的 TextOutW 函式显示的字元依据16位元字元代码，而不是 
非 Unicode 的 TextOutA 函式的8位元字元代码。因为这些16位元字元代码含 
义明确， GDI 可以确定目前在装置内容中选择的字体是否可显示每个字元。 

在美国英语版 Windows NT 下执行 Unicode 版的 KEYVIEW 1 多少让人感到有 
些迷惑，因为它所显示的就好像 GDI 只显示了 0 x 0000 到 OxOOFF 之间的字元代 
码，而没有显示高於 OxOOFF 的代码。也就是说，只是在字元代码和系统字体中 
256个字元之间简单的一对一映射。 

然而，如果安装了希腊或者俄语版的 Windows NT , 您将发现情况就大不一 
样了。例如，如果安装了希腊版的 Windows NT ， 则美国英语、德语、希腊语和 
俄语键盘将会产生与美国英语版 Windows NT 同样的 Unicode 字元代码。不过， 
希腊版的 Windows NT 将不显示德语重音字元或者俄语字元，因为这些字元并不 
在希腊系统字体中。同样，俄语版的 Windows NT 也不显示德语重音字元或者希 
腊字元，因为这些字元也不在俄语系统字体中。 

其中， Unicode 版的 KEYVIEW 1 的区别在日语版 Windows NT 下更具戏剧性。 

您从 IME 输入日文字元，这些字元可以正确显示。唯一的问题是 格式： 因为日 
文字元通常看起来非常复杂，它们的显示宽度是其他字元的两倍。 

TrueType 和大字体 

我们使用的点阵字体（在日文版 Windows 中带有附加字体）最多包括256 
个字元。这是我们所希望的，因为当假定字元代码是8位元时，点阵字体档案 
的格式就跟早期 Windows 时代的样子一样了。这就是为什么当我们使用 
SYSTEM _ F 0 NT 或者 SYSTEM _ FIXED _ F 0 NT 时，某些语言中一些字元总不能正确显示 

(日本系统字体有点不同，因为它是双位元组字 元集； 大多数字元实际上保存 
在 TrueType 集合档案中，档案副档名是 . TTC ) 。 

TrueType 字体包含的字元可以多於256个。并不是所有 TrueType 字体中的 
字元都多於256个，但 Windows 98和 Windows NT 中的字体包含多於256个字 
元。或者，安装了多语系支援後， TrueType 字体中也包含多於256个字元。在 
「 控制台」 的「 新增/删除程式 」中，单击「 Windows 安装程式」 页面标 
签，并确保选中了「 多语系支援」。 这个多语系支援包括五个字 元集： 波罗的 
海语系、中欧语系、斯拉夫语系、希腊语系和土耳其语系。波罗的海语系字元 
集用於爱沙尼亚语、拉脱维亚语和立陶宛语。中欧字元集用於阿尔巴尼亚语、 
捷克语、克罗地亚语、匈牙利语、波兰语、罗马尼亚语、斯洛伐克语和斯洛文 
尼亚语。斯拉夫字元集用於保加利亚语、白俄罗斯语、俄语、塞尔维亚语和乌 
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克兰语。 

Windows 98中的 TrueType 字体支援这五种字元集，再加上西欧 （ ANSI ) 字 
元集，西欧字元集实际上用於其他所有语言，但远东语言（汉语、日语和朝鲜 
语）除外。支援多种字元集的 TrueType 字体有时也称为「大字体」。在这种情 
况下的「大」并不是指字元的大小，而是指数量。 

即使在非 Unicode 程式中也可利用大字体，这意味著可以用大字体显示几 
种不同字母表中的字元。然而，为了要将得到的字体选进装置内容，还需要 
GetStockObject 以外的函式。 

函式 CreateFont 和 CreateFontIndirect 建立了一种逻辑字体，这与 
CreatePen 建立逻辑画笔以及 CreateBrush 建立逻辑画刷的方式类似。 
CreateFont 用14个参数描述要建立的字体 。 CreateFont Indirect 只有一个参 
数，但该参数是指向 L 0 GF 0 NT 结构的指标。 L 0 GF 0 NT 结构有14个栏位，分别对 
应於 CreateFont 函式的参数。我将在第十七章详细讨论这些函式。现在，让我 
们看一下 CreateFont 函式，但我们只注意其中两个参数，其他参数都设定为0。 

如果需要等宽字体（就像 KEYVIEW 1 程式中使用的），将 CreateFont 的第 
13个参数设定为 FIXED _ PITCH 。 如果需要非内定字元集的字体（这也是我们所 
需要的），将 CreateFont 的第9个参数设定为某个「字元集 ID 」 。此字元集 
ID 将是 WINGDI . H 中定义的下列值之一。我已给出注释，指出和这些字元集相关 
的内码表： 


ttdefine ANSI_CHARSET 

■ 

// 1252 Latin 1 (ANSI) 

ttdefine DEFAULT_CHARSET 

1 


ttdefine SYMBOL_CHARSET 

2 


ttdefine MAC_CHARSET 

77 


ttdefine SHIFTJIS_CHARSET 

128 

" 932 (DBCS, 日本） 

ttdefine HANGEUL_CHARSET 

129 

" 949 (DBCS, 韩文） 

ttdefine HANGUL_CHARSET 

129 

// "" 

ttdefine J0HAB_CHARSET 

130 

// 1361 (DBCS, 韩文） 

ttdefine GB2312_CHARSET 

134 

" 936 (DBCS, 简体中文） 

ttdefine CHINESEBIG5_CHARSET 

136 

" 950 (DBCS, 繁体中文） 

ttdefine GREEK_CHARSET 

161 

// 1253 希腊文 

ttdefine TURKISH_CHARSET 

162 

// 1254 Latin 5 ( 土耳其文） 

ttdefine VIETNAMESE_CHARSET 

163 

// 1258 越南文 

ttdefine HEBREW_CHARSET 

177 

// 1255 希伯来文 

ttdefine ARABIC_CHARSET 

178 

// 1256 阿拉伯文 

ttdefine BALTIC_CHARSET 

186 

// 1257 波罗的海字集 
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ttdefine RUSSIAN CHARSET 

204 

// 1251 俄文（斯拉夫语系） 

ttdefine THAI CHARSET 

222 

" 874 泰文 

ttdefine EASTEUROPE CHARSET 

238 

// 1250 Latin 2 ( 中欧语系 ) 

ttdefine 0EM_CHARSET 

255 

//地区自订 


为什么 Windows 对同一个字元集有两个不同的 ID : 字元集 ID 和内码表 ID ? 
这只是 Windows 中的一种怪癖。注意，字元集 ID 只需要1位元组的储存空间， 
这是 L 0 GF 0 NT 结构中字元集栏位的大小（试回忆 Windows 1.0 时期，记忆体和 
储存空间有限，每个位元组都必须斤斤计较）。注意，有许多不同的 MS - DOS 内 
码表用於其他国家，但只有一种字元集 ID —— 0 EM _ CHARSET ——用於 MS - DOS 字 
元集。 

您还会注意到，这些字元集的值与 ST 0 KF 0 NT 程式最上头的 「 CharSet 」 值 
一致。在美国英语版 Windows 中，我们看到常备字体的字元集 ID 是0 
( ANSI _ CHARSET ) 和255 ( 0 EM _ CHARSET ) 。希腊版 Windows 中的是 161 
( GREEK — CHARSET ) ，在俄语版中的是204 ( RUSSIAN _ CHARSET ) ,在日语版中是 
128 ( SHIFTJIS — CHARSET ) 。 

在上面的代码中， DBCS 代表双位元组字元集，用於远东版的 Windows 。 其 
他版的 Windows 不支援 DBCS 字体，因此不能使用那些字元集 ID 。 

CreateFont 传回 HF 0 NT 值——逻辑字体的代号。您可以使用 SelectObject 
将此字体选进装置内容。实际上，您必须呼叫 DeleteObject 来删除您建立的所 
有逻辑字体。 

大字体解决方案的其他部分是 WM _ INPUTLANGCHANGE 讯息。 一 旦您使用桌面 
下端的突现式功能表来改变键盘布局， Windows 都会向您的视窗讯息处理程式发 
送 WM _ INPUTLANGCHANGE 讯息。 wParam 讯息参数是新键盘布局的字元集 ID 。 

程式 6-4 所示的 KEYVIEW 2 程式实作了键盘布局改变时改变字体的逻辑。 


程式 6-4 KEYVIEW2 


KEYVIEW2.C 

/* - 


KEYVIEW2.C -- 

Displays Keyboard and Character Messages 

(c) Charles Petzold, 1998 


♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance 

PSTR szCmdLine, int iCmdShow) 

{ 
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static TCHAR szAppName[] = TEXT ("KeyView2") 


HWND 

MSG 

WNDCLASS 


hwnd ; 
msg ; 
wndclass 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW 
WndProc ; 


=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION) 
LoadCursor (NULL, IDC—ARROW); 

(HBRUSH) GetStockObject (WHITE—BRUSH) 
NULL ; 
szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("This program requires Windows NT !’'）， 

szAppName, MB_ICONERROR); 

return 0 ; 

} 

hwnd = CreateWindow (szAppName, TEXT ("Keyboard Message Viewer #2 n ), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 
CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static DWORD dwCharSet = DEFAULT_CHARSET ; 

static int cxClientMax, cyClientMax, cxClient, cyClient, cxChar, cyChar ; 
static int cLinesMax, cLines ; 
static PMSG pmsg ; 
static RECT rectScroll ; 
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static 

TCHAR 

szTop[] 

Tran"); 

static 

n )； 

TCHAR 

szUnd[] 


TEXT ("Message Key Char ’，） 

TEXT ("Repeat Scan Ext ALT Prev 

TEXT ("___") 

TEXT (" 


static TCHAR * szFormat[2] = { 

TEXT ("%-13s %3d %-15s%c%6u %4d %3s %3s %4s %4s n ), 

TEXT ("%-13s 0x%04X%ls%c %6u %4d %3s %3s %4s %4s") }; 


static 

TCHAR 

女 

szYes = 

TEXT 

("Yes"); 

static 

TCHAR 

女 

szNo 

— 

TEXT ("No"); 

static 

TCHAR 

女 

szDown = 

TEXT 

("Down"); 

static 

TCHAR 

女 

szUp 

— 

TEXT ("Up"); 

static 

TCHAR 

女 

szMessage 

[]= 

{ 


TEXT ( n WM_KEYDOWN n ) , TEXT 

TEXT ("WM_CHAR"), TEXT 

TEXT ( n WM—SYSKEYDOWN，'），TEXT 
TEXT ("WM SYSCHAR"), TEXT 


( n WM_KEYUP n ), 
( M WM_DEADCHAR n ), 
( n WM_SYSKEYUP n ), 
("WM SYSDEADCHAR") 


HDC hdc ; 


int i, iType ; 

PAINTSTRUCT ps ; 

TCHAR szBuffer[128], szKeyName [32]; 

TEXTMETRIC tm ; 


switch (message) 

{ 

case WM_INPUTLANGCHANGE : 

dwCharSet = wParam ; 

// fall through 
case WM—CREATE: 
case WM_DISPLAYCHANGE : 

// Get maximum size of client area 
cxClientMax = GetSystemMetrics (SM—CXMAXIMIZED); 
cyClientMax = GetSystemMetrics (SM CYMAXIMIZED); 


NULL)); 


// Get character size for fixed-pitch font 
hdc = GetDC (hwnd); 


SelectObj ect (hdc, CreateFont (◦, ◦, 0, ◦, ◦, 0, 

dwCharSet, ◦, ◦, 


◦ , 0 , 

0, FIXED PITCH, 


GetTextMetries (hdc, &tm); 
cxChar = tm.tmAveCharWidth ; 
cyChar = tm.tmHeight ; 


DeleteObj ect (SelectObj ect (hdc, GetStockObj ect (SYSTEM FONT))); 
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ReleaseDC (hwnd, hdc) ; 

// Allocate memory for display lines 
if (pmsg) 

free (pmsg); 

cLinesMax = cyClientMax / cyChar ; 

pmsg = malloc (cLinesMax * sizeof (MSG)); 

cLines = 0 ; 

// fall through 
case WM—SIZE: 

if (message == WM—SIZE) 

{ 

cxClient = LOWORD (IParam); 

cyClient = HIWORD (IParam); 

} 

// Calculate scrolling rectangle 

rectScroll.left = 0 ; 

rectScroll.right = cxClient ; 
rectScroll.top = cyChar ; 

rectScroll.bottom^ cyChar * (cyClient / cyChar); 

工 nvalidateRect (hwnd A NULL, TRUE); 

if (message == WM_INPUTLANGCHANGE) 

return TRUE ; 

return 0 ; 

case WM_KEYDOWN: 
case WM_KEYUP: 
case WM_CHAR: 
case WM_DEADCHAR: 
case WM—SYSKEYDOWN: 
case WM_SYSKEYUP: 
case WM_SYSCHAR: 
case WM_SYSDEADCHAR: 

// Rearrange storage array 
for (i = cLinesMax - 1 ; i > 0 ; i——) 

{ 

pmsg[i] = pmsg[i - 1 ]; 

} 

// Store new message 
pmsg[0].hwnd = hwnd ; 
pmsg[0].message = message ; 
pmsg[0].wParam = wParam ; 
pmsg[0]•IParam = IParam ; 

cLines = min (cLines + 1, cLinesMax); 
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// Scroll up the display 

ScrollWindow (hwnd, 0, -cyChar, &rectScroll, &rectScroll); 

break ; // ie, call DefWindowProc so Sys messages work 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

SelectObj ect (hdc, CreateFont (0, ◦, ◦, 0, ◦, ◦, 0, ◦, 
dwCharSet, 0, ◦, ◦, FIXED_PITCH, NULL)); 

SetBkMode (hdc, TRANSPARENT); 

TextOut (hdc, 0, 0, szTop, lstrlen (szTop)); 

TextOut (hdc, ◦, ◦, szUnd, lstrlen (szUnd)); 

for (i = ◦ ; i < min (cLines, cyClient / cyChar - 1) ; i++) 

{ 

iType = pmsg[i].message == WM—CHAR || 

pmsg[i].message == WM—SYSCHAR || 
pmsg[i].message == WM_DEADCHAR || 
pmsg[i] .message == WM_SYSDEADCHAR ; 

GetKeyNameText (pmsg[i]•IParam, szKeyName, 

sizeof (szKeyName) / sizeof (TCHAR)); 

TextOut (hdc, ◦, (cyClient / cyChar - 1 - i) * cyChar, szBuffer, 

wsprintf ( szBuffer, s zFormat [iType], 
szMessage [pmsg[i]•message - WM_KEYFIRST], 
pmsg[i].wParam, 

(PTSTR) (iType ? TEXT (" ") : szKeyName), 

(TCHAR) (iType ? pmsg[i].wParam : 1 '), 

LOWORD (pmsg[i]•IParam), 

HIWORD (pmsg[i].IParam) & OxFF, 

0x01000 000 & pmsg[i]•IParam ? szYes : szNo, 

0x2 0000 000 & pmsg[i]•IParam ? szYes : szNo, 

0x4 0000 000 & pmsg[i]•IParam ? szDown : szUp, 

0x80000000 & pmsg[i]•IParam ? szUp : szDown)); 

} 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect (SYSTEM—FONT))); 

EndPaint (hwnd, &ps); 

return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 

return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

注意，键盘输入语言改变後， KEYVIEW 2 就清除画面并重新分配储存空间。 
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这样做有两个 原因： 第一，因为 KEYVIEW 2 并不是某种字体专用的，当输入语言 
改变时字体文字的大小也会改变。程式需要根据新字元大小重新计算某些变数。 
第二，在接收每个字元讯息时， KEYVIEW 2 并不有效地保留字元集 ID 。 因此，如 
果键盘输入语言改变了，而且 KEYVIEW 2 需要重画显示区域时，所有的字元将用 
新字体显示。 

第十七章将详细讨论字体和字元集。如果您想深入研究国际化问题，可以 
在 /Platform SDK/Windows Base Services/International Features 找到需要 
的文件，还有许多基础资讯则位於 /Platform SDK/Windows Base 
Services/General Library/String Manipulation 。 

插入符号（不是游标） 

当您往程式中输入文字时，通常有一个底线、竖条或者方框来指示输入的 
下一个字元将出现在萤幕上的位置。这个标志通常称为「游标」，但是在 Windows 
下写程式，您必须改变这个习惯。在 Windows 中，它称为「插入符号」。「游 
标」是指表示滑鼠位置的那个点阵图图像。 

插入符号函式 

主要有五个插入符号 函式： 

• CreateCaret 建立与视窗有关的插入符号 

• SetCaretPos 在视窗中设定插入符号的位置 

• ShowCaret 显示插入符号 

• HideCaret 隐藏插入符号 

• DestroyCaret 撤消插入符号 

另外还有取得插入符号目前位置 （ GetCaretPos ) 和取得以及设定插入符号 
闪烁时间 （GetCaretBlinkTime 和 SetCaretBlinkTime ) 的函式。 

在 Windows 中，插入符号定义为水平线、与字元大小相同的方框，或者与 
字元同高的竖线。如果使用调和字体，例如 Windows 内定的系统字体，则推荐 
使用竖线插入符号。因为调和字体中的字元没有固定大小，水平线或方框不能 
设定为字元的大小。 

如果程式中需要插入符号，那么您不应该简单地在视窗讯息处理程式的 
WM _ CREATE 讯息处理期间建立它，然後在 WM _ DESTROY 讯息处理期间撤消。其原 
因显而 易见： 一个讯息伫列只能支援一个插入符号。因此，如果您的程式有 i 

个视窗，那么各个视窗必须有效地共用相同的插入符号。 

~ 其实，它并不像听起来那么多限制。您再想想就会发现，只有在视窗有输 


第 239 页 


























Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

入焦点时，视窗内显示插入符号才有意义。事实上，闪烁的插入符号只是一种 

视觉 提示： 您可以在程式中输入文字。因为任何时候都只有一个视窗拥有输入 

焦点，所以多个视窗同时都有闪烁的插入符号是没有意义的。 

通过处理 WM _ SETF 0 ⑶ S 和 WMJQLLFOCUS 讯息，程式就可以确定它是否有输 

入焦点。正如名称所暗示的，视窗讯息处理程式在有输入焦点的时候接 

WM SETF 0 CUS 讯息，失去输入焦点的时候接收到丽 KILLFOCUS 讯息。这些讯息 

成对 出现： 视窗讯息处理程式在接收到 WM _ KILLFOCUS 讯息之前将一直接收到 
WM _ SETFOCUS 讯息，并且在视窗打开期间，此视窗总是接收到相同数量的 
WM_SETFOCUS 和 WM_KILLFOCUS 讯息。 

使用插入符号的主要规则很简单：视窗讯息处理程式在 WM _ SETFOCUS 讯息 
处理期间呼口 H CreateCaret ， 在 WM—KILLFOCUS 讯息处理期间呼口 1 j DestroyCaret 。 

~ 这里还有几条其他 规则： 插入符号刚建立时是隐蔽的。如果想使插入符号 

可见，那么您在呼叫 CreateCaret 之後，视窗讯息处理程式还必须呼叫 
ShowCareto 另夕卜，当视窗讯息处理程式处理一条非 WM — PAINT 讯息而且希望在 

视窗内绘制某些东西时，它必须呼叫 HideCaret 隐藏插入符号。在绘制完毕後， 

再呼叫 ShowCaret 显示插入 符号。 HideCaret 的影口向具有累积效果，如果多次呼 
口 H HideCaret 而不呼 口 ShowCaret ,那么只有呼口 H ShowCaret 相同次数日寸，才能 

看到插入符号。 

TYPER 程式 

程式 6- 5所示的 TYPER 程式使用了本章讨论的所有内容，您可以认为 TYPER 
是一个相当简单的文字编辑器。在视窗中，您可以输入字元，用游标移动键（也 
可以称为插入符号移动键）来移动游标（ I 型标），按下 Escape 键清除视窗的 
内容等。缩放视窗、改变键盘输入语言时都会清除视窗的内容。本程式没有卷 
动，没有文字寻找和定位功能，不能储存档案，没有拼写检查，但它确实是写 
作一个文字编辑器的开始。 


程式 6-5 TYPER 


TYPER.C 



卜 



TYPER.C -- 

Typing Program 



(c) Charles Petzold, 1998 

- */ 


♦include <windows.h> 

♦ define BUFFER(x,y) * (pBuffer + y * cxBuffer + x) 
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LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


static TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName[] = TEXT ("Typer"); 
hwnd ; 
msg ; 

wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 

=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH) 
=NULL ; 


wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 



MessageBox ( NULL, TEXT ("This program requires Windows NT !’’）， 

szAppName, MB_ICONERROR); 

return 0 ; 

} 

hwnd = CreateWindow ( szAppName, TEXT ("Typing Program"), 

WS_OVERLAPPEDWINDOW, 
CW—USEDEFAULT, CW_USEDEFAULT, 
CW_USEDEFAULT, CW_USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static DWORD dwCharSet = DEFAULT_CHARSET ; 

static int cxChar, cyChar, cxClient, cyClient, cxBuffer, cyBuffer, 
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xCaret , yCaret ; 

static TCHAR * pBuffer = NULL ; 

HDC hdc ; 

int x, y, i ; 

PAINTSTRUCT ps ; 

TEXTMETRIC tm ; 

switch (message) 

{ 

case WM—INPUTLANGCHANGE: 

dwCharSet = wParam ; 

// fall through 
case WM—CREATE: 

hdc = GetDC (hwnd); 

SelectObj ect ( hdc, CreateFont (0, ◦, ◦, ◦, ◦, ◦, 0, ◦, 

dwCharSet, 0, ◦, ◦, FIXED_PITCH, NULL)); 

GetTextMetrics (hdc, &tm); 
cxChar = tm.tmAveCharWidth ; 
cyChar = tm.tmHeight ; 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect (SYSTEM—FONT))); 
ReleaseDC (hwnd, hdc); 

// fall through 
case WM—SIZE: 

// obtain window size in pixels 

if (message == WM—SIZE) 

{ 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 

} 

// calculate window size in characters 

cxBuffer = max (1, cxClient / cxChar); 
cyBuffer = max (1 , cyClient / cyChar); 

// allocate memory for buffer and clear it 

if (pBuffer != NULL) 

free (pBuffer); 

pBuffer = (TCHAR *) malloc (cxBuffer * cyBuffer * sizeof (TCHAR)); 

for (y = 0 ; y < cyBuffer ; y++) 

for (x = ◦ ; x < cxBuffer ; x++) 

BUFFER(x,y) = ， ▼; 
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case 


case 


case 


// set caret to upper left corner 

xCaret = 0 ; 
yCaret = 0 ; 


if (hwnd == GetFocus ()) 

SetCaretPos (xCaret * cxChar, 


yCaret 


工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

WM—SETFOCUS: 

// create and show the caret 
CreateCaret (hwnd, NULL, cxChar, cyChar); 
SetCaretPos (xCaret * cxChar, yCaret * cyChar); 
ShowCaret (hwnd); 
return 0 ; 


WM_KILLFOCUS: 

// hide and destroy the caret 
HideCaret (hwnd); 

DestroyCaret (); 
return 0 ; 

WM—KEYDOWN: 
switch (wParam) 

{ 

case VK_HOME : 

xCaret = 0 ; 
break ; 


case VK_END : 

xCaret = cxBuffer - 1 ; 
break ; 

case VK—PRIOR: 

yCaret = 0 ; 
break ; 

case VK—NEXT: 

yCaret = cyBuffer - 1 ; 
break ; 


case VK—LEFT: 

xCaret = max (xCaret — 1, 
break ; 


case VK RIGHT: 


cyChar); 


0)； 
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xCaret = min (xCaret + 1, cxBuffer 一 1); 
break ; 

case VK—UP: 

yCaret = max (yCaret 一 1, 0); 
break ; 

case VK_DOWN : 

yCaret = min (yCaret + 1, cyBuffer - 1); 
break ; 

case VK_DELETE: 

for (x = xCaret ; x < cxBuffer 一 1 ; x++) 

BUFFER (x, yCaret) = BUFFER (x + 1, yCaret); 

BUFFER (cxBuffer - 1, yCaret) = * '; 

HideCaret (hwnd); 
hdc = GetDC (hwnd); 

SelectObj ect (hdc, CreateFont (0, ◦, 0, 0, 0, 0, ◦, ◦, 

dwCharSet, 0,FIXED_PITCH, NULL)); 

TextOut (hdc, xCaret * cxChar A yCaret * cyChar, 

& BUFFER (xCaret, yCaret), 
cxBuffer - xCaret); 


DeleteObj ect (SelectObj ect (hdc, GetStockObj ect 

(SYSTEM_FONT))); 

ReleaseDC (hwnd, hdc); 

ShowCaret (hwnd); 
break ; 

} 

SetCaretPos (xCaret * cxChar, yCaret * cyChar); 
return 0 ; 

case WM—CHAR: 

for (i = ◦ ; i < (int) LOWORD (IParam) ; i + + ) 

{ 

switch (wParam) 

{ 

case 1 \b 1 : // backspace 

if (xCaret > 0) 

{ 

xCaret--; 

SendMessage (hwnd, WM—KEYDOWN, VK_DELETE, 

1)； 

} 

break ; 
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case '\t' 


/ / tab 


do 


SendMessage (hwnd, WM CHAR, 


,1) 


case 1 \n 


while (xCaret % 
break ; 


0)； 


if (++yCaret == cyBuffer) 

yCaret = 0 ; 

break ; 


case 1 \r 1 : 


xCaret = 0 ; 

if (++yCaret == cyBuffer) 

yCaret = 0 ; 

break ; 


// line feed 


// carriage return 


case 1 \xlB 1 : 


for (y = 0 ; y < cyBuffer ; y++) 
for (x = 0 ; x < cxBuffer ; x++) 

BUFFER (x, y) = ' 1 , 


// escape 


xCaret = 0 ; 
yCaret = 0 ; 

工 nvalidateRect (hwnd, NULL, FALSE); 
break ; 


default : // character codes 

BUFFER (xCaret, yCaret) = (TCHAR) wParam ; 


HideCaret (hwnd); 
hdc = GetDC (hwnd); 

SelectObj ect (hdc, CreateFont (◦, ◦, ◦, ◦, ◦, 0, ◦, 0, 

dwCharSet, 0, 0, ◦, FIXED_PITCH, NULL)); 
TextOut (hdc, xCaret * cxChar, yCaret * cyChar, 

& BUFFER (xCaret, yCaret), 1); 

DeleteObj ect ( 

SelectObj ect (hdc, GetStockObj ect (SYSTEM—FONT))); 
ReleaseDC (hwnd, hdc); 

ShowCaret (hwnd); 


if (++xCaret == cxBuffer) 
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xCaret = 0 ; 

if (++yCaret == cyBuffer) 

yCaret = 0 ; 

} 

break ; 


SetCaretPos (xCaret * cxChar, yCaret * cyChar); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

SelectObj ect (hdc, CreateFont (◦, ◦, ◦, ◦, 0, ◦, ◦, 0, 

dwCharSet, 0, ◦, ◦, FIXED_PITCH, NULL)); 
for (y = ◦ ; y < cyBuffer ; y++) 

TextOut (hdc, 0, y * cyChar, & BUFFER(0, y) , cxBuffer); 
DeleteObj ect (SelectObj ect (hdc, GetStockObj ect (SYSTEM—FONT))); 
EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

为了简单起见， TYPER 程式使用一种等宽字体，因为编写处理调和字体的文 
字编辑器要困难得多。程式在好几个地方取得装置内 容：在 WM _ CREATE 讯息处 
理期间，在 WM _ KEYD 0 WN 讯息处理期间，在 WM _ CHAR 讯息处理期间以及在 WM_PAINT 
讯息处理期间，每次都通过 GetStockObject 和 SelectObject 呼叫来选择等宽 
字体。 

在 WM _ SIZE 讯息处理期间， TYPER 计算视窗的字元宽度和高度并把值保存在 
cxBuffer 和 cyBuffer 变数中，然後使用 malloc 分配缓冲区以保存在视窗内输 
入的所有字元。注意，缓冲区的位元组大小取决於 cxBuffer 、 cyBuffer 和 sizeof 
( TCHAR )， 它可以是1或2,这依赖於程式是以8位元的字元处理还是以 Unicode 
方式编译的。 

xCaret 和 yCaret 变数保存插入符号位置。在 WM _ SETF 0 CUS 讯息处理期间， 
TYPER 呼叫 CreateCaret 来建立与字元有相同宽度和高度的插入符号，呼叫 
SetCaretPos 来设定插入符号的位置，呼叫 ShowCaret 使插入符号可见。在 
WM _ KILLF 0 CUS 讯息处理期间 ， TYPER 呼叫 HideCaret 和 DestroyCaret 。 
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对 WM _ KEYDOWN 的处理大多要涉及游标移动键。 Home 和 End 把插入符号送至 
一 行的开始和末尾处 ， Page Up 和 Page Down 把插入符号送至视窗的顶端和底部， 
箭头的用法不变。对 Delete 键， TYPER 将缓冲区中从插入符号之後的那个位置 

开始到行尾的所有内容向前移动，并在行尾显示空格。 

WM—CHAR 处理 Backspace 、 Tab、Linefeed ( Ctrl - Enter ) 、 Enter、Escape 

和字元键。注意，在处理 WM _ CHAR 讯息时（假设使用者输入的每个字元都非常 
重要），我使用了 IParam 中的重复 计数； 而在处理 WM _ KEYDOWN 讯息时却不这 
么作（避免有害的重复卷动）。对 Backspace 和 Tab 的处理由於使用了 
SendMessage 函式而得到简化， Backspace 与 Delete 做法相仿，而 Tab 则如同 
输入了若干个空格。 

前面我已经提到过，在非 WM _ PAINT 讯息处理期间，如果要在视窗中绘制内 
容，则应该隐蔽游标。 TYPER 为 Delete 键处理 WM _ KEYDOWN 讯息和为字元键处理 
WM _ CHAR 讯息时即是如此。在这两种情况下， TYPER 改变缓冲区中的内容，然後 
在视窗中绘制一个或者多个新字元。 

虽然 TYPER 使用了与 KEYVIEW 2 相同的做法以在字元集之间切换（就像使用 
者切换键盘布局一样），但对於远东版的 Windows ， 它还是不能正常工作 。 TYPER 
不允许使用两倍宽度的字元。此问题将在第十七章讨论，那时我们将详细讨论 
字体与文字输出。 
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第七章滑鼠 

滑鼠是有一个或多个键的定位设备。虽然也可以使用诸如触摸画面和光笔 
之类的输入设备，但是只有滑鼠以及常用在膝上型电脑上的轨迹球等才是渗透 
了 PC 市场的唯一输入设备。 

情况并非总是如此。当然， Windows 的早期开发人员认为他们不应该要求使 
用者为了执行其产品而必须买只滑鼠。因此，他们将滑鼠作为一种选择性的附 
加设备，而为 Windows 中的所有操作以及 applet 提供一种键盘介面（例如，查 
看 Windows 小算盘程式的线上说明资讯，可以看到每个按钮都提供了一个同等 
功效的键盘操作方式）。第三方软体发展人员使用键盘介面来提供与滑鼠操作 
相同的功能，这本书以前的版本也是这么做的。 

理论上来说，现在的 Windows 需要滑鼠。至少，一些讯息方块是这样讲的。 
当然，您也可以拔下滑鼠，而且 Windows 仍然可以执行良好（只有讯息方块会 
提示您没有连接滑鼠）。试图不用滑鼠来使用 Windows 就像用脚趾来弹钢琴一 
样（至少在最初的一段时间里是这样），但您依然可以这样做。正因为如此， 
我还是喜欢为滑鼠功能提供键盘操作。打字员尤其喜欢让他们的手保持在键盘 
上，并且我认为每个人都有在杂乱的桌上找不到滑鼠，或者滑鼠移动不灵敏的 
经验。使用键盘通常不需要花费更多的精力和努力，并且为喜欢使用键盘的人 
提供更多的功能。 

我们通常认为，键盘便於输入和操作文字资料，而滑鼠则便於画图和操作 
图形物件。实际上，本章大多数的范例程式都画了一些图形，并且用到了我们 
在第五章所学到的知识。 

滑鼠基础 

Windows 98能支援单键、双键或者三键滑鼠，也可以使用摇杆或者光笔来 
模拟单键滑鼠。早期，由於许多使用者都有单键滑鼠，所以 Windows 应用程式 
总是避免使用双键或三键滑鼠。不过，由於双键滑鼠已经成为事实上的标准， 
因此不使用第二个键的传统已经不再合理了。当然，第二个滑鼠按键是用於启 
动一个「快显功能表」，亦即出现在普通功能表列之外的视窗中功能表，或者 
用於特殊的拖曳操作（拖曳将在後面加以解释）。然而，程式不能依赖双键滑 
鼠。 

理论上，您可以用我们的老朋友 GetSystemMetrics 函式来确认滑鼠是否存 

在： 
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fMouse = GetSystemMetrics (SM—MOUSEPRESENT); 

如果已经安装了滑鼠， fMouse 将传回 TRUE (非 0) ; 如果没有安装，则传 
回0。然而，在 Windows 98中，不论滑鼠是否安装，此函式都将传回 TRUE 。 
在 Microsoft Windows NT 中，它可以正常工作。 

要确定所安装滑鼠其上按键的个数，可使用 

cButtons = GetSystemMetrics (SM—CMOUSEBUTTONS); 

如果没有安装滑鼠，那么函式将传回0。然而，在 Windows 98下，如果没 
有安装滑鼠，此函式将传回2。 

习惯用左手的使用者可以使用 Windows 的「控制台」来切换滑鼠按键。虽 
然应用程式可以通过在 GetSystemMetrics 中使用 SM _ SWAPBUTT 0 N 参数来确定是 
否进行了这种切换，但通常没有这个必要。由食指触发的键被认为是左键，即 
使事实上是位於滑鼠的右边。不过，在一个教育训练程式中，您可能想在萤幕 
上画一个滑鼠，在这种情况下，您可能想知道滑鼠按键是否被切换过了。 

您可以在「控制台」中设定滑鼠的其他参数，例如双击速度。从 Windows 
应用程式，通过使用 SystemParametersInfo 函式可以设定或获得此项资讯。 

一 些简单的定义 

当 Windows 使用者移动滑鼠时， Windows 在显示器上移动一个称为「滑鼠游 
标」的小点阵图。滑鼠游标有一个指向显示器上精确位置的单图素「热点」。 
当我提到滑鼠游标在萤幕上的位置时，指的是热点的位置。 

Windows 支援几种预先定义的滑鼠游标，程式可以使用这些游标。最常见的 
是称为 IDC _ ARR 0 W 的斜箭头（在 WINUSER . H 中定义）。热点在箭头的顶端。 
IDC _ CR 0 SS 游标（在本章後面的 BL 0 K 0 UT 程式中有用到）的热点在十字交叉线的 
中心。 IDC _ WAIT 游标是一个沙漏，通常用於指示程式正在执行。程式写作者也 
可以设计自己的游标。我们将在第十章学习设计方法。在定义视窗类别结构时 
指定特定视窗的内定游标， 例如： 

wndclass.hCursor = LoadCursor (NULL , 工 DC—ARROW); 

下面是一些描述滑鼠按键动作的术语了 

• Clicking 按下并放开一个滑鼠按键。 

• Double - clicking 快速按下并放开滑鼠按键两次。 

• Dragging 按住滑鼠按键并移动滑鼠。 

对三键滑鼠来说，三个键分别称为左键、中键、右键。在 Windows 表头档 
案中定义的与滑鼠有关的识别字使用缩写 LBUTTON 、 MBUTT 0 N 和 RBUTT 0 N 。 双键 
滑鼠只有左键与右键，单键滑鼠只有一个左键。 
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滑鼠 ( Mouse ) 的复数 


现在，为了展现我的勇气，我将面对输入装置最难辩的争论话题：什么是 
「 mouse 」 的复数。虽然每个人都知道多只啮齿动物称为 mice ， 似乎没有人对该 
如何称呼多个输入装置有最後的答案。不管 「 mice 」 或 「 mouse 」 听起来都不对 
劲 。 我惯常参考的 ((American Heritage Dictionary of the English Language )) 
第三版则只字未提。 

〈〈Wired style : Principles of English Usage in the Digital Age )) 
( Hardwired , 1996) 指出 「 mouse 」 比较好，以避免与啮齿动物搞混。在1964 
发明滑鼠的 Doug Engelbart 对此争议也帮不上忙。我曾经问过他 mouse 的复数 
是什么，他说我不知道。 

最後，高权威的 Microsoft Manual of Style for Technical Publications 
告诉我们「避免使用复数 mice 。 假如你必须提到多只 mouse , 使用 mouse 
devices 」 。这听起来像是在逃避问题，但当一切听起来都不对劲时，它确实是 
个明智的忠告了。事实上，大部分需要 mouse 复数的句子都能重新修改来避开。 
例如，试著 说〃 People use the almost as much as keyboard ”， 而 不是〃 Pople 
use mice almost as much as keyboards ' 

显示区域滑鼠讯息 

在前一章中您已经看到， Windows 只把键盘讯息发送给拥有输入焦点的视 
窗。滑鼠讯息与此 不同： 只要滑鼠跨越视窗或者在某视窗中按下滑鼠按键，那 
么视窗讯息处理程式就会收到滑鼠讯息，而不管该视窗是否活动或者是否拥有 
输入焦点。 Windows 为滑鼠定义了 21种讯息，不过，其中有11个讯息和显示区 
域无关（下面称之为「非显示区域」讯息）， Windows 程式经常忽略这些讯息。 

当滑鼠移过视窗的显示区域时，视窗讯息处理程式收到 WM _ M 0 USEM 0 VE 讯息。 
当在视窗的显示区域中按下或者释放一个滑鼠按键时，视窗讯息处理程式会接 
收到下面这些 讯息： 


表 7-1 


键 

按下 

释放 

按下 ( 双键） 

左 

M_LBUTT0ND0WN 

M_LBUTT0NUP 

WM_LBUTTONDBLCLK 

中 

WM—MBUTT0ND0WN 

WM—MBUTTONUP 

M_MBUTTONDBLCLK 

右 

WM_RBUTT0ND0WN 

WM—RBUTTONUP 

M_RBUTTONDBLCLK 


只有对三键滑鼠，视窗讯息处理程式才会收到 MBUTT 0 N 讯息； 只有对双键 
或者三键滑鼠，才会接收到 RBUTT 0 N 讯息。只有当定义的视窗类别能接收 DBLCLK 
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(双击）讯息，视窗讯息处理程式才能接收到这些讯息（请参见本章中「双击 
滑鼠按键」 一 节）。 

对於所有这些讯息来说，其 IParam 值均含有滑鼠的 位置： 低字组为 x 座标， 
高字组为 y 座标，这两个座标是相对於视窗显示区域左上角的位置。您可以用 
L 0 W 0 RD 和 HI WORD 巨集来提取这 些值： 

x = LOWORD (IParam) ; 
y = HIWORD (IParam); 

wParam 的值指示滑鼠按键以及 Shift 和 Ctrl 键的状态。您可以使用表头档 
案 WINUSER . H 中定义的位元遮罩来测试 wPamm 。 MK 字首代表「滑鼠按键」。 


MK_LBUTT0N 

按下左键 

MK—MBUTT0N 

按下中键 

MK—RBUTTON 

按下右键 

MK_SHIFT 

按下 Shift 键 

MK—CONTROL 

按下 Ctrl 键 


例如，如果收到了 WM _ LBUTT 0 ND 0 WN 讯息，而且值 

wparam & MK—SHIFT 

是 TRUE (非 0) ，您就知道当左键按下时也按下了 Shift 键。 

当您把滑鼠移过视窗的显示区域时， Windows 并不为滑鼠的每个可能的图素 
位置都产生一个 WM _ M 0 USEM 0 VE 讯息。您的程式接收到 WM _ M 0 USEM 0 VE 讯息的次 
数，依赖於滑鼠硬体，以及您的视窗讯息处理程式在处理滑鼠移动讯息时的速 
度。换句话说， Windows 不能用未处理的 WM _ M 0 USEM 0 VE 讯息来填入讯息伫列。 
当您执行下面将描述的 CONNECT 程式时，您将会更了解 WM _ M 0 USEM 0 VE 讯息处理 
的速率。 

如果您在非活动视窗的显示区域中按下滑鼠左键， Windows 将把活动视窗改 
为在其中按下滑鼠按键的视窗，然後把 WM _ LBUTT 0 ND 0 WN 讯息送到该视窗讯息处 
理程式。当视窗讯息处理程式得到 WM _ LBUTT 0 ND 0 WN 讯息时，您的程式就可以安 
全地假定该视窗是活动化的了。不过，您的视窗讯息处理程式可能在未接收到 
WM _ LBUTT 0 ND 0 WN 讯息的情况下先接收到了 WM _ LBUTT 0 NUP 的讯息。如果在一个视 
窗中按下滑鼠按键，然後移动到使用者视窗释放它，就会出现这种情况。类似 
的情况，当滑鼠按键在另一个视窗中被释放时，视窗讯息处理程式只能接收到 
WM _ LBUTT 0 ND 0 WN 讯息，而没有相应的 WM _ LBUTT 0 NUP 讯息。 

这些规则有两个 例外： 

视窗讯息处理程式可以「拦截滑鼠」并且连续地接收滑鼠讯息，即使此时 
滑鼠在该视窗显示区域之外。您将在本章的後面学习如何拦截滑鼠。 

如果正在显示一个系统模态讯息方块或者系统模态对话方块，那么其他程 
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式就不能接收滑鼠讯息。当系统模态讯息方块或者对话方块活动时，禁止切换 
到其他视窗或者程式。 一 个显示系统模态讯息方块的例子，是当您关闭 Windows 
时。 

简单的滑鼠处理： 一 个例子 

程式 7-1 中所示的 CONNECT 程式能作一些简单的滑鼠处理，使您对 Windows 
如何向您的程式发送滑鼠讯息有一些体会。 


程式 7-1 CONNECT 


CONNECT . C 

/女 




CONNECT . C -- Connect-the-Dots Mouse Demo Program 

/ 


(c) Charles Petzold, 1998 

女 

/ 

♦include <windows . h> 

#define MAXPOINTS 1000 



LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ; 

int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance , 




PSTR szCmdLine, int iCmdShow) 

i 

static TCHAR szAppName[] 

= TEXT ("Connect") ; 


HWND 

hwnd 

• 

r 


MSG 

msg ; 



WNDCLASS 

wndclass ; 


wndclass . style 


= CS HREDRAW | CS_VREDRAW ; 


wndclass . lpfnWndProc 


= WndProc ; 


wndclass . cbClsExtra 


=◦; 


wndclass . cbWndExtra 


=◦; 


wndclass . hlnstance 


= hlnstance ; 


wndclass . hicon 


= Loadlcon (NULL, IDI APPLICATION) ; 


wndclass . hCursor 


= LoadCursor (NULL, 工 DC—ARROW) ; 


wndclass . hbrBackground 


= (HBRUSH) GetStockObject (WHITE BRUSH) ; 


wndclass . IpszMenuName 


= NULL ; 


wndclass . IpszClassName 


= szAppName ; 


if (!RegisterClass (&wndclass)) 

/ 


MessageBox (NULL, 

TEXT 

("Program requires Windows NT! n ) , 




szAppName, MB 工 CONERROR) ; 


return 0 ; 

} 




hwnd = CreateWindow ( 

szAppName, TEXT ("Connect-the-Points Mouse Demo n ) , 
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WS_OVERLAPPEDWINDOW, 
CW—USEDEFAULT, CW—USEDEFAULT , 
CW—USEDEFAULT, CW_USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 


return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static POINT pt[MAXPOINTS]; 
static int iCount ; 

HDC hdc ; 

in i, i ; 


PAINTSTRUCT ps 
switch (message) 


case WM—LBUTTONDOWN: 
iCount = 0 ; 
InvalidateRect 
return 0 ; 


(hwnd, NULL, TRUE) 


case WM—MOUSEMOVE: 

if (wParam & MK_LBUTTON && iCount < 1000) 

{ 

pt[iCount ] .x = LOWORD (IParam); 
pt[iCount++].y = HIWORD (IParam); 

hdc = GetDC (hwnd); 

SetPixel (hdc, LOWORD (IParam), HIWORD (IParam), 0); 
ReleaseDC (hwnd, hdc); 

} 

return 0 ; 


case WM—LBUTTONUP: 

InvalidateRect (hwnd, NULL, FALSE); 
return 0 ; 
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case WM_PAINT : 

hdc = BeginPaint (hwnd, &ps); 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 


for (i 



;i < iCount - 1 ; i++) 

for (j = i + 1 ; j < iCount 


j++) 


MoveToEx (hdc, pt[i].x, pt[i].y A NULL); 
LineTo (hdc, pt[j].x, pt [ j] .y); 


ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, 工 DC—ARROW)); 
EndPaint (hwnd, &ps); 
return 0 ; 


case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 


CONNECT 处理三个滑鼠 讯息: 


• WM _ LBUTT 0 ND 0 WN CONNECT 清除显示区域。 

• WM _ M 0 USEM 0 VE 如果按下左键，那么 CONNECT 就在显示区域中的滑鼠位 
置处绘制一个黑点，并保存该座标。 

• WM_LBUTTONUP CONNECT 把显示区域中绘制的点与其他每个点连接起 

来。有时会产生一个漂亮的图形，有时则会是黑鸦鸦的一团糟（见图 

7—1) 。 
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图 7-1 CONNECT 的萤幕显示 


CONNECT 的使用 方法： 把滑鼠游标移动到显示区域中，按下左键，移动一下 
位置，释放左键。对几个构成曲线的点， CONNECT 能处理得很好，方法是按住左 
键，快速移动滑鼠，这样就可以绘制出该曲线图案。 

CONNECT 使用了三个简单的图形装置介面 ( GDI ) 函式，我在第五章讨论过这 
些函式。当滑鼠左键按下时， SetPixel 为每个 WM _ M 0 USEM 0 VE 讯息绘制一个黑图 
素（对於高解析度的显示器，图素几乎看不见）。画直线需要 MoveToEx 和 LineTo 
函式。 

如果您在释放滑鼠按键之前把滑鼠游标移到显示区域之外，那么 CONNECT 
就不会连接这些点，因为它没有收到 WM _ LBUTTONUP 讯息。如果您把滑鼠移回显 
示区域内并按下左键，那么 CONNECT 将清除显示区域。如果想在显示区域外释 
放左键後还继续进行画图，那么可以在显示区域外按下滑鼠再移回显示区域中。 

CONNECT 最多可以保存1000个点。设点数为 P ， 则 CONNECT 画的线数就等 
於 P X (P - 1) / 2。如果有1000个点，则要绘制50万条直线，大约需要几 
分钟才能画完（时间的长短取决於您的硬体设备）。由於 Windows 98是一种优 
先权式多工环境，因此您可以在这一段时间切换到别的程式中。但是，当程式 
正在忙的时候，您将无法对 CONNECT 程式做任何事（诸如移动或者缩放等）。 
在第二十章中，我们将讨论解决这一问题的方法。 

因为 CONNECT 可能会花一些时间来绘制直线，因此在处理 WM _ PAINT 讯息时 
它将切换到沙漏游标，然後再恢复原状。这要求使用两个现有游标来呼叫 


第 255 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

Set Cur sor 0 CONNECT 还呼叫两次 ShowCursor , 一次用 TRUE 参数，另一次用 FALSE 
参数。我将在本章的後面，「使用键盘模拟滑鼠」一节中更详细地讨论这些呼 

叫。 

有时，我们使用「跟踪」这个词代表程式处理滑鼠移动的方法。但是，跟 
踪并不意味著，程式在视窗讯息处理程式中的某个回圈里，不断跟随滑鼠在显 
示器上的 运动。 实际上，视窗讯息处理程式处理每条滑鼠讯息，然後迅速退出。 

处理 Shift 键 

当 CONNECT 接收到一个 WM _ M 0 USEM 0 VE 讯息时，它把 wParam 和 MK_LBUTTON 
进行位元与 ( AND ) 运算，来确定是否按下了左键。 wParam 也可以用於确定 Shift 
键的状态。例如，如果处理必须依赖於 Shift 和 Ctrl 键的状态，那么您可以使 
用如下所示的方法： 

if (wParam & MK_SHIFT) 

{ 

if (wParam & MK_CONTROL) 

{ 

// 按下了 Shift 和 Ctrl 键 

} 

else 

{ 

// 按下了 Shift 键 



if (wParam & MK_CONTROL) 

{ 

// 按下了 Ctrl 键 

} 

else 

{ 

//Shift 和 Ctrl 键均未按下 


如果您想在程式中同时使用左右键，同时如果您还希望只有单键滑鼠的使 
用者也能使用您的程式，那么您可以这样来写作 程式： Shift 与左键的组合使用 
等效於右键。在这种情况下，对滑鼠按键的处理可以采用如下所示的 方法： 

case WM_LBUTTONDOWN: 

if (!(wParam & MK—SHIFT)) 

{ 

// 处理左键 
return 0 ; 
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} 

// Fall through 

case WM RBUTTONDOWN: 


//处理右键 


return 0 ; 



Windows 函式 GetKeyState (在第六章中介绍过）可以使用虚拟键码 
VKJLBUTTON 、 VK _ RBUTTON 、 VK _ MBUTTON 、 VK_SHIFT 和 VK _ C 0 NTR 0 L 来传回滑鼠按 
键与 Shift 键的状态。如果 GetKeyState 传回负值，则说明已按下了滑鼠按键 
或者 Shift 键。因为 GetKeyState 传回目前正在处理的滑鼠按键或者 Shift 键 
的状态，所以全部状态资讯与相应的讯息都是同步的。但是，正如不能把 
GetKeyState 用於尚未按下的键一样，您也不能为尚未按下的滑鼠按键呼叫 
GetKeyState 。 请不要这样做： 

while (GetKeyState (VK_LBUTTON) >= 0) ; // WRONG !!! 

只有在您呼叫 GetKeyState 期间处理讯息时，而左键已经按下，才会报告 
键已经按下的讯息。 


双击滑鼠按键 


双击滑鼠按键是指在短时间内单击两次。要确定为双击，则这两次单击必 
须发生在其相距的实际位置十分接近的状况下（内定范围是一个平均系统字体 
字元的宽，半个字元的高），并且发生在指定的时间间隔（称为「双击速度」） 
内。您可以在「控制台」中改变时间间隔。 

如果希望您的视窗讯息处理程式能够收到双按键的滑鼠讯息，那么在呼叫 

RegisterClass 初始化视窗类别结构时，必须在视窗风格中包含 CSJ 3 BLCLKS 识 
另0字 ： 

wndclass.style = CS_HREDRAW | CS_VREDRAW | CS_DBLCLKS ; 

如果在视窗风格中未包含 CS _ DBLCLKS ， 而使用者在短时间内双击了滑鼠按 
键，那么视窗讯息处理程式会接收到下面这些 讯息： 

• WM _ LBUTT 0 ND 0 WN 

• WM—LBUTTONUP 

• WM _ LBUTT 0 ND 0 WN 

• WM _ LBUTT 0 NUP 

视窗讯息处理程式可能在这些键的讯息之前还收到了其他讯息。如果您想 
实作自己的双击处理，那么您可以使用 Windows 函式 GetMessageTime 取得 
WMJLBUTT 0 ND 0 WN 讯息之间的相对时间。第八章将更详细地讨论这个函式。 

如果您的视窗类别风格中包含了 CS _ DBLCLKS ， 那么双击时视窗讯息处理程 
式将收到如下 讯息： 
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• WM _ LBUTT 0 ND 0 WN 

• WM_LBUTTONUP 

• WM_LBUTTONDBLCLK 

• WM_LBUTTONUP 

WMJLBUTTONDBLCLK 讯息简单地替换了第二个 WMJLBUTTONDOWN 讯息。 

如果双击中的第一次键操作完成单击的功能，那么双击这一讯息是很容易 
处理的。第二次按键 （ WMJLBUTTONDBLCLK 讯息）则完成第一次按键以外的事情。 
例如，看看 Windows Explorer 中是如何用滑鼠来操作档案列表的。按一次键将 
选中档案 ， Windows Explorer 用反白显示列指出被选择档案的位置。双击则实 
作两个功能：第一次是单击那个选中档案；第二次则指向 Windows Explorer 以 
打开该档案。执行方式相当简单，如果双击中的第一次按键不执行单击功能， 
那么滑鼠处理方式会变得非常复杂。 

非显示区域滑鼠讯息 

在视窗的显示区域内移动或按下滑鼠按键时，将产生10种讯息。如果滑鼠 
在视窗的显示区域之外但还在视窗内， Windows 就给视窗讯息处理程式发送一条 
「非显示区域」滑鼠讯息。视窗非显示区域包括标题列、功能表和视窗卷动列。 
通常，您不需要处理非显示区域滑鼠讯息，而是将这些讯息传给 
DefWindowProc , 从而使 Windows 执行系统功能。就这方面来说，非显示区域滑 
鼠讯息类似於系统键盘讯息 WM _ SYSKEYDOWN 、 WM _ SYSKEYUP 和 WM _ SYSCHAR 。 

非显示区域滑鼠讯息几乎完全与显示区域滑鼠讯息相对应。讯息中含有字 
母 「 NC 」 以表示是非显示区域讯息。如果滑鼠在视窗的非显示区域中移动，那 
么视窗讯息处理程式会接收到 WM _ NCM 0 USEM 0 VE 讯息。滑鼠按键产生如表7_2所 
示的讯息。 


表 7-2 


键 

按下 

释放 

按下（双击） 

左 

M NCLBUTTONDOWN 

WM—NCLBUTTONUP 

M NCLBUTTONDBLCLK 

中 

WM—NCMBUTT0ND0WN 

WM—NCMBUTTONUP 

WM NCMBUTTONDBLCLK 

右 

M_NCRBUTTONDOWN 

M_NCRBUTTONUP 

M_NCRBUTTONDBLCLK 


对非显示区域滑鼠讯息， wParam 和 IParam 参数与显示区域滑鼠讯息的 

wPaxam 和 IPaxam 参数 不同。 wPaxam 参数指明移云力或者按滑鼠按键的非显示区 
域。它设定为 WINUSER . H 中定义的以 HT 开头的识别字之一 ( HT 表示「命中测试」）。 
IParam 参数的低位元 word 为 x 座标，高位元 word 为 y 座标，但是，它们 

是萤幕座标，而不是像显示区域滑鼠讯息那样指的是显示区域座标。对萤幕座 
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标，显示器左上角的 x 和 y 的值为0。当往右移时 x 的值增加，往下移时 y 的值 
增加（见图 7-2) o 

您可以用两个 Windows 函式将萤幕座标转换为显示区域座标或者 反之： 

ScreenToClient (hwnd, &pt); 

ClientToScreen (hwnd, &pt); 

这里 pt 是 POINT 结构。这两个函式转换了保存在结构中的值，而且没有保 
留以前的值。注意，如果萤幕座标点在视窗显示区域的上面或者左边，显示区 
域座标 x 或 y 值就是负值。 


Screen coordinates 



图 7-2 萤幕座标与客户显示区域座标 


命中测试讯息 

如果您数一下，就可以知道我们已经介绍了 21个滑鼠讯息中的20个，最 
後一个讯息是 WM _ NCHITTEST ， 它代表「非显示区域命中测试」。此讯息优先於 
所有其他的显 g 区域和非显示区域滑鼠讯息。 IParam 参数含有滑鼠位置的 x $ 
y 萤幕座标， wParam 参数没有用。 

Windows 应用程式通常把这个讯息传送给 DefWindowProc , 然後 Windows 用 


第 259 页 































Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

WM _ NCHITTEST 讯息产生与滑鼠位置相关的所有其他滑鼠讯息。对於非显示区域 

滑鼠讯息，在处理 WM _ NCHITTEST 时，从 DefWindowProc 传回的值将成为滑鼠讯 
息中的 wParam 参数，这个值可以是任意非显示区域滑鼠讯息的 wParam 值再加 
上以下内容: 


HTCLIENT 

显示区域 

HTNOWHERE 

不在视窗中 

HTTRANSPARENT 

视窗由另一个视窗覆盖 

HTERR0R 

使 DefWindowProc 产生警示用的哔声 


如果 DefWindowProc 在其处理 WM _ NCHITTEST 讯息後传回 HTCLIENT ， 那么 
Windows 将把萤幕座标转换为显示区域座标并产生显示区域滑鼠讯息。 

如果您还记得我们如 何通过拦截 WM _ SYSKEYDOWN 讯息来停用所有的系统键 
盘功能，那么您可能会想我们可否通过拦截滑鼠讯息完成类似的事情。完全可 

1! 只要您在视窗讯息处理程式中包含以下几条 叙述: 

case WM—NCHITTEST: 

return (LRESULT) HTNOWHERE ; 

就可以有效地禁用您视窗中的所有显示区域和非显示区域滑鼠讯息。这样 
一来，当滑鼠在您的视窗（包括系统功能表图示、缩放按钮以及关闭按钮）中 
时，滑鼠按键将会失效。 

从讯息产生讯息 

Windows 用 WM _ NCHITTEST 讯息产生所有其他滑鼠讯息，这种由讯息引出其 
他讯息的想法在 Windows 中是很普遍的。让我们来举个例子。您知道，如果您 
在一个 Windows 程式的系统功能表图示上双击一下，那么程式将会终止。双击 
产生一系列的 WM _ NCHITTEST 讯息。由於滑鼠定位在系统功能表图示上，因此 
DefWindowProc 将传回 HTSYSMENU 的值，并且 Windows 把 wParam 等於 HTSYSMENU 
的 WM _ NCLBUTTONDBLCLK 讯息放在讯息伫列中。 

视窗讯息处理程式通常把滑鼠讯息传递给 DefWindowProc ，当 
DefWindowProc 接收到 wParam 参数等於 HTSYSMENU 的 WM_NCLBUTTONDBLCLK 讯息 
时，它就把 wParam 参数等於 SC _ CL 0 SE 的 WM _ SYSCOMMAND 讯息放入讯息伫列中 
(这个 WM _ SYSCOMMAND 讯息是在使用者从系统功能表中选择 「 Close 」 时产生的）。 
同样地，视窗讯息处理程式也把这个讯息传给 DefWindowProco DefWindowProc 
通过给视窗讯息处理程式发送 WM _ CL 0 SE 讯息来处理该讯息。 

如果一个程式在终止之前要求来自使用者的确认，那么视窗讯息处理程式 
就需要拦截 WM _ CL 0 SE ， 否则， DefWindowProc 呼叫 DestroyWindow 函式来处理 
WM CLOSEo 除了其他处理， DestroyWindow 还给视窗讯息处理程式发送一个 
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WM _ DESTROY 讯息。视窗讯息处理程式通常用下列程式码来处理 WM _ DESTROY 讯息: 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

PostQuitMessage 使得 Windows 把 WM QUIT 讯息放入讯息仁列中，此讯息永 
远不会到达视窗讯息处理程式，因为它使 GetMessage 传回0,并终止讯息回圈， 
从而也终止了程式。 

程式中的命中测试 

我在前面讨论了 Windows Explorer 如何回应滑鼠的单击和双击。显然，程 
式（或者更精确的说，如同 Windows Explorer 般使用 list view control ) 必 

须确定使用者滑鼠所指向的是哪一个档案。 

这叫做「命中测试」。正如 DefWindowProc 在处理 WM _ NCHITTEST 讯息时做 

一些命中测试一样，视窗讯息处理程式经常必须在显示区域中进行一些命中测 
试。一般来说，命中测试中会使用 x 和 y 座标值，它们由传到视窗讯息处理程 
式的滑鼠讯息的 IParam 参数给出。 

一 个假想的例子 

有这样一个例子。假设您的程式需要显示几列按字母排列的档案。通常， 
您可以使用 list view control , 他会帮您由於要做全部的命中测试工作。但我 
们假设您由於某种原因而不能使用，这时就需要自己来做了。让我们假定档案 
名保存在称为 szFileNames 的已排序字串指标阵列中。 

让我们也假定档案列表开始於显示区域的顶端，显示区域为 cxClient 图素 
宽， cyClient 图素高，每列为 cxColWidth 图素宽，每个字元高度为 cyChar 图 
素高。那么每栏可填入的档案数就是： 

iNumlnCol = cyClient / cyChar ; 

接收到一个滑鼠单击讯息後，您就能从 IParam 获得 cxMouse 和 cyMouse 座 
标。然後可以用下面的公式来计算使用者所指的是哪一列的档案名： 

iColumn = cxMouse / cxColWidth ; 

相对於列顶端的档案名位置为： 

iFromTop = cyMouse / cyChar ; 

现在您就可以计算 szFileNames 阵列的下标： 

ilndex = iColumn * iNumlnCol + iFromTop ; 

如果 ilndex 超过了阵列中的档案数，则表示使用者是在显示器的空白区域 
内按滑鼠按键。 

在许多情况下，命中测试要比本例更加复杂。在显示一幅包含许多小图形 
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的图像时，您必须决定要显示的每个小图形的座标。在命中计算中，您必须从 
座标找到物件。但这将在使用不确定字体大小的字处理程式中变得非常凌乱， 
因为您必须找到字元在字串中的位置。 

范例程式 


程式 7-2 所示的 CHECKER 1 程式展示了一些简单的命中测试，此程式把显示 
区域分为 5 X 5 的25个矩形。如果您在某个矩形中按下滑鼠按键，那么在该矩 
形中将出现一个「 X 」。如果您再按一次，那么「 X 」将被删除。 


程式 7-2 CHECKER 1 


CHECKERl.C 

/* - 

CHECKERl.C —— 


Mouse Hit-Test Demo Program No. 1 

(c) Charles Petzold, 1998 



♦include <windows.h> 
♦define DIVISIONS 5 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, PSTR 
int iCmdShow) 


static 

TCHAR 

szAppName[] : 

=TEXT ("Checkerl"); 

HWND 


hwnd ; 


MSG 

msg ; 



WNDCLASS 


wndclass ; 



szCmdLine, 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass•hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS_VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, 工 DI_APPLICATION); 
=LoadCursor (NULL, 工 DC_ARROW); 

=(HBRUSH) GetStockObject (WHITE_BRUSH); 
=NULL ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 


{ 


MessageBox 


return 


NULL, TEXT ("Program requires Windows NT !’，）， 

szAppName, MB 工 CONERROR); 


hwnd = CreateWindow ( szAppName, TEXT ("Checkerl Mouse Hit-Test Demo ’’）， 

WS OVERLAPPEDWINDOW, 
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CW_USEDEFAULT a CW—USEDEFAULT, 
CW_USEDEFAULT, CW_USEDEFAULT , 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT 

wParam,LPARAMIParam) 

{ 

static BOOL 
static int 
HDC 
int 

PAINTSTRUCT 
RECT 

switch (message) 

{ 

case WM—SIZE : 

cxBlock = LOWORD (IParam) / DIVISIONS ; 
cyBlock = HIWORD (IParam) / DIVISIONS ; 
return 0 ; 

case WM—LBUTTONDOWN : 

x = LOWORD (IParam) / cxBlock ; 
y = HIWORD (IParam) / cyBlock ; 

if (x < DIVISIONS && y < DIVISIONS) 

{ 

fState [x][y] 1 ; 

rect.left 
rect.top 
rect.right 
rect.bottom 


fState[DIVISIONS][DIVISIONS]; 

cxBlock, cyBlock ; 

hdc ; 

x, y ; 

ps ; 

rect ; 


else 


InvalidateRect (hwnd. 


MessageBeep (0); 


message, WPARAM 


=x * cxBlock ; 

=y * cyBlock ; 

=(x + 1) * cxBlock ; 
=(y + 1) * cyBlock ; 

&rect, FALSE); 
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return 0 ; 

case WM PAINT : 


hdc 

= BeginPaint 

(hwnd, &ps); 


for 

for 

(x = ◦ ; x < 

(y = ◦ ; y < 

DIVISIONS ; x++) 

DIVISIONS ; y++) 


1 

Rectangle (hdc, x * cxBlock, 

(x + 1) * cxBlock, (y + 1) * 

y * cyBlock, 

cyBlock); 


if (fState 

； 

[x] [y]) 



i 

MoveToEx 

LineTo 

(hdc, x * cxBlock, y * 

(hdc, (x+1) * cxBlock, 

cyBlock, NULL); 

(y+1) * cyBlock); 


MoveToEx 

LineTo 

(hdc, x 

(hdc, 

} 

★ cxBlock, (y+1) 

(x+1) * cxBlock, 

* cyBlock, NULL) 

y * cyBlock); 

} 

EndPaint 

return 0 ; 

(hwnd,&ps); 



case WM DESTROY : 

PostQuitMessage 

return 0 ; 

1 

(0); 



/ 

return DefWindowProc 

(hwnd. 

message, 

wParam, 

IParam); 


图 7-3 是 CHECKER 1的显示。程式画的25个矩形的宽度和高度均相同。这 
些宽度和高度保存在 cxBlock 和 cyBlock 中，当显示区域大小发生改变时，将 
重新对这些值进行计算。 WM _ LBUTT 0 ND 0 WN 处理过程使用滑鼠座标来确定在哪个 
矩形中按下了键，它在 fState 阵列中标志目前矩形的状态，并使该矩形区域失 
效，从而产生 WM + PAINT 讯息。 
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图 7-3 CHECKER 1 的萤幕显示 


如果显示区域的宽度和高度不能被5整除，那么在显示区域的左边和下边 
将有一小条区域不能被矩形所覆盖。对於错误情况 ， CHECKER 1通过呼叫 
MessageBeep 回应此区域中的滑鼠按键操作。 

当 CHECKER 1收到 WM _ PAINT 讯息时，它通过 GDI 的 Rectangle 函式来重新 
绘制显示区域。如果设定了 fState 值，那么 CHECKER 1将使用 MoveToEx 和 LineTo 
函式来绘制两条直线。在处理 WM _ PAINT 期间， CHECKER 1 在重新绘制之前并不检 
查每个矩形区域的有效性，尽管它可以这样做。检查有效性的一种方法是在回 
圈中为每个矩形块建立 RECT 结构（使用与 WM _ LBUTT 0 ND 0 WN 处理程式中相同的 
公式），并使用 IntersectRect 函式检查它是否与无效矩形 （ ps . rcPaint ) 相 
交。 


使用键盘模拟滑鼠 


CHECKER 1 只能在装有滑鼠情况下才可执行。下面我们在程式中加入键盘介 
面，就如同第六章中对 SYSMETS 程式所做的那样。不过，即使在一个使用滑鼠 
游标作为指向用途的程式中加入键盘介面，我们还是必须处理滑鼠游标的移动 
和显示问题。 

即使没有安装滑鼠， Windows 仍然可以显示一个滑鼠游标。 Windows 为这个 
游标保存了一个「显示计数」。如果安装了滑鼠，显示计数会被初始化为0;否 
则，显示计数会被初始化为 -1。 只有在显示计数非负时才显示滑鼠游标。要增 
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加显示计数，您可以呼叫： 

ShowCursor (TRUE) ; 

要减少显示计数，可以 呼叫： 

ShowCursor (FALSE) ; 

您在使用 ShowCursor 之前，不需要确定是否安装了滑鼠。如果您想显示滑 
鼠游标，而不管滑鼠存在与否，那么只需呼叫 ShowCursor 来增加显示计数。增 
加一次显示计数之後，如果没有安装滑鼠则减少它以隐藏游标，如果安装了滑 
鼠，则保留其显示。 

即使没有安装滑鼠， Windows 也保留了滑鼠目前的位置。如果没有安装滑鼠， 
而您又显示滑鼠游标，游标就可能出现在显示器的任意位置，直到您确实移动 
了它。要获得游标的位置，可以 呼叫： 

GetCursorPos (&pt) ; 

其中 pt 是 K)INT 结构。函式使用滑鼠的 x 和 y 座标来填入 POINT 栏位。要 
设定游标位置，可以使用： 

SetCursorPos (x, y) ; 

在这两种情况下， x * y 都是萤幕座标，而不是显示区域座标（这是很明显 
的，因为这些函式没有要求 hwnd 参数）。前面已经提到过，呼叫 ScreenToClient 
和 ClientToScreen 就能做到蛮幕座标与客户座标的相互转换。 

如果您在处理滑鼠讯息并转换显示区域座标时呼叫 GetCursorPos ， 这些座 
标可能与滑鼠讯息的1 Par am 参数中的座标稍微有些不同。从 GetCursorPos 传 
回的座标表示滑鼠目前的位置。 IPamm 中的座标则是产生讯息时滑鼠的位置。 

您或许想写一个键盘处理 程式： 使用键盘方向键来移动滑鼠游标，使用 
Spacebar 和 Enter 键来模拟滑鼠按键。您肯定不希望每次按键只是将滑鼠游标 
移动一个图素，如果这样做，当要把滑鼠游标从显示器的一边移动到另一边时， 
会使用者在很长一段时间内都要按住同一个方向键。 

如果您需要实作滑鼠游标的键盘介面，并保持游标的精确定位能力，那么 
您可以采用下面的方式来处理按键讯息：当按下方向键时，一开始滑鼠游标移 
动较慢，但随後会加快。您也许还记得 WM_KEYDOWN 讯息中的 IPamm 参数标志 
著按键讯息是否是重复活动的结果，这就是此参数的一个重要应用。 


在 CHECKER 中加入键盘介面 


程式 7-3 所示的 CHECKER 2 程式，除了包括键盘介面外，和 CHECKER 1是一 
样的，您可以使用左、右、上和下方向键在25个矩形之间移动游标。 Home 键把 
游标移动到矩形的左上角， End 键把游标移动到矩形的右下角。 Spacebar 和 
Enter 键都能切换 X 标记。 
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程式 7-3 CHECKER2 


CHECKER2.C 
/* - 


CHECKER2.C -- Mouse Hit-Test Demo Program No. 2 

(c) Charles Petzold, 1998 



♦include <windows.h> 


♦define DIVISIONS 5 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("Checker2 M ); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
工 DI_APPLICATION); 

wndclass.hCursor 
工 DC—ARROW); 

wndclass.hbrBackground 
(WHITE_BRUSH); 

wndclass.IpszMenuName 
wndclass.IpszClassName 


CS_HREDRAW | CS—VREDRAW ; 
WndProc ; 


hlnstance ; 

Loadlcon 


LoadCursor 


(NULL 


(NULL 


(HBRUSH) 


GetStockObj ect 


NULL ; 
szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT 

return 0 ; 

} 

hwnd = CreateWindow ( szAppName, 

WS OVERLAPPEDWINDOW, 


("Program requires Windows NT !’’）， 
szAppName, MB_ICONERROR); 

TEXT ("Checker2 Mouse Hit-Test Demo "), 


CW_USEDEFAULT, CW—USEDEFAULT, 
CW_USEDEFAULT, CW—USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 
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ShowWindow (hwnd, iCmdShow) ; 
UpdateWindow (hwnd); 


while ( 
{ 


GetMessage (&msg, NULL, ◦, 0)) 

TranslateMessage (&msg) 
DispatchMessage (&msg); 


return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

static BOOL fState[DIVISIONS] [DIVISIONS]; 
static int cxBlock, cyBlock ; 


HDC 

int 

PAINTSTRUCT 

POINT 

RECT 


hdc ; 
x, y ; 

ps ; 
point ; 
rect ; 


switch (message) 

{ 

case WM—SIZE : 

cxBlock 
cyBlock 
return 1 


LOWORD 

HIWORD 


(IParam) 

(IParam) 


/ DIVISIONS 
/ DIVISIONS 


case WM—SETFOCUS : 

ShowCursor 
return 0 ; 


(TRUE) 


case WM—KILLFOCUS : 

ShowCursor (FALSE) 
return 0 ; 


case WM—KEYDOWN : 

GetCursorPos (&point) 
ScreenToClient (hwnd, 
x = max (0, min (DIVISIONS 一 1, 
y = max (◦, min (DIVISIONS - 1, 


&point) 


point.x / cxBlock)) 
point.y / cyBlock)) 


switch (wParam) 

{ 

case VK UP 


y-_ ； 

break 
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MK LBUTTON, 


case VK_DOWN : 

y++ ； 

break ; 

case VK—LEFT : 

x —— ; 
break ; 

case VK_RIGHT : 

x++ ; 
break ; 

case VK—HOME : 

x = y = 0 ; 
break ; 

case VK_END : 

x = y = DIVISIONS - 1 ; 
break ; 

case VK—RETURN : 
case VK_SPACE : 

SendMessage (hwnd, WM_LBUTTONDOWN, 

MAKELONG (x * cxBlock, y * cyBlock)); 

break ; 

} 

x = (x + DIVISIONS) % DIVISIONS ; 

y = (y + DIVISIONS) % DIVISIONS ; 

point.x = x * cxBlock + cxBlock / 2 ; 
point.y = y * cyBlock + cyBlock / 2 ; 


ClientToScreen (hwnd, &point); 
SetCursorPos (point.x, point.y); 
return 0 ; 
case WM—LBUTTONDOWN : 

x = LOWORD (IParam) / cxBlock ; 
y = HIWORD (IParam) / cyBlock ; 


if (x < DIVISIONS && y < DIVISIONS) 

{ 


fState[x][y] A = 1 ; 


rect.left = x * cxBlock ; 

rect.top = y * cyBlock ; 

rect.right = (x + 1) * cxBlock ; 
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rect.bottom = (y + 1) * cyBlock ; 





InvalidateRect (hwnd, &rect, FALSE); 

I 


else 








MessageBeep (0); 



return 0 

• 

f 



case 

WM 

PAINT : 





hdc 

=BeginPaint (hwnd, &ps); 




for (x = 

0 ; x < 

DIVISIONS ; 

X++) 



for (y = 

! 

0 ; y < 

DIVISIONS ; 

y++) 



X 

Rectangle (hdc, x 

* cxBlock, y * cyBlock, 




(x + 

1) * cxBlock, 

(y + 1) * cyBlock); 




if (fState [x][y]) 

f 



MoveToEx 

(hdc, x 

*cxBlock, 

y *cyBlock, NULL); 




LineTo (hdc, (x+1)*cxBlock, (y+1)*cyBlock); 




MoveToEx (hdc. 

x *cxBlock, (y+1)*cyBlock, 

NULL) ; 








LineTo 

(hdc, (x+1)*cxBlock, 

} 

y ^cyBlock); 



} 

EndPaint 

(hwnd. 

&ps); 




return 0 

參 

r 



case 

WM 

DESTROY : 






PostQuitMessage 

(0); 


1 


return 0 

參 

f 



f 

return DefWindowProc 

} 

: (hwnd. 

message, wParam, IParam); 


CHECKER 2 中的 WM _ KEYDOWN 的处理方式决定游标的位置（用 GetCursorPos ), 


把萤幕座标转换为显示区域座标（用 ScreenToClient ) ,并用矩形方块的宽度 
和高度来除这个座标。这会产生指示矩形位置的 x * y 值 （5 X 5 阵列）。当按 
下一个键时，滑鼠游标可能在或不在显示区域中，所以 x 和 y 必须经过 min 和 
max 巨集处理以保证它们的范围是0到4之间。 

对方向键， CHECKER 2 近似地增加或减少 x 和 y 。 如果是 Enter 键或 Spacebar 
键，那么 CHECKER 2 使用 SendMessage 把 WM _ LBUTT 0 ND 0 WN 讯息发送给它自身。 
这种技术类似于在第六章 SYSMETS 程式中把键盘介面加到视窗卷动列时所使用 
的方法。 WM _ KEYDOWN 的处理方式是通过计算指向矩形中心的显示区域座标，再 
用 ClientToScreen 转换成萤幕座标，然後用 SetCursorPos 设定游标位置来实 


第270页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


作的。 

将子视窗用於命中测试 

有些程式（例如， Windows 的「画图」程式），把显示区域划分为几个小的 
逻辑区域。「画图」程式在其左边有一个由图示组成的工具功能表区，在底部 
有颜色功能表区。在这两个区做命中测试的时候，「画图」必须在使用者选中 
功能表项之前记住功能表的位置。 

不过，也可能不需要这么做。实际上，画风经由使用子视窗简化了功能表 
的绘制和命中测试。子视窗把整个矩形区域划分为几个更小的矩形区，每个子 
视窗有自己的视窗代号、视窗讯息处理程式和显示区域，每个视窗讯息处理程 
式接收只适用於它的子视窗的滑鼠讯息。滑鼠讯息中的 IPamm 参数含有相当於 
该子视窗显示区域左上角的座标，而不是其父视窗（那是「画图」的主应用程 
式视窗）显示区域左上角的座标。 

以这种方式使用子视窗有助於程式的结构化和模组化。如果子视窗使用不 
同的视窗类别，那么每个子视窗都有它自己的视窗讯息处理程式。不同的视窗 
也可以定义不同的背景颜色和不同的内定游标。在第九章中，我将看到「子视 
窗控制项」 一一 卷动列、按钮和编辑方块等预先定义的子视窗。现在，我们说 
明在 CHECKER 程式中是如何使用子视窗的。 

CHECKER 中的子视窗 

程式 7-4 所示的 CHECKER 3 程式，这一版本建立了 25个处理滑鼠单击的子 


视窗。它没有键盘介面，但是可以按本章後面的 CHECKER 4 程式范例的方法添加。 

程式 7-4 CHECKER3 


CHECKER3.C 

/* - 


CHECKER3.C -- Mouse Hit-Test Demo 

Program No. 3 

(c) Charles Petzold, 1998 

V 


♦include <windows.h> 



#define DIVISIONS 5 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

LRESULT CALLBACK ChildWndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szChildClass[] = TEXT ("Checker3 Child"); 
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int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


static TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName[] = TEXT ("Checker3 n ); 

hwnd ; 

msg ; 

wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass•hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 


=CS_HREDRAW | CS_VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 

=LoadCursor (NULL, 工 DC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH) 
=NULL ; 


wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 


MessageBox ( 


return 0 ; 


NULL, TEXT ("Program requires Windows NT !”）， 

szAppName, MB ICONERROR); 




wndclass.lpfnWndProc 
wndclass.cbWndExtra 
wndclass•hicon 
wndclass.IpszClassName 


=ChildWndProc ; 
=sizeof (long); 

=NULL ; 

=szChildClass ; 


RegisterClass (&wndclass); 

hwnd = CreateWindow ( s zAppName, TEXT ("Checker3 Mouse Hit-Test Demo ’’）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT A 
CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 
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LRESULT CALLBACK WndProc ( HWND 

hwnd, UINT message, WPARAM 

wParam,LPARAM 

IParam) 

r 





static HWND hwndChild[DIVISIONS][DIVISIONS]; 



int 


cxBlock, cyBlock, x, y ; 



switch (message) 

； 




i 

case 

WM CREATE : 





for (x = ◦ ; x < 

DIVISIONS ; x++) 




for (y = ◦ 

;y < DIVISIONS ; y++) 




hwndChild[x][y]= 

: CreateWindow (szChildClass, 

NULL, 



WS CHILDWINDOW | 

WS VISIBLE, 




0, 0, 0, 0, 





hwnd, (HMENU) (y « 8 | x), 




(HINSTANCE) GetWindowLong (hwnd, GWL HINSTANCE), 





NULL); 



return 0 ; 




case 

WM SIZE : 





cxBlock = LOWORD 

(IParam) / DIVISIONS ; 




cyBlock = HIWORD 

(IParam) / DIVISIONS ; 




for (x = ◦ ; x < 

DIVISIONS ; x++) 





for (y = ◦ ; y < DIVISIONS ; 

y++) 




MoveWindow 

( 


hwndChild[x] [y], 






x * cxBlock, y * cyBlock, 




cxBlock, cyBlock, TRUE); 



return 0 ; 




case 

WM LBUTTONDOWN : 





MessageBeep (0) 

參 




return 0 ; 




case 

WM DESTROY : 





PostQuitMessage 

(0); 




return 0 ; 



} 

/ 

return DefWindowProc (hwnd. 

message, wParam, IParam); 


LRESULT CALLBACK ChildWndProc (HWND hwnd, UINT message. 


r 


WPARAM wParam, LPARAM IParam) 


i 

HDC 


hdc ; 



PAINTSTRUCT 

ps ; 



RECT 


rect ; 
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switch (message) 

{ 

case WM—CREATE : 

SetWindowLong (hwnd, ◦, 0) ; // on/off flag 

return 0 ; 

case WM—LBUTTONDOWN : 

SetWindowLong (hwnd, 0, 1 A GetWindowLong (hwnd, 0)); 

工 nvalidateRect (hwnd, NULL, FALSE); 
return 0 ; 

case WM—PAINT : 

hdc = BeginPaint (hwnd, &ps); 

GetClientRect (hwnd, &rect); 

Rectangle (hdc, 0, ◦, rect.right, rect.bottom); 

if (GetWindowLong (hwnd, 0)) 

{ 

MoveToEx (hdc, ◦, ◦, NULL); 

LineTo (hdc, rect.right, rect.bottom); 
MoveToEx (hdc, ◦, rect.bottom, NULL); 

LineTo (hdc, rect.right, 0); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

CHECKER 3 有两个视窗讯息处理程式 WndProc 和 ChildWndProc 。 WndProc 还 
是主（或父）视窗的视窗讯息处理程式。 ChildWndProc 是针对25个子视窗的视 
窗讯息处理程式。这两个视窗讯息处理程式都必须定义为 CALLBACK 函式。 

因为视窗讯息处理程式与特定的视窗类别结构相关联，该视窗类别结构由 
Windows 呼叫 RegisterClass 函式来注册， CHECKER 3 需要两个视窗类别。第一 

个视窗类别用於主视窗，名为 「 Checked 」 。第二个视窗类别名为 
「 Checker 3_ Child 」 。当然，您不必选择像这样有意义的名字。 

CHECKER 3 在 WinMain 函式中注册了这两个视窗类别。注册完常规的视窗类 
别之後， CHECKER 3 只是简单地重新使用 wndclass 结构中的大多数的栏位来注册 
Checker 3_ Child 类别。无论如何，有四个栏位根据子视窗类别而设定为不同的 

倌 . 

• pfnWndProc 栏位设定为 ChildWndProc ， 子视窗类别的视窗讯息处理程 
式。 
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• cbWndExtra 栏位设定为4位元组，或者更确切地用 sizeof ( long ) 。该 
栏位告诉 Windows 在其为依据此视窗类别的视窗保留的内部结构中，预 
留了 4位元组额外的空间。您能使用此空间来保存每个视窗的可能有所 
不同的资讯。 

• 因为像 CHECKER 3 中的子视窗不需要图示，所以 hlcon 栏位设定为 NULL 。 

• pszClassName 栏位设定为 「 Checker 3_ Child 」 ，是类别的名称。 

通常，在 WinMain 中， CreateWindow 呼叫建立依据 Checker 3 类别的主视窗。 
然而，当 WndProc 收到 WM _ CREATE 讯息後，它呼叫 CreateWindow 25次以建立 
25个 Checker 3 —Child 类别的子视窗。表 7- 3是在 WinMain 中 CreateWindow 呼 
叫的参数，与在建立25个子视窗的 WndProc 中 CreateWindow 呼叫的参数间的 
比较。 


表 7-3 


参数 

主视窗 

子视窗 

视窗类别 

「 Checker3 」 

「 Checker3—Child 」 

视窗标题 

「 Checker3 …」 

NULL 

视窗样式 

WS OVERLAPPEDWINDOW 

WS CHILDWINDOW WS VISIBLE 

水平位置 

CW USEDEFAULT 

0 

垂直位置 

CW USEDEFAULT 

0 

宽度 

CW USEDEFAULT 

0 

局度 

CW USEDEFAULT 

0 

父视窗代号 

NULL 

hwnd 

功能表代号 / 子 ID 

NULL 

(HMENU) (y « 8 x) 

执行实体代号 

hlnstance 

(HINSTANCE) GetWindowLong 

(hwnd, GWL HINSTANCE) 

额外参数 

NULL 

NULL 


一般情况下，子视窗要求有关位置和大小的参数，但是在 CHECKER 3 中的子 
视窗由 WndProc 确定位置和大小。对於主视窗，因为它本身就是父视窗，所以 
它的父视窗代号是 NULL 。 当使用 CreateWindow 呼叫来建立一个子视窗时，就需 
要父视窗代号了。 

主视窗没有功能表，因此参数是 NULL 。 对於子视窗，相同位置的参数称为 
子 ID (或子视窗 ID ) 。这是唯一代表子视窗的数字。 像我们在第十一章将看到 
的一样，在处理对话方块的子视窗控制项时，子 ID 显得更为重要。对於 CHECKER 3 
来说，我只是简单地将子 ID 设定为一个数值，该数值是每个子视窗在 5 X 5 的 
主视窗中的 x 和 y 位置的组合。 
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CreateWindow 函式需要一个执行实体代号。在 WinMain 中，执行实体代号 
可以很容易地取得，因为它是 WinMain 的一个参数。在建立子视窗时， CHECKER 3 
必须用 GetWindowLong 来从 Windows 为视窗保留的结构中取得 hlnstance 值(相 
对於 GetWindowLong ， 我也能将 hlnstance 的值保存到整体变数，并直接使用它）。 

每一个子视窗都在 hwndChild 阵列中保存了不同的视窗代号。当 WndProc 
接收到一个 WM _ SIZE 讯息後，它将为这25个子视窗呼叫 MoveWindowJoveWindow 
的参数表示子视窗左上角相对於父视窗显示区域的座标、子视窗的宽度和高度 
以及子视窗是否需要重画。 

现在让我们看一下 ChildWndProCo 此视窗讯息处理程式为所有这25个子视 
窗处理讯息。 ChildWndProc 的 hwnd 参数是子视窗接收讯息的代号。当 
ChildWndProc 处理 WM _ CREATE 讯息时（因为有25个子视窗，所以要发生25次）， 
它用 SetWindowWord 在视窗结构保留的额外区域中储存一个0值（通过在定义 
视窗类别时使用的 cbWndExtra 来保留的空间）。 ChildWndProc 用此值来恢复目 
前矩形的状态（有 X 或没有 X )。在子视窗中单击时， WM _ LBUTT 0 ND 0 WN 处理常 
式简单地修改这个整数值（从0到1，或从1到 0) ，并使整个子视窗无效。此 
区域是被单击的矩形。 WM _ PAINT 的处理很简单，因为它所绘制的矩形与显示区 
域一样大。 

因为 CHECKER 3 的 C 原始码档案和 . EXE 档案比 CHECKER 1的大（更不用说程 
式的说明了），我不会试著告诉你说 CHECKER 3 比 CHECKER 1 更简单。但请注意， 
我们没有做任何的滑鼠命中测试！我们所要的，就是知道 CHECKER 3 中是否有个 
子视窗得到了命中视窗的 WM _ LBUTT 0 ND 0 WN 讯息。 


子视窗和键盘 

为 CHECKER 3 添加键盘介面就像 CHECKER 系列构想中的最後一步。但在这样 
做的时候，可能有更适当的做法。在 CHECKER 2 中，滑鼠游标的位置决定按下 
Spacebar 键时哪个区域将获得标记符号。当我们处理子视窗时，我们能从对话 
方块功能中获得提示。在对话方块中，带有闪烁的插入符号或点划的矩形的子 
视窗表示它有输入焦点（当然也可以用键盘进行定位）。 

我们不需要把 Windows 内部已有的对话方块处理方式重新写过，我只是要 
告诉您大致上应该如何在应用程式中模拟对话方块。研究过程中，您会发现这 
样一 件事： 父视窗和子视窗可能要共用同键盘讯息处理。 按下 Spacebar 键和 
Enter 键时，子视窗将锁定复选标记。按下方向键时，父视窗将在子视窗之间移 
动输入 焦点。 实际上，当您在子视窗上单击时，情况会有些复杂，这时是父视 
窗而不是子视窗获得输入焦点 o 
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CHECKER 4. C 如程式 7-5 所示。 


程式 7-5 CHECKER4 


CHECKER4.C 
/* - 


CHECKER4.C -- Mouse Hit-Test Demo Program No. 4 

(c) Charles Petzold, 1998 



♦include <windows.h> 
#define DIVISIONS 5 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 
LRESULT CALLBACK ChildWndProc (HWND, UINT, WPARAM, LPARAM); 
int idFocus = 0 ; 

TCHAR szChildClass[] = TEXT ( M Checker4 Child"); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


static TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName[] = TEXT ( n Checker4"); 

hwnd ; 


msg ; 

wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
IDI—APPLICATION); 

wndclass.hCursor 
IDC—ARROW); 

wndclass.hbrBackground 
(WHITE_BRUSH); 

wndclass.IpszMenuName 
wndclass.IpszClassName 

if (!RegisterClass (&wndclass)) 


=CS_HREDRAW | CS—VREDRAW ; 
=WndProc ; 



=hlnstance ; 

= Loadlcon (NULL, 

= LoadCursor (NULL, 
(HBRUSH) GetStockObject 

NULL ; 
szAppName ; 


MessageBox (NULL, TEXT ("Program requires Windows NT! n ), 

szAppName, 


MB_ICONERROR); 

return 0 ; 
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wndclass.lpfnWndProc 
wndclass.cbWndExtra 
wndclass•hicon 
wndclass.IpszClassName 


=ChildWndProc ; 

=sizeof (long); 
=NULL ; 

=szChildClass ; 


RegisterClass (&wndclass); 

hwnd = CreateWindow ( szAppName, TEXT ( n Checker4 Mouse Hit-Test Demo 1 ’）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT A 
CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static HWND hwndChild[DIVISIONS][DIVISIONS]; 

int cxBlock, cyBlock, x, y ; 

switch (message) 

{ 

case WM—CREATE : 

for (x = 0 ; x < DIVISIONS ; x++) 

for (y = 0 ; y < DIVISIONS ; y++) 
hwndChild[x] [y] = CreateWindow (s zChildClass, NULL, 

WS_CHILDWINDOW | WS—VISIBLE, 

0, 0, 0, 0, 

hwnd, (HMENU) (y « 8 | x), 

HINSTANCE) GetWindowLong (hwnd, GWL_HINSTANCE), 

NULL); 

return 0 ; 
case WM—SIZE : 

cxBlock = LOWORD (IParam) / DIVISIONS ; 
cyBlock = HIWORD (IParam) / DIVISIONS ; 


for (x = ◦ ; x < DIVISIONS ; x++) 


for (y = ◦ ; y < DIVISIONS ; y++) 
MoveWindow ( hwndChild[x][y], 
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x * cxBlock, y ★ cyBlock, 

cxBlock, cyBlock, TRUE); 

return 0 ; 

case WM_LBUTTONDOWN : 

MessageBeep (0); 
return 0 ; 

// On set-focus message , set focus to child window 
case WM—SETFOCUS: 

SetFocus (GetDlgltem (hwnd, idFocus)); 
return 0 ; 

// On key-down message, possibly change the focus window 

case WM—KEYDOWN: 

x = idFocus & OxFF ; 
y = idFocus >> 8 ; 




switch 

； 

(wParam) 



case 

VK 

i 

_UP: 

y__ ； 



break 

參 

r 






case VK DOWN: 


y++ ; 



break ; 





case VK LEFT: 


x —— ; 


break 

• 

f 





case 

VK 

RIGHT: 

x++ ; 


break ; 

case 

VK 

HOME: 

x = 

y = 0 ； 

break ; 

case 

VK 

END: 

x = 

y = DIVISIONS -: 

L ; break ; 



default 

參 

• 


return 0 ; 


x = (x + DIVISIONS) % DIVISIONS ; 
y = (y + DIVISIONS) % DIVISIONS ; 

idFocus = y << 8 | x ; 

SetFocus (GetDlgltem (hwnd, idFocus)); 
return 0 ; 

case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 
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LRESULT CALLBACK ChildWndProc (HWND hwnd, UINT message, 

WPARAM wParam, LPARAM IParam) 



HDC 

PAINTSTRUCT 

RECT 


hdc ; 
ps ; 
rect ; 


switch (message) 

{ 

case WM—CREATE : 

SetWindowLong (hwnd, 0, 0) ; // on/off flag 

return 0 ; 

case WM—KEYDOWN: 

// Send most key presses to the parent window 


square 


if (wParam != VK_RETURN && wParam != VK_SPACE) 

{ 

SendMessage (GetParent (hwnd), message, wParam, IParam); 
return 0 ; 

} 

// For Return and Space, fall through to toggle the 


case WM—LBUTTONDOWN : 

SetWindowLong (hwnd, 0, 1 A GetWindowLong (hwnd, 0)); 
SetFocus (hwnd); 

InvalidateRect (hwnd, NULL, FALSE); 
return 0 ; 


// For focus messages, invalidate the window for repaint 


case WM—SETFOCUS: 

idFocus = GetWindowLong (hwnd, GWL_ID); 

// Fall through 

case WM—KILLFOCUS: 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case WM—PAINT : 

hdc = BeginPaint (hwnd, &ps); 

GetClientRect (hwnd, &rect); 

Rectangle (hdc, ◦, ◦, rect.right, rect.bottom); 

// Draw the n x n mark 
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if 


(GetWindowLong (hwnd, 0 )) 


MoveToEx (hdc, ◦, ◦, NULL); 

LineTo (hdc, rect.right, rect.bottom); 
MoveToEx (hdc, 0 , rect.bottom, NULL) 

LineTo (hdc, rect.right, 0); 

// Draw the "focus" rectangle 



if (hwnd == GetFocus ()) 

{ 

rect.left += rect.right / 10 ; 
rect.right -= rect.left ; 
rect.top += rect.bottom / 10 ; 
rect.bottom -= rect.top ; 


rect.bottom); 
(BLACK PEN))); 


SelectObject (hdc, GetStockObject (NULL—BRUSH)); 
SelectObj ect (hdc, CreatePen (PS—DASH, 0 , 0)); 
Rectangle (hdc, rect.left, rect.top, rect.right, 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect 


EndPaint (hwnd, &ps); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 


您应该能回忆起每一个子视窗有唯一的子视窗 ID ， 该 ID 在呼叫 
CreateWindow 建立视窗时定义。在 CHECKER 3 中，此 ID 是矩形的 x 和 y 位置的 
组合。一个程式可以通过下面的呼叫来获得一个特定子视窗的子视窗 ID : 

idChild = GetWindowLong (hwndChild, GWL ID); 


下面的函式也有同样的 功能： 

idChild = GetDlgCtrllD (hwndChild); 

正如函式名称所表示的，它主要用於对话方块和控制视窗。如果您知道父 
视窗的代号和子视窗 ID ， 此函式也可以获得子视窗的代号： 

hwndChild = GetDlgltem (hwndParent, idChild); 


在 CHECKER 4 中，整体变数 idFocus 用於保存目前输入焦点视窗的子视窗 ID 。 
我在前面说过，当您 在子视窗上面单击滑鼠时，它们不会自动获得输入焦点。 
因此， CHECKER 4 中的父视窗将通过呼叫下面的函式来处理 WM _ SETF 0 CUS 讯息： 

SetFocus (GetDlgltem (hwnd, idFocus)); 


这样设定一个子视窗为输入焦点。 
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ChildWndProc 处理 WM_SETFOCUS 和 WM_KILLFOCUS 讯息。对於 WM _ SETFOCUS ， 
它将保存在整体变数 idFocus 中接收输入焦点的子视窗 ID 。 对於这两种讯息， 
视窗是无效的，并产生一个 WM _ PAINT 讯息。如果 WM _ PAINT 讯息画出了有输入 
焦点的子视窗，则它将用 PS _ DASH 画笔的风格画一个矩形以表示此视窗有输入 
焦点。 

ChildWndProc 也处理 WM_KEYDOWN 讯息。对於除了 Spacebar 和 Enter 键以 
外的其他讯息， WM _ KEYDOWN 都将给父视窗发送讯息。另外，视窗讯息处理程式 
也处理类似 WM _ LBUTT 0 ND 0 WN 讯息的讯息。 

处理方向移动键是父视窗的事情。在风格相似的 CHECKER 2 中，此程式可获 
得有输入焦点的子视窗的 x 和 y 座标，并根据按下的特定方向键来改变它们。 
然後通过呼叫 SetFocus 将输入焦点设定给新的子视窗。 

拦截滑鼠 

一 个视窗讯息处理程式通常只在滑鼠游标位於视窗的显示区域，或非显示 
区域上时才接收滑鼠讯息。 一 个程式也可能需要在滑鼠位於视窗外时接收滑鼠 
讯息。如果是这样，程式可以自行「拦截」滑鼠。别害怕，这么做没什么大不 
了的。 


设计矩形 


为了说明拦截滑鼠的必要性，请让我们看一下 BL 0 K 0 UT 1 程式（如程式7-6 
所示）。此程式看起来达到了一定的功能，但它却有十分严重的缺陷。 

程式 7-6 BL0K0UT1 

BL0K0UT1.C 

/* - 

BL0K0UT1.C -- Mouse Button Demo Program 

(c) Charles Petzold, 1998 


♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance A 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("BlokOutl"); 

HWND hwnd ; 
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MSG 

msg ; 



WNDCLASS 

wndclass ; 


wndclass.style 


=CS HREDRAW | CS VREDRAW ; 

wndclass.lpfnWndProc 


=WndProc ; 


wndclass.cbClsExtra 


=◦; 


wndclass.cbWndExtra 


=◦; 


wndclass.hlnstance 


=hlnstance ; 


wndclass•hicon 


= Loadlcon 

(NULL, 

IDI APPLICATION); 




wndclass.hCursor 


=LoadCursor (NULL, IDC_ 

ARROW); 

wndclass.hbrBackground 


= (HBRUSH) GetStockObject 

(WHITE BRUSH); 




wndclass.IpszMenuName 


=NULL ; 


wndclass.IpszClassName 


=szAppName ; 


if (!RegisterClass (&wndclass)) 

f 



MessageBox ( 

NULL, 

TEXT ("Program requires Windows NT !’’）， 



szAppName, 


MB ICONERROR); 




return 0 ; 

} 




hwnd = CreateWindow (szAppName, TEXT ("Mouse Button Demo 1 ’）， 


WS OVERLAPPEDWINDOW, 



CW USEDEFAULT, 

CW USEDEFAULT, 


CW USEDEFAULT, 

CW USEDEFAULT, 


NULL, NULL, hlnstance. 

NULL); 


ShowWindow (hwnd, iCmdShow) 

• 

f 



UpdateWindow (hwnd); 




while (GetMessage (&msg, NULL, 0, 

； 

0)) 


i 

TranslateMessage (&msg: 

> ； 


DispatchMessage 

I 

(&msg) 

• 

f 


j 

return msg.wParam ; 

} 




void DrawBoxOutline (HWND hwnd, 

! 

POINT ptBeg, POINT ptEnd) 


X 

HDC hdc ; 




hdc = GetDC (hwnd); 




SetROP2 (hdc, R2 NOT); 




SelectObj ect (hdc, GetStockObj ect 

(NULL BRUSH)); 


Rectangle (hdc, ptBeg.x, ptBeg.y, 

ptEnd.x, ptEnd.y); 
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ReleaseDC (hwnd, hdc) ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static BOOL fBlocking, fValidBox ; 

static POINT ptBeg, ptEnd, ptBoxBeg, ptBoxEnd ; 

HDC hdc ; 

PAINTSTRUCT ps ; 
switch (message) 

{ 

case WM—LBUTTONDOWN : 

ptBeg.x = ptEnd.x = LOWORD (IParam); 
ptBeg.y = ptEnd.y = HIWORD (IParam); 

DrawBoxOutline (hwnd, ptBeg, ptEnd); 

SetCursor (LoadCursor (NULL, IDC—CROSS)); 

fBlocking = TRUE ; 
return 0 ; 

case WM—MOUSEMOVE : 

if (fBlocking) 

{ 

SetCursor (LoadCursor (NULL, 工 DC—CROSS)); 

DrawBoxOutline (hwnd, ptBeg, ptEnd); 

ptEnd.x = LOWORD (IParam); 

ptEnd.y = HIWORD (IParam); 

DrawBoxOutline (hwnd, ptBeg, ptEnd); 

} 

return 0 ; 


case WM—LBUTTONUP : 

if (fBlocking) 

{ 

DrawBoxOutline (hwnd, ptBeg, ptEnd); 


ptBoxBeg 
ptBoxEnd.x 
ptBoxEnd.y 


=ptBeg ; 

=LOWORD (IParam); 
=HIWORD (IParam); 


SetCursor (LoadCursor (NULL, 工 DC—ARROW)); 
fBlocking = FALSE ; 
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fValidBox 


=TRUE ; 



\ 

InvalidateRect (hwnd. 

NULL, TRUE); 



/ 

return 0 

參 



case 

WM 

CHAR : 






if (fBlocking & wParam = 

； 

='\xlB') 

// i.e., Escape 



i 

DrawBoxOutline (hwnd. 

ptBeg, ptEnd); 




SetCursor (LoadCursor 

(NULL, IDC ARROW)); 



\ 

fBlocking = FALSE ; 




j 

return 0 

參 

f 



case 

WM 

PAINT : 






hdc = BeginPaint (hwnd, 

&ps); 



if 

(fValidBox) 

! 






X 

SelectObject 

(hdc, GetStockObject (BLACK—BRUSH)); 




Rectangle ( 

hdc. 

ptBoxBeg.x, ptBoxBeg.y, 



} 



ptBoxEnd.x, ptBoxEnd.y); 


if 

(fBlocking) 

; 






i 

SetR0P2 (hdc. 

R2 NOT) 

• 

f 




SelectObject 

(hdc, GetStockObject (NULL—BRUSH)); 




Rectangle (hdc, ptBeg.x, ptBeg.y, ptEnd.x. 

ptEnd.y); 


} 






EndPaint 

(hwnd, &ps); 





return 0 

參 



case 

WM 

DESTROY : 






PostQuitMessage (0); 



1 


return 0 

參 

f 



i 

return DefWindowProc 

} 

(hwnd, message, 

wParam, 

IParam); 


此程式展示了一些，它可以实作在 Windows 的「画图」程式中的东西。由 


按下滑鼠左键开始确定矩形的一角，然後拖动滑鼠。程式将画一个矩形的轮廓， 
其相对位置是滑鼠目前的位置。当您释放滑鼠後，程式将填入这个矩形。图7-4 
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显示了一个已经画完的矩形和另一个正在画的矩形。 



图 7-4 BL0K0UT1 的萤幕显示 


那么，问题在哪里呢？ 

请试一试下面的 操作： 在 BL 0 K 0 UT 1 的显示区域按下滑鼠的左键，然後将游 
标移出视窗。程式将停止接收 WM _ M 0 USEM 0 VE 讯息。现在释放按钮， BL 0 K 0 UT 1 将 
不再获得 WM_BUTTONUP 讯息，因为游标在显示区域以外。然後将游标移回 
BL 0 K 0 UT 1 的显示区域，视窗讯息处理程式仍然认为按钮处於按下状态。 

这样做并不好，因为程式不知道发生了什么事情。 

拦截的解决方案 

BL 0 K 0 UT 1 显示了一些常见的程式功能，但它的程式码显然有缺陷。这种问 
题就是要使用滑鼠拦截来对付。如果使用者正在拖曳滑鼠，那么当滑鼠短时间 
内被拖出视窗时应该没有什么大问题，程式应该仍然控制著滑鼠。 

拦截滑鼠要比放置一个老鼠夹子容易一些，您只要 呼叫： 

SetCapture (hwnd) ; 

在这个函式呼叫之後， Windows 将所有滑鼠讯息发给视窗代号为 hwnd 的视 
窗讯息处理程式。之後收到滑鼠讯息都是以显示区域讯息的型态出现，即使滑 
鼠正在视窗的非显示区域。 IParam 参数将指示滑鼠在显示区域座标中的位置。 
不过，当滑鼠位於显示区域的左边或者上方时，这些 x * y 座标可以是负的。 
当您想释放滑鼠时，呼叫： 
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ReleaseCapture () ; 

从而使处理恢复正常。 

在32位元的 Windows 中 ，滑鼠拦截要比在以前的 Windows 版本中有多一些 
限制。特别是， 如果滑鼠被拦截，而滑鼠按键目前并未被按下，并且滑鼠游标 
移到了另一个视窗上，那么将不是由拦截滑鼠的那个视窗，而是由游标下面的 
视窗来接收滑鼠讯息。对於防止一个程式在拦截滑鼠之後不释放它而引起整个 
系统的混乱，这是必要的。 

~ 换句话说， 只有鼠按键在您的显示区域中被按下时才拦截 滑鼠； 当滑 
鼠按键被释放时，才释放滑鼠拦 

BL0K0UT2 程式 


展示滑鼠拦截的 BL 0 K 0 UT 2 程式如程式 7-7 所示。 

程式 7-7 BL0K0UT2 


BL0K0UT2.C 

/* - 

BL0K0UT2.C -- Mouse 

Button & Capture Demo Program 

(c) Charles Petzold, 1998 

V 



♦include <windows.h> 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 



PSTR szCmdLine, int iCmdShow) 

i 

static TCHAR szAppName[] 

=TEXT ( n Blok0ut2 n ); 


HWND 

hwnd ; 


MSG 

msg ; 


WNDCLASS 

wndclass ; 


wndclass.style 

=CS HREDRAW | CS_VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 


wndclass.cbClsExtra 

=◦; 


wndclass.cbWndExtra 

=◦; 


wndclass.hlnstance 

=hlnstance ; 


wndclass•hicon 

=Loadlcon (NULL, IDI APPLICATION); 


wndclass.hCursor 

=LoadCursor (NULL, 工 DC—ARROW); 


wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 


wndclass.IpszMenuName = NULL ; 


wndclass.IpszClassName 

=szAppName ; 


if (!RegisterClass (&wndclass)) 
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MessageBox 
return 0 ; 


NULL, TEXT ("Program requires Windows NT !’，）， 

szAppName, MB ICONERROR); 


hwnd = CreateWindow ( szAppName, TEXT ("Mouse Button & Capture Demo ”）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 


return msg.wParam ; 


void DrawBoxOutline (HWND hwnd, POINT ptBeg, POINT ptEnd) 

{ 

HDC hdc ; 

hdc = GetDC (hwnd); 

SetROP2 (hdc, R2—NOT); 

SelectObj ect (hdc, GetStockObj ect (NULL—BRUSH)); 
Rectangle (hdc, ptBeg.x, ptBeg.y, ptEnd.x, ptEnd.y); 


ReleaseDC (hwnd, hdc); 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static BOOL fBlocking, fValidBox ; 

static POINT ptBeg, ptEnd, ptBoxBeg, ptBoxEnd ; 

HDC hdc ; 

PAINTSTRUCT ps ; 


switch (message) 

{ 

case WM—LBUTTONDOWN : 

ptBeg.x = ptEnd.x = LOWORD (IParam); 
ptBeg.y = ptEnd.y = HIWORD (IParam); 


第 288 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 
DrawBoxOutline (hwnd, ptBeg, ptEnd); 

SetCapture (hwnd); 

SetCursor (LoadCursor (NULL, IDC—CROSS)); 

fBlocking = TRUE ; 
return 0 ; 

case WM—MOUSEMOVE : 

if (fBlocking) 

{ 

SetCursor (LoadCursor (NULL, IDC—CROSS)); 

DrawBoxOutline (hwnd, ptBeg, ptEnd); 

ptEnd.x = LOWORD (IParam); 
ptEnd.y = HIWORD (IParam); 

DrawBoxOutline (hwnd, ptBeg, ptEnd); 

} 

return 0 ; 

case WM—LBUTTONUP : 

if (fBlocking) 

{ 

DrawBoxOutline (hwnd, ptBeg, ptEnd); 

ptBoxBeg = ptBeg ; 

ptBoxEnd.x = LOWORD (IParam); 

ptBoxEnd.y = HIWORD (IParam); 

ReleaseCapture (); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 

fBlocking = FALSE ; 

fValidBox = TRUE ; 

InvalidateRect (hwnd, NULL, TRUE); 

} 

return 0 ; 
case WM—CHAR : 

if (fBlocking & wParam == *\xlB 1 ) // i.e., Escape 

{ 

DrawBoxOutline (hwnd, ptBeg, ptEnd); 

ReleaseCapture (); 

SetCursor (LoadCursor (NULL, IDC ARROW)); 
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fBlocking = 

FALSE 

參 

f 



j 

return 0 

参 

r 




case 

WM PAINT : 






hdc = BeginPaint (hwnd, 

&ps) 

參 

f 


； 

if (fValidBox) 




1 


SelectObject 

(hdc, GetStockObject (BLACK 

—BRUSH)); 



Rectangle (hdc, ptBoxBeg.x, ptBoxBeg.y, 



} 

ptBoxEnd.x. 

ptBoxEnd.y); 



if 

/ 

(fBlocking) 





l 

SetR0P2 (hdc, R2—N0T); 




SelectObject 

(hdc. 

GetStockObj ect (NULL 

_BRUSH)); 



Rectangle 

(hdc. 

ptBeg.x, ptBeg.y. 

ptEnd.x, 

ptEnd.y) ; 

} 






EndPaint 

(hwnd, &ps); 





return 0 

參 

f 




case 

WM DESTROY : 






PostQuitMessage (0); 




1 

return 0 

• 

r 




/ 

return DefWindowProc 

} 

(hwnd, message 

: ,wParam, IParam); 



BL 0 K 0 UT 2 程式和 BL 0 K 0 UT 1 程式一样，只是多了三行新程式 码：在 
WM _ LBUTT 0 ND 0 WN 讯息处理期间呼叫 SetCapture ,而在 WM _ LBUTT 0 ND 0 WN 和 


WM _ CHAR 讯息处理期间呼叫 ReleaseCapture 。 检查画出 视窗： 使视窗小於萤幕 
大小，开始在显示区域画出一块矩形，然後将滑鼠游标移出显示区域的右边或 
下边，最後释放滑鼠按键。程式将获得整个矩形的座标。但是需要扩大视窗才 
能看清楚它。 

拦截滑鼠并非只适用於那些古怪的应用程式。如果您需要滑鼠按键在显示 
区域按下时都能够追踪 WM _ M 0 USEM 0 VE 讯息，并直到滑鼠按键被释放为止，那么 
您就应该拦截滑鼠。这样将简化您的程式，同时又符合使用者的期望。 

滑鼠滑轮 

与传统的滑鼠相比 ， Microsoft IntelliMouse 的特点是在两个键之间多了 
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一个小滑轮。您可以按下这个滑轮，这时它的功能相当於滑鼠按键的 中键； 或 
者您也可以用食指来转动它，这会产生一条特殊的讯息，叫做 WM _ MOUSEWHEEL 。 
使用滑鼠滑轮的程式通过滚动或放大文件来回应此讯息。它最初听起来像一个 
不必要的隐藏机关，但我必须承认，我很快就习惯於使用滑鼠滑轮来滚动 
Microsoft Word 和 Microsoft Internet Explorer 了。 

我不想讨论滑鼠滑轮的所有使用方法。实际上，我只是想告诉您如何在现 
有的程式（例如程式 SYSMETS 4) 中添加滑鼠滑轮处理程式，以便在显示区域中 


卷动资料。最终的 SYSMETS 程式如程式 7-8 所示。 

程式 7-8 SYSMETS4 


SYSMETS . C 



/*- _ 




SYSMETS . C -- Final System Metrics 

Display Program 



(c) Charles Petzold, 1998 


V 




♦include <windows . h> 

♦include "sysmets . h" 



LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ; 


int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance , 

/ 


PSTR szCmdLine, int iCmdShow) 

i 

static TCHAR szAppName[] 

= TEXT ("SysMets") ; 



HWND 

hwnd ; 



MSG 

msg ; 



WNDCLASS 

wndclass ; 



wndclass.style 

=CS_HREDRAW 

| CS VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 



wndclass.cbClsExtra 

=◦; 



wndclass . cbWndExtra 

=◦; 



wndclass.hlnstance 

= hlnstance 

• 

f 


wndclass . hicon 

= Loadlcon (NULL, 

IDI 

APPLICATION) ; 




wndclass . hCursor 

= LoadCursor 

(NULL, IDC—ARROW) ; 


wndclass . hbrBackground 

= (HBRUSH) 

GetStockObj ect 

(WHITE BRUSH) ; 




wndclass . IpszMenuName 

= NULL ; 



wndclass . IpszClassName 

= szAppName ; 



if (!RegisterClass (&wndclass)) 



MessageBox ( NULL, 

TEXT ("Program requires 

Windows NT!") , 



szAppName A 
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MB_ICONERROR) ; 

return 0 ; 

} 

hwnd = CreateWindow ( szAppName, TEXT ("Get System Metrics 1 ，）， 

WS_OVERLAPPEDWINDOW | WS—VSCROLL | WS_HSCROLL, 
CW—USEDEFAULT, CW—USEDEFAULT, 

CW_USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 

IParam) 

{ 

static int cxChar, cxCaps, cyChar, cxClient, cyClient, iMaxWidth ; 

static int iDeltaPerLine, iAccumDelta ; // 

for mouse wheel logic 

HDC hdc ; 

int i, x, y, iVertPos, iHorzPos, iPaintBeg, iPaintEnd ; 

PAINTSTRUCT ps ; 

SCROLLINFO si ; 

TCHAR szBuffer[10]; 

TEXTMETRIC tm ; 

ULONG ulScrollLines ; // for mouse 

wheel logic 

switch (message) 

{ 

case WM—CREATE: 

hdc = GetDC (hwnd); 

GetTextMetries (hdc, &tm); 
cxChar = tm.tmAveCharWidth ; 

cxCaps = (tm. tmPitchAndFamily & 1 ? 3 : 2) * cxChar / 2 ; 

cyChar = tm.tmHeight + tm.tmExternalLeading ; 

ReleaseDC (hwnd, hdc); 

// Save the width of the three columns 
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iMaxWidth = 40 * cxChar + 22 * cxCaps ; 


// Fall through for mouse wheel 

information 

case WM—SETTINGCHANGE: 

SystemParametersInfo (SPI_GETWHEELSCROLLLINES, 0, 

&ulScrollLines, 0); 


// ulScrollLines usually equals 3 or 0 (for no scrolling) 
// WHEEL DELTA equals 120, so iDeltaPerLine will be 40 


if (ulScrollLines) 


else 


iDeltaPerLine=WHEEL—DELTA / ulScrollLines ; 
iDeltaPerLine = 0 ; 


return 0 ; 


case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 


size 


// Set vertical scroll bar range and page 


page size 


si.cbSize 
si.fMask 


=sizeof (si); 

=SIF RANGE I SIF PAGE ; 


si . nMin 



si. nMax 
si.nPage 

SetScrollInfo (hwnd A SB 


=NUMLINES - 1 ; 

=cyClient / cyChar ; 
VERT, &si, TRUE); 


// Set horizontal scroll bar range and 


si.cbSize 
si.fMask 
si.nMin 
si.nMax 
si.nPage 

SetScrollInfo (hwnd, SB—HORZ, 
return 0 ; 


=sizeof (si); 

=SIF_RANGE I SIF_PAGE ; 

=◦; 

= 2 + iMaxWidth / cxChar ; 
=cxClient / cxChar ; 

&si, TRUE); 


case WM—VSCROLL: 
information 


/ / Get all the vertical scroll bar 
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si.cbSize = sizeof (si); 
si.fMask = SIF—ALL ; 

GetScrollInfo (hwnd, SB VERT, &si); 


later on 


// Save the position for comparison 


iVertPos = si.nPos ; 
switch (LOWORD (wParam)) 

{ 

case SB—TOP: 

si.nPos = si.nMin ; 
break ; 


case SB—BOTTOM: 

si.nPos = si.nMax ; 
break ; 


case SB_LINEUP: 

si.nPos -= 1 ; 
break ; 


case SB_LINEDOWN: 

si.nPos += 1 ; 
break ; 


case SB_PAGEUP: 

si.nPos -= si.nPage ; 
break ; 

case SB_PAGEDOWN: 

si.nPos += si.nPage ; 
break ; 


to adjustments 


case SB—THUMBTRACK: 

si.nPos = si.nTrackPos ; 
break ; 

default : 


break ; 

// Set the position and then retrieve it. 


Due 


// by Windows it may not be the same as the value set. 


si.fMask = SIF_POS ; 

SetScrollInfo (hwnd, SB—VERT, &si, TRUE); 

GetScrollInfo (hwnd, SB—VERT, &si); 

// If the position has changed, scroll the 
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window and update it 


si.nPos), 


if (si.nPos != iVertPos) 

{ 

ScrollWindow ( hwnd, 0, cyChar * (iVertPos - 

NULL, NULL); 

UpdateWindow (hwnd); 

} 

return 0 ; 


case WM HSCROLL: 


// Get all the vertical scroll bar information 


si.cbSize = sizeof (si); 
si.fMask = SIF—ALL ; 

// Save the position for comparison later on 


GetScrollInfo (hwnd, SB_HORZ, &si); 

iHorzPos = si.nPos ; 

switch (LOWORD (wParam)) 

{ 

case SB_LINELEFT : 

si.nPos —= 1 ; 
break ; 

case SB_LINERIGHT: 

si.nPos += 1 ; 
break ; 

case SB—PAGELEFT: 

si.nPos -= si.nPage ; 
break ; 


case SB_PAGERIGHT: 

si.nPos += si.nPage ; 
break ; 


case SB_THUMBPOSITION: 

si.nPos = si.nTrackPos ; 
break ; 


default : 

break ; 

} 

// Set the position and then retrieve it. Due to 
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adjustments 


si.nPos) , 0 


case 


// by Windows it may not be the same as the value set. 


si.fMask = SIF_POS ; 

SetScrollInfo (hwnd, SB—HORZ, &si, TRUE); 
GetScrollInfo (hwnd, SB HORZ, &si); 


// If the position has changed, scroll the window 

if (si.nPos != iHorzPos) 

{ 

ScrollWindow ( hwnd, cxChar * (iHorzPos - 

r 

NULL, NULL); 

} 

return 0 ; 

WM—KEYDOWN : 

switch (wParam) 

{ 

case VK_HOME : 

SendMessage (hwnd, WM—VSCROLL, SB_TOP, 0); 
break ; 

case VK—END : 

SendMessage (hwnd, WM—VSCROLL, SB_BOTTOM, 0); 
break ; 

case VK_PRIOR : 

SendMessage (hwnd, WM—VSCROLL, SB_PAGEUP, 0); 
break ; 


case VK_NEXT : 

SendMessage (hwnd, WM—VSCROLL, SB_PAGEDOWN, 0); 
break ; 


case VK_UP : 

SendMessage (hwnd, WM—VSCROLL, SB_LINEUP, 0); 
break ; 


case VK—DOWN : 

SendMessage (hwnd, WM—VSCROLL, SB_LINEDOWN, 0); 
break ; 


case VK_LEFT : 

SendMessage (hwnd, WM—HSCROLL, SB_PAGEUP, 0); 
break ; 
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case VK_RIGHT : 

SendMessage (hwnd, WM—HSCROLL, SB_PAGEDOWN, 0); 
break ; 

} 

return 0 ; 

case WM—MOUSEWHEEL: 

if (iDeltaPerLine == 0) 

break ; 

iAccumDelta += (short) HIWORD (wParam) ; // 120 or -120 

while (iAccumDelta >= iDeltaPerLine) 

{ 

SendMessage (hwnd, WM—VSCROLL, SB_LINEUP, 0); 
iAccumDelta -= iDeltaPerLine ; 

} 

while (iAccumDelta <= -iDeltaPerLine) 

{ 

SendMessage (hwnd A WM—VSCROLL, SB_LINEDOWN, 0); 
iAccumDelta += iDeltaPerLine ; 

} 

return 0 ; 

case WM_PAINT : 

hdc = BeginPaint (hwnd, &ps); 

// Get vertical scroll bar position 

si.cbSize = sizeof (si); 

si.fMask = SIF_POS ; 

GetScrollInfo (hwnd, SB—VERT, &si); 
iVertPos = si.nPos ; 

// Get horizontal scroll bar position 

GetScrollInfo (hwnd, SB_HORZ, &si); 
iHorzPos = si.nPos ; 

// Find painting limits 

iPaintBeg = max (0, iVertPos + ps.rcPaint.top / cyChar); 
iPaintEnd = min (NUMLINES - 1, 
iVertPos + ps.rcPaint.bottom / cyChar); 

for (i = iPaintBeg ; i <= iPaintEnd ; i++) 
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{ 

x = cxChar * (1 - iHorzPos) ; 
y = cyChar * (i - iVertPos); 

TextOut ( hdc, x, y, 
sysmetrics[i].szLabel, 
lstrlen (sysmetrics[i].szLabel)); 

TextOut ( hdc, x + 22 * cxCaps, y, 
sysmetrics[i].szDesc, 
lstrlen (sysmetrics[i].szDesc)); 

SetTextAlign (hdc, TA—RIGHT | TA_TOP); 

TextOut ( hdc, x + 22 * cxCaps + 40 * cxChar, y, szBuffer, 
wsprintf (szBuffer, TEXT ("%5d"), 

GetSystemMetries (sysmetrics[i]•ilndex))); 

SetTextAlign (hdc, TA—LEFT | TA_TOP); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

转动滑轮会导致 Windows 在有输入焦点的视窗（不是滑鼠游标下面的视窗) 
产生 WM _ M 0 USEWHEEL 讯息。与平常一样， IParam 将获得滑鼠的位置，当然座标 
是相对於萤幕左上角的，而不是显示区域的。另外， wParam 的低字组包含一系 
列的旗标，用於表示滑鼠按键、 Shift 与 Ctrl 键的状态。 

新的资讯保存在 wParam 的高字组。其中有一个 「 delta 」 值，该值目前可 
以是120或-120,这取决於滑轮的向前转动（也就是说，向滑鼠的前面，即带 
有按钮与电缆的一端）还是向後转动。值120或 -120 表示文件将分别向上或向 
下卷动三行。这里的构想是，以後版本的滑鼠滑轮能有比现在的滑鼠产生更精 
确的移动速度资讯，并且用 delta 值，例如40和-40，来产生 WM _ M 0 USEWHEEL 
讯息。这些值能使文件只向上或向下卷动一行。 

为使程式能在一般化环境执行， SYSMETS 将在 WM _ CREATE 和 
WM_SETTINGCHANGE 讯息处理时，以 SPI_GETWHEELSCROLLLINES 作为参数来呼叫 
SystemParametersInfOo 此值说明 WHEEL_DELTA 的 delta 值将滚动多少行， 
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WHEEL _ DELTA 在 WINUSER . H 中定义^ WHEEL _ DELTA 等於120，并且，在内定情况 
下 SystemParametersInfo 传回3，因此与卷动一行相联系的 delta 值就是40。 
SYSMETS 将此值保存在 iDeltaPerLineo 

在 WM + M 0 USEWHEEL 讯息处理期间， SYSMETS 将 delta 值给静态变数 
iAccumDelta 。 然後，如果 iAccumDelta 大於或等於 iDeltaPerLine (或者是小 
於或等於 - iDeltaPerLin) ， SYSMETS 用 SB_LINEUP 或 SB _ LINED 0 WN 值产生 
WM _ VSCR 0 LL 讯息。对於每一个 WM _ VSCR 0 LL 讯息 ， iAccumDelta 由 iDeltaPerLine 
增加（或减少）。此代码允许 delta 值大於、小於或等於滚动一行所需要的 delta 
值。 

下面还有 

还有一个引人注目的滑鼠 问题： 建立自订滑鼠游标。我将在第十章，与其 
他 Windows 资源一起讨论此问题。 
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第八章计时器 

Microsoft Windows 计时器是一种输入设备，它周期性地在每经过一个指定 
的时间间隔後就通知应用程式一次。您的程式将时间间隔告诉 Windows ， 例如「每 
10秒钟通知我一声」，然後 Windows 给您的程式发送周期性发生的 WM _ TIMER 讯 
息以表示时间到了。 

初看之下， Windows 计时器似乎不如键盘和滑鼠设备重要，而且对许多应用 
程式来说确实如此。但是，计时器比您可能认为的要重要得多，它不只用於计 
时程式，比如出现在工具列中的 Windows 时钟和这一'章中的两个时钟程式。下 
面是 Windows 计时器的其他应用，有些可能并不那么 明显： 

多工 虽然 Windows 98是一个优先权式的多工环境，但有时候如果程式尽 
快将控制传回给 Windows 效率会更高。如果一个程式必须进行大量的处理，那 
么它可以将作业分成小块，每接收到一个 WM _ TIMER 讯息处理一块（我将在第二 
十章中对此做更多的讨论）。 

维护更新过的状态报告 程式可以利用计时器来显示持续变化资讯的「即 
时」更新，比如关於系统资源的变化或某个任务的进展情况。 

实作「自动储存」功能 计时器提示 Windows 程式在指定的时间过去後把使 
用者的工作储存到磁片上。 

终止程式展示版本的执行 一 些程式的展示版本被设计成在其开始後，多长 
时间结束，比如说，30分钟。如果时间已到，那么计时器就会通知应用程式。 

步进移动 游戏中的图形物件或电脑辅助教学程式中的连续显示，需要按指 
定的速率来处理。利用计时器可以消除由於微处理器速度不同而造成的不一致。 

多媒 体播放 CD 声音、声音或音乐的程式通常在背景播放声音资料。一个 
程式可以使用计时器来周期性地检查已播放了多少声音资料，并据此协调萤幕 
上的视觉资讯。 

另一项应用可以保证程式在退出视窗讯息处理程式後，能够重新得到控制。 
在大多数时情况下，程式不能够知道何时下一个讯息会到来。 


计时器入门 


您可以通过呼叫 SetTimer 函式为您的 Windows 程式分配一个计时器。 
SetTimer 有一个时间间隔范围为1毫秒到4, 294, 967, 295毫秒（将近50天）的 
整数型态参数，这个值指示 Windows 每隔多久时间给您的程式发送 WM _ TIMER 讯 
息。例如，如果间隔为1000毫秒，那么 Windows 将每秒给程式发送一个 WM_TIMER 


第 300 页 




Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


讯息。 

当您的程式用完计时器时，它呼叫 KillTimer 函式来停止计时器讯息。在 
处理 WM _ TIMER 讯息时，您可以通过呼叫 KillTimer 函式来编写一个「限用一次」 
的计时器。 KillTimer 呼叫清除讯息伫列中尚未被处理的 WM _ TIMER 讯息，从而 
使程式在呼叫 KillTimer 之後就不会再接收到 WM _ TIMER 讯息。 


系统和计时器 

Windows 计时器是 PC 硬体和 ROM BIOS 架构下之计时器一种相对简单的扩充。 
回到 Windows 以前的 MS - DOS 程式写作环境下，应用程式能够通过拦截者称为 
timer tick 的 BIOS 中断来实作时钟或计时器。一些为 MS - DOS 编写的程式自己 
拦截这个硬体中断以实作时钟和计时器。这些中断每 54. 915毫秒产生一次，或 
者大约每秒 18. 2次。这是原始的 IBM PC 的微处理器时脉值 4. 772720 MHz 被218 
所除而得出的结果。 

Windows 应用程式不拦截 BIOS 中断，相反地， Windows 本身处理硬体中断， 
这样应用程式就不必进行处理。对於目前拥有计时器的每个程式， Windows 储存 
一个每次硬体 timer tick 减少的计数。当这个计数减到0时， Windows 在应用 
程式讯息伫列中放置一个 WM_TIMER 讯息，并将计数重置为其最初值。 

因为 Windows 应用程式从正常的讯息伫列中取得 WM_TIMER 讯息，所以您的 
程式在进行其他处理时不必担心 WM_TIMER 讯息会意外中断了程式。在这方面， 
计时器类似於键盘和滑鼠。驱动程式处理非同步硬体中断事件， Windows 把这些 
事件 • 译为规律、结构化和顺序化的讯息。 

在 Windows 98中，计时器与其下的 PC 计时器一样具有55毫秒的解析度。 
在 Microsoft Windows NT 中，计时器的解析度为10毫秒。 

Windows 应用程式不能以高於这些解析度的频率（在 Windows 98下，每秒 
18. 2次，在 Windows NT 下，每秒大约100次）接收 WM — TIMER 讯息。在 SetTimer 
呼叫中指定的时间间隔总是截尾後 tick 数的整数倍。例如，1000毫秒的间隔除 
以 54. 925毫秒，得到 18. 207个 tick ， 截尾後是18个 tick ， 它实际上是989 
毫秒。对每个小於55毫秒的间隔，每个 tick 都会产生一个 WM _ TIMER 讯息。 

计时器讯息不是非同步的 

因为计时器使用硬体计时器中断，程式写作者有时会误解，认为他们的程 
式会非同步地被中断来处理 WM _ TIMER 讯息。 

然而， WM _ TIMER 讯息并不是非同步的。 WM _ TIMER 讯息放在正常的讯息伫列 
之中，和其他讯息排列在一起，因此，如果在 SetTimer 呼叫中指定间隔为1000 
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毫秒，那么不能保证程式每1000毫秒或者989毫秒就会收到一个 WM _ TIMER 讯 

息。如果其他程式的执行事件超过一秒，在此期间内，您的程式将收不到任何 
WM _ TIMER 讯息。您可以使用本章的程式来展示这一点。事实上， Windows 对 
WM _ TIMER 讯息的处理非常类似於对 WM _ PAINT 讯息的处理，这两个讯息都是低优 
先顺序的，程式只有在讯息伫列中没有其他讯息时才接收它们。 

WM _ TIMER 还在另一方面和 WM + PAINT 相似： Windows 不能持续向讯息伫列中 
放入多个 WM _ TIMER 讯息，而是将多余的 WM _ TIMER 讯息组合成一个讯息。因此， 
应用程式不会一次收到多个这样的讯息，尽管可能在短时间内得到两个 
WM _ TIMER 讯息。应用程式不能确定这种处理方式所导致的 WM _ TIMER 讯息「遗漏」 
的数目。 

这样， WM _ TIMER 讯息仅仅在需要更新时才提示程式，程式本身不能经由统 
计 WM _ TIMER 讯息的数目来计时（在本章後面，我们将编写两个每秒更新一次的 
时钟程式，并可以看到如何做到这一点）。 

为了方便起见，下面在讨论时钟时，我将使用「每秒得到一次 WM _ TIMER 讯 
息」这样的叙述，但是请记住，这些讯息并非精确的 tick 中断。 

计时器的 使用： 三种方法 

如果您需要在整个程式执行期间都使用计时器，那么您将得从 WinMain 函 
式中或者在处理 WM _ CREATE 讯息时呼叫 SetTimer ， 并在退出 WinMain 或回应 
WM _ DESTR 0 Y 讯息时呼叫 KillTimer 。 根据呼叫 SetTimer 时使用的参数，可以下 
列三种方法之一使用计时器。 

方法一 

这是最方便的一种方法，它让 Windows 把 WM _ TIMER 讯息发送到应用程式的 
正常视窗讯息处理程式中， SetTimer 呼叫如下 所示： 

SetTimer (hwnd, 1, uiMsecInterval , NULL); 

第一个参数是其视窗讯息处理程式将接收 WM _ TIMER 讯息的视窗代号。第二 
个参数是计时器 ID ， 它是一个非0数值，在整个例子中假定为1。第三个参数 
是一个32位元无正负号整数，以毫秒为单位指定一个时间间隔，一个60, 000 
的值将使 Windows 每分钟发送一次 WM _ TIMER 讯息。 

您可以通过呼叫 

KillTimer (hwnd, 1) ; 

在任何时刻停止 WM _ TIMER 讯息（即使正在处理 WM _ TIMER 讯息）。此函式 
的第二个参数是 SetTimer 呼叫中所用的同一个计时器 ID 。 在终止程式之前，您 
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应该回应 WM _ DESTROY 讯息停止任何活动的计时器。 

当您的视窗讯息处理程式收到一个 WM _ TIMER 讯息时， wParam 参数等於计时 
器的 ID 值（上述情形为 1) ， IPamm 参数为0。如果需要设定多个计时器，那 
么对每个计时器都使用不同的计时器 ID 。 wParam 的值将随传递到视窗讯息处理 
程式的 WM _ TIMER 讯息的不同而不同。为了使程式更具有可读性，您可以使用 
ttdefine 叙述定义不同的计时器 ID : 

#define TIMER—SEC 1 
#define TIMER—MIN 2 

然後您可以使用两个 SetTimer 呼叫来设定两个计时器： 

SetTimer (hwnd, TIMER—SEC, 1000, NULL); 

SetTimer (hwnd, TIMER—MIN, 60000, NULL); 

WM _ TIMER 的处理如下 所示： 

case WM—TIMER: 

switch (wParam) 

{ 

case TIMER—SEC: 

// 每蘇一次的处理 

break ; 

case TIMER—MIN: 

// 每分钟一次的处理 
break ; 

} 

return 0 ; 

如果您想将一个已经存在的计时器设定为不同的时间间隔，您可以简单地 
用不同的时间值再次呼叫 SetTimero 在时钟程式里，如果显示秒或不显示秒是 
可以选择的，您就可以这样做，只需简单地将时间间隔在1000毫秒和60 000 
毫秒间切换就可以了。 

程式 8-1 显示了一个使用计时器的简单程式，名为 BEEPER 1， 计时器的时间 
间隔设定为1秒。当它收到 WM _ TIMER 讯息时，它将显示区域的颜色由蓝色变为 
红色或由红色变为蓝色，并通过呼叫 MessageBeep 函式发出响声。（虽然 
MessageBeep 通常用於 MessageBox , 但它确实是一个全功能的鸣叫函式。在有 
音效卡的 PC 机上，一般可以使用不同的 MB _ IC 0 N 参数作为 MessageBeep 的一个 
参数以用於 MessageBox ， 来播放使用者在「控制台」的「声音」程式中选择的 
不同声音）。 

BEEPER 1在视窗讯息处理程式处理 WM _ CREATE 讯息时设定计时器。在处理 
WM _ TIMER 讯息处理期间 ， BEEPER 1呼叫 MessageBeep ， •转 bFlipFlop 的值并使 
视窗无效以产生 WM _ PAINT 讯息。在处理 WM _ PAINT 讯息处理期间 ， BEEPER 1通过 
呼叫 GetClientRect 获得视窗大小的 RECT 结构，并通过呼叫 FillRect 改变视 
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窗的颜色。 


程式 8-1 BEEPER 1 


BEEPER1.C 

/* - 

BEEPER1.C -- Timer Demo Program No. 1 

(c) Charles Petzold, 1998 



♦include <windows.h> 


♦define ID TIMER 1 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


static TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName[] = TEXT ( "Beeper1 n ); 
hwnd ; 

msg ; 

wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 

=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=NULL ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("Program requires Windows NT !’’）， 

szAppName, MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow ( szAppName, TEXT ("Beeperl Timer Demo ’’）， 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT a CW—USEDEFAULT, 

CW_USEDEFAULT a cw—usedefault, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 
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while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam,LPARAM IParam) 


static BOOL 

HBRUSH 

HDC 

PAINTSTRUCT ps 
RECT rc ; 


fFlipFlop = FALSE ; 
hBrush ; 
hdc ; 


switch (message) 

{ 

case WM—CREATE: 

SetTimer (hwnd, ID_TIMER, 1000, NULL); 
return 0 ; 


case WM—TIMER : 

MessageBeep (- 1); 
fFlipFlop = !fFlipFlop ; 

工 nvalidateRect (hwnd, NULL, FALSE); 
return 0 ; 


case WM—PAINT : 

hdc = BeginPaint (hwnd, &ps); 

GetClientRect (hwnd, &rc); 

hBrush = CreateSolidBrush (fFlipFlop ? RGB(255,0,0) 

RGB(0,0,255)); 

FillRect (hdc, &rc, hBrush); 

EndPaint (hwnd, &ps); 

DeleteObj ect (hBrush); 
return 0 ; 


case WM—DESTROY : 

KillTimer (hwnd, ID_TIMER); 
PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 
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因为 BEEPER 1每次收到 WM _ TIMER 讯息时，都用颜色的变换显示出来，所以 
您可以通过呼叫 BEEPER 1 来查看 WM _ TIMER 讯息的性质，并完成 Windows 内部的 
一 些其他操作。 

例如，首先呼叫 控 制台的 显示器 程式，选择 效果， 确定 拖曳时显示 
视窗 内容核 取方块没有被选中。现在，试著移动或者缩放 BEEPER 1 视窗，这将 
导致程式进入「模态讯息回圈」。 Windows 通过在内部讯息而非您程式的讯息回 
圈中拦截所有讯息，来禁止对移动或者缩放操作的任何干扰。通过此回圈到达 
程式视窗的大多数讯息都被丢弃，这就是 BEEPER 1 停止蜂鸣的原因。当完成了 
移动与缩放之後，您将会注意到 BEEPER 1 不能取得它所丢弃的所有 WM _ TIMER 讯 
息，尽管前两个讯息的间隔可能少於1秒。 

在「拖曳时显示视窗内容」核取方块被选中时， Windows 中，的模态讯息回 
圈会试图给您的视窗讯息处理程式传递一些丢失的讯息。这样做有时工作得很 
好，有时却不行。 

方法二 

设定计时器的第一种方法是把 WM + TIMER 讯息发送到通常的视窗讯息处理程 
式，而第二种方法是让 Windows 直接将计时器讯息发送给您程式的另一个函式。 

接收这些计时器讯息的函式被称为 「 callback 」 函式，这是一个在您的程 
式之中但是由 Windows 呼叫的函式。您先告诉 Windows 此函式的位址，然後 
Windows 呼叫此函式。这看起来也很熟悉，因为程式的视窗讯息处理程式实际上 
也是一种 callback 函式。当注册视窗类别时，要将函式的位址告诉 Windows ， 
当发送讯息给程式时， Windows 会呼叫此函式。 

SetTimer 并非是唯一▲使用 callback 函式的 Windows 函式 。 CreateDialog 
和 DialogBox 函式（将在第十一章中介绍）使用 callback 函式处理对话方块中 
的讯息；有几个 Windows 函式 （ EnumChildWindow 、 EnumFonts 、 EnumObjects 、 
EnumProps 和 EnumWindow ) 把列举资讯传递给 callback 函式；还有几个不那么 
常用的函式 （ GrayString、LineDDA 和 SetWindowHookEx ) 也要求 callback 函 

式。 

像视窗讯息处理程式一样， callback 函式也必须定义为 CALLBACK ， 因为它 
是由 Windows 从程式的程式码段呼叫的。 callback 函式的参数和 callback 函式 
的传回值取决於 callback 函式的目的。跟计时器有关的 callback 函式中，输 
入参数与视窗讯息处理程式的输入参数一样。计时器 callback 函式不向 Windows 
传回值。 

我们把以下的 callback 函式称为 TimerProc (您能够选择与其他一些用语 
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不会发生冲突的任何名称），它只处理 WM _ TIMER 讯息： 

VOID CALLBACK TimerProc ( HWNDhwnd, UINT message, UINTiTimerID, DWORDdwTime) 

{ 

处理 WM_TIMER 讯息 

} 

TimerProc 的参数 hwnd 是在呼叫 SetTimer 时指定的视窗代号。 Windows 只 
把 WM _ TIMER 讯息送给 TimerProc ， 因此讯息参数总是等於 WM _ TIMER。iTimerlD 
值是计时器 ID ， dwTimei : 值是与从 GetTickCount 函式的传回值相容的值。这是 
自 Windows 启动後所经过的毫秒数。 

在 BEEPER 1中已经看到过，用第一种方法设定计时器时要求下面格式的 
SetTimer 呼叫： 

SetTimer (hwnd, iTimerlD, iMsecInterval , NULL); 

您使用 callback 函式处理 WM _ TIMER 讯息时， SetTimer 的第四个参数由 
callback 函式的位址取代，如下 所示： 

SetTimer (hwnd, iTimerlD, iMsecInterval, TimerProc); 

我们来看看一些范例程式码，这样您就会了解这些东西是如何组合在一起 
的。在功能上，除了 Windows 发送一个计时器讯息给 TimerProc 而非 WndProc 
之外，程式 8-2 所示的 BEEPER 2 程式与 BEEPER 1 是相同的。注意， TimerProc 和 
WndProc 一 起被宣告在程式的开始处。 


程式 8-2 BEEPER2 


BEEPER2.C 



卜 



BEEPER2.C -- 

Timer Demo Program No. 2 



(c) Charles Petzold, 1998 




女 


♦include <windows.h> 

♦define ID_TIMER 1 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

VOID CALLBACK TimerProc (HWND, UINT, UINT, DWORD ); 


int WINAPI WinMain (HINSTANCE hlnstance 


HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


static char szAppName [] 

HWND hwnd 

MSG msg 

WNDCLASS wndclass ; 


"Beeper2 M ; 


wndclass.style 


CS HREDRAW | CS VREDRAW ; 
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wndclass . lpfnWndProc 



= WndProc ; 



wndclass . cbClsExtra 



=◦; 



wndclass . cbWndExtra 



= ◦; 



wndclass.hlnstance 



= hlnstance ; 



wndclass • hicon 



= Loadlcon 

(NULL, 

IDI 

APPLICATION) ; 






wndclass . hCursor 



= LoadCursor (NULL, IDC_ 

ARROW) ; 


wndclass . hbrBackground 



= (HBRUSH) GetStockObject 

(WHITE BRUSH) ; 






wndclass . IpszMenuName 



= NULL ; 



wndclass . IpszClassName 



= s zAppName ; 



if (!RegisterClass (&wndclass)) 

f 




MessageBox 

( 

NULL, TEXT ("Program requires Windows NT !’’）， 





szAppName , 


MB 

ICONERROR) ; 






return 0 ; 

} 






hwnd = CreateWindow ( 

szAppName , "Beeper2 Timer Demo" , 






WS OVERLAPPEDWINDOW, 




CW USEDEFAULT, CW USEDEFAULT, 



CW 

USEDEFAULT, CW USEDEFAULT, 



NULL, NULL, 

hlnstance, NULL) ; 



ShowWindow (hwnd, iCmdShow) 

參 

f 




UpdateWindow (hwnd) ; 






while (GetMessage (&msg, NULL, 

； 

◦ , ◦)) 



l 

TranslateMessage 

(&msg) ; 



DispatchMessage 

(&msg) 

• 

r 



} 

j 

return msg . wParam ; 





LRESULT CALLBACK WndProc (HWND hwnc 

f 

UINT message, WPARAM wParam, LPARAM IParam) 

i 

switch (message) 

/ 






l 

case WM CREATE : 






SetTimer (hwnd, 

ID 1 

TIMER, 1000, TimerProc) ; 



return 0 ; 






case WM DESTROY: 






KillTimer ( 

: hwnd. 

ID 

TIMER); 



PostQuitMessage 

(0) 

• 

r 



第 308 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 


VOID CALLBACK TimerProc (HWND hwnd, UINT message, UINT iTimerlD, DWORD dwTime) 

{ 

static BOOL fFlipFlop = FALSE ; 

HBRUSH hBrush ; 

HDC hdc ; 

RECT rc ; 

MessageBeep (-1); 
fFlipFlop = !fFlipFlop ; 

GetClientRect (hwnd, &rc); 
hdc = GetDC (hwnd); 

hBrush = CreateSolidBrush (fFlipFlop ? RGB(255,0,0) : RGB(0,0,255)); 

FillRect (hdc, &rc, hBrush); 

ReleaseDC (hwnd, hdc); 

DeleteObj ect (hBrush); 


方法三 

设定计时器的第三种方法类似於第二种方法，只是传递给 SetTimer 的 hwnd 
参数被设定为 NULL ， 并且第二个参数（通常为计时器 ID ) 被忽略了，最後，此 
函式传回计时器 ID : 

iTimerlD = SetTimer ( NULL , 0， wMsecInterval , TimerProc ) : 

如果没有可用的计时器，那么从 SetTimer 传回的 iTimerlD 值将为 NULL 。 

KillTimer 的第一个参数（通常是视窗代号）也必须为 NULL ， 计时器 ID 必 
须是 SetTimer 的传回值： 

KillTimer ( NULL , iTimerlD ) : 

传递给 TimerProc 计时器函式的 hwnd 参数也必须是 NULL 。 这种设定计时器 
的方法很少被使用。如果在您的程式在不同时刻有一系列的 SetTimer 呼叫，而 
又不希望追踪您已经用过了那些计时器 ID ， 那么使用此方法是很方便的。 

既然您已经知道了如何使用 Windows 计时器，就可以开始讨论一些有用的 
计时器程式了。 
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计时器用於时钟 

时钟是计时器最明显的应用，因此让我们来看看两个时钟， 一 个数位时钟， 
一 个类比时钟。 

建立数位时钟 


程式 8-3 所示的 DIGCL 0 CK 程式，使用类似 Lm ) 的7个显示方块显示了目前 
的时间。 

程式 8-3 DIGCL0CK 


DIGCLOCK.C 

/* - 

DIGCLOCK.C -- Digital Clock 

(c) Charles Petzold, 1998 

V 





♦include <windows.h> 




#define ID TIMER 1 




LRESULT CALLBACK WndProc (HWND, UINT, 

WPARAM, 

LPARAM); 

int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 





PSTR szCmdLine, int iCmdShow) 

\ 

static TCHAR szAppName[] 

=TEXT ("DigClock"); 


HWND 


hwnd 

• 

f 


MSG 

msg 

• 

f 



WNDCLASS 

wndclass ; 



wndclass.style 



=CS_HREDRAW | CS VREDRAW ; 


wndclass.lpfnWndProc 



=WndProc ; 


wndclass.cbClsExtra 



=◦; 


wndclass.cbWndExtra 



=◦; 


wndclass.hlnstance 



=hlnstance ; 


wndclass.hicon 



= Loadlcon (NULL, 

IDI 

APPLICATION); 





wndclass.hCursor 



=LoadCursor (NULL, 工 DC—ARROW); 


wndclass.hbrBackground 


— 

(HBRUSH) GetStockObject 

(WHITE BRUSH); 





wndclass.IpszMenuName 


=NULL ; 


wndclass.IpszClassName 


=szAppName ; 


if (!RegisterClass (&wndclass)) 

s 




MessageBox ( 

NULL, TEXT 

("Program requires Windows NT ! ’’）， 





szAppName, 
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MB_ICONERROR) ; 

return 0 ; 


hwnd = CreateWindow ( szAppName, TEXT ("Digital Clock ’，）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT A 
CW_USEDEFAULT, CW_USEDEFAULT A 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


void DisplayDigit (HDC hdc, int iNumber) 


static BOOL fSevensegment 


◦, 

o. 

1, 

1, 

o, 

1, 

lr 

o. 

1, 

◦, 

1, 

1, 

lr 

1, 

◦, 

1, 

1, 

◦, 

1' 

o. 

1, 


[10] [7]= 

0 , 1 , 

◦ , ◦, 

1 , 1 , 

lr ◦, 

1 , ◦, 

1 , ◦, 


◦, 


◦, 


◦, 


◦, 


◦, 


◦, 


◦, 


static POINT ptSegment [7][6] 



7, 

6, 

11, 

2, 

31, 

2, 

35, 

6, 

31, 

10, 

11, 

10, 

6 ， 

7, 

10, 

11, 

10, 

31, 

6 ， 

35, 

2, 

31, 

2, 

11, 

36, 

lr 

40, 

11, 

40, 

31, 

36, 

35, 

32, 

31, 

32, 

^ 11, 

7 , 

36, 

11, 

32, 

31, 

32, 

35, 

36, 

31, 

40, 

11 

, 40, 

6 , 

37, 

10, 

41, 

10, 

61, 

6, 

65, 

2, 

61, 

2, 

41, 

36, 

37, 

40, 

41, 

40, 

61, 

36, 

65, 

32, 

61, 

32 

, 41, 

7 , 

66, 

11, 

62, 

31, 

62, 

35, 

66, 

31, 

70, 

11 

, 70 }; 


int iSeg ; 

for (iSeg = 0 ; iSeg < 7 ; iSeg++) 


if (fSevenSegment [iNumber][iSeg]) 


// 0 
// 1 
// 2 
// 3 
// 4 
// 5 
// 6 
111 
II 8 


Polygon (hdc, ptSegment [iSeg], 6); 
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void DisplayTwoDigits (HDC hdc, int iNumber, BOOL fSuppress) 

{ 

if ( !fSuppress | | (iNumber / 10 != 0)) 

DisplayDigit (hdc, iNumber / 10); 

OffsetWindowOrgEx (hdc, -42, 0, NULL); 

DisplayDigit (hdc, iNumber % 10); 

Off setWindowOrgEx (hdc, -42, ◦, NULL); 

} 

void DisplayColon (HDC hdc) 

{ 

POINT ptColon [2][4] = { 2, 21, 6, 17, 10, 21, 6, 

25, 2, 51, 6, 47, 10, 51, 6, 55 }; 

Polygon (hdc, ptColon [◦], 4); 

Polygon (hdc, ptColon [1], 4); 

Off setWindowOrgEx (hdc, - 12, ◦, NULL); 

} 

void DisplayTime (HDC hdc, BOOL f24Hour, BOOL fSuppress) 

{ 

SYSTEMTIME st ; 

GetLocalTime (&st); 
if (f24Hour) 

DisplayTwoDigits (hdc, st.wHour, fSuppress); 

else 

DisplayTwoDigits (hdc, (st.wHour %= 12) ? st.wHour : 12, fSuppress); 

DisplayColon (hdc); 

DisplayTwoDigits (hdc, st.wMinute, FALSE); 

DisplayColon (hdc); 

DisplayTwoDigits (hdc, st.wSecond, FALSE); 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static BOOL f24Hour, fSuppress ; 

static HBRUSH hBrushRed ; 

static int cxClient, cyClient ; 

HDC hdc ; 

PAINTSTRUCT ps ; 

TCHAR szBuffer [2]; 

switch (message) 

{ 

case WM—CREATE: 

hBrushRed = CreatesolidBrush (RGB (255, 0, 0)); 

SetTimer (hwnd, ID TIMER, 1000, NULL) ;// fall through 
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case WM—SETTINGCHANGE : 

GetLocalelnfo (LOCALE_USER—DEFAULT, LOCALE_ITIME , szBuffer, 2); 
f24Hour = (szBuffer[0] == 1 1 1 ); 

GetLocalelnfo (LOCALE_USER—DEFAULT, LOCALE—ITLZERO, szBuffer, 2); 
fSuppress = (szBuffer[0] == ▼0 , ); 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case WM—SIZE: 

cxClient = LOWORD (IParam); 

cyClient = HIWORD (IParam); 
return 0 ; 

case WM—TIMER: 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

SetMapMode (hdc, MM_ISOTROPIC); 

SetWindowExtEx (hdc, 276, 72, NULL); 

SetViewportExtEx (hdc, cxClient, cyClient, NULL); 

SetWindowOrgEx (hdc, 138, 36, NULL); 

SetViewportOrgEx (hdc, cxClient / 2, cyClient / 2, NULL); 
SelectObj ect (hdc, GetStockObj ect (NULL—PEN)); 

SelectObj ect (hdc, hBrushRed); 

DisplayTime (hdc, f24Hour, fSuppress); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

KillTimer (hwnd, ID_TIMER); 

DeleteObj ect (hBrushRed); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

DIGCLOCK 视窗如图 8-1 所示。 
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图 8-1 DIGCL0CK 的萤幕显示 


虽然，在图 8-1 中您看不到时钟的数字是红色的。 DIGCL 0 CK 的视窗讯息处 
理程式在处理 WM _ CREATE 讯息处理期间建立了一个红色的画刷并在处理 
WM _ DESTROY 讯息处理期间清除它。 WM + CREATE 讯息也为 DIGCL 0 CK 设定了一个一 
秒的计时器，该计时器在处理 WM _ DESTROY 讯息处理期间被终止（待会将讨论对 
GetLocalelnfo 的呼叫）。 


在收到 WM _ TIMER 讯息後， DIGCL 0 CK 的视窗程序呼叫 InvalidateRect 简单 
地使整个视窗无效。这不是最佳方法，因为每秒整个视窗都要被擦除和重画， 
有时会引起显示器的闪烁。依据目前的时间使视窗需要更新的部分无效是最好 
的解决方法。然而，在逻辑上这样做的确很复杂。 

在处理 WM _ TIMER 讯息处理期间使视窗无效会迫使所有程式的真正活动转入 
WM _ PAINT 。 DIGCL 0 CK 在 WM _ PAINT 讯息一开始将映射方式设定为 MM _ IS 0 TR 0 PIC 。 
这样， DIGCL 0 CK 将使用水平方向和垂直方向相等的轴。这些轴（由 
SetWindowExtEx 呼叫设定）是水平276个单位，垂直72个单位。当然，这些轴 
定得有点太随意了，但它们是按照时钟数位元的大小和间距安排的。 

DIGCL 0 CK 将视窗原点设定为（138, 36) ，这是视窗范围的 中心； 将视埠原点 
设定为 （cxClient / 2, cyClient / 2) 。这意味著时钟的显示位於 DIGCL 0 CK 
显示区域的中心，但是该 DIGCL 0 CK 也可以使用在显示幕左上角的原点（0， 0) 
的轴。 

然後 WM _ PAINT 将目前画刷设定为之前建立的红画刷，将目前画笔设定为 
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NULL _ PEN ， 并呼叫 DIGCL 0 CK 中的函式 DisplayTime 。 

取得目前时间 


DisplayTime 函式开始呼叫 Windows 函式 GetLocalTime ， 它带有一'个的 
SYSTEMTIME 结构的参数，在 WINBASE . H 中定 义为： 


typedef struct _SYSTEMTIME 

i 

WORD 

wYear ; 

WORD 

wMonth ; 

WORD 

wDayOfWeek ; 

WORD 

wDay ; 

WORD 

wHour ; 

WORD 

wMinute ; 

WORD 

wSecond ; 

WORD 

wMilliseconds ; 

/ 

SYSTEMTIME, 

* PSYSTEMTIME ; 


很明显， SYSTEMTIME 结构包含日期和时间。月份由1开始递増（也就是说， 
一月是 1) ，星期由0开始递增（星期天是 0) 。 wDay 成员是本月目前的日子， 
也是由1开始递增的。 

SYSTEMTIME 主要用於 GetLocalTime 和 GetSystemTime 函式 。 GetSystemTime 
函式传回目前的世界时间 (Coordinated Universal Time ， UTC ) ，大概与英国 


格林威治时间相同。 GetLocalTime 函式传回当地时间，依据电脑所在的时区。 


这些值的精确度完全决定於使用者所调整的时间精确度以及是否指定了正确的 
时区。可以双击工作列的时间显示来检查电脑上的时区设定。第二十三章会有 
一个程式，能够通过 Internet 精确地设定时间。 


Windows 还有 SetLocalTime 和 SetSystemTime 函式，以及在 /Platform 


SDK/Windows Base Services/General Library/Time 中说明的其他与时间有关 
的函式。 


显示数字和冒号 

如果 DIGCL 0 CK 使用一种模拟7段显示的字体将会简单一些。否则，它就得 
使用 Polygon 函式做所有的工作。 

DIGCL 0 CK 中的 DisplayDigit 函式定义了两个阵列。 fSevenSegment 阵列有 
7个 B 00 L 值，用於从0到9的每个十进位数字。这些值指出了哪一段需要显示 
(为 1) ，哪一段不需要显示（为 0) 。在这个阵列中，7段由上到下、由左到 
右排序。7段中的每个段都是一个6边的多边形。 ptSegment 阵列是一个 POINT 
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结构的阵列，指出了 7个段中每个点的图形座标。每个数字由下列程式码 画出: 

for (iSeg = 0 ; iSeg < 7 ; iSeg++) 

if ( fSevenSegment [iNumber][iSeg]) 

Polygon (hdc, ptSegment [iSeg] , 6); 

类似地（但更简单）， DisplayColon 函式在小时与分钟、分钟与秒之间画一 
个冒号。数字是42个单位宽，冒号是12个单位宽，因此6个数字与2个冒号， 
总宽度是276个单位， SetWindowExtEx 呼叫中使用了这个大小。 

回到 DisplayTime 函式，原点位於最左数字位置的左上角。 DisplayTime 呼 
叫 DisplayTwoDigits , DisplayTwoDigits 呼叫 DisplayDigit 两次，并且在每 
次呼叫 OffsetWindowOrgEx 後，将视窗原点向右移动42个单位。类似地， 
DisplayColon 函式在画完冒号後，将视窗原点向右移动12个单位。用这种方法， 
不管物件出现在视窗内的哪个地方，函式对数字和冒号都使用同样的座标。 

这个程式的其他技巧是以12小时或24小时的格式显示时间以及当最左边 
的小时数字为0时不显示它。 


国际化 


尽管像 DIGCL 0 CK 这样显示时间是非常简单的，但是要显示复杂的日期和时 
间还是要依赖 Windows 的国际化支援。格式化日期和时间的最简单的方法是呼 
叫 GetDateFormat 和 GetTimeFormat 函式。这些函式在 /Platform SDK/Windows 
Base Services/General Library/String Manipulation/String Manipulation 
Reference/String Manipulation Functions 中有记载，但是它们在 /Platform 
SDK/Windows Base Services/International Features/National Language 
Support 中进行了说明。这些函式接受 SYSTEMTIME 结构并且依据使用者在「控 
制台」的「区域设定」程式中所做的选择而将日期和时间格式化。 

DIGCL 0 CK 不能使用 GetDateFormat 函式，因为它只知道显示数字和冒号， 
然而， DIGCL 0 CK 应该能够根据使用者的参数选择来显示12小时或24小时的格 
式，并禁止（或不禁止）开头的小时数字。您可以从 GetLocalelnfo 函式中取 
得这种资讯。虽然 GetLocalelnfo 在 /Platform SDK/Windows Base 
Services/General Library/String Manipulation/String Manipulation 
Reference/String Manipulation Functions 中有记载，但是这个函式使用的识 
别 字在 /Platform SDK/Windows Base Services/International 

Features/National Language Support/National Language Support Constants 

中有说明。 

DIGCLOCK 在处理 WM _ CREATE 讯息时，最初呼叫 GetLocalelnfo 两次，第一 
次使用 LOCALE _ ITIME 识别字（确定使用的是12小时还是24小时格式），然後 
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使用 L 0 CALE _ ITLZER 0 识别字（在小时显示中禁止前面显示 0 ) 。 GetLocalelnfo 

函式在字串中传回所有的资讯，但是在大多数情况下把字串转变为整数并不是 
非常容易。 DIGCL 0 CK 把字串储存在两个静态变数中并把它们传递给 DisplayTime 

函式。 

如果使用者更改了任何系统设定，则会将 WM _ SETTINGCHANGE 讯息传送给所 
有的应用程式。 DIGCL 0 CK 通过再次呼叫 GetLocalelnfo 处理这个讯息。以这种 

方式，您可以在「控制台」的「区域设定」程式中进行不同的设定来实验一下。 

在理论上， DIGCL 0 CK 也应该使用 L 0 CALE _ STIME 识别字呼叫 GetLocalelnfo 。 
这会传回使用者为时间的小时、分钟和秒等单个部分选择的字元。因为 DIGCL 0 CK 
被设定为仅显示冒号，所以不管选择了什么，都会得到冒号。要指出时间是 A . M . 
或 P . M .， 应用程式可以使用带有 L 0 CALE _ S 1159 和 L 0 CALE _ S 2359 识别字的 
GetLocalelnfo 函式。这些识别字使程式获得适合於使用者国家/地区和语言的 
字串。 

我们也可以让 DIGCL 0 CK 处理 WM _ TIMECHANGE 讯息，这样它将系统时间与日 
期发生变化的讯息通知应用程式。 DIGCL 0 CK 因 WM _ TIMER 讯息而每秒更新一次， 
实际上没有必要这样作，对 WM _ TIMECHANGE 讯息的处理使得每分钟更新一次的 
时钟变得更为合理。 

建立类比时钟 

类比时钟不必关心国际化问题，但是由於图形所引起的复杂性却抵消了这 
种简化。为了正确地产生时钟，您需要知道一些三角函数。 CLOCK 如程式 8-4 所 

/Jn o 


程式 8-4 CLOCK 


CLOCK.C 

/* - 




CLOCK.C -- Analog 

Clock Program 

(c) Charles 

Petzold, 1998 

女 

/ 




♦include <windows.h> 

♦include <math.h> 




#define ID TIMER 

♦define TWOPI 

1 

(2 * 3.14159) 



LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain ( HINSTANCE hlnstance, HINSTANCE hPrevInstance, 
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iCmdShow) 


PSTR szCmdLine, int 


static TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName[] = TEXT ("Clock"); 

hwnd; 

msg; 

wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
(WHITE_BRUSH); 

wndclass.IpszMenuName 
wndclass.IpszClassName 

if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, 

MB_ICONERROR); 

return 0 ; 


=CS_HREDRAW | CS—VREDRAW ; 
WndProc ; 

0 ; 

0 ; 

hlnstance ; 

NULL ; 

LoadCursor (NULL, IDC—ARROW); 

(HBRUSH) GetStockObject 

NULL ; 
szAppName ; 


("Program requires Windows NT! n ), 

szAppName, 


("Analog Clock ’，）， 


hwnd = CreateWindow ( szAppName A TEXT 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT, 
CW—USEDEFAULT, CW_USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 


TEXT 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

return msg.wParam ; 


void Setlsotropic (HDC hdc, int cxClient, int cyClient) 

{ 

SetMapMode (hdc, MM_ISOTROPIC); 

SetWindowExtEx (hdc, 1000, 1000, NULL); 
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SetViewportExtEx (hdc, cxClient / 2, -cyClient / 2, NULL) ; 
SetViewportOrgEx (hdc, cxClient / 2, cyClient / 2, NULL); 

} 

void RotatePoint (POINT pt[], int iNum, int iAngle) 

{ 

int i ; 

POINT ptTemp ; 

for (i = ◦ ; i < iNum ; i++) 

{ 

ptTemp.x = (int) (pt [i] .x * cos (TWOPI * iAngle / 3 60) + 

pt[i].y * sin (TWOPI * iAngle / 360)); 

ptTemp.y = (int) (pt[i].y * cos (TWOPI * iAngle / 360) - 

pt[i].x * sin (TWOPI * iAngle / 360)); 

pt[i] = ptTemp ; 


void DrawClock (HDC hdc) 

{ 

int iAngle ; 

POINT pt [3]; 

for (iAngle = 0 ; iAngle < 360 ; iAngle += 6) 

{ 

pt [ 0] •x = 0 ; 

pt [ 0] . y = 900 ; 

RotatePoint (pt, 1, iAngle); 

pt [ 2 ] . x = pt[2] .y = iAngle % 5 ? 33 : 100 ; 

pt [ 0] . x - = pt[2] .x / 2 ; 

pt [0] .y - = pt [2] .y / 2 ; 

pt[1].x = pt[0].x + pt[2].x ; 

Pt[1] .y = pt[0 ] •y + pt[2] •y ; 

SelectObj ect (hdc, GetStockObj ect (BLACK_BRUSH)); 
Ellipse (hdc, pt[0].x, pt[0].y, pt[l].x, pt[1].y); 


void DrawHands (HDC hdc, SYSTEMTIME * pst, BOOL fChange) 

{ 
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static 


int 


POINT pt[3][5] ={◦, 

0 , - 200 , 

0 , 0 , 0 , 

■ 


-150, 100, 0, 0, 600, -100, 0, 
50, 0, 0, 800, -50, 0, 0, 

0 , 0 , 0 , 0 , 0 , 0 , 8 0 0 }; 

iAngle[3]; 


0, -150, 

- 200 , 


POINT 


ptTemp[3][5]; 


iAngle[0] 
iAngle[1 ] 
iAngle[2 ] 


=(pst->wHour * 30) % 360 + pst->wMinute 
=pst->wMinute * 6 ; 

=pst->wSecond * 6 ; 


2 ; 


memcpy (ptTemp, pt, sizeof (pt)); 
for (i = fChange ? 0 : 2 ; i < 3 ; i++) 

{ 

RotatePoint (ptTemp[i], 5 , iAngle[i]); 
Polyline (hdc, ptTemp[i], 5); 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, 
IParam) 

{ 

static int cxClient, cyClient ; 

static SYSTEMTIME stPrevious ; 


BOOL 

HDC 

PAINTSTRUCT 

SYSTEMTIME 


fChange ; 
hdc ; 
ps ; 
st ; 


WPARAM wParam,LPARAM 


switch (message) 

{ 

case WM—CREATE : 

SetTimer (hwnd, ID_TIMER, 1000, NULL); 
GetLocalTime (&st); 


stPrevious 

return 0 ; 

=st ; 

w 

WM SIZE : 

cxClient = 

LOWORD 

(IParam) 

cyClient = 

return 0 ; 

HIWORD 

(IParam) 


case WM—TIMER : 

GetLocalTime (&st); 


fChange = st.wHour 


stPrevious.wMinute ; 


=stPrevious.wHour || 
st.wMinute ! 
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hdc = GetDC (hwnd) ; 

Setlsotropic (hdc, cxClient, cyClient); 

SelectObj ect (hdc, GetStockObj ect (WHITE—PEN)); 
DrawHands (hdc, &stPrevious, fChange); 

SelectObj ect (hdc, GetStockObj ect (BLACK_PEN)); 
DrawHands (hdc, &st, TRUE); 

ReleaseDC (hwnd, hdc); 

stPrevious = st ; 
return 0 ; 

case WM—PAINT : 

hdc = BeginPaint (hwnd, &ps); 

Setlsotropic (hdc, cxClient, cyClient); 
DrawClock (hdc); 

DrawHands (hdc, &stPrevious, TRUE); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY : 

KillTimer (hwnd, ID_TIMER); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

CLOCK 萤幕显示如图 8-2 o 
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图 8-2 CLOCK 的萤幕显示 

等方向性 （ isotropic ) 映射对於这样的应用来说是理想的， CLOCK . C 中的 
Setlsotropic 函式负责设定此模式。在呼叫 SetMapMode 之後 ， Setlsotropic 
将视窗范围设定为1000,并将视埠范围设定为显示区域的一半宽度和显示区域 
的负的一半高度。视埠原点被设定为显示区域的中心。我在第五章中讨论过， 
这将建立一个笛卡儿座标系，其点(0,0)位於显示区域的中心，在所有方向上的 
范围都是1000。 

RotatePoint 函式是用到三角函数的地方，此函式的三个参数分别是一个或 
者多个点的阵列、阵列中点的个数以及以度为单位的旋转角度。函式以原点为 
中心按顺时针方向（这对一个时钟正合适）旋转这些点。例如，如果传给函式 
的点是(0, 100) ——即12:00的位置——而角度为90度，那么该点将被变换为 


(100, 0) ——即3:00。它使用下列公式来做到这 一点: 


X 1 

= X * cos 

(a) 

+ y ★ 

sin 

(a) 

y 1 

= y * cos 

(a) 

- x * 

sin 

(a) 


RotatePoint 函式在绘制时钟表面的点和表针时都是有用的，我们将马上看 
到这一点。 


DrawClock 函式绘制60个时钟表面的点，从顶部 （12 : 00) 开始，其中每个点 
离原点900单位，因此第一个点位於(0, 900)，此後的每个点按顺时针依次增加 
6度。这些点中的12个直径为100个 单位； 其余的为33个单位。使用 Ellipse 
函式来画点。 
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DrawHands 函式绘制时钟的时针、分针和秒针。定义表针轮廓（当它们垂直 
向上时的形状）的座标存放在一个 POINT 结构的阵列中。根据时间，这些座标 
使用 RotatePoint 函式进行旋转，并用 Windows 的 Polyline 函式进行显示。注 
意时针和分针只有当传递给 DrawHands 的 bChange 参数为 TRUE 时才被显示。当 
程式更新时钟的表针时，大多数情况下时针和分针不需要重画。 

现在让我们将注意力转到视窗讯息处理程式。在 WM _ CREATE 讯息处理期间， 
视窗讯息处理程式取得目前时间并将它存放在名为 dtPrevious 的变数中，这个 
变数将在以後被用於确定时针或者分针从上次更新以来是否改变过。 

第一次绘制时钟是在第一个 WM _ PAINT 讯息处理期间，这只不过是依次呼叫 
Set Isotropic、DrawClock 和 DrawHands , 後者的 bChange 参数被设定为 TRUE 。 

在 WM _ TIMER 讯息处理期间， WndProc 首先取得新的时间并确定是否需要重 
新绘制时针和分针。如果需要，则使用一个白色画笔和上一次时间绘制所有的 
表针，从而有效地擦除它们。否则，只对秒针使用白色画笔进行擦除，然後， 
再使用一个黑色画笔绘制所有的表针。 

以计时器进行状态报告 


本章的最後一个程式是我在第五章提到过的。它是一个使用 GetPixel 函式 
的好例子。 

WHATCLR (见程式 8-5) 显示了滑鼠游标下目前图素的 RGB 颜色。 


程式 8-5 WHATCLR 


WHATCLR.C 

/* - 

WHATCLR.C -- Displays Color Under Cursor 

(c) Charles Petzold, 1998 


♦include <windows.h> 

#define ID_TIMER 1 

void FindWindowSize (int *, int *); 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("WhatClr n ); 

HWND hwnd ; 


int 

MSG 

WNDCLASS 


cxWindow, cyWindow ; 
msg ; 

wndclass ; 
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wndclass.style 

wndclass.lpfnWndProc 

wndclass.cbClsExtra 

wndclass.cbWndExtra 

wndclass.hlnstance 

wndclass•hicon 

wndclass.hCursor 

wndclass.hbrBackground 

wndclass.IpszMenuName = NULL ; 

wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION) 

=LoadCursor (NULL, IDC—ARROW); 
(HBRUSH) GetStockObject (WHITE—BRUSH) 

s zAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows 

NT! n ), 

szAppName, 

MB_ICONERROR); 

return 0 ; 


FindWindowSize (&cxWindow, &cyWindow); 

hwnd = CreateWindow (szAppName, TEXT ("What Color ”）， 

WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_BORDER, 
CW_USEDEFAULT a CW—USEDEFAULT, 
cxWindow, cyWindow, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

void FindWindowSize (int * pcxWindow, int * pcyWindow) 

{ 

HDC hdcScreen ; 

TEXTMETRIC tm ; 

hdcScreen = CreateIC (TEXT ("DISPLAY"), NULL, NULL, NULL); 
GetTextMetrics (hdcScreen, &tm); 

DeleteDC (hdcScreen); 
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* pcxWindow = 2 * 

GetSystemMetries (SM CXBORDER) + 



12 * tm.tmAveCharWidth ; 



* pcyWindow = 2 * 

GetSystemMetries (SM—CYBORDER) + 


GetSystemMetries (SM CYCAPTION) 

+ 

} 


2 * tm.tmHeight ; 


LRESULT CALLBACK WndProc ( 

IParam) 

f 

HWND hwnd, UINT message. 

WPARAM wParam,LPARAM 


static COLORREF 

cr, crLast ; 



static HDC 

hdcScreen ; 



HDC 

hdc ; 



PAINTSTRUCT 

ps ; 



POINT 

pt ; 



RECT 

rc ; 



TCHAR 

szBuffer [16]; 



switch (message) 

{ 

case WM CREATE : 




hdcScreen 

=CreateDC (TEXT ("DISPLAY ’'） 

, NULL, NULL, NULL); 


SetTimer 

(hwnd, ID TIMER, 100, NULL); 



return 0 

参 

f 



case WM TIMER: 




GetCursorPos (&pt); 

cr = GetPixel (hdcScreen, pt.x, pt.y) 

參 

f 


SetPixel 

(hdcScreen, pt.x, pt.y, 0); 



if (cr != 

； 

crLast) 



i 

crLast = cr ; 



\ 

InvalidateRect (hwnd, NULL, 

FALSE); 


/ 

return 0 

• 

f 



case WM PAINT : 




hdc = BeginPaint (hwnd, &ps); 



GetClientRect (hwnd, &rc); 



wsprintf 

(szBuffer, TEXT (" %02X %02X 

%02X n ). 


GetRValue (cr), GetGValue (cr), GetBValue (cr)); 


DrawText 

(hdc, szBuffer, -1, &rc. 



DT SINGLELINE | DT_CENTER | DT VCENTER); 
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EndPaint 

(hwnd, 

&ps); 


return 0 

参 

r 



case WM DESTROY: 




DeleteDC 

(hdcScreen); 


KillTimer 

(hwnd. 

ID TIMER); 


PostQuitMessage 

(0); 


return 0 

• 

r 


} 

； 

return DefWindowProc 

(hwnd, 

message, wParam, IParam); 


WHATCLR 在 WinMain 中做了一点与以往不同的事。因为 WHATCLR 的视窗只需 
要显示十六进位 RGB 值那么大，所以它在 CreateWindow 函式中使用 WS _ B 0 RDER 
视窗样式建立了一个不能改变大小的视窗。要计算视窗的大小， WHATCLR 通过先 
呼叫 CreateIC 再呼叫 GetSystemMetrics 以取得用於视讯显示的装置内容资讯。 
计算好的视窗宽度和高度值被传递给 CreateWindow 。 

WHATCLR 的视窗讯息处理程式在处理 WM _ CREATE 讯息处理期间，呼叫 
CreateDC 建立了用於整个视讯显示的装置内容。这个装置内容在程式的生命周 
期内都有效。在处理 WM _ TIMER 讯息处理期间，程式取得目前滑鼠游标位置的图 
素。在处理 WM _ PAINT 讯息处理期间显示 RGB 颜色。 

您可能想知道，从 CreateDC 函式中取得的装置内容代号是否能让您在萤幕 
的任意位置显示一些东西，而不光只是取得图素颜色。答案是可以的，一般而 
言，让一个应用程式在另一个程式控制的画面区域上画图是不好的，但在某些 
特殊情况下，这可能会非常有用。 
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第九章子视窗控制项 

回忆第七章的 CHECKER 程式。这些程式显示了矩形网格。当您在一个矩形 
中按下滑鼠按键时，该程式就画一个 x ; 如果您再按一次滑鼠按键，那么 x 就消 
失。虽然这个程式的 CHECKER 1 和 CHECKER 2 版本只使用一个主视窗，但 CHECKER 3 
版本却为每个矩形使用一个子视窗。这些矩形由一个叫做 ChildProc 的独立视 
窗讯息处理程式维护。 

如果有必要，无论矩形是否被选中，都可以给 ChildProc 增加一种向其父 
视窗讯息处理程式 ( WndProc ) 发送讯息的手段。通过呼叫 GetParent , 子视窗讯 
息处理程式能确定其父视窗的视窗 代号： 

hwndParent = GetParent (hwnd); 

其中， hwnd 是子视窗的视窗代号。它可以向其父视窗讯息处理程式发送讯 

息： 

SendMessage (hwndParent , message, wParam, IParam); 

那么 message 应该设定为什么呢？您可以随意地设定，数值大小可以与 
WMJJSER 相同或更大，这些数字代表和预先定义的 WM _ 讯息不冲突的讯息。也 
许对这个讯息，子视窗可以将 wParam 设定为它的子视窗 ID 。 如果在该子视窗单 
击，那么 IParam 可以被设为1;如果未在该子视窗上单击，那么 IParam 将被设 
为0。这是处理方式的一种选择。 

事实上，这是在建立一个「子视窗控制项」。当子视窗的状态改变时，子 
视窗处理滑鼠和键盘讯息并通知父视窗。使用这种方法，子视窗就变成了其父 
视窗的高阶输入装置。它将与自己在萤幕上的图形外观相应的处理，对使用者 
输入的回应以及在发生重要的输入事件时通知另一个视窗的方法给封装起来。 

虽然您可以建立自己的子视窗控制项，但是也可以利用一些预先定义的视 
窗类别（和视窗讯息处理程式）来建立标准的子视窗控制项，您一定在别的 
Windows 程式中看到过这些控制项。这些控制项采用的形 式有： 按钮、核取方块、 
编辑方块、清单方块、下拉式清单方块、字串标签和卷动列。例如，如果想在 
您的试算表程式的某个角落放置一个标有 「 Recalculate 」 的按钮，那么您可以 
通过呼叫 CreateWindow 来建立这个按钮。您不必担心滑鼠操作、按钮显示操作 
或按下该按钮时的自动闪烁操作，这些是由 Windows 内部完成的。您所要做的 
只是拦截 WM _ C 0 MMAND 讯息——当按钮被按下时，它通过这一讯息通知您的视窗 
讯息处理程式。真的这样简单吗？是的，一点也没错。 

子视窗控制项在对话方块中最常用。在第十一章中您将会看到，子视窗控 
制项的位置和尺寸，是在范例程式的资源描述叙述中的对话方块模板里定义的。 
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但是，您也可以使用预先定义的，在普通视窗显示区域里的子视窗控制项。您 
可以呼叫一次 CreateWindow 来建立一个子视窗，并通过呼叫 MoveWindow 来调 
整子视窗的位置和尺寸。父视窗讯息处理程式向子视窗控制项发送讯息，子视 
窗控制项向父视窗讯息处理程式传回讯息。 

在建立普通视窗时，首先定义视窗类别，并使用 RegisterClass 将其注册 
到 Windows 中，然後用 CreateWindow 命令依据该视窗类别建立一个普通视窗， 
从第三章开始，我们就是这么做的。但是，当您使用预先定义的某个控制项时， 
不必为子视窗注册视窗类别，视窗类别已经存在於 Windows 之中，并且有一个 
预先定义的名字。您只需在 CreateWindow 中把它们用作视窗类别参数。 
CreateWindow 中的视窗样式参数准确地定义了子视窗控制项的外形和功能。 
Windows 内建了处理发送给依据这些视窗类别建立的子视窗讯息的视窗讯息处 
理程式。 

直接在您的视窗上使用子视窗控制项完成某些任务，这些任务的层次低於 
在对话方块中使用子视窗控制项所要求的层次。这里，对话方块管理器在您的 
程式和控制项之间增加一个隔离层。值得一提的，您可能会发现在您的视窗上 
建立的子视窗控制项，没有利用 Tab 键或方向键将输入焦点从一个控制项移动 
到另一个控制项的内部功能。子视窗控制项能够获得输入焦点，但是获得後， 
它将不能把输入焦点传回给父视窗。这就是本章要解决的问题。 

Windows 程式设计的文件在两个地方讨论了子视窗控 制项： 首先是，简单的 
常用控制项，我们可以在 /Platform SDK/User Interface Services/Controls 

的文件所描述的无数对话方块中看到。这些子视窗包括按钮（其中包括核取方 
块的单选按钮）、静态控制项（例如文字标签）、编辑方块（您可以在此编辑 
一行或多行文字）、卷动列、清单方块和下拉式清单方块。除下拉式清单方块 
以外，在 Windows 1.0 中就包括了这些控制项。这部分的 Windows 文件还包括 
Rich Text 文字编辑控制项，它与编辑方块相似，但还允许编辑不同字体与样式 
的格式化文字，以及桌面应用工具列。 

相对於「常用控制项」，还有一些神秘的特殊控制项。这些控制项在 
/Platform SDK/User Interface Services/Shell and Common Controls/Common 

Controls 描述。本章不讨论常用控制项，但它们将出现在本书的其他部分。在 
这部分的 Windows 文件中，很容易找到您想从别的 Windows 应用程式中应用到 
您自己的应用程式里头那些部分资讯。 

按钮类别 

下面我们将通过叫做 BTNL 00 K ( rbutton look 」） 的程式来开始介绍按钮 
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视窗类别，如程式 9-1 所示。 BTNL 00 K 建立10个子视窗按钮控制项，每个控制 
项对应一个标准的按钮样式，因此共有10种标准按钮样式。 


程式 9-1 BTNL00K 


BTNLOOK.C 




卜 - 






BTNLOOK.C -- 

Button 

Look 

Program 

/ 




(c) Charles Petzold, 1998 

* 

/ 

♦include <windows.h> 




struct 





int 

iStyle 

• 

r 



TCHAR * 

szText 

• 

r 


] 

button[]= 





BS—PUSHBUTTON, 


TEXT 

("PUSHBUTTON"), 


BS DEFPUSHBUTTON, 


TEXT 

("DEFPUSHBUTTON"), 


BS—CHECKBOX, 


TEXT 

("CHECKBOX"), 


BS AUTOCHECKBOX, 


TEXT 

("AUTOCHECKBOX"), 


BS RADIOBUTTON, 


TEXT 

("RADIOBUTTON"), 


BS_3STATE, 


TEXT 

( n 3STATE n ), 


BS AUT03STATE, 


TEXT 

( n AUT03STATE"), 


BS—GROUPBOX, 


TEXT 

("GROUPBOX"), 


BS—AUTORADIOBUTTON, 

TEXT 

( n AUTORADIO n ), 

} ； 

BS OWNERDRAW, 

TEXT 

("OWNERDRAW") 

#define NUM (sizeof button / 

sizeof button[0]) 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int 

WINAPI WinMain (HINSTANCE 

hlnstance, HINSTANCE hPrevInstance A 

{ 




PSTR szCmdLine, int iCmdShow) 

I 

static TCHAR 

szAppName[] 

=TEXT ("BtnLook"); 


HWND 



hwnd ; 


MSG 



msg ; 


WNDCLASS 

wndclass ; 


wndclass.style 



=CS_HREDRAW | CS VREDRAW ; 


wndclass.lpfnWndProc 


=WndProc ; 


wndclass.cbClsExtra 


=◦; 


wndclass.cbWndExtra 


=◦; 


wndclass.hlnstance 


=hlnstance ; 


wndclass.hicon 



= Loadlcon (NULL, 

IDI 

APPLICATION); 
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wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=NULL ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 


MessageBox ( 


NT ! n ), 


MB ICONERROR); 


return 


NULL, TEXT ("This program requires Windows 


szAppName, 


hwnd = CreateWindow ( szAppName, TEXT ("Button Look ’’）， 

WS_OVERLAPPEDWINDOW, 
CW—USEDEFAULT, CW—USEDEFAULT, 
CW_USEDEFAULT, CW_USEDEFAULT A 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 


static HWND 
static RECT 
static TCHAR 


static int 
HDC 

PAINTSTRUCT 

int 


hwndButton[NUM]; 
rect ; 

szTop [ ] = TEXT ("message wParam IParam ’’）， 

szUnd[] = TEXT ("___ n ), 

szFormat[] = TEXT ("%-l6s%04X-%04X %04X-%04X"), 

szBuffer[50]; 

cxChar, cyChar ; 

hdc ; 

ps ; 


switch (message) 

{ 

case WM—CREATE : 

cxChar = LOWORD (GetDialogBaseUnits ()); 
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cyChar = HIWORD (GetDialogBaseUnits ()) ; 


for (i = ◦ ; i < NUM ; i++) 

hwndButton[i] = CreateWindow 

(TEXT("button"),button[i]•szText, 

WS_CHILD I WS—VISIBLE | button [i] .iStyle, 
cxChar, cyChar * (1 + 2 * i), 

20 * cxChar, 7 * cyChar / 4, 

hwnd, (HMENU) i, 

((LPCREATESTRUCT) IParam)->hlnstance, NULL); 
return 0 ; 

case WM—SIZE : 

rect.left =24 ^ cxChar ; 

rect.top = 2 * cyChar ; 

rect.right = LOWORD (IParam); 

rect.bottom = HIWORD (IParam); 

return 0 ; 
case WM—PAINT : 

工 nvalidateRect (hwnd, &rect, TRUE); 
hdc = BeginPaint (hwnd, &ps); 

SelectObject (hdc, GetStockObject (SYSTEM—FIXED—FONT)); 
SetBkMode (hdc, TRANSPARENT); 

TextOut (hdc, 24 * cxChar, cyChar, szTop, lstrlen (szTop)); 
TextOut (hdc, 24 * cxChar, cyChar, szUnd, lstrlen (szUnd)); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DRAWITEM : 
case WM_COMMAND : 

ScrollWindow (hwnd, 0, -cyChar, &rect, &rect); 
hdc = GetDC (hwnd); 

SelectObject (hdc, GetStockObject (SYSTEM FIXED FONT)); 


一 1 ), 


TextOut ( 


TEXT ("WM DRAWITEM") 


hdc, 24 * cxChar, cyChar * (rect.bottom / cyChar 

szBuffer, 

wsprintf (szBuffer, szFormat, 

message == WM_DRAWITEM ? 

TEXT ( n WM—COMMAND ，，）， 

HIWORD (wParam),LOWORD (wParam), 
HIWORD (IParam), LOWORD 


(IParam))); 
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ReleaseDC (hwnd, hdc) ; 

ValidateRect (hwnd, &rect); 
break ; 

case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

单击按钮时，按钮就给父视窗讯息处理程式发送一个 WM_COMMAND 讯息，也 
就是我们所熟悉的 WndProCo BTNL 00 K 的 WndProc 将该讯息的 wParam 参数和 
IParam 参数显示在显示区域的右边，如图 9_1 所示。 

具有 BS_OWNERDRAW 样式的按钮在视窗上显示为一个背景阴影，因为这种样 
式的按钮是由程式来负责绘制的。该按钮表示它需要由包含 IParam 讯息参数的 
WM_DRAWITEM 讯息来绘制，而 IParam 讯息参数是一个指向 DRAWITEMSTRUCT 型态 
结构的指标。在 BTNL 00 K 中，这些讯息也同样被显示。我将在本章的後面更详 
细地讨论这种拥有者绘制 (owner draw ) 按钮。 



图 9-1 BTNL00K 的萤幕显示 

建立子视窗 

BTNL ⑻ K 定义了一个叫做 button 的结构，它包括了按钮视窗样式和描述性 
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字串，它们对应於10个按钮型态，所有按钮视窗样式都以字母 「 BS 」 开头，它 


表示「按钮样式」。10个按钮子视窗是在 WndProc 中处理 WM _ CREATE 讯息的过 
程中使用一个 for 回圈建立的。 CreateWindow 呼叫使用下面这些参数： 


Class name ( 类别名称） 

TEXT ("button") 

Window text ( 视窗文字） 

button[i]. szText 

Window style ( 视窗样式 ) 

WS—CHILD WS—VISIBLE button[i]. iStyle 

x position (x 位置） 

cxChar 

y position (y 位置） 

cyChar * (1 + 2 * i) 

Width ( 宽度 ) 

20 * xChar 

Height ( 高度 ) 

7 * yChar / 4 

Parent window ( 父视窗） 

hwnd 

Child window ID (子视窗 ID) 

(HMENU) i 

Instance handle ( 执行实体代号 ) 

((LPCREATESTRUCT) IParam) -> hlnstance 

Extra parameters ( 附力口参数） 

NULL 


类别名称参数是预先定义的名字。视窗样式使用 WS _ CHILD 、 WS _ VISIBLE 以 
及在 button 结构中定义的10个按钮样式之 一 （ BS _ PUSHBUTT 0 N 、 
BS _ DEFPUSHBUTTON 等等）。视窗文字参数（对於普通视窗来说，它是显示在标 


题列中的文字）将在每个按钮上显示出来。我简单地使用标识按钮样式文字的 x 
位置和 y 位置参数，说明子视窗左上角相对於父视窗显示区域左上角的位置。 
宽度和高度参数规定了每个子视窗的宽度和高度。请注意，我用的是 
GetDialogBaseUnits 函式来获得内定字体字元的宽度和高度。这是对话方块用 
来获得文字尺寸的函式。此函式传回一个32位元的值，其中低字组表示宽度， 
高字组表示高度。由於 GetDialogBaseUnits 传回的值与从 GetTextMetrics 获 
得的值大致上相同，但 GetDialogBaseUnits 有时使用起来会更方便些，而且能 
够与对话方块控制项更好地保持一致。 

对每个子视窗，它的子视窗 ID 参数应该各不相同。在处理来自子视窗的 
WM _ C 0 MMAND 讯息时， ID 帮助您的视窗讯息处理程式识别出相应的子视窗。注意 
子视窗 ID 是作为 CreateWindow 的一个参数传递的，该参数通常用於指定程式 
的功能表，因此子视窗 ID 必须被强制转换为 HMENU 。 

CreateWindow 呼叫的执行实体代号看起来有点奇怪，但是它利用了如下的 
事实，亦即在处理 WM _ CREATE 讯息的过程中， IParam 实际上是指向 CREATESTRUCT 
( 「建立结构」）结构的指标，该结构有一个 hlnstance 成员。所以将 IParam 
转换成指向 CREATESTRUCT 结构的一个指标，并取出 hlnstance 。 

有些 Windows 程式使用名为 hlnst 的整体变数，使视窗讯息处理程式能存 
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取 WinMain 中的执行实体代号。在 WinMain 中，您只需在建立主视窗之前 设定: 

hlnst = hlnstance ; 

在第七章中的 CHECKER 3 程式中，我们曾用 GetWindowLong 取得执行实体代 

号： 

GetWindowLong (hwnd, GWL_HINSTANCE) 

这几种方法都是正确的。 

在呼叫 CreateWindow 之後，我们不必再为这些子视窗做任何事情，由 
Windows 中的按钮视窗讯息处理程式负责维护它们，并处理所有的重画工作 
( BS_OWNERDRAW 样式的按钮例外，它要求程式绘制它，这些将在後面加以讨论）。 
在程式终止时，如果父视窗已经被清除，那么 Windows 将清除这些子视窗。 

子视窗向父视窗发讯息 

当您执行 BTNL 00 K 时，将看到在显示区域的左边会显示出不同的按钮型态。 

我在前面已经提到过，用滑鼠单击按钮时，子视窗控制项就向其父视窗发送一 
个 WM_COMMAND 讯息。 BTNL 00 K 拦截 WM_COMMAND 讯息并显示 wParam 和 IParam 的 

值，它们的含义如下： 


L0W0RD (wParam) 

子视窗 ID 

HIWORD (wParam) 

通知码 

IParam 

子视窗代号 


如果您正在移植16位元 Windows 程式，那么要注意改变这些讯息参数以容 
纳32位元的代号。 

子视窗 ID 是在建立子视窗时传递给 CreateWindow 的值。在 BTNL 00 K 中， 
这些 ID 被显示在显示区域中，并使用0到9分别标识10个按钮。子视窗代号 
是 Windows 从 CreateWindow 传回的值。 

通知码更详细表示了讯息的含义。按钮通知码的可能值在 Windows 表头档 
案中定义如下： 


表 9-1 


按钮通知码识别字 

值 

BN_CLICKED 

0 

BN—PAINT 

1 

BN_HILITE or BN_PUSHED 

2 

BNJJNHILITE or BNJJNPUSHED 

3 

BN—DISABLE 

4 

BN_DOUBLECLICKED or BN_DBLCLK 

5 
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BN_SETFOCUS 

6 

BNJQLLFOCUS 

7 


实际上，您不会看到这些按钮值中的大多数。从1到4的通知码是用於一 
种叫做 BSJJSERBUTTON 的已不再使用的按钮的（它已经由 BS _ OWNERDRAW 和另一 
种不同的通知方式所替换）。通知码6到7只有当按钮样式包括标识 BS _ N 0 TIFY 
才发送。通知码5只对 BS _ RADI 0 BUTT 0 N 、 BS _ AUT 0 RADI 0 BUTT 0 N 和 BS_OWNERDRAW 
按钮发送，或者当按钮样式中包括 BS _ N 0 HFY 时，也为其他按钮发送。 

您会注意到，在用滑鼠单击按钮时，该按钮文字的周围会有虚线。这表示 
该按钮拥有了输入焦点，所有键盘输入都将传送给子视窗按钮控制项，而不是 
传送给主视窗。但是，当该按钮控制项拥有输入焦点时，它将忽略所有的键盘 
输入，除了 Spacebar 键例外，此时 Spacebar 键与滑鼠具有相同的效果。 

父视窗向子视窗发送讯息 

虽然 BTNL 00 K 中没有显示这一事实，但是父视窗讯息处理程式也能向子视 
窗控制项发送讯息。这些讯息包括以字首 WM 开头的许多讯息。另外，在 WINUSER.H 
中还定义了 8个按钮说明 讯息； 字首 BM 表示「按钮讯息」。这些按钮讯息如下 
表所示： 


表 9-2 


按钮讯息 

值 

BM_GETCHECK 

OxOOFO 

BM_SETCHECK 

OxOOFl 

BM—GETSTATE 

0x00F2 

BM_SETSTATE 

0x00F3 

BM_SETSTYLE 

0x00F4 

BM—CLICK 

0x00F5 

BM—GETIMAGE 

0x00F6 

BM—SETIMAGE 

0x00F7 


BM _ GETCHECK 和 BM _ SETCHECK 讯息由父视窗发送给子视窗控制项，以取得或 
者设定核取方块和单选按钮的选中标记。 BM _ GETSTATE 和 BM _ SETSTATE 讯息表示 
按钮处於正常状态还是（滑鼠或 Spacebar 键按下时的）「按下」状态。我们将 
在讨论按钮的每种型态时，看到这些讯息是如何起作用的。 BM _ SETSTYLE 讯息允 
许您在按钮建立之後改变按钮样式。 

每个子视窗控制项都具有一个在其兄弟中唯一的视窗代号和 ID 值。对於代 
号和 ID 这两者，知道其中的一个您就可以获得另一个。如果您知道子视窗控制 
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项的视窗代号，那么您可以用下面的叙述来获得 ID : 

id = GetWindowLong (hwndChild, GWL_ID); 

第七章的 CHECKER 3 程式曾用此函式（与 SetWindowLong —起）来维护注册 
视窗类别时保留的特殊区域的资料。在建立子视窗时， Windows 保留了 GWL_ID 
识别字存取的资料。您也可以 使用： 

id = GetDlgCtrllD (hwndChild); 

虽然函式中的 「 Dig 」 部分指的是对话方块，但实际上这是一个通用的函式。 
知道 ID 和父视窗代号，您就能获得子视窗 代号： 

hwndChild = GetDlgltem (hwndParent , id); 


按键 

在 BTNLOOK 中显示的前两个按钮是「压入」按钮。按钮是一个矩形，包括 
了 CreateWindow 呼叫中视窗文字参数所指定的文字。该矩形占用了在 
CreateWindow 或者 MoveWindow 呼叫中给出的全部高度和宽度，而文字在矩形的 
中心。 

按键控制项主要用来触发一个立即回应的动作，而不保留任何形式的开/关 
指示。两种型态的按钮控制项有两种视窗样式，分别叫做 BS _ PUSHBUTTON 和 
BS _ DEFPUSHBUTTON ， BS _ DEFPUSHBUTTON 中的 「 DEF 」 代表「内定」。当用来设计 
对话方块时， BS _ PUSHBUTTON 控制项和 BS _ DEFPUSHBUTTON 控制项的作用不同。 
但是当用作子视窗控制项时，两种型态的按钮作用相同，尽管 BS_DEFPUSHBUTTON 
的边框要粗一些。 

当按钮的高度为文字字元高度的7/4倍时，按钮的外观看起来最好，其中 
文字字元由 BTNLOOK 使用； 而按钮的宽度至少调节到文字的宽度再加上两个字 
元的宽度。 

当滑鼠游标在按钮中时，按下滑鼠按键将使按钮用三维阴影重画自己，就 
好像真的被按下一样。放开滑鼠按键时，就恢复按钮的原貌，并向父视窗发送 
一个 WM _ COMMAND 讯息和 BN _ CLICKm ) 通知码。与其他按钮型态相似，当按钮拥 
有输入焦点时，在文字的周围就有虚线，按下及释放 Spacebar 键与按下及释放 
滑鼠按键具有相同的效果。 

您可以通过给视窗发送 BM _ SETSTATE 讯息来模拟按钮闪动。以下的操作将 
导致按钮被 按下： 

SendMessage (hwndButton, BM_SETSTATE A 1, 0); 

下面的呼叫使按钮恢复正常： 

SendMessage (hwndButton, BM_SETSTATE, ◦, 0 ) ; 

hwndButton 视窗代号是从 CreateWindow 呼叫传回的值。 
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您也可以向按键发送 BM _ GETSTATE 讯息，子视窗控制项传回按钮目前的状 
态：如果按钮被按下，则传回 TRUE ； 如果按钮处於正常状态，则传回 FALSEo 
但是，绝大多数应用并不需要这一讯息。因为按钮不保留任何开/关资讯，所以 
BM _ SETCHECK 讯息和 BM _ GETCHECK 讯息不会被用到。 

核取方块 


核取方块是一个文字方块，文字通常出现在核取方块的右边（如果您在建 
立按钮时指定了 BS _ LEFTTEXT 样式，那么文字会出现在 左边； 您也许将用 
BS _ RIGHT 直接调整文字来组合此样式）。核取方块通常用於允许使用者对选项 
进行选择的应用程式中。核取方块的常用功能如同一个开关：单击框一次将显 
示勾选标记，再次单击清除勾选标记。 

核取方块最常用的两种样式是 BS _ CHECKBOX 和 BS _ AUTOCHECKBOX 。在使用 
BS _ CHECKBOX 时，您需要自己向该控制项发送 BM _ SETCHECK 讯息来设定勾选标记。 
wParam 参数设1时设定勾选标记，设0时清除勾选标记。通过向该控制项发送 
BM _ GETCHECK 讯息，您可以得到该核取方块的目前状态。在处理来自控制项的 
WM _ COMMAND 讯息时，您可以用如下的指令来翻转 X 标记： 

SendMessage ((HWND) IParam, BM—SETCHECK, (WPARAM) 

!SendMessage ((HWND) IParam, BM_GETCHECK, 0, ◦), 0); 

注意第二个 SendMessage 呼叫前面的运算子「！」，其中 IParam 是在 
WM _ COMMAND 讯息中传给使用者视窗讯息处理程式的子视窗代号。如果您以後又 
想知道按钮的状态，那么可以向它发送另一条 BM _ GETCHECK 讯息； 您也可以将 
目前状态储存在您的视窗讯息处理程式中的一个静态变数里，或者向它发送 
BM _ SETCHECK 讯息来初始化带勾选标记的 BS _ CHECKBOX 核取 方块： 

SendMessage (hwndButton, BM—SETCHECK, 1, 0); 

对 BS _ AUT 0 CHECKB 0 X 样式，按钮自己触发勾选标记的开和关，所以您的视 
窗讯息处理程式可以忽略 WM _ C 0 MMAND 讯息。当您需要按钮目前的状态时，可以 
向控制项发送 BM _ GETCHECK 讯息： 

iCheck = (int) SendMessage (hwndButton, BM—GETCHECK, ◦, 0); 

如果该按钮被选中，则 iCheck 的值为 TRUE 或者非 零数； 如果按钮末被选 
中，则 iCheck 的值为 FALSE 或0。 

其余两种核取方块样式是 BS _3 STATE 和 BS _ AUT 03 STATE ， 正如它们名字所暗 
示的，这两种样式能显示第三种状态 一一 核取方块内是灰色 一一 它出现在向控 
制项发送 wParam 等於2的 WM _ SETCHECK 讯息时。灰色是向使用者表示此框不能 
被选本章的或者禁止使用。 

核取方块沿矩形的左边框对齐，并集中在呼叫 CreateWindow 时规定的矩形 
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的顶边和底边之间，在该矩形内的任何地方按下滑鼠都会向其父视窗发送一个 
WM _ COMMAND 讯息。核取方块的最小高度是一个字元的高度，最小宽度是文字中 
的字元数加2。 

单选按钮 

单选按钮的名称在一列按钮的後面，这些按钮就像汽车上的收音机一样。 
汽车收音机上的每一个按钮都对应一种收音状态，而且一次只能有一个按钮被 
按下。在对话方块中，单选按钮组常常用来表示相互排斥的选项。与核取方块 
不同，单选按钮的工作与开关不一样，也就是说，当第二次按单选按钮时，它 
的状态会保持不变。 

单选按钮的形状是一个圆圈，而不是方框，除此之外，它非常像核取方块。 
圆圈内的加重圆点表示该单选按钮已经被选中。单选按钮有视窗样式 
BS _ RADI 0 BUTT 0 N 或 BS _ AUT 0 RADI 0 BUTT 0 N 两种，但是後者只用於对话方块。 

当您收到来自单选按钮的 WM _ COMMAND 讯息时，应该向它发送 wParam 等於1 
的 BM _ SETCHECK 讯息来显示其选中 状态： 

SendMessage (hwndButton, BM_SETCHECK, 1, 0); 

对同组中的其他所有单选按钮，您可以通过向它们发送 wParam 等於0的 
BM _ SETCHECK 讯息来显示其未选中 状态： 

SendMessage (hwndButton, BM SETCHECK, ◦, 0); 


分组方块 

分组方块即样式为 BS _ GR 0 UPB 0 X 的选择框，它是按钮类中的特例，既不处 
理滑鼠输入和键盘输入，也不向其父视窗发送 WM _ C 0 MMAND 讯息。分组方块是一 
个矩形框，分组方块标题在其顶部显示。分组方块常用来包含其他的按钮控制 
项。 


改变按钮文字 

您可以通过 SetWindowText 来改变按钮（或者其他任何视窗）内的 文字： 

SetWindowText (hwnd, pszString); 

其中 hwnd 是欲改变视窗的代号， pszString 是一个指向以 null 为终结的字 
串指标。对於一般的视窗来说，这个文字是标题列的 文字； 对於按钮控制项来 
说，它是随著该按钮显示的文字。 

您也可以取得视窗目前的 文字： 

iLength = GetWindowText (hwnd, pszBuffer, iMaxLength); 

iMaxLength 指定复制到 pszBuffer 指向的缓冲区中的最大字元数。该函式 
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传回复制的字元数。您可以首先通过下面的呼叫来获得特定文字的长度: 

iLength = GetWindowTextLength (hwnd); 


可见的和启用的按钮 

为了接收滑鼠和键盘输入，子视窗必须是可见的（被显示）和被启用的。 
当视窗是可见的而未被启用时，那么视窗将以灰色而非黑色显示文字。 

如果在建立子视窗时，您没有将 WS _ VISIBLE 包含在视窗类别中，那么直到 
呼叫 ShowWindow 时子视窗才会被显示出来： 

ShowWindow (hwndChild, SW—SHOWNORMAL); 

如果您将 WS _ VISIBLE 包含在视窗类别中，就没有必要呼叫 ShowWindow 。 但 
是，您可以通过呼叫 ShowWindow 将子视窗隐藏起来： 

ShowWindow (hwndChild, SW—HIDE) ; 

您可以通过下面的呼叫来确定子视窗是否 可见： 

IsWindowVisible (hwndChild) ; 

您也可以使子视窗被启用或者不被启用。在内定情况下，视窗是被启用的。 
您可以通过下面的呼叫使视窗不被 启用： 

EnableWindow (hwndChild, FALSE); 

对於按钮控制项，这具有使按钮字串变成灰色的作用。按钮将不再对滑鼠 
输入和键盘输入做出回应，这是表示按钮选项目前不可用的最好方法。 

您可以通过下面的呼叫使子视窗再次被 启用： 

EnableWindow (hwndChild, TRUE); 

您还可以使用下面的呼叫来确定子视窗是否被 启用： 

IsWindowEnabled (hwndChild) ; 


按钮和输入焦点 

我在本章前面已经提到过，当用滑鼠单击按钮、核取方块、单选框和拥有 
者绘制按钮时，它们接收到输入焦点。这些控制项使用文字周围的虚线来表示 
它拥有了输入焦点。当子视窗控制项得到输入焦点时，其父视窗就失去了输入 
焦点； 所有的键盘输入都进入子视窗控制项，而不会进入父视窗中。但是，子 
视窗控制项只对 Spacebar 键作出回应，此时 Spacebar 键的作用就如同滑鼠按 
键一样。这种情形导致了一个明显的 问题： 您的程式失去了对键盘处理的控制 
项。让我们看看我们对此能做一些什么。 

我在第六章中已经提到过，当 Windows 将输入焦点从一个视窗（例如一个 
父视窗）转换到另一个视窗（例如一个子视窗控制项）时，它首先给正在失去 
输入焦点的视窗发送一个 WM _ KILLFOCUS 讯息， wParam 参数是接收输入焦点的视 
窗的代号。然後， Windows 向正在接收输入焦点的视窗发送一个 WM _ SETFOCUS 讯 
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息，同时 wParam 是还在失去输入焦点的视窗的代号（在这两种情况中 ， wParam 
值可能为 NULL ， 它表示没有视窗拥有或者正在接收输入焦点）。 


通过处理 WM _ KILLFOCUS 讯息，父视窗可以阻止子视窗控制项获得输入焦点。 
假定阵列 hwndChild 包含了所有子视窗的视窗代号(它们是在呼叫 CreateWindow 
来建立视窗的时候储存到阵列中的）。 NUM 是子视窗的 数目： 


case WM KILLFOCUS : 



for ( i = ◦ ; 

i < NUM ; i++) 


: 

if (hwndChild 

[i] == (HWND) wParam) 

i 

SetFocus 

(hwnd); 

} 

return 0 ; 

break ; 



在这段程式码中，当父视窗获知它正在失去输入焦点，而让它的某个子视 


窗得到输入焦点时，它将呼叫 SetFocus 来重新取得输入焦点。 

下面是可达到相同目的、但更为简单（但不太直观）的 方法： 

case WM—KILLFOCUS : 

if (hwnd == GetParent ((HWND) wParam)) 

SetFocus (hwnd); 

return 0 ; 

但是，这两种方法都有 缺点： 它们阻止按钮对 Spacebar 键作出回应，因为 
该按钮总是得不到输入焦点。一个更好的方法是使按钮得到输入焦点，也能让 
使用者用 Tab 键从一个按钮转移到另一个按钮。这听起来似乎不太可能，在本 
章的後面，我们将要说明在 COLORS 1程式中如何用「视窗子类别化」技术来实 
作这种方法。 

控制项与颜色 

您可以在图 9-1 中看到，许多按钮的显示看起来并不正确。按键还好，但 
是其他按钮却带有一个本不应该在那里的一个矩形灰色背景。这是因为这些按 
钮本来是为对话方块中的显示而设计的，而在 Windows 98中，对话方块有一个 
灰色的表面。我们的视窗有一个白色的表面，这是因为我们在 WNDCLASS 结构中 
就是这样定义的。 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

我们已经这么做了，因为我们经常在显示区域中显示文字，而 GDI 使用在 
内定装置内容中定义的文字颜色和背景颜色，它们总是黑色和白色。为了使这 
些按钮更加美观一些，我们必须要改变显示区域的颜色使之和按钮的背景颜色 
一致，所以要以某种方法将按钮的背景颜色改为白色。 

解决此问题的第一步，是理解 Windows 对「系统颜色」的使用。 
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系统颜色 

Windows 保留了 29种系统颜色以供各种显示使用。您可以使用 GetSysColor 
和 SetSysColors 来获得和设定这些颜色。在 Windows 表头档案中定义的识别字 
规定了系统颜色。使用 SetSysColors 设定的系统颜色只在目前 Windows 对话过 
程中有效。 

借助 Windows 「控制台」程式的「显示器」部分，您可以改变一些（但不是 
全部）系统颜色。若是 Microsoft Windows NT , 选中的颜色会储存在系统登录 
中; 若是 Microsoft Windows 98,则储存在 WIN . INI 档案中。系统登录和 WIN . INI 
档案都为这29种系统颜色使用了关键字（与 GetSysColor 和 SetSysColors 的 
识别字不同），在系统颜色的後面跟著红、绿、蓝三种颜色的值，该值的变化 
范围是0到255。下表说明了这29种系统颜色是如何在 GetSysColor , 
SetSysColors 以及 WIN . INI 关键字中用常数来标识的。这张表是按照 C 0 L 0 R _ 常 
数值（从0开始到28结束）顺序排 列的： 


表 9-3 


GetSysColor 和 SetSysColors 

系统登录键或 WIN. INI 识别字 

内定的 RGB 值 

COLOR—SCROLLBAR 

Scrollbar 

co-co-co 

COLOR—BACKGROUND 

Background 

00-80-80 

COLOR—ACTIVECAPTION 

ActiveTitle 

00-00-80 

COLOR—INACTIVECAPTION 

InactiveTitle 

80-80-80 

COLOR—MENU 

Menu 

co-co-co 

COLOR—WINDOW 

Window 

FF-FF-FF 

COLOR—WINDOWFRAME 

WindowFrame 

oo-oo-oo 

C0L0R_MENUTEXT 

MenuText 

co-co-co 

C0L0R_WIND0WTEXT 

WindowText 

oo-oo-oo 

COLOR—CAPTIONTEXT 

TitleText 

FF-FF-FF 

COLOR—ACTIVEBORDER 

ActiveBorder 

co-co-co 

COLOR—INACTIVEBORDER 

InactiveBorder 

co-co-co 

C0L0R_APPW0RKSPACE 

AppWorkspace 

80-80-80 

COLOR—HIGHLIGHT 

Highlight 

00-00-80 

COLOR—HIGHLIGHTTEXT 

HighlightText 

FF-FF-FF 

COLOR—BTNFACE 

ButtonFace 

co-co-co 

COLOR—BTNSHADOW 

ButtonShadow 

80-80-80 

C0L0R_GRAYTEXT 

GrayText 

80-80-80 

COLOR—BTNTEXT 

ButtonText 

oo-oo-oo 
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COLOR—INACTIVECAPTIONTEXT 

InactiveTitleText 

co-co-co 

COLOR—BTNHIGHLIGHT 

ButtonHighlight 

FF-FF-FF 

COLOR—3DDKSHAD0W 

ButtonDkShadow 

oo-oo-oo 

COLOR—3DLIGHT 

ButtonLight 

co-co-co 

COLOR—INFOTEXT 

InfoText 

oo-oo-oo 

COLOR—INFOBK 

InfoWindow 

FF-FF-FF 

[no identifier; use value 25] 

ButtonAlternateFace 

B8-B4-B8 

COLOR—HOTLIGHT 

HotTrackingColor 

00-00-FF 

COLOR—GRADIENTACTIVECAPTION 

GradientActiveTitle 

00-00-80 

COLOR—GRADIENTINACTIVECAPTION 

GradientlnactiveTitle 

80-80-80 


这29种颜色的预设值是由显示驱动程式提供的，在不同的机器上可能略有 
不同。 


坏 消息： 虽然这些颜色中有许多似乎都可以从颜色常数名称上了解其代表 
意义（例如， C 0 L 0 R _ BACKGR 0 UND 是所有视窗後面的桌面区域颜色），在最近版 
本的 Windows 中系统颜色的使用变得非常混乱。以前， Windows 在视觉上要比今 
天简单得多。实际上，在 Windows 3.0 以前，只定义了前13种系统颜色。但随 
著使用看起来越来越难以控制的立体外观，相对应地也需要更多的系统颜色。 


按钮颜色 

对需要多种颜色的每一个按钮来说，这个问题更加地明显。⑶ L 0 R_BTNFACE 
被用於按键主要的表面颜色，以及其他按钮主要的背景颜色（这也是用於对话 
方块和讯息方块的系统颜色）。⑶ L 0 R _ BTNSHAD 0 W 被建议用作按键右下边、以及 
核取方块内部和单选按钮圆点的阴影。对於按键， C 0 L 0 R _ BTNTE )( T 被用作文字颜 
色； 而对於其他的按钮，则使用⑶ L 0 R _ WIND 0 WTEXT 作为文字颜色。还有其他几 
种系统颜色用於按钮设计的各个部分。 

因此，如果您想在我们的显示区域表面显示按钮，那么一种避免颜色冲突 
的方法便是屈服於这些系统颜色。首先，在定义视窗类别时使用⑶ L 0 R_BTNFACE 
作为您显示区域的背景 颜色： 

wndclass.hbrBackground = ( HBRUSH ) ( COLOR—BTNFACE + 1) ; 

您可以在 BTNL 00 K 程式中尝试这种方法。当 WNDCLASS 结构中的 
hbrBackground 值是这个值时， Windows 会明白这实际上指的是一种系统颜色而 
非一个实际的代号。 Windows 要求当您在 WNDCLASS 结构的 hbrBackground 栏中 
指定这些识别字时加上1，这样做的目的是防止其值为 NULL , 而没有任何其他 
目的。如果您的在程式执行过程中，系统颜色恰好发生了变化，那么显示区域 
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将变得无效，而 Windows 将使用新的 C 0 L 0 R_BTNFACE 值。但是现在我们又引发 
了另一个问题。当您使用 TextOut 显示文字时， Windows 使用的是在装置内容中 
为背景颜色（它擦除文字後的背景）和文字颜色定义的值，其预设值为白色（背 
景）和黑色（文字），而不管系统颜色和视窗类别结构中的 hbrBackground 栏 
位为何值。所以，您需要使用 SetTextColor 和 SetBkColor 将文字和文字背景 
的颜色改变为系统颜色。您可以在获得装置内容代号之後这 么做： 

SetBkColor (hdc, GetSysColor (COLOR—BTNFACE)); 

SetTextColor (hdc, GetSysColor (COLOR—WINDOWTEXT)); 

这样，显示区域背景、文字背景和文字的颜色都与按钮的颜色一致了。但 
是，如果当您的程式执行时，使用者改变了系统颜色，您可能要改变文字背景 
颜色和文字颜色。这时您可以使用下面的程式码： 

case WM—SYSCOLORCHANGE : 

InvalidateRect (hwnd, NULL, TRUE); 
break ; 


WM-CTLCOLORBTN 讯息 

在这边已经看到了如何将显示区域的颜色和文字颜色调节成按钮的背景颜 
色。我们是否可以将程式中按钮的颜色调节为我们喜欢的颜色呢？理论上没有 
问题，但在实际中请别这样做。用 SetSysColors 来改变按钮的外观可能不是您 
想做的，这会影响目前在 Windows 下执行的所有程式，这也是使用者不太喜欢 
的。 

更好的方法（同样也只是理论上）是处理 WM _ CT 1 X 0 L 0 RBTN 讯息，这是当子 
视窗即将为其显示区域著色时，由按钮控制项发送给其父视窗讯息处理程式的 
一个讯息。父视窗可以利用这个机会来改变子视窗讯息处理程式将用来著色的 
颜色（在 Windows 的16位元版本中， 一 个称为 WM _ CTLC 0 L 0 R 的讯息被用於所有 
的控制项，现在针对每种型态的标准控制项，分别代之以不同的讯息）。 

当父视窗讯息处理程式收到 WM _ CT 1 X 0 L 0 RBTN 讯息时， wParam 讯息参数是按 
钮的装置内容代号， IParam 是按钮的视窗代号。当父视窗讯息处理程式得到这 
个讯息时，按钮控制项已经获得了它的装置内容。当您的视窗讯息处理程式处 
理一个 WM _ CT 1 X 0 L 0 RBTN 讯息时，您必须完成以下三个 动作： 

• 使用 SetTextColor 选择设定一种文字颜色。 

• 使用 SetBkColor 选择设定一种文字背景颜色。 

• 将一个画刷代号传回给子视窗。 

理论上，子视窗使用该画刷来著色背景。当不再需要这个画刷时，您应该 
负责清除它。 
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下面是使用 WM _ CTLC 0 L 0 RBTN 的问题 所在： 只有按键和拥有者绘制按钮才给 
其父视窗发送 WM _ CT 1 X 0 L 0 RBTN ， 而只有拥有者绘制按钮才会回应父视窗讯息处 
理程式对讯息的处理，而使用画刷来著色背景。这基本上是没有意义的，因为 
无论怎样都是由父视窗来负责绘制拥有者绘制按钮。 

在本章後面，我们将说明，在某些情况下，一些类似於 WM _ CT 1 X 0 L 0 RBTN 但 
适用於其他型态控制项的讯息将更为有用。 

拥有者绘制按钮 

如果您想对按钮的所有可见部分实行全面控制，而不想被键盘和滑鼠讯息 
处理所干扰，那么您可以建立 BS _ OWNERDRAW 样式的按钮，如程式 9-2 所展示的 
那样。 


程式 9-2 0WNDRAW 


OWNDRAW.C 

卜 


OWNDRAW.C -- Owner-Draw Button 

Demo Program 

(c) Charles Petzold, 1996 


- ★ / 

♦include <windows.h> 

#define ID—SMALLER 

1 

♦define ID LARGER 

2 

♦define BTN—WIDTH 

( 8 * cxChar) 

#define BTN—HEIGHT 

( 4 * cyChar) 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

HINSTANCE hlnst ; 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

static TCHAR szAppName[] 

=TEXT ("OwnDraw"); 

MSG 

msg ; 

HWND 

hwnd ; 

WNDCLASS 

wndclass ; 

hlnst = hlnstance ; 

wndclass.style 

=CS HREDRAW | CS_VREDRAW ; 

wndclass.lpfnWndProc 

=WndProc ; 

wndclass.cbClsExtra 

=◦; 

wndclass.cbWndExtra 

=◦; 

wndclass.hlnstance 

=hlnstance ; 

wndclass.hicon 

=Loadlcon (NULL, IDI APPLICATION); 

wndclass.hCursor 

=LoadCursor (NULL, 工 DC—ARROW); 
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wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=(HBRUSH) GetStockObject (WHITE_BRUSH); 
=s zAppName ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows 

NT! n ), 

szAppName, 

MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow ( szAppName, TEXT ("Owner-Draw Button Demo ’，）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

return msg.wParam ; 


void Triangle (HDC hdc, POINT pt[]) 

{ 


SelectObj ect (hdc, GetStockObject (BLACK—BRUSH)); 
Polygon (hdc, pt, 3); 

SelectObj ect (hdc, GetStockObject (WHITE BRUSH)); 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 


static HWND 
static int 
int 

LPDRAWITEMSTRUCT pdis ; 

POINT 

RECT 


hwndSmaller, hwndLarger ; 

cxClient, cyClient, cxChar, cyChar ; 
cx, cy ; 

pt[3]; 

rc ; 


switch (message) 
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case WM—CREATE : 

cxChar = LOWORD (GetDialogBaseUnits ()); 
cyChar = HIWORD (GetDialogBaseUnits ()); 


// Create the owner-draw pushbuttons 


hwndSmaller = CreateWindow (TEXT (’’button”），TEXT 
WS_CHILD I WS—VISIBLE | BS_OWNERDRAW, 

◦, ◦, BTN_WIDTH, BTN_HEIGHT, 

hwnd, (HMENU) ID SMALLER, hlnst, NULL); 


n ) , 


hwndLarger = CreateWindow (TEXT (’’button’，），TEXT 
WS_CHILD I WS—VISIBLE | BS_OWNERDRAW, 

◦, ◦, BTN_WIDTH, BTN_HEIGHT, 
hwnd, (HMENU) ID_LARGER, hlnst, NULL); 
return 0 ; 


n ) , 


case WM—SIZE : 

cxClient 

cyClient 


LOWORD (IParam); 

HIWORD (IParam); 

// Move the buttons to the new center 


MoveWindow ( 
BTN WIDTH / 2, 


hwndSmaller, 


cxClient 


2 


3 


-k 


cyClient / 2 - BTN_HEIGHT / 2, 

BTN—WIDTH, BTN—HEIGHT, TRUE); 
MoveWindow ( hwndLarger, cxClient / 2 + BTN—WIDTH 

2,cyClient / 2 - BTN_HEIGHT / 2, 

BTN—WIDTH, BTN_HEIGHT, TRUE); 

return 0 ; 


case WM—COMMAND : 

GetWindowRect (hwnd, &rc); 

// Make the window 10% smaller or larger 

switch (wParam) 

{ 

case ID_SMALLER : 

rc.left 
rc.right 
rc.top 
rc.bottom 
break ; 


+= cxClient / 20 ; 

-=cxClient / 20 ; 

+= cyClient / 20 ; 
—=cyClient / 20 ; 


case ID_LARGER : 

rc.left 


—=cxClient / 20 ; 
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rc.right += cxClient / 20 ; 
rc.top -= cyClient / 20 ; 

rc.bottom += cyClient / 20 ; 
break ; 


MoveWindow ( 

rc.top, TRUE); 

return 0 ; 


hwnd A rc.left, rc.top, rc.right - rc.left, 

rc.bottom - 


case WM—DRAWITEM : 

pdis = (LPDRAWITEMSTRUCT) IParam ; 


// Fill area with white and frame it black 


FillRect (pdis->hDC, &pdis—>rcltem, 

(HBRUSH) GetStockObject (WHITE BRUSH)); 


(BLACK—BRUSH)); 
black triangles 


FrameRect ( pdis->hDC, &pdis->rcltem, 

( HBRUSH) GetStockObject 

/ / Draw inward and outward 

cx = pdis->rcltem.right - pdis->rcltem•left ; 

cy = pdis->rcltem•bottom - pdis->rcltem•top ; 


switch (pdis->CtlID) 

{ 

case ID_SMALLER : 

pt[0] .x = 3 * cx / 8 ; pt[0] .y = 1 * cy / 8 ; 

pt[l] .x = 5 * cx / 8 ; pt[l] .y = 1 * cy / 8 ; 

pt[2] .x = 4 * cx / 8 ; pt[2] .y = 3 * cy / 8 ; 


Triangle (pdis->hDC, pt); 


pt [ ◦ ] • x = 7 * cx / 8 ; 

pt [ 1 ] • x = 7 * cx / 8 ; 

pt [ 2 ] • x = 5 * cx / 8 ; 

Triangle (pdis->hDC, 

pt [ 0 ] • x = 5 * cx / 8 ; 

pt [ 1 ] • x = 3 * cx / 8 ; 

pt [ 2 ] • x = 4 * cx / 8 ; 

Triangle (pdis->hDC, 


pt [ ◦ ] • y = 3 * cy / 8 ; 
pt[l].y=5*cy/8; 
pt [2 ] • y = 4 * cy / 8 ; 

Pt); 

pt [ 0 ] • y = 7 * cy / 8 ; 

pt [1] .y = 7 * cy / 8 ; 

pt [2] • y = 5 * cy / 8 ; 

Pt); 
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pt[0] .x = 1 * cx / 8 ; pt[0] .y = 5 * cy / 8 ; 

pt[l] .x = 1 * cx / 8 ; pt[l] .y = 3 * cy / 8 ; 

pt[2] .x = 3 * cx / 8 ; pt[2] .y = 4 * cy / 8 ; 


Triangle (pdis->hDC, pt); 
break ; 


case ID LARGER : 


pt[ 0 ].x = 

5 

★ cx 

/ 

8 ; 

Pt [0] .y = 

= 3 

* cy 

/ ^ 

^ ； 

pt[1]•x = 

3 

* cx 

/ 

8 ; 

pt[1].y = 

= 3 

* cy 

/ ^ 

^ ； 

pt[ 2 ].x = 

4 

★ cx 

/ 

8 ; 

Pt [2] .y = 

=1 

* cy 

/ ^ 

^ ； 


Triangle (pdis—>hDC, pt); 


pt[0]•x = 

5 

女 

CX 

/ 

8 

參 

f 

Pt[0].y = 

= 5 

'k 

cy 

/ ^ 


pt[1]•x = 

5 

女 

CX 

/ 

8 

參 

f 

Pt[1].y = 

= 3 

女 

cy 

/ ^ 

^ ； 

pt[2]•x = 

7 

女 

CX 

/ 

8 

參 

f 

Pt[2].y = 

= 4 

女 

cy 

/ ^ 

^ ； 

Triangle 

(pdis->hDC, 

Pt) ; 






pt[0].x = 

3 

女 

CX 

/ 

8 

參 

f 

Pt[0].y = 

= 5 

女 

cy 

/ ^ 

^ ； 

pt[1]•x = 

5 

女 

CX 

/ 

8 

參 

f 

Pt[1].y = 

= 5 

女 

cy 

/ ^ 

^ ； 

pt[2].x = 

4 

女 

CX 

/ 

8 

參 

f 

Pt[2].y = 

:1 

女 

cy 

/ ^ 

^ ； 


Triangle (pdis->hDC, pt); 

pt[0].x = 3 * cx / 8 ; pt[0].y = 3 * cy / 8 ; 
pt[l].x = 3 * cx / 8 ; pt[l].y = 5 * cy / 8 ; 
pt[2].x = 1 * cx / 8 ; pt[2].y = 4 * cy / 8 ; 


Triangle (pdis->hDC, pt); 
break ; 


// Invert the rectangle if the button is selected 

if (pdis->itemState & ODS_SELECTED) 

InvertRect (pdis->hDC, &pdis->rcltem); 

// Draw a focus rectangle if the button has the focus 


if (pdis->itemState & ODS_FOCUS) 

{ 

pdis->rcltem• left += cx / 16 ; 
pdis->rcltem. top += cy / 16 ; 
pdis->rcltem•right -= cx / 16 ; 
pdis->rcltem.bottom-= cy / 16 ; 

DrawFocusRect (pdis->hDC, &pdis->rcltem); 
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return 0 ; 

case WM—DESTROY : 

PostQuitMessage (0) ; 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

该程式在其显示区域的中央包含了两个按钮，如图 9-2 所示。左边的按钮 
有四个三角形指向按钮的中央，按下该按钮时，视窗的尺寸将缩小10%。右边 
的按钮有四个向外指的三角形，按下此按钮时，视窗的尺寸将增大10%。 

如果您只需要在按钮中显示图示或点阵图，您可以用 BS _ IC 0 N 或 BS_BITMAP 
样式，并用 BM _ SEHMAGE 讯息设定点阵图。但是，对於 BS _0 WNERDRAW 样式的按 
钮，它允许完全自由地绘制按钮。 



图 9-2 0WNDRAW 的萤幕显示 


在处理 WM _ CREATE 讯息处理期间， 0 WNDRAW 建立了两个 BS _0 WNERDRAW 样式 
的 按钮； 按钮的宽度是系统字体的8倍，高度是系统字体的4倍（在使用预先 
定义好的点阵图绘制按钮时，这些尺寸在 VGA 上建立的按钮为64图素宽64图 
素高，知道这些资料将非常有用）。这些按钮尚未就定位，在处理 WM _ SIZE 讯 
息处理期间，通过呼叫 MoveWindow 函式， 0 WNDRAW 将按钮位置放在显示区域的 
中心。 

按下这些按钮时，它们就会产生 WM + C 0 MMAND 讯息。为了处理这些 WM _ C 0 MMAND 
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讯息， 0 WNDRAW 呼叫 GetWindowRect ， 将整个视窗（不只是显示区域）的位置和 
尺寸存放在 RECT (矩形）结构中，这个位置是相对於蛮幕的。然後，根据按下 
的是左边还是右边的按钮， 0 WNDRAW 调节这个矩形结构的各个栏位值。程式再通 
过呼叫 MoveWindow 来重新确定位置和尺寸。这将产生另一个 WM _ SIZE 讯息，按 
钮被重新定位在显示区域的中央。 

如果这是程式所做的全部处理，那么这完全可以，只不过按钮是不可见的。 
使用 BS _ OWNERDRAW 样式建立的按钮会在需要重新著色的任何时候都向它的父视 
窗发送一个 WM _ DRAWITEM 讯息。这出现在以下几种情 况中： 当按钮被建立时， 
当按钮被按下或被放开时，当按钮得到或者失去输入焦点时，以及当按钮需要 
重新著色的任何时候。 

在处理 WM _ DRAWITEM 讯息处理期间， IParam 讯息参数是指向型态 
DRAWITEMSTRUCT 结构的指标， 0 WNDRAW 程式将这个指标储存在 pdis 变数中，这 
个结构包含了画该按钮时程式所必需的讯息（这个结构也可以让自绘清单方块 
和功能表使用）。对按钮而言非常重要的结构栏位有 hDC (按钮的装置内容）、 
rcltem (提供按钮尺寸的 RECT 结构 ）、 CtllD (控制项视窗 ID ) 和 itemState (它 

说明按钮是否被按下，或者按钮是否拥有输入焦点）。 

呼叫 FillRect 用白色画刷抹掉按钮的内面，呼叫 FrameRect 在按钮的周围 
画上黑框，由此 0 WNDRAW 便启动了 WM _ DRAWITEM 处理过程。然後，通过呼叫 
Polygon ，0 WNDRAW 在按钮上画出4个黑色实心的三角形。这是一般的情形。 

如果按钮目前被按下，那么 DRAWHEMSTRUCT 的 itemState 栏位中的某位元 
将被设为1。您可以使用 ODS _ SELECTCD 常数来测试这些位元。如果这些位元被 
设立，那么 0 WNDRAW 将通过呼叫 IrwertRect 将按钮翻转为相反的颜色。如果按 
钮拥有输入焦点，那么 itemState 的 0 DS _ F 0 CUS 位元将被设立。在这种情况下， 
0 WNDRAW 通过呼叫 DrawFocusRect , 在按钮的边界内画一个虚线的矩形。 

在使用拥有者绘制按钮时，应该注意以下几个 方面： Windows 获得装置内容 
并将其作为 DRAWITEMSTRUCT 结构的一个栏位。保持装置内容处於您找到它时所 
处的状态，任何被选进装置内容的 GDI 物件都必需被释放。另外，当心不要在 
定义按钮边界的矩形外面进行绘制。 

静态类别 

在 CreateWindow 函式中指定视窗类别为 「 static 」 ，您就可以建立静态文 
字的子视窗控制项。这些子视窗非常「文静」。它既不接收滑鼠或键盘输入， 
也不向父视窗发送 WM _ COMMAND 讯息。 

当您在静态子视窗上移动或者按下滑鼠时，这个子视窗将拦截 


第350页 




Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

WM_NCHITTEST 讯息并将 HTTRANSPARENT 的值传回给 Windows ， 这将使 Windows 
向其下层视窗，通常是它的父视窗，发送相同的 WM _ NOHTTEST 讯息。父视窗常 
常将该讯息传递给 DefWindowProc , 在这里，它被转换为显示区域的滑鼠讯息。 

前六个静态视窗样式只简单地在子视窗的显示区域内画一个矩形或者边 
框。在下表的上部， 「 RECT 」 静态样式（左列）是填入图样的矩形 样式； 三个 
「 FRAME 」 样式（右列）是没有填入图样的矩形 轮廓： 


「 RECT 」 静态样式 

「 FRAME 」 样式 

SS—BLACKRECT 

SS—BLACKFRAME 

SS—GRAYRECT 

SS—GRAYFRAME 

SS_WHITERECT 

SS_WHITEFRAME 


「 BLACK 」 、 「 GRAY 」 、 「 WHITE 」 并不意味著黑、灰和白色，这些颜色是 
由系统颜色决定的，如表 9-4 所示。 

表 9-4 


静态控制项 

系统颜色 

BLACK 

COLOR—3DDKSHAD0W 

GRAY 

COLOR—BTNSHADOW 

WHITE 

COLOR—BTNHIGHLIGHT 


对这些样式， CreateWindow 呼叫中的视窗文字栏位被忽略。矩形的左上角 
开始於 x 位置座标和 y 位置座标，这些座标都相对於父视窗。您也可以使用 
SS _ ETCHEDHORZ 、 SS_ETCHEDVERT 或者 SS _ ETCHEDFRAME ，采用灰色和白色建立 

一 个形似阴影的边框。 

静态类别也包括了三种文字样式： SS _ LEFT 、 SS _ RIGHT 和 SS _ CENTER 。 它们 
建立左对齐、置右对齐和居中文字。文字在 CreateWindow 呼叫的视窗文字参数 
中给出，并且在以後可以用 SetWindowText 来改变它。当静态控制项的视窗讯 
息处理程式显示文字时，它使用 DmwText 函式以及 DT _ WORDBREAK 、 DT _ N 0 CLIP 
和 DT _ EXPANDTABS 参数。文字在子视窗的矩形内可以按文字进行换行。 

这三种文字样式子视窗的背景通常为⑶ LOR _ BTNFACE ，而文字本身是 
C 0 L 0 R _ WIND 0 WTEXT 。在拦截 WM _ CTLCOLORSTATIC 讯息时，您可以通过呼叫 
SetTextColQ ]： 来改变文字颜色，通过 SetBkColor 来改变背景颜色，并传回背景 
画刷代号。後面的 COLORS 1程式展示了这一点。 

最後，静态类别还包括了视窗样式 SS _ IC 0 N 和 SSJJSERITEM ， 但是当它们被 
用作子视窗控制项时却没有任何意义。我们在讨论对话方块时还要提及它们。 
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卷动列类别 

我在第四章首次讨论了卷动列，也讨论了「视窗卷动列」和「卷动列控制 
项」之间的一些区别。 SYSMETS 程式使用视窗卷动列，它出现在视窗的右边和底 
部。您可以在建立视窗时通过将识别字 WS _ VSCROLL 、 WS _ HSCROLL 或者两者都包 
含在视窗样式中，让视窗加上卷动列。现在我们准备建立一些卷动列控制项， 
它们是能在父视窗的显示区域的任何地方出现的子视窗。您可以使用预先定义 
的视窗类别 「 scrollbar 」 以及两个卷动列样式 SBS _ VERT 和 SBS _ H 0 RZ 中的一个 
来建立子视窗卷动列控制项。 

与按钮控制项（以及将在後面讨论的编辑和清单方块控制项）不同，卷动 
列控制项不向父视窗发送 WM _ COMMAND 讯息，而是像视窗卷动列那样发送 
WM _ VSCROLL 和 WM _ HSCROLL 讯息。在处理卷动讯息时，您可以通过 IParam 参数 
来区分视窗卷动列与卷动列控制项。对子视窗卷动列其值为0，对於卷动列控制 
项其值为卷动列视窗代号。对视窗卷动列和卷动列控制项来说， wParam 参数的 
高字组和低字组的含义相同。 

虽然视窗卷动列有固定的宽度， Windows 使用 CreateWindow 呼叫中（或者 
在後面的 MoveWindow 呼叫中）给定的矩形尺寸来确定卷动列控制项的尺寸。您 
可以建立细而长的卷动列控制项，也可以建立短而粗的卷动列控制项。 

如果您想建立与视窗卷动列尺寸相同的卷动列控制项，那么可以使用 
GetSystemMetrics 取得水平卷动列的高度： 

GetSystemMetrics (SM—CYHSCROLL) ; 

或者垂直卷动列的 宽度： 

GetSystemMetrics (SM—CXVSCROLL) ; 

根据 Windows 文件，卷动列窗样式识别字 SBSJLEFTALIGN 、 SBS _ RIGHTALIGN 、 
SBS _ T 0 P ALIGN 和 SBS _ B 0 TT 0 MALIGN 给出卷动列的标准尺寸，但是这些样式只在 
对话方块中对卷动列有效。 

对视窗卷动列，您可以使用同样的呼叫来建立卷动列控制项的范围和 位置: 

SetScrollRange (hwndScroll , SB—CTL, iMin, iMax, bRedraw); 

SetScrollPos (hwndScroll, SB_CTL, iPos, bRedraw); 

SetScrollInfo (hwndScroll, SB—CTL, &si, bRedraw); 

其区别 在於： 视窗卷动列将父视窗的代号作为第一个参数，并且以 SB_VERT 
或者 SB _ H 0 RZ 作为第二个参数。 

令人吃惊的是，名为⑶ L 0 R _ SCR 0 LLBAR 的系统颜色不再用於卷动列。两端 
的按钮和小方块的颜色由 C 0 L 0 R_BTNFACE 、 C 0 L 0 R_BTNHILIGHT 、 
C 0 L 0 R _ BTNSHAD 0 W 、 C 0 L 0 R_BTNTEXT (用於小箭头）、 C 0 L 0 R _ DKSHAD 0 W 和 
C 0 L 0 R _ BTNLIGHT 决定。两端按钮之间区域的颜色由 C 0 L 0 R _ BTNFACE 和 
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COLOR_BTNHIGHLIGHT 决定。 

如果您拦截了 WM _ CTLCOLORSCROLLBAR 讯息，那么可以在讯息处理中传回画 
刷以取代该颜色。让我们来试一下。 


COLORS 1 程式 

为了解卷动列和静态子视窗的一些用法 一一 也为了深入了解颜色 一一 我们 
将使用 COLORS 1程式，如程式 9-3 所示 。 COLORS 1在显示区域的左半部显示三种 
卷动列，并分别标以 「 Red 」 、「 Green 」 和 「 Blue 」 。当您挪动卷动列时，显 
示区域的右半部将变为三种原色混合而成的合成色，三种原色的数值显示在三 
个卷动列的下面。 


程式 9-3 COLORS 1 


C0L0RS1.C 

卜 


C0L0RS1.C -- Colors Using 

Scroll Bars 

(c) Charles Petzold, 1998 


- V 

♦include <windows.h> 

LRESULT CALLBACK WndProc 

(HWND, UINT, WPARAM, LPARAM); 

LRESULT CALLBACK ScrollProc 

(HWND, UINT, WPARAM, LPARAM); 

int idFocus ; 

WNDPROC OldScroll[3]; 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

i 

i 

static TCHAR szAppName[] = TEXT ("Colors1"); 

HWND 

hwnd ; 

MSG 

msg ; 

WNDCLASS 

wndclass ; 

wndclass.style 

=CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc 

=WndProc ; 

wndclass.cbClsExtra 

=◦; 

wndclass.cbWndExtra 

=◦; 

wndclass.hlnstance 

=hlnstance ; 

wndclass.hicon 

=Loadlcon (NULL, 工 DI APPLICATION); 

wndclass.hCursor 

=LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground 

=CreateSolidBrush (0); 

wndclass.IpszMenuName 

=NULL ; 

wndclass.IpszClassName 

=szAppName ; 
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if (!RegisterClass (&wndclass)) 

； 






l 

MessageBox ( 

NULL, 

TEXT ("This 

program requires Windows 

NT ! ") 

r 











szAppName, MB ICONERROR) 

• 

f 


\ 

return 0 ; 







i 

hwnd = 

CreateWindow ( szAppName, 

TEXT ("Color 

Scroll"), 





WS OVERLAP PEDWINDOW, 







CW USEDEFAULT, 

CW USEDEFAULT, 






CW USEDEFAULT, 

CW USEDEFAULT, 






NULL, NULL, hlnstance, NULL); 





ShowWindow (hwnd, iCmdShow) 

• 

f 






UpdateWindow (hwnd); 







while 

! 

(GetMessage (&msg A NULL, ◦, 

0)) 





X 

TranslateMessage 

(&msg; 

1 ； 





\ 

DispatchMessage 

(&msg) 

參 

f 




} 

J 

return 

msg.wParam ; 






LRESULT CALLBACK WndProc ( HWND 

hwnd. 

UINT message, WPARAM wParam,LPARAM 

IParam) 

f 








static 

COLORREF crPrim[3]= 

{ 

RGB (255, ◦, 

◦), RGB 

(◦, 

255, 0), 



RGB (◦, ◦, 255) }; 







static 

HBRUSH hBrush[3], 

hBrushStatic 

• 

f 




static 

HWND hwndScroll[3], hwndLabel[3], 

hwndValue [ 3], 

hwndRect ; 








static 

int color [3], cyChar ; 





static 

RECT rcColor ; 






static 

TCHAR * szColorLabel[]= 

{ TEXT ("Red") , TEXT 

("Green"), 


TEXT 

("Blue") } ; 







HINSTANCE 

hlnstance ; 





int 


i, cxClient, cyClient ; 




TCHAR 


szBuffer[10] ; 





switch 

； 

(message) 







l 

case WM CREATE : 








hlnstance = (HINSTANCE) 

GetWindowLong (hwnd, GWL 

HINSTANCE) ; 



// Create the white-rectangle window against 

which the 



// scroll bars will be 

positioned . 

The child 

window ID is 9 . 
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hwndRect = CreateWindow (TEXT (’’static” ）， NULL, 

WS_CHILD I WS—VISIBLE | SS_WHITERECT, 

0, 0, 0, 0, 

hwnd, (HMENU) 9, hlnstance, NULL); 

for (i = ◦ ; i < 3 ; i++) 

{ 

// The three scroll bars have IDs ◦, 1, and 2, with 
// scroll bar ranges from 0 through 255. 

hwndScroll[i] = CreateWindow (TEXT ("scrollbar"), NULL, 

WS_CHILD I WS—VISIBLE | 

WS_TABSTOP I SBS—VERT, 

hwnd, (HMENU) i, hlnstance, NULL); 

SetScrollRange (hwndScroll[i], SB_CTL, ◦, 255, FALSE); 
SetScrollPos (hwndScroll[i] , SB—CTL, ◦, FALSE); 

// The three color-name labels have IDs 3, 4, and 5, 

// and text strings "Red", "Green", and "Blue". 

hwndLabel [ i ] = CreateWindow (TEXT (’’static’，），zColorLabel [ i ], 

WS_CHILD I WS—VISIBLE | SS_CENTER, 

hwnd, (HMENU) (i + 3), 
hlnstance, NULL); 

// The three color-value text fields have IDs 6, 7 , 

// and 8, and initial text strings of 

hwndValue [ i ] = CreateWindow (TEXT (’’static”），TEXT (’’◦▼’）， 

WS_CHILD I WS—VISIBLE | SS_CENTER, 

◦ , 0, 0, 

hwnd, (HMENU) (i + 6), 
hlnstance, NULL); 

OldScroll[i] = (WNDPROC) SetWindowLong (hwndScroll[i], 
GWL—WNDPROC, (LONG) ScrollProc); 

hBrush[i] = CreatesolidBrush (crPrim[i]); 


hBrushStatic = CreateSolidBrush ( 

GetSysColor (COLOR—BTNHIGHLIGHT)); 

cyChar = HIWORD (GetDialogBaseUnits ()); 
return 0 ; 
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case WM—SIZE : 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 

SetRect (&rcColor, cxClient / 2, ◦, cxClient, cyClient); 
MoveWindow (hwndRect, ◦, ◦, cxClient / 2, cyClient, TRUE); 
for (i = ◦ ; i < 3 ; i++) 

{ 

MoveWindow (hwndScroll[i], 

(2 * i + 1) * cxClient / 14, 2 * cyChar, 
cxClient / 14, cyClient - 4 * cyChar, TRUE); 

MoveWindow (hwndLabel[i], 

(4 * i + 1) * cxClient / 28, cyChar / 2, 
cxClient / 7, cyChar, TRUE) 

MoveWindow (hwndValue[i], 

(4 * i + 1) * cxClient / 28, 
cyClient - 3 * cyChar / 2, 
cxClient / 7, cyChar, TRUE); 

} 

SetFocus (hwnd); 
return 0 ; 

case WM—SETFOCUS : 

SetFocus (hwndScroll[idFocus]); 
return 0 ; 

case WM—VSCROLL : 

i = GetWindowLong ((HWND) IParam, GWL_ID); 

switch (LOWORD (wParam)) 

{ 

case SB_PAGEDOWN : 

color[i] += 15 ; 

// fall through 
case SB_LINEDOWN : 

color[i] = min (255, color[i] + 1); 
break ; 

case SB_PAGEUP : 

color [i] -= 15 ; 

// fall through 
case SB_LINEUP : 

color[i] = max (◦, color[i] - 1); 
break ; 
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case SB—TOP : 

color[i] = 0 ; 
break ; 

case SB—BOTTOM : 

color[i] = 255 ; 
break ; 

case SB_THUMBPOSITION : 
case SB—THUMBTRACK : 

color[i] = HIWORD (wParam); 
break ; 


default : 


break ; 

} 

SetScrollPos (hwndScroll [i], SB—CTL, color [i], TRUE); 
wsprintf (szBuffer, TEXT ("%i") , color[i]); 
SetWindowText (hwndValue[i], szBuffer); 


DeleteObject ((HBRUSH) 

SetClassLong (hwnd, GCL—HBRBACKGROUND, (LONG) 
CreateSolidBrush (RGB (color[0], color[1], color[2])))); 

InvalidateRect (hwnd, &rcColor, TRUE); 
return 0 ; 

case WM—CTLCOLORSCROLLBAR : 

i = GetWindowLong ((HWND) IParam, GWL_ID); 
return (LRESULT) hBrush [i]; 


case WM CTLCOLORSTATIC : 


i = GetWindowLong ((HWND) 


IParam, GWL ID); 


if (i >= 3 && i <= 8) // static text controls 

{ 

SetTextColor ((HDC) wParam, crPrim[i % 3]); 

SetBkColor ((HDC) wParam, GetSysColor 

(COLOR—BTNHIGHLIGHT)); 

return (LRESULT) hBrushStatic ; 

} 

break ; 

case WM SYSCOLORCHANGE : 


DeleteObject (hBrushStatic); 


hBrushStatic 


CreateSolidBrush 


(GetSysColor(COLOR—BTNHIGHLIGHT)); 

return 0 ; 
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case WM—DESTROY : 

DeleteObject ((HBRUSH) 

SetClassLong (hwnd, GCL—HBRBACKGROUND, (LONG) 
GetStockObject (WHITE_BRUSH))); 

for (i = ◦ ; i < 3 ; i++) 

DeleteObject (hBrush[i]); 

DeleteObject (hBrushStatic); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

LRESULT CALLBACK ScrollProc (HWND hwnd, UINT message, 

WPARAM wParam, LPARAM IParam) 

{ 

int id = GetWindowLong (hwnd, GWL_ID); 
switch (message) 

{ 

case WM_KEYDOWN : 

if (wParam == VK_TAB) 

SetFocus (GetDlgltem (GetParent (hwnd), 

(id + (GetKeyState (VK—SHIFT) < 0 ? 2 : 1)) % 3)); 
break ; 
case WM—SETFOCUS : 

idFocus = id ; 
break ; 

} 

return CallWindowProc (OldScroll[id], hwnd, message, wParam,IParam); 

} 

COLORS 1 利用子视窗进行工作，该程式使用10个子视窗控制项： 3个卷动 
列、6个静态文字视窗和1个静态矩形框 。 COLORS 1拦截 WM _ CTLC 0 L 0 RSCR 0 LLBAR 
讯息来给红、绿、蓝3个卷动列的内部著色，并拦截 WM _ CT 1 X 0 L 0 RSTATIC 讯息 
来著色静态文字。 

您可以使用滑鼠或者键盘来挪动卷动列，从而利用 COLORS 1作为一种实验 
颜色显示的开发工具，为您自己的 Windows 程式选择漂亮的颜色（或者，您可 
能更喜欢难看的颜色）。 C 0 L 0 RS 1 的显示如图 9-3 所示。不幸的是，这些颜色在 
印表纸上被显示为不同深浅的灰色。 
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r 

Color Scroll 


■■■■■■■■ 

HeeT 




Red Green Blue 



84 139 185 


图 9-3 COLORS 1 的萤幕显示 

COLORS 1不处理 WM _ PAINT 讯息，所有的工作几乎都是由子视窗完成的。 
显示区域右半部显示的颜色实际上是视窗的背景颜色。 SS _ WHITERECT 样式 
的静态子视窗显示在显示区域的左半部。三个卷动列是 SBS _ VERT 样式的子视窗 
控制项，它们被定位在 SS _ WHITERECT 子视窗的顶部。另外六个 SS _ CENTER 样式 
(居中文字）的静态子视窗提供标签和颜色值 。 COLORS 1在 WinMain 函式中用 
CreateWindow 建立它的普通重叠式视窗和10个子视窗。 SS _ WMTERECT 和 
SS _ CENTER 静态视窗使用视窗类别 「 static 」 ；三个卷动列使用视窗类别 
scrollbar 」 。 

CreateWindow 呼叫中的 x 位置、 y 位置、宽度和高度参数最初设为0,因为 
位置和大小都取决於显示区域的尺寸，而它目前尚未确定 。 COLORS 1的视窗讯息 
处理程式在接收到 WM _ SIZE 讯息时，就使用 MoveWindow 给10个子视窗重新确 
定大小。所以，每当您对 COLORS 1视窗进行缩放时，卷动列的尺寸就会按比例 
变化。 

当 WndProc 视窗讯息处理程式收到 WM _ VSCR 0 LL 讯息时， IParam 参数的高字 
组就是子视窗的代号。我们可以使用 GetWindowWord 来得到子视窗的 ID : 

i = GetWindowLong ((HWND) IParam, GWL_ID); 

对於这三个卷动列，我们已经按习惯将其 ID 设为0、1、2，所以 WndProc 
能区别出是哪个卷动列在产生讯息。 

由於子视窗的代号在建立时就被储存在阵列中，所以 WndProc 就能对相对 
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应的卷动列讯息进行处理，并通过呼叫 SetScrollPos 来设定相对应的新值: 

SetScrollPos (hwndScroll[i] , SB_CTL, color[i], TRUE); 

WndProc 也改变卷动列底部子视窗的 文字： 

wsprintf (szBuffer, TEXT ("%i") , color[I]); 

SetWindowText (hwndValue[i], szBuffer); 


自动键盘介面 

卷动列控制项也能处理键盘输入，但是只有在拥有输入焦点时才行。下表 
说明怎样将键盘游标键转变为卷动 讯息： 

表 9-5 


游标键 

卷动讯息的 wParam 值 

Home 

SB—TOP 

End 

SB—BOTTOM 

Page Up 

SB—PAGEUP 

Page Down 

SB—PAGEDOWN 

左或上 

SB—LINEUP 

右或下 

SB—LINEDOWN 


事实上， SB _ T 0 P 和 SB _ B 0 TT 0 M 卷动讯息只能用键盘产生。在使用滑鼠按动 
卷动列时，如果想使该卷动列获得输入焦点，那么您必须将 WS_TABSTOP 识别字 
包含到 CreateWindow 呼叫的视窗类别参数中。当卷动列拥有输入焦点时，在该 
卷动列的小方框上将显示一个闪烁的灰色块。 

为了给卷动列提供全面的键盘介面，还需要另外一些工作。首先， WndProc 
视窗讯息处理程式必须使卷动列拥有输入焦点，它是通过处理 WM_SETFOCUS 讯 
息来完成这一点的，该 WM_SETFOCUS 讯息是当卷动列获得输入焦点时其父视窗 
接收到的。 WndProc 给其中一个卷动列设定输入焦点。 

SetFocus (hwndScroll[idFocus]) ; 

其中 idFocus 是一个整体变数。 

但是，还需要一些借助键盘尤其是 Tab 键，来从一个卷动列转换到另一个 
卷动列的方法。这比较困难，因为一旦某个卷动列拥有了输入焦点，它就处理 
所有的键盘输入，但卷动列只关心游标键，而忽略 Tab 键。解决这一两难处境 
的方法是「视窗子类别化」。我们将用它来给⑶ L 0 RS 1 增加使用 Tab 键从一个 
卷动列跳到另一个卷动列的功能。 


视窗子类别化 （Window Subclassing ) 

卷动列控制项的视窗讯息处理程式是 Windows 内部的。但是，将 GWL_WNDPROC 
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识别字作为参数来呼叫 GetWindowLong , 您就可以得到这个视窗讯息处理程式的 
位址。另外，您可以呼叫 SetWindowLong 给该卷动列设定一个新的视窗讯息处 
理程式，这个技术叫做「视窗子类别化」，非常有用。它能让您给现存的视窗 
讯息处理程式设定「挂勾」，以便在自己的程式中处理一些讯息，同时将其他 
所有讯息传递给旧的视窗讯息处理程式。 

在⑶ L 0 RS 1 中对卷动讯息进行初步处理的视窗讯息处理程式叫做 
ScrollProc , 它在 C 0 L 0 RS 1. C 档案的尾部。由於 ScrollProc 是 C 0 L 0 RS 1 中的函 
式，而 Windows 将呼叫 COLORS 1,所以 ScrollProc 必须被定义为 callback 函式。 

对三个卷动列中的每一个， COLORS 1使用 SetWindowLong 来设定新的卷动列 
视窗讯息处理程式的位址，并取得现存卷动列视窗讯息处理程式的 位址： 

OldScroll[i] = (WNDPROC) SetWindowLong (hwndScroll[i], GWL_WNDPROC, 

(LONG) ScrollProc)); 

现在，函式 ScrollProc 得到了 Windows 发送到 CX 3 L 0 RS 1 中三个卷动列（当 

然不是其他程式中的卷动列）的卷动列视窗讯息处理程式的全部讯息。 
ScrollProc 视窗讯息处理程式在接收到 Tab 或者 Shift-Tab 键时，就将输入焦 
点改变到下一个（或者上一个）卷动列。它使用 CallWindowProc 呼叫旧的卷动 
列视窗讯息处理程式。 

给背景著色 

当 COLORS 1定义它的视窗类别时，也为其显示区域背景定义了一个实心的 
黑色 画刷： 

wndclass.hbrBackground = CreateSolidBrush (0); 

当您改变 COLORS 1 的卷动列设定时，程式必须建立一个新的画刷，并将该 
新画刷代号放入视窗类别结构中。如同使用 GetWindowLong 和 SetWindowLong 
能得到并设定卷动列视窗讯息处理程式一样，用 GetClassWord 和 SetClassWord 
能得到这个画刷的代号。 

您可以建立新的画刷并将其代号插入视窗类别结构中，然後删除旧的画刷: 

DeleteObject ((HBRUSH) 

SetClassLong (hwnd, GCL—HBRBACKGROUND, (LONG) 

CreatesolidBrush (RGB (color[◦], color[1], color[2])))); 

Windows 下一次重新为视窗的背景著色时，将使用这个新画刷。为了强迫 
Windows 抹掉背景，我们将使整个显示区域 无效： 

工 nvalidateRect (hwnd, &rcColor, TRUE); 

TRUE (非零）值作为第三个参数，表示希望在重新著色之前删去背景。 
InvalidateRect 使 Windows 在视窗讯息处理程式的讯息仁列中放进一个 
WM_PAINT 讯息。由於 WM_PAINT 讯息的优先等级比较低，所以，如果您还在使用 
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滑鼠或者游标键移动卷动列的话，这个讯息将不会立即被处理。如果您想在颜 
色改变之後使该视窗立即变成最新的 （ 目前的），那么您可以在 InvalidateRect 
之後增加下面的叙述： 

UpdateWindow (hwnd) ; 

但这会使得键盘和滑鼠处理变慢。 

COLORS 1中的 WndProc 函式不处理 WM_PAINT 讯息，而是将其传给 
DefWindowProCo Windows 对 WM PAINT 讯息的内定处理只是呼叫 BeginPaint 和 
EndPaint 使视窗生效。因为在 InvalidateRect 呼叫中已经指定背景要被抹掉， 
所以 BeginPaint 呼叫使 Windows 发出一个 WM_ERASEBKGND (删除背景）讯息， 
WndProc 也将忽略这个讯息。 Windows 用视窗类别中指定的画刷将显示区域的背 
景抹去，这样就处理了这个讯息。 

在终止以前进行清除总是一个好主意，因此在处理 WM_DESTROY 讯息处理期 
间，再一次呼叫 DeleteObject ： 

DeleteObject ((HBRUSH) 

SetClassLong (hwnd, GCL—HBRBACKGROUND, 

(LONG) GetStockObject (WHITE BRUSH))); 


给卷动列和静态文字著色 

在 C 0 L 0 RS 1 中，三个卷动列的内部和六个文字栏位中的文字著色为红、绿 
和蓝色。卷动列的著色是通过处理 WM _ CT 1 X 0 L 0 RSCR 0 LLBAR 讯息来完成的。 

在 WndProc 中，我们为画刷定义了一个由三个代号组成的静态 阵列： 

static HBRUSH hBrush [3]; 

在处理 WM _ CREATE 期间，我们建立三个 画刷： 

for (工 = ◦ ; I < 3 ; 工 ++) 

hBrush[ 0 ] = CreateSolidBrush (crPrim [I]); 

其中 crPrim 阵列中包含三种原色的 RGB 值。在 WM _ CTLCOLORSCROLLBAR 处 
理期间视窗讯息处理程式传回这三画刷中的一个： 

case WM—CTLCOLORSCROLLBAR: 

i = GetWindowLong ((HWND) IParam, GWL_ID); 
return (LRESULT) hBrush [i]; 

在处理 WM _ DESTROY 讯息的过程中，这些画刷必须被 删除： 

for (i = ◦ ; i < 3 ; i++) 

DeleteObject (hBrush [ i])); 

同样地，静态文字栏位中的文字是在处理 WM _ CT 1 X 0 L 0 RSTATIC 讯息中呼叫 
SetTextColor 来著色的。文字背景用 SetBkColor 函式设定为系统颜色 
⑶ LOR _ BTNHIGHLIGHT ， 这导致文字背景颜色和卷动列与文字後面的静态矩形控 
制项的颜色一样。对於静态文字控制项，这种文字背景颜色只用於字串中每个 
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字元後面的矩形，而不会用於整个控制项视窗。为了实作这一点，视窗讯息处 
理程式还必须传回 COLOR _ BTNHIGHLIGHT 颜色画刷的代号。这个画刷被称为 
hBrushStatic , 它在 WM _ CREATE 讯息处理期间建立，在 WM _ DESTROY 讯息处理期 
间清除。 

在 WM _ CREATE 讯息处理期间依据 COLOR _ BTNHIGHLIGHT 颜色建立画刷，并且 

在执行期间使用这一画刷时，我们遇到了一个小问题。如果程式在执行期间改 
变了⑶ LOR _ BTNHIGHLIGHT 颜色，那么静态矩形的颜色将发生变化，并且文字背 

景的颜色也会变化，但是文字视窗控制项的整个背景将保持原有的 
COLOR_BTNHIGHLIGHT 颜色。 

为了解决这个问题 ， COLORS 1也简单地通过使用新颜色重新建立 
hBrushStatic 来处理 WM_SYSCOLORCHANGE 讯息。 


编辑类别 


在某些方面，编辑类别是最简单的预先定义视窗 类别； 在另一方面，它又 
是最复杂的视窗类别。当您使用类别名称 「 edit 」 建立子视窗时，您根据 
CreateWindow 呼叫中的 x 位置、 y 位置、宽度和高度这些参数定义了一个矩形。 
此矩形含有可编辑文字。当子视窗控制项拥有输入焦点时，您可以输入文字， 
移动游标，使用滑鼠或者 Shift 键与一个游标键来选取部分文字，按 Ctrl - X 来 
删除所选文字或按 Ctrl - C 来复制所选文字、并送到剪贴簿上，按 Ctrl - V 键插 
入剪贴簿上的文字。 

编辑控制项的最简单的应用之一是作为单行输入区域。但是编辑控制项并 
不仅限於单行，这一点我将在程式 9-4 P 0 PPAD 1 中说明。和我们在这本书中所 
遇到的各种其他问题一样， P 0 PPAD 程式将逐步增强以使用功能表、对话方块(载 
入与储存档案)和列印。最後的版本将是一个简单而完整的文字编辑器，且其程 
式码将非常简洁。 


程式 9-4 P0PPAD1 

P0PPAD1.C 


■k _ 


P0PPAD1.C -- Popup Editor using child window edit box 

(c) Charles Petzold, 1998 


_ -k 


♦include <windows.h> 
♦define ID EDIT 1 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) 
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TCHAR 

szAppName[] = TEXT ("PopPadl n ); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

/ 

PSTR szCmdLine, int iCmdShow) 


l 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 




wndclass.style 

=CS HREDRAW | CS VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 



wndclass.cbClsExtra 

=◦; 



wndclass.cbWndExtra 

=◦; 



wndclass.hlnstance 

=hlnstance ; 



wndclass•hicon 

=Loadlcon (NULL, IDI APPLICATION); 


wndclass.hCursor 

=LoadCursor (NULL, 

IDC—ARROW); 


wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 


wndclass.IpszMenuName 

=NULL ; 



wndclass.IpszClassName 

=szAppName ; 



if (!RegisterClass (&wndclass)) 

； 



i 

MessageBox ( NULL, 

TEXT ("This program 

requires Windows NT !’，）， 



szAppName, MB 

ICONERROR); 


return 0 ; 

} 




hwnd = CreateWindow ( szAppName, szAppName, 



WS OVERLAPPEDWINDOW, 



CW USEDEFAULT, 

CW USEDEFAULT, 



CW USEDEFAULT, 

CW USEDEFAULT, 



NULL, NULL, hlnstance, NULL); 



ShowWindow (hwnd, iCmdShow) 

UpdateWindow (hwnd); 

參 

f 



while (GetMessage (&msg, NULL, ◦, 0)) 

； 



i 

TranslateMessage 

(&msg); 



DispatchMessage 

I 

(&msg); 


} 

/ 

return msg.wParam ; 



LRESULT CALLBACK WndProc ( HWND 

IParam) 

f 

hwnd, UINT message 

, WPARAM wParam,LPARAM 


static HWND hwndEdit ; 

switch (message) 
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case WM—CREATE : 

hwndEdit = CreateWindow (TEXT ("edit"), NULL, 

WS_CHILD I WS—VISIBLE | WS_HSCROLL | WS—VSCROLL | 

WS_BORDER I ES_LEFT | ES_MULTILINE | 

ES_AUTOHSCROLL | ES—AUTOVSCROLL, 

◦, ◦, 0, ◦, hwnd, (HMENU) ID_EDIT, 

((LPCREATESTRUCT) IParam) -> hlnstance, NULL); 
return 0 ; 

case WM—SETFOCUS : 

SetFocus (hwndEdit); 
return 0 ; 

case WM—SIZE : 

MoveWindow (hwndEdit, 0, ◦, LOWORD (IParam), HIWORD (IParam), TRUE); 
return 0 ; 

case WM—COMMAND : 

if (LOWORD (wParam) == ID_EDIT) 
if (HIWORD (wParam) == EN_ERRSPACE || 

HIWORD (wParam) == EN—MAXTEXT) 

MessageBox (hwnd, TEXT ("Edit control out of space .’’）， 
szAppName, MB_OK | MB_ICONSTOP); 
return 0 ; 

case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

P 0 PPAD 1 是一个多行编辑器（只是没有档案 I / O ) ，其 C 语言原始码不到100 
行（不过，有一个缺陷，即预先定义的多行编辑控制项只限於30, 000字元的文 
字）。您可以看到， P 0 PPAD 1 本身并没有做多少工作，预先定义的编辑控制项完 
成了许多工作，这样，您可以知道，无需额外的程式时编辑控制项能做些什么。 

编辑类别样式 

如前面所提到的，在 CreateWindow 呼叫中将 「 edit 」 作为视窗类别建立了 
一个编辑控制项，视窗样式是 WS _ CHILD 加上几个选项。如同在静态子视窗控制 
项中一样，编辑控制项中的文字可以置左对齐、置右对齐或者居中，您使用视 
窗样式 ES _ LEFT 、 ES _ RIGHT 和 ES _ CENTER 来指定这些格式。 

内定状态下，编辑控制项是单行的。您使用 ES _ MULTILINE 视窗样式可以建 
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立多行编辑控制项。对於单行编辑控制项，您一般只可以在编辑控制项矩形的 
尾部输入文字。要建立一个自动水平卷动的编辑控制项，您可以采用样式 
ES _ AUT 0 HSCR 0 LL 。对一个多行编辑控制项，文字会自动跳行，除非使用 
ES _ AUT 0 HSCR 0 LL 样式。在这种情况下，您必须按 Enter 键来开始新的一行。您 
还可以便用样式 ES _ AUT 0 VSCR 0 LL 来将垂直卷动列包括在多行编辑控制项中。 

当您在多行编辑控制项中包括这些卷动样式时，也许还想给编辑控制项增 
加卷动列。要做到这些，可以对非子视窗使用同一视窗样式识别字 WS_HSCROLL 
和 WS _ VSCROLL 。 内定状态下，编辑控制项没有边界，利用样式 WS _ B 0 RDER 则可 
以増加边界。 

当您在编辑控制项中选择文字时， Windows 将选择的文字反白显示。但是当 
编辑控制项失去输入焦点时，被选择的文字将不再被加亮。如果希望在编辑控 
制项没有输入焦点时被选择的文字仍然被加亮，您可以使用样式 ES_NOHIDESELo 
在 P0PPAD1 建立其编辑控制项时， CreateWindow 呼叫依如下形式给出 样式: 

WS_CHILD I WS—VISIBLE | WS_HSCROLL | WS—VSCROLL | 

WS_BORDER I ES_LEFT | ES—MULTILINE | 

ES_AUTOHSCROLL | ES—AUTOVSCROLL 

在 P 0 PPAD 1 中，编辑控制项的大小是後来当 WndProc 接收到 WM _ SIZE 讯息 
时通过呼叫 MoveWindow 来定义的。编辑控制项的尺寸被简单地设定为主视窗的 
尺寸： 

MoveWindow (hwndEdit , ◦, ◦, LOWORD (IParam) , 

HIWORD (IParam), TRUE); 

对於单行编辑控制项，控制项的高度必须可以容纳一个字元。如果编辑控 
制项有边界（大多数都有），那么使用一个字元高度的 1. 5倍（包括外部间距）。 


编辑控制项通知 


编辑控制项给父视窗讯息处理程式发送 WM _ COMMAND 讯息，对按钮控制项来 
说， wParam 和 IParam 变数的含义是相同的： 


LOWORD (wParam) 

子视窗 ID 

HIWORD (wParam) 

通知码 

IParam 

子视窗代号 


通知码如下所示: 


EN_SETFOCUS 

编辑控制项已经获得输入焦点 

EN_KILLFOCUS 

编辑控制项已经失去输入焦点 

EN—CHANGE 

编辑控制项的内容将改变 

EN—UPDATE 

编辑控制项的内容已经改变 

EN_ERRSPACE 

编辑控制项执行已经超出中间 
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EN_MAXTEXT 

编辑控制项在插入时执行超出空间 

EN _ HSCR 0 LL 

编辑控制项的水平卷动列已经被按下 

EN _ VSCR 0 LL 

编辑控制项的垂直卷动列已经被按下 


P 0 PPAD 1 只拦截 EN_ERRSPACE 和 EN_MAXTEXT 通知码，并显示一个讯息方块。 


使用编辑控制项 


如果在您的主视窗上使用了几个单行编辑控制项，那么您需要将视窗子类 
别化以便把输入焦点从一个控制项转移到另一个控制项。您可以通过拦截 Tab 
键和 Shift-Tab 键来完成这种移动，非常像⑶ L 0 RS 1 中所做的（视窗子类别化 
的另一个例子在後面的 HEAD 程式中说明）。如何处理 Enter 键取决於您，可以 
像 Tab 键那样使用，也可以当成给程式的信号，表示所有的编辑栏位都准备好 
了。 

如果您想在编辑区中插入文字，那么可以使用 SetWindowText 来做到。将 
文字从编辑控制项中取出涉及了 GetWindowTextLength 和 GetWindowText ， 我们 
将在 P 0 PPAD 程式的修订版本中看到这些操作的实例。 

发送给编辑控制项的讯息 

因为用 SendMessage 发送给编辑控制项的讯息很多，并且其中的几个还将 
在後面 P 0 PPAD 修订版本中用到，所以这里不解说所有用 SendMessage 发送给编 
辑控制项的讯息，只概要地说明一下。 

这些讯息允许您剪下、复制或者清除目前被选择的文字。使用者使用滑鼠 
或者 Shift 键加上游标控制项键来选择文字并进行上面的操作，这样，在编辑 
控制项中选中的文字将被加亮： 

SendMessage (hwndEdit , WM—CUT, ◦, 0 ) ; 

SendMessage (hwndEdit, WM—COPY, ◦, 0); 

SendMessage (hwndEdit, WM—CLEAR, ◦, 0); 

WM_CUT 将目前选择的文字从编辑控制项中移走，并将其发送到剪贴 簿中； 
WM _ C 0 PY 将选择的文字复制到剪贴簿上并保持编辑控制项中的内容完好 无损； 
WM_CLEAR 将选择的内容从编辑控制项中删除，但是不向剪贴簿中发送。 

您也可以将剪贴簿上的文字插入到编辑控制项中的游标 位置： 

SendMessage (hwndEdit, WM—PASTE, 0, 0); 

您可以取得目前选择的起始位置和末尾位置： 

SendMessage (hwndEdit, EM—GETSEL, (WPARAM) &iStart, 

(LPARAM) &iEnd); 

结束位置实际上是最後一个选择字元的位置加1。 

您可以选择 文字： 
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SendMessage (hwndEdit , EM—SETSEL, iStart, iEnd); 

您还可以使用别的文^来置换目前的选择 内容： 

SendMessage (hwndEdit, EM—REPLACESEL, ◦, (LPARAM) szString); 

对多行编辑控制项，您可以取得行数： 

iCount = SendMessage (hwndEdit, EM—GETLINECOUNT , ◦, 0); 

对任何特定的行，您可以取得距离编辑缓冲区文字开头的偏 移量： 

iOffset = SendMessage (hwndEdit, EM_LINEINDEX, iLine, 0); 

行数从 0 开始计算， iLine 值为 "-1 时传回包含游标所在行的偏移量。您可 
以取得行的长度： 

iLength = SendMessage (hwndEdit , EM—LINELENGTH, iLine, 0); 

并将行本身复制到一个缓冲区中： 

iLength = SendMessage (hwndEdit , EM GETLINE, iLine, (LPARAM) szBuffer); 


清单方块类别 

我在本章讨论的最後一个预先定义子视窗控制项是清单方块。一个清单方 
块是字串的集合，这些字串是一个矩形中可以卷动显示的清单。 一一 程式通过 
向清单方块视窗讯息处理程式发送讯息，可以在清单中增加或者删除字串。当 
清单方块中的某项被选择时，清单方块控制项就向其父视窗发送 WM _ C 0 MMAND 讯 
息，父视窗也就可以确定选择的是哪一项。 

一 个清单方块可以是单选的，也可以是多选的，後者允许使用者从清单方 
块中选择多个项目。当清单方块拥有输入焦点时，其中项目的周围显示有虚线。 
在清单方块中，游标位置并不指明被选择的项目。被选择的项目被加亮显示， 
并且是反白显不的。 

在单项选择的清单方块中，使用者按 Spacebar 键就可以选择游标所在位置 
的项目。方向键移动游标和目前选择指示，并且能够滚动清单方块的内容 。 Page 
Up 和 Page Down 键也能滚动清单方块，但它移动的是游标而不是选择指示。按 
字母键能将游标和选择指示移到以此字母开头的第一个（或下一个）选项。也 
可以使用滑鼠在要选择的项目上单击或者双击来选择它。 

在多项选择清单方块中， Spacebar 键可以切换游标所在位置的项目的选择 
状态（如果该项已经被选择，则取消选择）。如同在单项选择清单方块中一样， 
方向键取消前面选择过的项目，并且移动游标和选择指示。但是， Ctrl 键和方 
向键能够在移动游标的同时不移动选择， Shift 键加方向键能扩展一个选择。 

在多项选择清单方块中，单击或者双击滑鼠按键能取消之前所有的选择， 
而选择被点中的项目。但是，如果在滑鼠点中某一项的同时也按下 Shift 键， 
则只能切换该项的选择状态，而不会改变任何其他项的选择状态。 
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清单方块样式 

当您使用 CreateWindow 建立清单方块子视窗时，您应该将 「 listbox 」 作 
为视窗类别，将 WS _ CHILD 作为视窗样式。但是，这个内定清单方块样式不向其 
父视窗发送 WM _ COMMAND 讯息，这样一来，程式必须向清单方块询问其中的项目 
的选择状态（借助於发送给清单方块控制项的讯息）。所以，清单方块控制项 
通常都包括清单方块样式识别字 LBS _ NOTIFY ， 它允许父视窗接收来自清单方块 
的 WM _ COMMAND 讯息。如果您希望清单方块控制项对清单方块中的项目进行排序， 
那么您可以使用另一种常用的样式 LBS _ S 0 RT 。 

内定情况下，清单方块是单项选择的。多项选择的清单方块相当少。如果 
您想建立一个多项选择清单方块，那么您可以使用样式 LBS _ MULTIPLESEL 。 通常， 
当给有卷动列的清单方块增加新项目时，清单方块本身会自己重画。您可以通 
过将样式 LBS _ NOREDRAW 包含进去来防止这种现象。但是您也许不想使用这种样 
式，这时可以使用 WM _ SETRm ) RAW 讯息来暂时防止清单方块控制项重新画过，我 
将在稍後讨论 WM _ SETREDRAW 讯息。 

内定状态下，清单方块视窗讯息处理程式只显示列表项目，它的周围没有 
任何边界。您可以使用视窗样式识别字 WS _ B 0 RDER 来加上边界。另外，您可以 
使用视窗样式识别字 WS _ VSCROLL 来增加垂直卷动列，以便用滑鼠来卷动列表项 
巨。 


Windows 表头档案定义了一个清单方块样式，叫做 LBS _ STANDARD ， 它包含 
了最常用的样式，其定义如下： 


(LBS—NOTIFY | 

LBS SORT | 

WS VSCROLL | 

| WS BORDER) 


您也可以采用 WS _ SIZEBOX 和 WS _ CAPTION 识别字，但是这两个识别字允许 
您重新定义清单方块的大小，也允许您在清单方块父视窗的显示区域中移动清 
单方块。 


清单方块的宽度应该能够容纳最长字串的宽度加上卷动列的宽度。您可以 
使用： 

GetSystemMetrics (SM—CXVSCROLL) ; 

来获得垂直卷动列的宽度。您用一个字元的高度乘以想要在视埠中显示的 
项目数来计算出清单方块的高度。 

将字串放入清单方块 

建立清单方块之後，下一步是将字串放入其中，您可以通过呼叫 
SendMessage 为清单方块视窗讯息处理程式发送讯息来做到这一点。字串通常通 
过以0开始计数的索引数来引用，其中0对应於最顶上的项目。在下面的例子 
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中， hwndList 是子视窗清单方块控制项的代号，而 ilndex 是索引值。在使用 
SendMessage 传递字串的情况下， IParam 参数是指向以 null 字元结尾字串的指 
标。 

在大多数例子中，当视窗讯息处理程式储存的清单方块内容超过了可用记 
忆体空间时， SendMessage 将传回 LB_ERRSPACE (定义为 -2) 。 如果是因为其他 
原因而出错，那么 SendMessage 将传回 LB_ERR (-1) 。 如果操作成功，那么 
SendMessage 将传回 LB _0 KAY (0) 。 您可以通过测试 SendMessage 的非零值来 
判断这两种错误。 

如果您采用 LBS _ S 0 RT 样式（或者如果您在清单方块中按照想要呈现的顺序 
排列字串），那么填入清单方块最简单的方法是借助 LB _ ADDSTRING 讯息： 

SendMessage (hwndList, LB—ADDSTRING, ◦, (LPARAM) szString); 

如果您没有采用 LBS _ S 0 RT ， 那么可以使用 LB _ INSERTSTRING 指定一个索引 
值，将字串插入到清单方块中： 

SendMessage (hwndList, LB_INSERTSTRING, ilndex, (LPARAM) szString); 

例如，如果 ilndex 等於4，那么 szString 将变为索引值为 4 的字串-从 

顶头开始算起的第5个字串（因为是从0开始计数的），位於这个点後面的所 
有字串都将向後推移。索引值为 -1 时，将字串增加在最後。您可以对样式为 
LBS _ S 0 RT 的清单方块使用 LB _ INSERTSTRING ， 但是这个清单方块的内容不能被 
重新排序（您也可以使用 LB _ DIR 讯息将字串插入到清单方块中，这将在本章的 
最後进行讨论）。 

您可以在指定索引值的同时使用 LB _ DELETESTRING 参数，这就可以从清单 
方块中删除字串： 

SendMessage (hwndList, LB_DELETESTRING, ilndex, 0); 

您可以使用 LB _ RESETCONTENT 清除清单方块中的 内容： 

SendMessage (hwndList, LB_RESETCONTENT, ◦, 0); 

当在清单方块中增加或者删除字串时，清单方块视窗讯息处理程式将更新 
显示。如果您有许多字串需要增加或者删除，那么您也许希望暂时阻止这一动 
作，其方法是关掉控制项的重画旗标： 

SendMessage (hwndList, WM—SETREDRAW, FALSE, 0); 

当您完成後，可以再打开重画旗标： 

SendMessage (hwndList, WM—SETREDRAW, TRUE, 0); 

使用 LBS _ N 0 REDRAW 样式建立的清单方块开始时其重画旗标是关闭的。 

选择和取得项 

SendMessage 完成了下面所描述的任务之後，通常传回一个值。如果出错， 
那么这个值将被设定为 LB_ERR (定义为 -1) 。 
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当清单方块中放入一些项目之後，您可以弄清楚清单方块中有多少项目： 

iCount = SendMessage (hwndList , LB_GETCOUNT , 0, 0); 

其他一些呼叫对单项选择清单方块和多项选择清单方块是不同的。让我们 
先来看看单项选择清单方块。 

通常，您让使用者在清单方块中选择条目。但是如果您想加亮显示一个内 
定选择，则可以使用： 

SendMessage (hwndList , LB_SETCURSEL, ilndex, 0); 

将 iParam 设定为 -1 则取消所有选择。 

您也可以根据项目的第一个字母来 选择： 

ilndex = SendMessage (hwndList , LB_SELECTSTRING, ilndex, 

(LPARAM) szSearchstring); 

在 SendMessage 呼叫中将 ilndex 作为 iParam 参数时， ilndex 是索引，可 
以根据它搜索其开头字元与 szSearchString 相匹配的项目。 ilndex 的值等於 -1 
时从头开始搜索， SendMessage 传回被选中项目的索引。如果没有开头字元与 
szSearchString 相匹配的项目时 ， SendMessage 传回 LB _ ERR 。 

当您得到来自清单方块的 WM _ C 0 MMAND 讯息时（或者在任何其他时候），您 
可以使用 LB _ GET ⑶ RSEL 来确定目前选项的 索引： 

ilndex = SendMessage (hwndList , LB_GETCURSEL, ◦, 0); 

如果没有项目被选中，那么从呼叫中传回的 ilndex 值为 LB _ ERR 。 

您可以确定清单方块中字串的长度： 

iLength = SendMessage (hwndList , LB—GETTEXTLEN, ilndex, 0); 

并可以将某项目复制到文字缓冲区中： 

iLength = SendMessage ( hwndList , LB—GETTEXT, ilndex, 

(LPARAM) szBuffer); 

在这两种情况下，从呼叫传回的 iLength 值是字串的长度。对以 NULL 字元 
终结的字串长度来说， szBuffer 阵列必须够大。您也许想用 LB _ GETTEXTLEN 先 
分配一些局部记忆体来存放字串。 

对於一个多项选择清单方块，您不能使用 LB + SETCURSEL 、 LB _ GETCURSEL 或 
者 LB _ SELECTSTRING ， 但是您可以使用 LB _ SETSEL 来设定某特定项目的选择状态， 
而不影响有可能被选择的其他项： 

SendMessage (hwndList , LB_SETSEL, wParam, ilndex); 

wParam 参数不为 0 时，选择并加亮某一项目； wParam 为0时，取消选择。 
如果 wParam 等於-1，那么将选择所有项目或者取消所有被选中的项目。您可以 
如下确定某特定项目的选择状态： 

iSelect = SendMessage (hwndList , LB_GETSEL, ilndex, 0); 

其中，如果由 ilndex 指定的项目被选中， iSelect 被设为非0，否则被设 
为0。 
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接收来自清单方块的讯息 

当使用者用滑鼠单击清单方块时，清单方块将接收输入焦点。下面的操作 
可以使父视窗将输入焦点转交给清单方块控 制项： 

SetFocus (hwndList) ; 

当清单方块拥有输入焦点时，游标移动键、字母键和 Spacebar 键都可以用 
来在该清单方块中选择某项。 

清单方块控制项向其父视窗发送 WM _ COMMAND 讯息，对按钮和编辑控制项来 
说， wParam 和 IParam 变数的含义是相同的： 


LOWORD (wParam) 

子视窗 ID 

HIWORD (wParam) 

通知码 

IParam 

子视窗代号 


通知码及其值如下所示: 


LBN_ERRSPACE 

-2 

LBN—SELCHANGE 

1 

LBN_DBLCLK 

2 

LBN_SELCANCEL 

3 

LBN_SETFOCUS 

4 

LBN—KILLFOCUS 

5 


只有清单方块视窗样式包括 LBS _ NOTIFY 时，清单方块控制项才会向父视窗 
发送 LBN_SELCHANGE 和 LBN _ DBLCLK 。 

LBN _ ERRSPACE 表示清单方块已经超出执行空间。 LBN _ SELCHANGE 表示目前 
选择已经被改变。这些讯息出现在下列情 况下： 使用者在清单方块中移动加亮 
的项目时，使用者使用 Spacebar 键切换选择状态或者使用滑鼠单击某项时。 
LBN _ DBLCLK 说明某项目已经被滑鼠双击 （ LBN _ SELCHANGE 和 LBN _ DBLCLK 通知码 

的值表示滑鼠按下的次数）。 

根据应用的需要，您也许要使用 LBN _ SELCHANGE 或 LBN _ DBLCLK ， 也许二者 
都要使用。您的程式会收到许多 LBN _ SELCHANGE 讯息，但是 LBN _ DBLCLK 讯息只 
有当使用者双击滑鼠时才会出现。如果您的程式使用双击，那么您需要提供一 
个复制 LBN _ DBLCLK 的键盘介面。 

一 个简单的清单方块应用程式 

既然您知道了如何建立清单方块，如何使用文字项目填入清单方块，如何 
接收来自清单方块的控制项以及如何取得字串，现在是到了写一个应用程式的 
时候了。如程式 9-5 中所示， ENVIRON 程式在显示区域中使用清单方块来显示目 
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前作业系统环境变数（例如 PATH 和 WINDIR ) 。 
容将显示在显示区域的顶部。 

程式 9-5 ENVIRON 

当您选择一个环境变数时，其内 

ENVIRON.C 

/ ★ 





ENVIRON.C -- Environment List Box 



/ 

(c) 

Charles Petzold, 1998 

'k 

/ 

♦include <windows.h> 




♦define ID LIST 1 




♦define ID TEXT 2 




LRESULT CALLBACK WndProc (HWND, 

UINT, WPARAM, 

LPARAM) ; 


int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 


/ 



PSTR szCmdLine, int 

iCmdShow) 

I 

static TCHAR szAppName[] = TEXT ("Environ"); 



HWND 

hwnd 

• 

F 



MSG 

msg ; 




WNDCLASS 

wndclass ; 




wndclass.style 


=CS_HREDRAW | CS VREDRAW ; 


wndclass.lpfnWndProc 


=WndProc ; 



wndclass.cbClsExtra 


=◦; 



wndclass.cbWndExtra 


=◦; 



wndclass.hlnstance 


=hlnstance ; 



wndclass.hicon 


= Loadlcon 

(NULL, 

IDI 

APPLICATION); 





wndclass.hCursor 


=LoadCursor (NULL A 

工 DC—ARROW); 


wndclass.hbrBackground 

=(HBRUSH) (COLOR WINDOW 

+ 1 )； 


wndclass.IpszMenuName 

=NULL ; 



wndclass.IpszClassName 

=szAppName ; 



if (!RegisterClass (&wndclass)) 

! 




MessageBox ( 

NULL, TEXT 

(’’This program requires Windows 

NT! 

n ), 







szAppName, 

MB 

ICONERROR); 





return 0 ; 

} 





hwnd = CreateWindow ( szAppName, TEXT 

("Environment List Box ’’）， 


WS_OVERLAPPEDWINDOW, 
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CW_USEDEFAULT a CW—USEDEFAULT, 
CW_USEDEFAULT, CW_USEDEFAULT , 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


void FillListBox (HWND hwndList) 

{ 

int iLength ; 

TCHAR * pVarBlock, * pVarBeg, * pVarEnd, * pVarName ; 

pVarBlock = GetEnvironmentStrings () ; // Get pointer to environment 

block 


while (*pVarBlock) 

{ 

if (*pVarBlock 


// Skip variable names beginning with 


pVarBeg = pVarBlock ; 
while (*pVarBlock++ != *=▼) 
pVarEnd = pVarBlock 一 1 ; 
iLength = pVarEnd - pVarBeg 


// Beginning of variable name 
: // Scan until ▼=▼ 

// Points to ▼=▼ sign 
; // Length of variable name 


// Allocate memory for the variable name and terminating 
// zero. Copy the variable name and append a zero. 


pVarName = calloc (iLength + 1, sizeof (TCHAR)); 
CopyMemory (pVarName, pVarBeg, iLength * sizeof (TCHAR)); 
pVarName[iLength] = '\0'; 


// Put the variable name in the list box and free memory. 
SendMessage (hwndList, LB—ADDSTRING, ◦, (LPARAM) pVarName); 

free (pVarName); 

} 

while (*pVarBlock++ != ' \0 1 ) ; // Scan until terminating zero 

} 

FreeEnvironmentStrings (pVarBlock); 
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LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 


static HWND hwndList, 

int 

TCHAR 


hwndText ; 

ilndex, iLength, cxChar, cyChar ; 
* pVarName, * pVarValue ; 


switch (message) 


case WM—CREATE : 

cxChar = LOWORD (GetDialogBaseUnits ()); 
cyChar = HIWORD (GetDialogBaseUnits ()); 

// Create listbox and static text windows. 


hwndList = CreateWindow (TEXT ("listbox"), NULL, 
WS_CHILD I WS—VISIBLE | LBS_STANDARD, 
cxChar, cyChar * 3, 

cxChar * 16 + GetSystemMetrics (SM_CXVSCROLL), 
cyChar * 5, 

hwnd, (HMENU) ID_LIST, 

(HINSTANCE) GetWindowLong (hwnd, GWL_HINSTANCE), 

NULL); 

hwndText = CreateWindow (TEXT (’’static’’ ）， NULL, 
WS_CHILD I WS—VISIBLE | SS_LEFT, 
cxChar, cyChar, 

GetSystemMetrics (SM—CXSCREEN), cyChar, 
hwnd, (HMENU) ID_TEXT, 

(HINSTANCE) GetWindowLong (hwnd, GWL_HINSTANCE), 

NULL); 


FillListBox (hwndList); 
return 0 ; 


case WM—SETFOCUS : 

SetFocus (hwndList); 
return 0 ; 
case WM—COMMAND : 

if (LOWORD (wParam) 

LBN—SELCHANGE) 

{ 


==ID LIST && HIWORD (wParam) 


// Get current selection. 



ilndex = SendMessage (hwndList, LB_GETCURSEL, ◦, 0); 
iLength = SendMessage (hwndList, LB_GETTEXTLEN, ilndex, 0) +1 ; 
pVarName = calloc (iLength, sizeof (TCHAR)); 

SendMessage (hwndList, LB GETTEXT , ilndex, (LPARAM) pVarName); 
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// Get environment string. 

iLength = GetEnvironmentVariable (pVarName, NULL, 0); 
pVarValue = calloc (iLength, sizeof (TCHAR)); 
GetEnvironmentVariable (pVarName, pVarValue, iLength); 

// Show it in window. 

SetWindowText (hwndText, pVarValue); 
free (pVarName); 
free (pVarValue); 

} 

return 0 ; 

case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

ENVIRON 建立两个子 视窗： 一个是 LBS _ STANDARD 样式的清单方块，另一个 
是 SS _ LEFT 样式（置左对齐文字）的静态视窗。 ENVIRON 使用函式 
GetEnvironmentStrings 来获得一个指标，该指标指向存有全部环境变数名及其 
值的记忆体区块。 ENVIRON 用 FillListBox 函式来分析此记忆体区块，并使用 
LB _ ADDSTRING 讯息来指定清单方块视窗讯息处理程式将每个字串放入清单方块 
中。 

当您执行 ENVIRON 时，可以使用滑鼠或者键盘来选择环境变数。每次您改 
变选择时，清单方块都会给其父视窗 WndProc 发送一个 WM _ COMMAND 讯息。当 
WndProc 收到 WM _ COMMAND 讯息时，它就检查 wParam 的低字组是否为 IDJLIST (清 
单方块的子视窗 ID ) 和 wParam 的高字组（通知码）是否等於 LBN _ SELCHANGE 。 
如果是的，那么它就使用 LB _ GET ⑶ RSEL 讯息来获得选中项目的索引，并使用 
LB _ GETTEXT 来获得外部环境变数名的字串本身。 ENVIRON 程式使用 C 语言函式 
GetEnvironmentVariable 来获得与变数相对应的环境字串，使用 SetWindowText 
将该字串传递到静态子视窗控制项中，这个静态子视窗控制项被用来显示文字。 


档案列表 


我将最好的留在最後： LB _ DIR ， 这是功能最强的清单方块讯息。它用档案 
目录列表填入清单方块，并且可以选择将子目录和有效的磁碟机也包括 进来： 

SendMessage (hwndList , LB DIR, iAttr, (LPARAM) szFileSpec); 
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使用档案属性码 

iAttr 参数是档案属性代码，其最低位元组是档案属性代码，该代码可以是 
表 9-6 资料的 组合： 


表 9-6 


iAttr 

值 

属性 

DDL—READWRITE 

0x0000 

普通档案 

DDL—READONLY 

0x0001 

唯读档案 

DDL_HIDDEN 

0x0002 

隐藏档案 

DDL—SYSTEM 

0x0004 

系统档案 

DDL_DIRECTORY 

0x0010 

子目录 

DDL_ARCHIVE 

0x0020 

归档位元设立的档案 


高位元组提供了一些对所要求项目的附加 控制: 


表 9-7 


iAttr 

值 

属性 

DDL_DRIVES 

0x4000 

包括磁碟机代号 

DDL_EXCLUSIVE 

0x8000 

互斥搜索 


字首 DDL 表示「对话目录列表」。 

当 LB _ DIR 讯息的 iAttr 值为 DDL _ READWRITE 时，清单方块列出普通档案、 
唯读档案和归档位元设立的档案。当值为 DDL _ DIRECTORY 时，清单方块除了列 
出上述档案之外，还列出子目录，目录位於中括号之内。当值为 DDL_DRIVES | 
DDL _ DIRECTORY 时，那么列表将扩展到包括所有有效的磁碟机，而磁碟机代号显 
示在虚线之间。 

将 iAttr 的最高位元设立就可以只列出符合条件的档案，而不包括其他档 
案。例如，对 Windows 的档案备份程式，也许您只想列出最後一次备份後修改 
过的档案，这种档案的归档位元设立，因此您可以使用 DDL_EXCLUSIVE | 
DDL _ ARCHIVE 。 

档案列表的排序 

IParam 参数是指向档案指定字串如「*. *」的指标，这个档案指定字串不影 
响清单方块中的子目录。 

您也许希望给列有档案清单的清单方块使用 LBS _ S 0 RT 讯息。清单方块首先 
列出符合档案指定要求的档案，再（可选择）列出子目录名。列出的第一个子 
目录名将采用下面的格式： 
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这一个「两个点」的子目录项允许使用者向根目录回溯一层（在根目录下 
列出档案名时此项目不会出现）。最後，具体的子目录名称采用下面的 形式： 
[ SUBDIR ] 

再来是以下列形式列出的有效磁碟机（也是可选择的）： 

[- A -] 

Windows 的 head 程式 


UNIX 中有一个著名的实用程式叫做 head ， 它显示档案开始的几行。让我们 
使用清单方块为 Windows 编写一个类似的程式。如程式9_6所示， HEAD 将所有 
档案和子目录列在清单方块中。您可以挑选某个被选择的档案来显示，方法是 
在该档案上使用滑鼠双击或者使用 Enter 键按下要选的档案。您也可以使用这 
两种方法之一来改变子目录。这个程式在 HEAD 视窗显示区域的右边，从档案的 
开头开始显示，它最多能够显示8 KB 的内容。 


程式 9-6 HEAD 


HEAD.C 


■k 


HEAD.C -- Displays beginning (head) of file 

(c) Charles Petzold, 1998 


■k 


♦include <windows.h> 

#define ID—LIST 1 

♦define ID—TEXT 2 

#define MAXREAD 8192 

#define DIRATTR (DDL_READWRITE | DDL_READONLY | DDL_HIDDEN | DDL_SYSTEM | 

DDL_DIRECTORY | DDL—ARCHIVE | DDL_DRIVES) 

♦define DTFLAGS (DT—WORDBREAK | DT_EXPANDTABS | DT—NOCLIP |DT—NOPREFIX) 
LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

LRESULT CALLBACK ListProc (HWND, UINT, WPARAM, LPARAM); 

WNDPROC OldList ; 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("head"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style = CS HREDRAW | CS VREDRAW ; 
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wndclass . lpfnWndProc 

= WndProc ; 





wndclass . cbClsExtra 

=◦; 





wndclass . cbWndExtra 

=◦; 





wndclass.hlnstance 

= hlnstance 

• 

f 




wndclass • hicon 

= Loadlcon 

(NULL, IDI APPLICATION); 


wndclass . hCursor 

= LoadCursor (NULL, 

IDC ARROW); 


wndclass . hbrBackground 

= (HBRUSH) 

(COLOR BTNFACE + 

1) ； 


wndclass . IpszMenuName 

= NULL ; 





wndclass . IpszClassName 

= s zAppName 

• 

f 




if (!RegisterClass (&wndclass)) 

； 





i 

MessageBox ( 

NULL, TEXT ("This 

program : 

requires 

Windows NT! n ) , 




szAppName, MB ICONERROR); 


return 0 ; 

} 






hwnd = CreateWindow ( 

szAppName , TEXT ( 

"head") , 




WS OVERLAPPEDWINDOW | WS CLIPCHILDREN, 



CW USEDEFAULT, CW USEDEFAULT, 




CW USEDEFAULT, CW USEDEFAULT, 




NULL, NULL, hlnstance, NULL); 




ShowWindow (hwnd. 

iCmdShow); 





UpdateWindow (hwnd); 





while (GetMessage 

f 

(&msg, NULL, ◦, 

0)) 




TranslateMessage (&msg); 





DispatchMessage (&msg); 




} 

J 

return msg . wParam ; 





LRESULT CALLBACK WndProc ( 

HWND hwnd, UINT 

message , 

WPARAM 

wParam,LPARAM 

IParam) 

/ 






static BOOL 

bValidFile ; 





static BYTE 

buffer[MAXREAD]; 




static HWND 

hwndList, hwndText ; 




static RECT 

rect ; 





static TCHAR 

szFile[MAX 

PATH + 1] 

• 

f 



HANDLE 

hFile ; 





HDC 

hdc ; 





int 

i, cxChar, 

cyChar ; 




PAINTSTRUCT 

ps ; 





TCHAR 

szBuffer[MAX PATH + 

1] ； 



switch (message) 
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case 


case 


case 


case WM—CREATE : 

cxChar = LOWORD (GetDialogBaseUnits ()); 
cyChar = HIWORD (GetDialogBaseUnits ()); 

rect.left = 20 * cxChar ; 
rect.top = 3 * cyChar ; 

hwndList = CreateWindow (TEXT ("listbox "), NULL, 
WS_CHILDWINDOW | WS—VISIBLE | LBS_STANDARD, 
cxChar, cyChar * 3, 

cxChar * 13 + GetSystemMetrics (SM—CXVSCROLL), 

cyChar * 10, 

hwnd, (HMENU) ID_LIST, 

(HINSTANCE) GetWindowLong (hwnd, GWL_HINSTANCE), 

NULL); 

GetCurrentDirectory (MAX PATH + 1, szBuffer); 


hwndText = CreateWindow (TEXT ("static 1 ，）， szBuffer, 
WS_CHILDWINDOW | WS—VISIBLE | SS_LEFT, 
cxChar, cyChar, cxChar * MAX_PATH / cyChar, 
hwnd, (HMENU) ID_TEXT, 

(HINSTANCE) GetWindowLong (hwnd, GWL_HINSTANCE), 

NULL); 

OldList = (WNDPROC) SetWindowLong (hwndList, GWL_WNDPROC, 

(LPARAM) ListProc); 

SendMessage (hwndList, LB_DIR, DIRATTR, (LPARAM) TEXT (▼，*•*”））; 
return 0 ; 


WM—SIZE : 

rect.right = LOWORD (IParam); 

rect.bottom = HIWORD (IParam); 

return 0 ; 

WM_SETFOCUS : 

SetFocus (hwndList); 
return 0 ; 


WM—COMMAND : 

if (LOWORD (wParam) == ID_LIST && HIWORD (wParam) == LBN_DBLCLK) 

{ 

if (LB—ERR == (i = SendMessage (hwndList, LB—GETCURSEL, 0, ◦))) 

break ; 


SendMessage (hwndList, LB GETTEXT, i, (LPARAM) szBuffer); 
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if (工 NVALID_HANDLE_VALUE != (hFile = CreateFile (szBuffer, 

GENERIC_READ, FILE_SHARE_READ, NULL, 

OPEN_EXISTING, ◦, NULL))) 

{ 

CloseHandle (hFile); 
bValidFile = TRUE ; 
lstrcpy (szFile, szBuffer); 

GetCurrentDirectory (MAX_PATH + 1, szBuffer); 

if (szBuffer [ lstrlen (szBuffer) - 1] != 1 \\') 

lstrcat (szBuffer, TEXT ( "\\ n )); 

SetWindowText (hwndText, lstrcat (szBuffer, szFile)); 

} 

else 

{ 

bValidFile = FALSE ; 

szBuffer [lstrlen (szBuffer) - 1] = , \0 , ; 

// If setting the directory doesn't work, maybe it 1 s 
// a drive change, so try that. 

if (!SetCurrentDirectory (szBuffer + 1)) 

{ 

szBuffer [3] = 1 : '; 

szBuffer [4] = , \0 , ; 
SetCurrentDirectory (szBuffer + 2); 

} 

// Get the new directory name and fill the list box. 

GetCurrentDirectory (MAX—PATH + 1, szBuffer); 
SetWindowText (hwndText, szBuffer); 

SendMessage (hwndList, LB_RESETCONTENT, ◦, 0); 
SendMessage (hwndList, LB_DIR, DIRATTR, 

(LPARAM) TEXT (，'*•*，，））; 

} 

工 nvalidateRect (hwnd, NULL, TRUE); 

} 

return 0 ; 
case WM—PAINT : 

if (!bValidFile) 

break ; 

if (INVALID_HANDLE—VALUE == (hFile = CreateFile (szFile, 
GENERIC_READ, FILE_SHARE_READ, NULL, OPEN_EXISTING, 0, NULL))) 
{ 

bValidFile = FALSE ; 
break ; 
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ReadFile (hFile, buffer, MAXREAD, &i, NULL); 

CloseHandle (hFile); 

// i now equals the number of bytes in buffer. 

// Commence getting a device context for displaying text. 

hdc = BeginPaint (hwnd, &ps); 

SelectObject (hdc, GetStockObject (SYSTEM—FIXED—FONT)); 
SetTextColor (hdc, GetSysColor (COLOR—BTNTEXT)); 

SetBkColor (hdc, GetSysColor (COLOR_BTNFACE)); 

// Assume the file is ASCII 

DrawTextA (hdc, buffer, i, &rect, DTFLAGS); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd A message, wParam, IParam); 

} 

LRESULT CALLBACK ListProc (HWND hwnd, UINT message, 

WPARAM wParam, LPARAM IParam) 

{ 

if (message == WM—KEYDOWN && wParam == VK_RETURN) 

SendMessage (GetParent (hwnd), WM_COMMAND, 

MAKELONG (1, LBN_DBLCLK), (LPARAM) hwnd); 
return CallWindowProc (OldList, hwnd, message, wParam, IParam); 

} 

在 ENVIRON 中，当我们选择一个环境变数时——无论是使用滑鼠还是键盘 
——程式都将显示一个环境字串。但是，如果我们在 HEAD 中使用这种选择显示 
方法，那么程式回应会很慢，这是因为在清单方块中移动选择时，程式仍然要 
不断地打开和关闭档案。然而， HEAD 要求档案或者子目录被双击，从而引起一 
些问题，这是因为清单方块控制项没有滑鼠双击的自动键盘介面。前面讲过， 
如果可能，应该尽量提供键盘介面。 

解决的方法是什么呢？当然是视窗子类别化。 HEAD 中的清单方块子类则函 
式叫做 ListProc ， 它寻找 wParam 参数等於 VK _ RETURN 的 WM _ KEYDOWN 讯息，并 
给其父视窗发送一条带有 LBN _ DBLCLK 通知码的 WM _ COMMAND 讯息。在 WndProc 
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中，对 WM _ COMMAND 的处理使用了 Windows 函式的 CreateFile 来检查清单方块 
中的选择。如果 CreateFile 传回一个错误资讯，则表示该选择不是档案，而可 
能是一个子目录。然後 HEAD 使用 SetCurrentDirectory 来改变这个子目录。如 
果 SetCurrentDirectory 不能执行，程式将假定使用者已经选择了一个磁碟机 
代号。改变磁碟机也需要呼叫 SetCurrentDirectory , 作为该函式参数的字串则 
为是选择字串中拿掉开头的斜线，并加上一个冒号。它向清单方块发送一条 
LB _ RESETCONTENT 讯息来清除其中的内容，再发送一条 LB _ DIR 讯息，使用新子 
目录中的档案来填入清单方块。 

WndProc 中的 WM PAINT 讯息是用 Windows 的 CreateFile 函式来打开档案的， 
这将传回一个档案代号，该代号可以传递给 Windows 的 ReadFile 和 CloseHandle 
函式。 

现在，在本章中，我们第一次碰到这个问题： Unicode 。 我们所希望最完美 
的方式大概就是让作业系统辨认文字档案的种类，使 ReadFile 能将 ASCII 档案 
转换成 Unicode 文字，或者将 Unicode 档案转换成 ASCII 文字。但现实并非如 
此完美。 ReadFile 的功能只是读取档案中未经转换的位元组，也就是说， 
DrawTextA (在编译好的可执行档中没有定义 UNICODE 识别字）会把文字解释为 
ASCII ， 而 DrawTextW (Unicode 版）会假设文字是 Unicode 的。 

因此程式真正应该做的是去判别档案所包含的是 ASCII 文字还是 Unicode 
文字，然後再恰当地呼叫 DrawTextA 或者 DrawTextW 。 实际上， HEAD 采用一个 
比较简单的方式，它只呼叫了 DrawTextAo 
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第十章功能表及其他资源 

大多数 Windows 程式都包含一个自订的图示， Windows 将该图示显示在应用 
程式视窗标题列的左上角。当程式被列在「开始」功能表中，被显示在萤幕底 
部的工作列中，被列在 Windows Explorer 中，或者作为快捷方式显示在桌面上 
时， Windows 也显示该程式的图示。有些程式——大部分是像小画家一类的图形 
绘制工具 一一 也使用自订滑鼠游标来表示程式的不同操作。还有许多 Windows 
程式使用功能表和对话方块。功能表、对话方块加上卷动列，这是标准 Windows 
使用者介面的卖点。 

图不、游标、功能表和对话方块都是相互关联的，它们是 Windows 的全部 
资源型态。资源即资料，它们被储存在程式的 . EXE 档案中，但是它们并非驻留 
在程式的资料区域中。也就是说，资源不能从程式原始码中定义的变数直接存 
取， Windows 提供函式直接或间接地把它们载入记忆体以备使用。我们已经遇到 
了两个这样的函式，即 Loadlcon 和 LoadCursor ， 它们出现在范例程式，定义视 
窗类别结构的内容设定叙述中。它们从 Windows 中载入二进位图示和游标映象， 
并传回该图示或游标的代号。在本章中，我们先建立自己的图示，它会从程式 
自己的 . EXE 档案中载入。 

在本书中，我们将讨论这些 资源： 

• 图示 
• 游标 
* 字串 
• 自订资源 
• 功能表 
• 键盘加速键 
• 对话方块 
• 点阵图 

前六个资源在本章讨论，对话方块在第十一章讨论，而点阵图在第十四章 
讨论。 

图示、游标、字串和自订资源 

使用资源的好处之一，在於程式的许多元件能够连结编译进程式的 . EXE 档 
案中。如果没有资源这一个概念，如图示图像之类的二进位档案可能会存放在 
单独的档案中， . EXE 会把它读入记忆体中使用。或者图示不得不在程式中以位 
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元组阵列的形式定义（这样就无法看到实际的图示图像了）。作为资源，图示 
储存在开发者电脑上可单独编辑的档案中，但在编译程序中被连结编译进 .EXE 
档案中。 

将图示添加到程式 

将资源添加到程式中需要 Visual C ++ Developer Studio 的一些附加功能。 
对於图示来说，可以使用 「Image Editor 」 （也称为 「Graphics Editor 」） 来 
绘制图示的图像。该图像被储存在副档名为 . ICO 的图示档案中 。 Developer 
Studio 还产生一个资源描述档（副档名为 . RC 的档案，有时也称作资源定义档 

案），它列出了程式的所有资源和一个让程式引用资源的表头档案 
( RESOURCE . H ) 。 

因此，您可以看到这些新档案是如何组织在一起的，让我们以建立名为 
IC 0 NDEM 0 的新专案开始。像往常一样，在 Developer Studio 中从 File 功能表 
中选择 New ，然後依次选择 专案 页面标签和 Win 32 Application 。 
在 Project Name 栏中键入 IC 0 NDEM 0 并单击 0 K 。 这时， Developer Studio 

建立了用於支援工作区和专案的五个档案。这些档案包括文字档案 
ICONDEMO . DSW 、 ICONDEMO . DSP 和 ICONDEMO . MAK (假设当您从 Tools 功能表选 

择 Open 後，在显示的 Open 对话方块中，从 Build 页面标签中选中 Export 
makefile when saving project file ) 。现在，让我们像通常那样所做的建 
立 C 原始码档案。从 File 功能表上选择 New ，选择 Files 页面标签，并单 
击 C++Source File 。在 File Name 栏中键入 ICONDEMO. C 并单击 OK 。此时， 
Developer Studio 就建立了一个空的 ICONDEMO. C 档案。键入程式 10-1 中的程 
式，或选择 Insert 功能表，然後选择 File As Text 选项，从本书附上的光 
碟中复制原始码。 


程式 10-1 ICONDEMO 


ICONDEMO.C 

/* - 



ICONDEMO.C -- 

Icon Demonstration Program 

(c) Charles Petzold, 1998 

- V 


♦include <windows.h> 

♦include "resource.h" 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 
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TCHAR szAppName[] 

= 

TEXT ( n IconDemo n ); 


HWND hwnd 

MSG msg ; 

WNDCLASS wndclass ; 

參 

f 




wndclass.style 

=CS— 

HREDRAW 

| CS VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 



wndclass.cbClsExtra 

= 0 ; 




wndclass.cbWndExtra 

=◦; 




wndclass.hlnstance 

=hlnstance ; 



wndclass•hicon 

=Loadlcon (hlnstance, MAKEINTRESOURCE 

( 工 DI 

ICON)); 





wndclass.hCursor 

=LoadCursor 

(NULL, 工 DC ARROW); 


wndclass.hbrBackground 

=GetStockObject (WHITE_BRUSH); 


wndclass.IpszMenuName 

=NULL ; 




wndclass.IpszClassName 

=szAppName ; 



if (!RegisterClass (&wndclass)) 

； 




l 

MessageBox ( 

NULL, TEXT 

("This program requires Windows 

NT ! ") 

r 



szAppName, 

MB ICONERROR) ; 




} 

return 0 ; 





hwnd = CreateWindow ( szAppName, TEXT 

('’Icon Demo ”）， 


WS OVERLAP PE DWINDOW, 




CW USEDEFAULT, CW 

USEDEFAULT, 




CW USEDEFAULT, CW 

USEDEFAULT, 




NULL, NULL, hlnstance, NULL) 

• 

f 



ShowWindow (hwnd, iCmdShow) 

UpdateWindow (hwnd); 

參 

f 




while (GetMessage (&msg, NULL, 0, 0)) 




TranslateMessage 

(&msg); 




DispatchMessage 

\ 

(&msg); 



} 

J 

return msg.wParam ; 




LRESULT CALLBACK WndProc ( HWND 

IParam) 

/ 

hwnd, UINT 

message. 

WPARAM wParam, LPARAM 


static HICON hlcon ; 





static int cxlcon, cylcon. 

cxClient, cyClient 

• 

f 


HDC hdc ; 
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HINSTANCE hlnstance ; 



PAINTSTRUCT ps ; 



int 


x, y ； 



switch (message) 

； 



i 

case 

WM 

CREATE : 





hlnstance = ( (LPCREATESTRUCT) IParam)->hlnstance ; 



hlcon 

= Loadlcon (hlnstance. 

MAKEINTRESOURCE 

(IDI ICON)) 

參 

f 






cxlcon 

=GetSystemMetrics (SM—CXICON); 



cylcon 

=GetSystemMetrics (SM—CYICON); 



return 0 ; 



case 

WM 

SIZE : 





cxClient 

=LOWORD (IParam); 




cyClient 

=HIWORD (IParam); 




return 0 ; 



case 

WM 

PAINT : 





hdc = BeginPaint 

(hwnd, &ps); 




for (y = ◦ ; y < 

cyClient ; y += cylcon) 





for (x = ◦ ; x < cxClient 

;x += cxlcon) 




Drawlcon (hdc. 

x, y r hlcon); 




EndPaint (hwnd, &ps); 





return 0 ; 


case 

WM 

DESTROY : 





PostQuitMessage 

(0); 




return 0 ; 



i 

return DefWindowProc (hwnd, 

} 

message, wParam, IParam); 



如果您试著编译该程式，因为在程式开头引用的 RESOURCE . H 档案并不存在， 
所以会产生错误。然而，您不必直接建立 RESOURCE . H 档案，而是由 Developer 


Studio 为您建立一个。 

您可以通过将资源描述档添加到专案中来做到这一点。从 「 File 」 功能表 
中选择 「 New 」 ， 选择 「 Files 」 页面标签，单击 「Resource Script 」，在 「File 
Name 」 栏中键入 「 IC 0 NDEM 0」 ， 单击 OK 。 此时， Developer Studio 会建立两个 
文字档案： ICONDEMO . RC (资源描述档）和 RESOURCE . H (允许 C 原始码档案和资 
源描述档引用相同的已定义识别字）。不必直接编辑这两个档案，只要让 
Developer Studio 来维护它们就可以。如果您想查看资源描述档和 RESOURCE . H 
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而不希望对 Developer Studio 产生干扰，可以用记事本打开它们。除非您对所 
做的动作很有把握，否则不要轻易地更改它们。请记住，只有在您下达明确的 
操作命令或重新编译专案时 ， Developer Studio 才会储存这些档案的新版本。 

资源描述档是文字档案。它包括这些资源的可用文字形式表达的描述，例 
如功能表和对话方块。资源描述档也包括对非文字资源的二进位档案的引用， 
例如图示和自订的滑鼠游标。 

现在，已经存在 RESOURCE . H 档案，您可以试著重新编译一下 IC 0 NDEM 0。 现 
在会出现一条错误讯息，指出 IDI _ IC 0 N 还没被定义。这个识别字第一次出现在 
下面的叙 述中： 

wndclass.hlcon = Loadlcon (hlnstance, MAKEINTRESOURCE (IDI_ICON)); 

在本书前面的程式中，这个叙述是由下面的叙述代替的: _ 

wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

之所以改变叙述，是因为以前我们为应用程式使用的是标准的图示，而这 
里我们的目的是使用自订图示。 

那么让我们建立一个图示吧！在 Developer Studio 的 「File View 」 视窗 
中，您会看到两个档案—— ICONDEMO . C 和 ICONDEMO . RC 。 您开启 CONDEMO . C 後， 
就可以编辑原始码。开启 ICONDEMO . RC 後，就可以把资源添加到档案中或编辑 
已存在的资源。要添加图示的话，请从「 Insert 」功能表上选择「 Resource 」 
选择您想添加的资源，也就是图示，然後再按下「 New 」按钮。 

现在呈现的是一个空白的 32 X 32 图素的图示，您可以在其中填入颜色。您 
会看到带有一组绘图工具和可用颜色的浮动工具列。注意颜色工具列中包括两 
个与颜色无关的选项，这两种颜色选项有时被称为「萤幕颜色」跟「反萤幕颜 
色」。当一个图素在著色时选择了「萤幕颜色」时，它实际上是透明的。不管 
图示在什么表面上显示，图示未著色的部分会显示出底色。这样我们就可以建 
立非矩形的图示。 

双击围绕图示的区域，会出现 rIcon Properties ] 对话方块，该对话方块 
使您能够更改图示的 ID 和档案名称 。 Developer Studio 可能已经将 ID 设定为 
IDI — IC 0 N 1， 将它改为 IDI — ICON , 这样 ICONDEMO 就可以引用图示（字首 IDI 代 
表「图示的 ID 」） 。同样地，将档案名改为 ICONDEMO . ICO 。 

现在选择一种有特色的颜色（如红色）并在图示上画一个大的 B (代表 BIG )， 
请注意不必像图 10-1 那么整齐。 
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图 10—1 显示在 Developer Studio 中的标准 (32X32) IC0NDEM0 档案 


此时程式应该能够编译并执行得很好了 。 Developer Studio 将在 
IC 0 NDEM 0. RC 资源描述档中划一条横线，表示下面是带有识别字 （ IDI _ IC 0 N ) 的 
图示档案 （ IC 0 NDEM 0. ICO ) 。 RESOURCE . H 表头档案中会包含 IDI _ IC 0 N 识别字的 
定义。 

Developer Studio 通过资源编译器 RC . EXE 编译资源。文字资源描述档被转 
化为二进位形式，也就是具有副档名 . RES 的档案。然後，该已编译的资源档案 
随同 . OBJ 和 . LIB 档案一起在 LINK 步骤中被指定连结。这就是资源被添加到最 
後产生出来的 . EXE 档案中的方式。 

当您执行 IC 0 NDEM 0 时，程式图示显示在标题列的左上角和工作列中。如果 
您将程式添加到「开始」功能表中，或在桌面上放置捷径，您也会在那儿看到 
该图示。 

IC 0 NDEM 0 也在显示区域水平和垂直地重复显示该图示。程式使用叙述 

hlcon = Loadlcon (hlnstance, MAKEINTRESOURCE (IDI—ICON)); 

取得图示的代号。使用叙述 _ 

cxlcon = GetSystemMetrics (SM—CXICON); 
cylcon = GetSystemMetrics (SM—CYICON); 

取得图示的大小。然後，程式通过多次呼叫 

Drawlcon (hdc, x, y, hlcon); 

显示图示，其中 x 和 y 是被显示图示其左上角的座标。 

在目前使用的大多数视讯显示卡上，带有 SM _ CXIC 0 N 和 SM _ CYIC 0 N 索引的 
GetSys temMetrics 会回报图示的大小为 32 X 32 图素。这是我们在 Developer 
Studio 中建立的图示大小，它也是图示出现在桌面上和显示在 IC 0 NDEM 0 程式显 
示区域的大小。然而，这个大小并非显示在程式的标题列或工作列中的图示大 
小。小图示的大小可以由带有 SM _ CXSMSIZE 和 SM _ CYSMSIZE 索引的 
GetSystemMetrics 获得（第一个 SM 表示 「system metrics (系统度量）」，被 
包含的 SM 表示 「small (小）」 ） 。对於目前使用的大多数显示卡来说，小图 
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示的大小为 16 X 16 图素。 

这会产生问题。当 Windows 将 32 X 32 的图示缩小为 16 X 16 的图示时，必 
需减少图素的行和列。这样，对於某些比较复杂的图示，就会失真。因此，我 
们应该为那些图像缩小就会变形的图示建立特殊的 16 X 16 图素的图示。在 
Developer Studio 中图示图像的上面是标识为 「 Device 」 的下拉式清单方块， 
在它的右边有一个按钮，按下该按钮会弹出 「New Icon ImageJ 对话方块，此 
时选择 rSmall (16 X 16) 」。现在您可以画另一个图示。如图 10-2 所示，画 
一个 「 S 」 （表示「小」 ） 。 



图 10-2 在 Developer Studio 中显示的小 (16X16) IC0NDEM0 档案 


在该程式中您不必做任何事情。第二个图示图像被储存在相同的 
IC 0 NDEM 0. I ⑶档案中，并以相同的 IDI _ IC 0 N 识别字引用。在适当的时候 ， Windows 
会自动使用该较小的图示，例如在标题列或工作列中。当在桌面上显示快捷方 
式，以及程式呼叫 Drawl con 装饰显示区域时， Windows 会使用大图示。 

在掌握这些知识之後，让我们看一看使用图示的详细情况。 

取得图示代号 

如果您仔细阅读 IC 0 NDEM 0. RC 和 RESOURCE . H 档案，会看到由 Developer 
Studio 产生用於维护档案的一些标记。然而，当编译资源描述档时，只有少数 
几行是重要的。这些从 IC 0 NDEM 0. RC 和 RESOURCE . H 档案中摘录下来的关键部分 
被列在程式 10-2 中。 

IC0NDEM0. RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h M 
♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// 工 con 

IDI_IC0N 工 CON DISCARDABLE "icondemo.ico" 

RESOURCE .H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by IconDemo.rc 
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♦define 工 DI—ICON 101 

程式 10-2 IC0NDEM0. RC 和 RESOURCE. H 档案的摘录 

程式 10-2 所显示的 IC 0 NDEM 0. RC 和 RESOURCE . H 档案与您在普通的文字编 
辑器中手动建立的很相似，80年代的 Windows 程式写作者就是这样做的。唯一 
不同的是 AFXRES . H ， 它是个表头档案，包含了在建立由机器产生的 MFC 专案时 
由 Developer Studio 使用的常用识别字。在本书中，我们不会用到 AFXRES . H 。 
IC 0 NDEM 0. RC 中的这行 

工 DI_ICON ICON DISCARDABLE "icondemo.ico" 

是资源描述档的 ICON 叙述。该图示有一个数值识别字 IDI _ IC 0 N ， 等於101。 
由 Developer Studio 添加的 DISCARDABLE 关键字指出，必要时 Windows 可以从 
记忆体中丢弃图示，以获得额外的空间。之後不需要程式任何特定的操作， 
Windows 就能够重新载入图示。 DISCARDABLE 属性是内定的，不需要指定。只有 
在名称和目录路径包含空格时 ， Developer Studio 才将档案名加上引号。 

当资源编译程序将编译的资源储存在 ICONDEMO . RES 中，并且由连结程式将 
资源添加到 I ⑶ NDEM 0. EXE 中以後，该资源就可以经由一个资源型态 ( RT _ IC 0 N ) 
和一个识别字 （ IDI _ IC 0 N 或 101) 来标识。程式可以通过呼叫 Loadlcon 函式取 
得此图示的 代号： 

hlcon = Loadlcon (hlnstance, MAKEINTRESOURCE ( 工 DI—ICON)); 

请注意 ICONDEMO 在两个地方呼叫这个函式，一次在定义视窗类别时，另一 
次在视窗讯息处理程式中取得图示的代号用於绘制。 Loadlcon 传回 HIC 0 N 型态 
的值，它是图示的代号。 

Loadlcon 的第一个参数，是指出资源来自哪个档案的执行实体代号。使用 
hlnstance 表示它来自程式自己的 . EXE 档案。 Loadlcon 的第二个参数实际上被 
定义为指向字串的指标。待会将会看到，可以使用字串而不是用数值识别字标 
识资源。巨集 MAKEINTRESOURCE (把整数转换成资源字串）生成指向非数字的指 
标，如下所示： 

♦ define MAKEINTRESOURCE (i) (LPTSTR) ((DWORD) ( (WORD) (i))) 

Loadlcon 知道，如果第二个参数的高字组为0，那么低字组就为图示的数 
值识别字。图示的识别字必须为16位元值。 

本书前面的范例程式使用了预先定义的图示： 

Loadlcon (NULL, IDI—APPLICATION) ; 

hlnstance 参数被设定为 NULL , 因此 Windows 知道这是预先定义的图示。 
IDI _ APPLICATI 0 N 也在 WINUSER . H 中用 MAKEINTRESOURCE 定义： 

♦define IDI—APPLICATION MAKEINTRESOURCE(32512) 

Loadlcon 的第二个参数带来了一个有趣的 问题： 图示的识别字能可以为字 
串吗？答案是可以。方法如 下：在 Developer Studio 中，在 ICONDEMO 专案 
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的档案列表上，选择 BONDEMO . RC 。您会看到顶端为 「IconDemo Resource ] 
的树状结构，然後是资源型态 「 Icon 」 ，再下来是 「 IDI _ IC 0 N 」 。如果用滑鼠 
右键单击图示识别字，并从功能表上选择「 Properties 」 ，您就能改变 ID 。 
实际上，您可以把名称放在引号内将其更改为字串。我用这种方法指定资源名 
称，并在本书的其他地方也使用该方法。 

我喜欢为图示（以及一些其他资源）使用文字名称，因为名称可以是程式 
的名称。例如，假定档案被命名为 MYPR 0 G 。 如果您使用 「Icon Properties 」 对 
话方块将图示的 ID 指定为 rMyProgJ (包括引号），资源描述档将包含下列叙 
述： 

MYPROG ICON DISCARDABLE myprog.ico 

然而，在 RESOURCE . H 中并没有 #def ine 叙述，来指出 MYPROG 是数值识别字。 
资源描述档将假定 MYPROG 是字串识别字。 

在 C 程式中，使用 Loadlcon 函式来取得图示代号。您可能已经有了表示程 
式名的 字串： 

static TCHAR szAppName [] = TEXT ("MyProg"); 

这意味著程式可以使用 叙述： 

hlcon = Loadlcon (hlnstance, szAppName); 

来载入图示，这比巨集 MAKEINTRESOURCE 更清晰一些。 

但是如果您确实想用数字来命名，那么您可以用数字代替识别字或字串。 
在 rIcon Properties 」 对话方块中，在 ID 栏中输入数字。资源描述档将有一 
个类似下面的 ICON 叙述： 

125 工 CON DISCARDABLE myprog.ico 

可以使用两种方法之一引用图示。明显易读的方 式是： 

hlcon = Loadlcon (hlnstance, MAKEINTRESOURCE (125)); 

另一个不易阅读的方 式是： 

hlcon = Loadlcon (hlnstance, TEXT ("#125")); 

Windows 识别初始字元 # 作为 ASCII 形式中字元数值的开头。 

在程式中使用图示 

虽然 Windows 以几种方式用图示来代表程式，但是许多 Windows 程式仅在 
用 WNDCLASS 结构和 RegisterClass 定义视窗类别时指定一个图示。如我们所看 
到的，这样作用得很好，尤其当图示档案包含标准和较小的图像大小时，更是 
如此。 Windows 在显示图示图像时，它会在图示档案中选择最合适的图像大小。 

RegisterClass 有一个改进版本叫做 RegisterClassEx ，它使用名为 
WNDCLASSEX 的结构 。 WNDCLASSEX 有两个附加的 栏位 ： cbSize 和 hlconSm。cbSize 
栏位指出了 WNDCLASSEX 结构的大小，假设 hlconSm 被设定为小图示的图示代号。 


第392页 




















Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

这样，在 WNDCLASSEX 结构中，您可以设定与两个图示档案相关的两个图示代号 
——一个用於标准图示，一个用於小图示。 

有这种必要吗？没有。正如我们看到的， Windows 已经从单个图示档案中提 
取了大小合适的图示图像。 RegisterClassEx 似乎没有 RegisterClass 聪明。如 
果 hlconSm 栏位使用了包含多个图像的图示档案，则只有第一个图像能被利用。 
它可能是标准大小的图示，使用时才被缩小。 RegisterClassEx 似乎是为了使用 
多个图示图像而设计的，每个图像只包含一种图示大小。因为现在可以将多个 
图示大小包括在同一个图示档案中，所以我建议使用 WNDCLASS 和 
RegisterClass 。 

如果您想在程式执行的时候，动态地更改程式的图示，可以使用 
SetClassLong 来达到目的。例如，如果您有与识别字 IDI _ ALTICON 相关的第二 
个图示档案，则您可以使用以下的叙述将其切换到那个 图示： 

SetClassLong (hwnd, GCL—HICON, 

Loadlcon (hlnstance, MAKEINTRESOURCE (IDI—ALTICON))); 

如果不想储存程式图示的代号，但要使用 Drawlcon 函式在别处显示它，可 
以使用 GetClassLong 获得代号。 例如： 

Drawlcon (hdc, x, y, GetClassLong (hwnd, GCL_HICON)); 

在 Windows 文件的某些部分， Loadlcon 被称为「过时的」，并推荐使用 
Loadlmage ( Loadlcon 在 /Platform SDK/User Interface 
Services / Resources/Icons 中说明 ， Loadlmage 在 /Platform SDK/User 
Interface Services / Resources/Resources 中说明）。当然 Loadlmage 更为灵 
活，但它没有 Loadlcon 简单。您会注意到，在 IC 0 NDEM 0 中对同一个图示呼叫 
了 Loadlcon 两次。这不会产生问题，也没有使用额外的记忆体。 Loadlcon 是取 
得代号但不需要清除代号的少数几个函式之一。实际上有一个 Destroylcon 函 
式，但它与 Createlcon、Createlconlndirect 和 CreatelconFromResource 连 

在一起使用。这些函式使程式能够动态地建立图示图像。 

使用自订游标 

在程式中使用自订的滑鼠游标与使用自订的图示相似，只是大多数程式写 
作者总是使用 Windows 提供的游标。自订游标一般为单色，大小为32 32图素。 
在 Developer Studio 中建立游标与建立图示的方法相同（从「 Insert 」功能 
表上选择「 Resource 」 ， 然後单击「 Cursor 」） ， 但不要忘记定义热点。 

可以在物件类别定义中设定自订游标，叙述为： 

wndclass.hCursor = LoadCursor (hlnstance, MAKEINTRESOURCE (IDC_CURSOR)); 

如果游标用文字名称定义， 则为： _ 
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wndclass.hCursor = LoadCursor (hlnstance, s zCursor); 

每当滑鼠位於根据这个类别建立的视窗上时，就会显示与 IDC_CURSOR 或 
szCursor 相对应的滑鼠游标。 

如果使用了子视窗，那么您可能希望游标随著所在视窗的不同而有所区别。 
如果程式为这些子视窗定义了视窗类别，就可以在每个视窗类别中适当地设定 
hCursor 栏位，让每个视窗类别使用不同的游标。如果使用了预先定义的子视窗 
控制项，就可以使用以下方法改变视窗类别的 hCursor 栏位： 

SetClassLong (hwndChild, GCL—HCURSOR, 

LoadCursor (hlnstance, TEXT ("childcursor")); 

如果您将显示区域划分为较小的逻辑区域而不使用子视窗，就可以使用 
SetCursor 来改变滑鼠 游标： 

SetCursor (hCursor) ; 

在处理 WM _ M 0 USEM 0 VE 讯息处理期间，您应该呼叫 SetCursor ; 否则，当游 
标移动时， Windows 将使用视窗类别中定义的游标来重画游标。文件指出，如果 
没有改变游标，则 SetCursor 速度将会很快。 

字串资源 

把字串当成资源的观念一开始可能令人觉得诡异。因为我们在使用原始码 
中定义为变数的一般字串时，并没有碰到任何问题。 

字串资源主要是为了让程式转换成其他语言时更为方便。正如後面两章中 
将看到的一样，功能表和对话方块也是资源描述档的一部分。如果使用字串资 
源而不是将字串直接放入原始码中，那么程式所使用的所有文字将在同一档案 
一一 资源描述档中。如果转换了资源描述档中的文字，那么建立程式的另一种 
语言版本所需做的一切就是重新连结程式。这种方法比重新组织原始码安全得 
多（然而，除了下一个范例程式，我在本书的其他程式中不使用字串表，原因 
是字串表使程式码看起来更为模糊和复杂）。 

您可以在「 Insert 」 功能表中选择「 Resource 」 ， 再选择「 String 
Table 」 ， 建立一个字串表。字串会显示在萤幕右边的列表中。通过双击字串 
就可以选中它。针对每个字串，您可以指定识别字和字串的内容。 

在资源描述中，字串显示在一个多行的叙述中，如下所示： 

STRINGTABLE DISCARDABLE 
BEGIN 

IDS—STRING1, "character string 1" 

IDS_STRING2, "character string 2" 

其祕字 串定义 
END 

如果您在替早期版本的 Windows 写程式，并在文字编辑器中手动建立这个 
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字串表（用 Developer Studio 来做这件事当然更容易得多了），您可以用左右 
大括弧代替 BEGIN 和 END 叙述。 

资源描述可以包含多个字串表，但是每个 ID 必须唯一表示一个字串。每个 
字串占一行，最多4097个字元。 \t 可以作为跳位字元， \n 则作为 linefeed 字 
元号。 DrawText 和 MessageBox 函式能够识别这些控制符号。 

您的程式可以使用 LoadString 呼叫把字串复制到程式资料段的缓冲 区中： 

Loadstring (hlnstance, id, szBuffer, iMaxLength); 

参数 id 是 ID ， 它加在资源描述档中每个字串的 前面； szBuffer 是指向接 
收字串的字元阵列的指标； iMaxLength 是送入 szBuffer 中的最大字元数。函式 
传回字串中的字元数。 

每个字串前面的 ID —般是定义在表头档案中的巨集识别字。许多 Windows 
程式写作者使用字首 IDS _ 来表示字串的 ID 。 有时，档案名称或其他资讯需要 
在字串显示时插入到字串中。在这种情况下，您可以将 C 的格式化字元放入字 
串，并把它用於 wsprintf 中作为一个格式化字串。 

所有资源文字——包括字串表中的文字——以 Unicode 格式储存在 . RES 编 
译资源档案以及最终的 . EXE 档案中。 LoadStringW 函式直接载入 Unicode 文字。 
LoadStringA 函式（仅在 Windows 98下有效）完成由 Unicode 到本地内码表的 
文字转换。 


让我们来看一个程式，它使用三个字串，在讯息方块中显示三条错误资讯。 
RESOURCE . H 表头档案为这些资讯定义了三个识 别字： 


#define 

工 DS_ 

FILENOTFOUND 

1 

#define 

工 DS_ 

FILETOOBIG 

2 

#define 

IDS_ 

FILEREADONLY 

3 


资源描述档具有此字 串表: 


STRINGTABLE 




BEGIN 







工 DS_ 

FILENOTFOUND, 

"File %s 

not found." 


IDS_ 

FILETOOBIG, 

"File 

%s 

too large to edit .’， 

END 

IDS_ 

FILEREADONLY, 

"File 

%s 

is read-only." 


C 原始码档案也包含这个表头档案，并定义了一个显示讯息方块的函式（我 
假定 szAppName 是一个包含程式名称的整体变数）。 


OkMessage (HWND hwnd, int iErrorNumber , TCHAR *szFileName) 
{ 

TCHAR szFormat [40]; 

TCHAR szBuffer [60]; 

LoadString (hlnst, iErrorNumber, szFormat, 40); 
wsprintf (szBuffer, szFormat, szFilename); 
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return MessageBox ( 



hwnd, szBuffer, szAppName, 

MB OK I MB ICONEXCLAMATION); 


为了显示包含 「file not found 」 资讯的讯息方块，程式呼叫: 

OkMessage (hwnd, IDS FILENOTFOUND, szFileName); 


自订的资源 


Windows 也定义了「自订资源」，这又称为「使用者定义的资源」（使用者 
就是您 一一 程式写作者，而不是那个使用您程式的幸运者）。自订资源让连 
结 .EXE 档案中的各种资料更为方便，对取得程式中的资料也是如此。资料可以 
是您需要的任何格式。程式用於存取自订资源的 Windows 函式促使 Windows 将 
资料载入记忆体并传回指向它的指标。然後您就可以对程式做任何操作。您会 
发现对於储存和存取各种自己的资料，这要比把资料储存在外部档案中，再使 
用档案输入函式存取它要方便得多。 

例如，您有一个档案叫做 BINDATA . BIN ， 它包含程式需要显示的一些资料。 
您可以选择这个档案的格式。如果在 MYPR 0 G 专案中有 MYPROG . RC 资源描述档， 
您就可以在 Developer Studio 中从「 Insert 」 功能表中选择「 Resource 」 
并按「 Custom 」按钮，来建立自订的资源。键入表示资源的名 称：例 如， BINTYPE 。 
然後， Developer Studio 会生成资源名称（在这种情况下是 IDR _ BINTYPE 1) 并 
显示让您输入二进位资料的视窗。但是您不必输入什么，用滑鼠右键单击 
IDR _ BINTYPE 1 名称，并选择 Properties ，然後就可以输入一个档案名 称：例 
如， BINDATA . BIN 。 

资源描述档就会包含以下的一行 叙述： 

IDR_BINTYPE1 BINTYPE BINDATA.BIN 

除了我们刚刚生成的 BINTYPET 资源型态外，这个叙述与 IC 0 NDEM 0 中的 ICON 
叙述一样。有了图示後，您可以对资源名称使用文字的名称，而不是数字的识 
别字。 

当您编译并连结程式，整个 BINDATA . BIN 档案会被并入 MYPROG . EXE 档案中。 


在程式的初始化（比如，在处理 WM _ CREATE 讯息时）期间，您可以获得资 
源的 代号： 


hResource = 

LoadResource ( 

hlnstance. 

(IDR BINTYPE1))) 

FindResource ( 

• 

r 

hlnstance, TEXT ( n BINTYPE n ), 

MAKEINTRESOURCE 


变数 hResouixe 定义为 HGL 0 BAL 型态，它是指向记忆体区块的代号。不管 
它的名称是什么， LoadResource 不会立即将资源载入记忆体。把 LoadResource 
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和 FindResource 函式如上例般合在一起使用，在实质上就类似於 Loadlcon 和 
LoadCursor 函式的做法。事实上， Loadlcon 和 LoadCursor 函式就用到了 
LoadResource 和 FindResource 函式。 

当您需要存取文字时，呼叫 LockResource ： 

pData = LockResource (hResource); 

LockResource 将资源载入记忆体（如果还没有载入的话），然後它会传回 
一 个指向资源的指标。当结束对资源的使用时，您可以从记忆体中释 放它： 

FreeResource (hResource) ; 

当您的程式终止时，也会释放资源，即使您没有呼叫 FreeResource . o 
让我们看一个使用三种资源 一一 一个图示、 一 个字串表和一个自订的资源 
——的范例程式。程式 10-3 所示的 P 0 EP 0 EM 程式在其显示区域显示 Edgar Allan 
Poe 的 rAnnabel Lee 」 文字。自订的资源是档案 H 3 EP 0 EM . TXT ， 它包含了一段 
诗文，此文字档案以反斜线（\)结束。 


程式 10-3 P0EP0EM 


POEPOEM.C 
/* - 


POEPOEM.C -- Demonstrates Custom Resource 

(c) Charles Petzold, 1998 



♦include <windows.h> 
♦include "resource.h" 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

HINSTANCE hlnst ; 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName [16], szCaption [64], szErrMsg [64]; 
hwnd ; 
msg ; 

wndclass ; 


Loadstring ( 


hlnstance, 工 DS_APPNAME, szAppName, 

sizeof (szAppName) / sizeof (TCHAR)); 


Loadstring 


hlnstance, IDS—CAPTION, szCaption, 

sizeof (szCaption) / sizeof (TCHAR)); 


wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc = WndProc ; 
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wndclass . cbClsExtra 


=◦; 



wndclass . cbWndExtra 


= 0 ; 



wndclass.hlnstance 

= hlnstance ; 



wndclass • hicon 

= Loadlcon (hlnstance. 

szAppName); 


wndclass . hCursor 

= LoadCursor (NULL, IDC 

ARROW); 


wndclass . hbrBackground 

= (HBRUSH) GetStockObject (WHITE BRUSH); 


wndclass . IpszMenuName 

= NULL ; 



wndclass . IpszClassName 

= s zAppName ; 



if (!RegisterClass (&wndclass)) 

； 




l 

LoadstringA (hlnstance 

r IDS— 

APPNAME, (char *) 

szAppName , 




sizeof 

(szAppName)); 


LoadStringA (hlnstance, IDS 

ERRMSG, (char *) szErrMsg, 




sizeof 

(szErrMsg)); 


MessageBoxA (NULL, (char *) 

szErrMsg, 





(char 

*) szAppName, 

MB 

ICONERROR); 





return 0 ; 

} 





hwnd = CreateWindow ( szAppName, 

szCaption, 



WS OVERLAPPEDWINDOW | 

WS CLIPCHILDREN, 



CW USEDEFAULT, CW USEDEFAULT, 



CW USEDEFAULT, CW USEDEFAULT, 



NULL, NULL, hlnstance. 

NULL); 



ShowWindow (hwnd, iCmdShow) 

參 

f 




UpdateWindow (hwnd); 





while (GetMessage (&msg, NULL, 0, 

f 

0)) 



TranslateMessage 

(&msg); 



DispatchMessage 

(&msg) 

參 

f 


} 

J 

return msg . wParam ; 




LRESULT CALLBACK WndProc ( HWND 

hwnd. 

UINT message, WPARAM wParam, LPARAM 

IParam) 

； 




l 

static char 

* pText ; 



static HGLOBAL hResource ; 




static HWND 

hScroll ; 



static int 


iPosition, cxChar , 

f cyChar, cyClient, 

iNumLines, xScroll ; 





HDC 


hdc ; 



PAINTSTRUCT 


ps ; 
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RECT 



rect ; 

TEXTMETRIC 


tm ; 

switch (message) 

/ 



1 

case 

WM CREATE : 




hdc 


=GetDC (hwnd); 


GetTextMetries (hdc, &tm); 


cxChar 


=tm.tmAveCharWidth ; 


cyChar 


=tm.tmHeight + tm.tmExternalLeading ; 


ReleaseDC 

(hwnd. 

hdc); 


xScroll 


=GetSystemMetrics (SM—CXVSCROLL); 


hScroll 


=CreateWindow (TEXT ("scrollbar"), NULL, 



WS CHILD | WS VISIBLE | SBS VERT, 




0, 0, 


hwnd, (HMENU) 

l r hlnst, NULL); 


hResource 

— 

LoadResource (hlnst, 


FindResource 

(hlnst, 

TEXT ("AnnabelLee"), 




TEXT ("TEXT"))); 


pText = (char *) 

LockResource (hResource); 


iNumLines 

=◦; 



while (*pText != 

； 

▼\\ f && *pText != 1 \0 ! ) 


l 

if 

(*pText 

== 1 Xn 1 ) 




iNumLines ++ ; 


pText = AnsiNext (pText); 


J 

*pText = 

▼\cr ; 



SetScrollRange (hScroll, SB CTL, ◦, iNumLines, FALSE); 

SetScrollPos (hScroll, SB CTL, 0, FALSE); 


return 0 

• 

f 


case 

WM SIZE : 




MoveWindow (hScroll, LOWORD (IParam) - xScroll, ◦, 


xScroll, cyClient = 

HIWORD (IParam), TRUE); 


SetFocus 

(hwnd) 

• 

f 


return 0 

• 

f 


case 

WM SETFOCUS : 




SetFocus 

(hScroll); 


return 0 

参 

r 


case 

WM VSCROLL : 
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switch (wParam) 

{ 


case SB TOP : 


case SB BOTTOM : 


iPosition = 0 ; 
break ; 

iPosition = iNumLines ; 
break ; 


case SB LINEUP : 


iPosition 
break ; 


參 

丄 f 


case SB LINEDOWN : 


case SB PAGEUP : 


iPosition += 1 ; 
break ; 

iPosition -= cyClient / cyChar 
break ; 


case SB PAGEDOWN : 


iPosition += cyClient / cyChar ; 
break ; 

case SB_THUMBPOSITION : 

iPosition = LOWORD (IParam); 
break ; 

} 

iPosition = max (◦, min (iPosition, iNumLines)); 

if (iPosition != GetScrollPos (hScroll, SB_CTL)) 

{ 

SetScrollPos (hScroll, SB—CTL, iPosition, 
工 nvalidateRect (hwnd, NULL, TRUE); 

} 

return 0 ; 


case WM PAINT : 


hdc = BeginPaint (hwnd, &ps); 

pText = (char *) LockResource (hResource); 

GetClientRect (hwnd, &rect); 
rect.left += cxChar ; 

rect.top += cyChar * (1 - iPosition); 

DrawTextA (hdc, pText, -1, &rect, DT_EXTERNALLEADING) 


EndPaint (hwnd, &ps); 
return 0 ; 


case WM DESTROY : 
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FreeResource (hResource) ; 

PostQuitMessage ( 0 ) ; 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

POEPOEM. RC (摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h M 

//////////////////////////////////////////////////////////////////////////// 

/ 

// TEXT 

ANNABELLEE TEXT DISCARDABLE "poepoem.txt" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Icon 

POEPOEM ICON DISCARDABLE "poepoem.ico" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// String Table 
STRINGTABLE DISCARDABLE 
BEGIN 


IDS—APPNAME 
工 DS—CAPTION 
IDS ERRMSG 


"PoePoem" 

’’’"’Annabel Lee’’’’ by Edgar Allan Poe" 
"This program requires Windows NT!’’ 


END 


RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 
// Used by PoePoem.rc 


♦define IDS—APPNAME 1 
#define IDS—CAPTION 2 
#define IDS—ERRMSG 3 

POEPOEM. TXT 

It was many and many a year ago, 

In a kingdom by the sea, 

That a maiden there lived whom you may know 
By the name of Annabel Lee; 

And this maiden she lived with no other thought 
Than to love and be loved by me. 

工 was a child and she was a child 
In this kingdom by the sea. 

But we loved with a love that was more than love —— 
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工 and my Annabel Lee 一一 
With a love that the winged seraphs of Heaven 
Coveted her and me. 

And this was the reason that, long ago. 

In this kingdom by the sea, 

A wind blew out of a cloud, chilling 
My beautiful Annabel Lee; 

So that her highborn kinsmen came 
And bore her away from me. 

To shut her up in a sepulchre 
In this kingdom by the sea. 

The angels, not half so happy in Heaven, 

Went envying her and me —— 

Yes! that was the reason (as all men know. 

In this kingdom by the sea) 

That the wind came out of the cloud by night. 

Chilling and killing my Annabel Lee. 

But our love it was stronger by far than the love Of those who were older than 
we -- Of many far wiser than we -- 
And neither the angels in Heaven above 
Nor the demons down under the sea 
Can ever dissever my soul from the soul 
Of the beautiful Annabel Lee : 

For the moon never beams, without bringing me dreams 
Of the beautiful Annabel Lee; 

And the stars never rise, but 工 feel the bright eyes 
Of the beautiful Annabel Lee : 

And so, all the night-tide , 工 lie down by the side 
Of my darling 一 — my darling 一 — my life and my bride. 

In her sepulchre there by the sea -- 
In her tomb by the sounding sea. 

[May, 1849] 


POEPOEM. ICO 




SSSSL... 

SSSSS!SS=5SHS_*" 

□SSSBS5S B M .S ： S ： SS ： S：. MMM5SS an 

二 .:：■■■■■■■■■■■■■ 

S88SSS ■— ___ M _ _ 




□ 


... 

:: ::::::::s::: aaa . 

■_■■■■■■■■■■ ■■■■■■■■■■■■■■■■■! 1 

.. . ：：：：：：：.：：：：：： 


□ 


□ 
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在 P 0 EP 0 EM . RC 资源描述档中，使用者定义的资源被定义为 TEXT 型态，取 
名为 AnnabelLee ： 

ANNABELLEE TEXT POEPOEM.TXT 

在 WndProc 处理 WM_CREATE 时，使用 FindResource 和 LoadResource 取得 
资源代号。使用 LockResource 锁定资源，并且使用一个小程式将档案末尾的反 
斜线（\)换成0,这有利於後面 WM _ PAINT 讯息处理期间使用的 DmwText 函式。 

注意，这里使用的是子视窗的卷动列，而不是视窗卷动列，这是因为子视 
窗卷动列有一个自动的键盘介面，因此在 P 0 EP 0 EM 中没有处理 WM _ KEYD 0 WN 。 


P 0 EP 0 EM 还使用三个字串，它们的 ID 在 RESOURCE . H 表头档案中定义。在程 
式的开始， IDS_APPNAME 和 IDS _ CAPH 0 NP 0 EP 0 EM 字串由 LoadString 载入记 忆体: 


LoadString 

(hlnstance. 

IDS APPNAME, szAppName, 

sizeof (TCHAR)) 

sizeof 

• 

f 

(szAppName) 

/ 

LoadString 

(hlnstance. 

IDS_CAPTION, szCaption, 

sizeof (TCHAR)) 

sizeof 

• 

f 

(szCaption) 

/ 


注意 RegisterClass 前面的两个呼叫。如果您在 Windows 98下执行 Unicode 
版本的 P 0 EP 0 EM ， 这两个呼叫就都会失败。因此， LoadStringA 比 LoadStringW 
要复杂得多 ( LoadStringA 必须将资源字串由 Unicode 转化为 ANSI ，而 
LoadStringW 仅是直接载入它）， LoadStringW 在 Windows 98下不被支援。这 
意味著在 Windows 98下，当 RegisterClassW 函式失败时， MessageBoxW 函式 
(Windows 98支援）就不能使用 LoadStringW 载入程式的字串。由於这个原因， 
程式使用 LoadStringA 载入 IDS _ APPNAME 和 IDS _ ERRMSG 字串，并使用 
MessageBoxA 显示自订的讯息方块： 

if ( ! RegisterClass (&wndclass)) 

{ 

LoadStringA (hlnstance, IDS—APPNAME, (char *) szAppName, 

sizeof (szAppName)); 

LoadStringA (hlnstance, IDS—ERRMSG, (char *) szErrMsg, 

sizeof (szErrMsg)); 

MessageBoxA (NULL, (char *) szErrMsg, 

(char *) szAppName, MB_IC0NERR0R); 

return 0 ; 

} 

注意， TCHAR 字串变数是指向 char 的指标。 

既然我们已经定义了用於 P 0 EP 0 EM 的所有字串资源，那么翻译者将程式转 
换成外语版本就很容易了。当然，它们将不得不翻译 rAnnabel Lee 」 这个名字 
——我想，这会是一项困难得多的工作。 
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功能表 

您还记得 Monty Python 有关乳酪店的幽默短剧吗？那故事内容是这 样的： 
一 个客人走进乳酪店想买某种乳酪。当然，店里没有这种乳酪。因此他又问有 
没有另一种乳酪，然後再问另一种，再问另一种，不断的问店家有没有另一种 
乳酪（最後总共问了 40种的乳酪），回答仍然是没有，没有，没有，没有，没 
有。 

这个不幸的事件可以通过功能表的使用来避免。一个功能表是一列可用的 
选项，它告诉饥饿的用餐者，厨房可以提供哪些服务，并且 一一 对於 Windows 
程式来说——还告诉使用者一个应用程式能够执行哪些操作。 

功能表可能是 Windows 程式提供的一致使用者介面中最重要的部分，而在 
您的程式中增加功能表，是 Windows 程式设计中相对简单的部分。您在 Developer 
Studio 中定义功能表。每个可选的功能表项被赋予唯一的 ID 。 您在视窗类别结 
构中指定功能表名称。当使用者选择一个功能表项时， Windows 给您的程式发送 
包含该 ID 的 WM _ C 0 MMAND 讯息。 

讨论完功能表後，我还将讨论键盘加速键，它们是一些键的组合，主要用 
於启动功能表功能。 

功能表►概* 念" 

视窗的功能表列紧接在标题列的下方显示，这个功能表列有时被称为「主 
功能表」或「顶层功能表」。列在顶层功能表的项目通常是下拉式功能表，也 
叫做「突现式功能表」或「子功能表」。您也可以定义多重嵌套的突现式功能 
表，也就是说，在突现式功能表上的项目可以存取另一个突现式功能表。有时 
突现式功能表上的项目呼叫对话方块以获得更多的资讯（对话方块在下一章介 
绍）。在标题列的最左端，很多父视窗都显示程式的小图示，这个图示可以启 
动系统功能表。它实际上是另一个突现式功能表。 

突现式功能表的各项可以是「被选中的」，这意味著 Windows 在功能表文 
字的左端显示一个小的选中标记，选中标记让使用者知道从功能表中选中了哪 
些选项。这些选项之间可以是互斥的，也可以不互斥。顶层功能表项不能被选 
中。 

顶层功能表或突现式功能表项可以被「启用」、「禁用」或「无效化」。 

「启动」和「不启动」有时候被当作「启用」和「禁用」的同义词。被启用或 
禁用的功能表项在使用者看来是一样的，但是无效化的功能表项是使用灰色文 
字来显不的。 
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从使用者的角度来看，启用、禁用和无效化的功能表项都是可以「选择的」 
(被选择的功能表项目会被加高亮度显示），也就是说，使用者可以使用滑鼠 
选择被禁用的功能表项，将反相显示游标列移动到禁用的功能表项上，或者使 
用功能表项的关键字母来选择该功能表项。然而，从程式写作者的角度来看， 
启用、禁用和无效化功能表项的功能是不同的。 Windows 只为启用的功能表项向 
程式发送 WM_COMMAND 讯息。要让选项变得无效，可以把那些功能表项禁用和无 
效化。如果您想让使用者知道选择是无效的，那么您可以让一个功能表项无效 
化。 

功能表结构 

当您建立或改变程式中的功能表时，把顶层功能表和每一个突现式功能表 
想像成各自独立的功能表是有用的。顶层功能表有一个功能表代号，在顶层功 
能表中的每一个突现式功能表也有它自己的功能表代号。系统功能表（也是一 
个突现式功能表）也有功能表代号。 

功能表中的每一项都有三个特性。第一个特性是功能表中显示什么，它可 
以是字串或点阵图。第二个特性是 WM_COMMAND 讯息中 Windows 发送给程式的功 
能表 ID ， 或者是在使用者选择功能表项时 Windows 显示的突现式功能表的代号。 
第三个特性是功能表项的属性，包括是否被禁用、无效化或被选中。 

定义功能表 

要使用 Developer Studio 来给程式资源描述档添加功能表，可以 
从 Insert 功能表中选择 Resource 并选择 Menu (或者您可能已经知道了）。 
然後，您可以用交谈式的方式定义功能表。功能表中每一项都有一个相关 
的 Menu Item Properties 对话方块，指出该项目的字串。如果选中 
了 Pop-up 核取方块，该项目就会呼叫一个突现式功能表，并且没有 ID 与此项 
目相联系。如果没有选中 Pop-up 核取方块，该项目被选中时就会产生带有特 
定 ID 的 WM_COMMAND 讯息。这两类功能表项分别出现在资源描述档的 POPUP 和 
MENIHTEM 叙述中。 

当您为功能表中的项目键入文字时，可以键入一个「&」符号，指出後面一 
个字元在 Windows 显示功能表时要加底线。这种底线字元是在您使用 Alt 键选 
择功能表项时 Windows 要寻找的比对字元。如果在文字中不包括「&」符号，就 
不显示任何底线， Windows 会将功能表项文字的第一个字母用於 Alt 键查找。 

如果在 Menu Items Properties 对话方块中选中 Grayed 选项，则功能表 
项是不能启动的，它的文字是灰色的，该项不产生 WM_COMMAND 讯息。如果选 
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中 Inactive 选项，则功能表项也是不能启动的，也不产生 WM _ COMMAND 讯息， 
但是它的文字显示正常。 Checked 选项在功能表项边上放置一个选中标 
记。 Separator 选项在突现式功能表上产生一个分栏的横线。 

在突现式功能表的项目上，可以在字串中使用跳位字元 \ t 。 紧接著 \t 的文 
字被放置在距离突现式功能表的第一列右边新的一列上。在本章後面，会看到 
在使用键盘加速键时它起的作用。字串中的 \ a 使跟著它的文字向右对齐。 

您指定的 ID 值是 Windows 发送给视窗讯息处理程式中功能表讯息中的数 
值。在功能表中 ID 值应该是唯一的。按照惯例，我使用以 IDM(「ID for a MenuJ ) 
开头的识别字。 

在程式中引用功能表 

大多数 Windows 应用程式在资源描述档中只有一个功能表。您可以给功能 
表起一个与程式名称相同的文字的名称。程式写作者经常将程式名用於功能表 
名称，以便相同的字串可以用於视窗类别、程式的图示名称和功能表名称。然 
後，程式在视窗的定义中为功能表引用该 名称： 

wndclass.lpszMenuName = szAppName ; 

虽然存取功能表资源的最常用方法是在视窗类别中指定功能表，您也可以 
使用其他方法。 Windows 应用程式可以使用 LoadMenu 函式将功能表资源载入记 
忆体中，如同 Loadlcon 和 LoadCursor 函式一样。 LoadMenu 传回一个功能表代 

号。如果您在资源描述档中为功能表使用了名称，叙述 如下： 

hMenu = LoadMenu (hlnstance, TEXT ("MyMenu")); 

如果使用了数值，那么 LoadMenu 呼叫采用如下的形式： 

hMenu = LoadMenu (hlnstance, MAKEINTRESOURCE (ID—MENU)); 

然後，您可以将这个功能表代号作为 CreateWindow 的第九个参数： 

hwnd = CreateWindow ( TEXT ("MyClass n ), TEXT ("Window Caption "), 
WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW_USEDEFAULT, 

CW_USEDEFAULT, CW_USEDEFAULT, 

NULL, hMenu, hlnstance, NULL); 

在这种情况下， CreateWindow 呼叫中指定的功能表可以覆盖视窗类别中指 
定的任何功能表。如果 CreateWindow 的第九个参数是 NULL ， 那么您可以把视窗 
类别中的功能表看作是这种视窗类别的视窗内定使用的功能表。这样，您可以 
为依据同一视窗类别建立的几个视窗使用不同的功能表。 

您也可以在视窗类别中指定 NULL 功能表，并且在 CreateWindow 呼叫中也 
指定 NULL 功能表，然後在视窗被建立後再给视窗指定一个功 能表： 

SetMenu (hwnd, hMenu); 

这种形式使您可以动态地修改视窗的功能表。在本章後面的 N 0 P 0 PUPS 程式 
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中我们将会看到这方面的例子。 

当视窗被清除时，与视窗相关的所有功能表都将被清除。与视窗不相关的 
功能表在程式结束前通过呼叫 DestroyMenu 主动清除。 

功能表和讯息 

当使用者选择一个功能表项时， Windows 通常向视窗讯息处理程式发送几个 
不同的讯息。在大多数情况下，您的程式可以忽略大部分讯息，只需把它们传 
递给 DefWindowProc 即可。 WM _ INHMENU 就是这一类的讯息，它具有下列 参数： 

• wParam ： 主功能表代号 

• 1 Param ： 0 

wParam 值是您的主功能表代号，即使使用者选择的是系统功能表中的项目。 
Windows 程式通常忽略 WM _ INITMENU 讯息。尽管在选中该项之前的讯息已经给程 
式提供了修改功能表的机会，但是我们觉得此刻改变顶层功能表是会扰乱使用 
者的。 

程式也会接收到 WM _ MENUSELECT 讯息。随著使用者在功能表项中移动游标 
或者滑鼠，程式会收到许多 WM _ MENUSELECT 讯息。这对实作那些包含对功能表 
项的文字描述的状态列是很有帮助的。 WM _ MENUSELECT 的参数如下 所示： 

• LOWORD ( wParam ) :被选中 项目： 功能表 ID 或者突现式功能表代号 

• HI WORD ( wParam ) :选择旗标 

• IParam : 包含被选中项目的功能表代号 

WM _ MENUSELECT 是一个功能表追踪讯息， wParam 的值告诉您目前选择的是 
功能表中的哪一项（加高亮度显示的那个）， wParam 的高字组中的「选择旗标」 
可以是下列这些旗标的组合： MF _ GRAYED 、 MF _ DISABLED 、 MF _ CHECKED 、 MF _ BITMAP 、 
MF _ P 0 PUP 、 MF _ HELP 、 MF_SYSMENU 和 MF _ MOUSESELECT 。 如果您需要根据对功能 
表项的选择来改变视窗显示区域的内容，那么您可以使用 WM _ MENUSELECT 讯息。 
许多程式把该讯息发送给 DefWindowProco 

当 Windows 准备显示一个突现式功能表时，它给视窗讯息处理程式发送一 
个 WM _ INITMENUPOPUP 讯息，参数 如下： 

• wParam ： 突现式功能表代号 

• LOWORD ( IParam ) :突现式功能表索引 

• HIWORD ( IParam ) :系统功能表为1，其他为0 

如果您需要在显示突现式功能表之前启用或者禁用功能表项，那么这个讯 
息就很重要。例如，假定程式使用突现式功能表上的 Paste 命令从 剪贴簿复 
制文字，当您收到突现式功能表中的 WM _ INITMENUPOPUP 讯息时，应确定 剪贴簿 
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内是否有文字存在。如果没有，那么应该使 Paste 功能表项无效化。我们将在 
本章後面修改的 P 0 PPAD 程式中看到这样的例子。 

最重要的功能表讯息是 WM _ COMMAND ， 它表示使用者已经从功能表中选中了 
一个被启用的功能表项。第八章中的 WM _ COMMAND 讯息也可以由子视窗控制项产 
生。如果您碰巧为功能表和子视窗控制项使用同一 ID 码，那么您可以通过 IParam 
的值来区别它们，功能表项的 IPairam 其值为0，请参见表10-1。 


表 10-1 



功能表 

控制项 

L0W0RD (wParam) : 

功能表 ID 

控制项 ID 

HIWORD (wParam) : 

0 

通知码 

IParam: 

0 

子视窗代号 


WM _ SYSC 0 MMAND 讯息类似於 WM _ C 0 MMAND 讯息，只是 WM _ SYSC 0 MMAND 表示使 

用者从系统功能表中选择一个启用的功能 表项： 

• wParam : 功能表 ID 

• IParam : 0 

然而，如果 WM _ SYSC 0 MMAND 讯息是由按滑鼠按键产生的， L 0 W 0 RD (1 Par am ) 
和 HIWORD (1 Par am ) 将包含滑鼠游标位置的 x 和 y 萤幕座标。 

对於 WM _ SYSC 0 MMAND ， 功能表 ID 指示系统功能表中的哪一项被选中。对於 
预先定义的系统功能表项，较低的那四个位元应该和 OxFFFO 进行 AND 运算来遮 
罩掉，结果值应该为下列之一： SC _ SIZE 、 SC _ M 0 VE 、 SC _ MINIMIZE 、 SC _ MAXIMIZE 、 
SC _ NEXTWIND 0 W 、 SC _ PREVWIND 0 W 、 SC _ CL 0 SE 、 SC _ VSCR 0 LL 、 SC _ HSCR 0 LL 、 
SC _ ARRANGE 、 SC _ REST 0 RE 和 SC _ TASKLIST 。 此外 ， wParam 可以是 SC _ M 0 USEMENU 
或 SC _ KEYMENU 。 

如果您在系统功能表中添加功能表项，那么 wParam 的低字组将是您定义的 
功能表 ID 。 为了避免与预先定义的功能表 ID 相冲突，应用程式应该使用小於 
OxFOOO 的值，这对於将一般的 WM _ SYSC 0 MMAND 讯息发送给 DefWindowProc 是很 
重要的。如果您不这样做，那么您实际上就是禁用了正常的系统功能表命令。 

我们将讨论的最後一个讯息是 WM _ MENUCHAR 。 实际上，它根本不是功能表讯 
息。在下列两种情况之一发生时， Windows 会把这个讯息发送到视窗讯息处理程 
式： 如果使用者按下 Alt 和一个与功能表项不匹配的字元时，或者在显示突现 
式功能表而使用者按下一个与突现式功能表里的项目不匹配的字元键时。随 
WM _ MENUCHAR 讯息一起发送的参数如下 所示： 

• L 0 W 0 RD ( wParam ) :字元代码 （ASCII 或 Unicode ) 

• HIWORD ( wParam ) :选择码 
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• 1 Par am : 功能表代号 
选择 码是： 

• 0不显示突现式功能表 

• MF _ P 0 PUP 显示突现式功能表 

• MF _ SYSMENU 显示系统突现式功能表 

Windows 程式通常把该讯息传递给 DefWindowProc ， 它一般给 Windows 传回 
0,这会使 Windows 发出哔声。在第十四章 GRAFMENU 程式中会看到 WM_MENUCHAR 
讯息的使用。 

范例程式 


让我们来看一个简单的例子。程式 10-4 所示的 MENUDEM 0 程式，在主功能 

表中有五个选择项- File 、 Edit 、 Background 、 Timer 和 Help , 每一项都与 

一个突现式功能表相连。 MENUDEM 0 只完成了最简单、最通用的功能表处理操作， 
包括拦截 WM _ C 0 MMAND 讯息和检查 wParam 的低字组。 


程式 10-4 MENUDEM0 


MENUDEMO.C 

/* - 

MENUDEMO.C -- Menu Demonstration 

(c) Charles Petzold, 1998 

- V 


♦include <windows.h> 
♦include "resource.h" 


♦define ID_TIMER 1 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 
TCHAR szAppName[] = TEXT ("MenuDemo"); 


int WINAPI WinMain (HINSTANCE hlnstance 


HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


HWND hwnd 
MSG 

WNDCLASS 


msg 

wndclass 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 


=CS_HREDRAW | CS_VREDRAW ; 
=WndProc ; 



=hlnstance ; 
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wndclass.hlcon = Loadlcon (NULL, IDI—APPLICATION); 

wndclass.hCursor = LoadCursor (NULL, 工 DC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = szAppName ; 

wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT !’，）， 

szAppName, MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow ( szAppName, TEXT ("Menu Demonstration ’，）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static int idColor [5] = { WHITE_BRUSH, LTGRAY_BRUSH, GRAY_BRUSH, 

DKGRAY_BRUSH, BLACK_BRUSH }; 
static int iSelection = IDM_BKGND—WHITE ; 

HMENU hMenu ; 

switch (message) 

{ 

case WM_COMMAND : 

hMenu = GetMenu (hwnd); 

switch (LOWORD (wParam)) 

{ 

case IDM_FILE_NEW: 
case IDM_FILE_OPEN: 
case IDM_FILE_SAVE: 
case IDM FILE SAVE AS : 
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MessageBeep (0) ; 
return 0 ; 

case IDM_APP_EXIT: 

SendMessage (hwnd, WM—CLOSE, ◦, 0); 
return 0 ; 

case 工 DM_EDIT_UNDO: 
case 工 DM—EDIT_CUT: 
case IDM—EDIT_COPY: 
case IDM—EDIT—PASTE: 
case IDM_EDIT_CLEAR: 

MessageBeep (0); 
return 0 ; 

case 工 DM_BKGND_WHITE: 
case 工 DM_BKGND_LTGRAY: 
case 工 DM_BKGND_GRAY: 
case 工 DM_BKGND_DKGRAY: 
case IDM_BKGND_BLACK : 

CheckMenuItem (hMenu, iSelection, MF_UNCHECKED); 
iSelection = LOWORD (wParam); 

CheckMenuItem (hMenu, iSelection, MF_CHECKED); 

SetClassLong (hwnd, GCL—HBRBACKGROUND, (LONG) 

GetStockObject 

(idColor [LOWORD (wParam) 一 IDM_BKGND_WHITE])); 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case 工 DM_TIMER_START: 

if (SetTimer (hwnd, ID_TIMER, 1000, NULL)) 

{ 

EnableMenuItem (hMenu, IDM—TIMER_START, MF_GRAYED); 
EnableMenuItem (hMenu, IDM—TIMER—STOP, MF_ENABLED); 

} 

return 0 ; 

case IDM_TIMER—STOP: 

KillTimer (hwnd, ID_TIMER); 

EnableMenuItem (hMenu, IDM—TIMER_START, MF_ENABLED); 
EnableMenuItem (hMenu, IDM—TIMER—STOP, MF_GRAYED); 
return 0 ; 
case 工 DM—APP_HELP: 

MessageBox (hwnd, TEXT ("Help not yet implemented !’'）， 
szAppName, MB 工 CONEXCLAMATION | MB OK); 


// Note : Logic below 
// assumes that 工 DM—WHITE 
// through IDM—BLACK are 
// consecutive numbers in 
// the order shown here. 
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return 0 ; 






case 工 DM 

APP ABOUT : 






MessageBox (hwnd,TEXT ("Menu Demonstration 

Program\n ”） 


TEXT ("(c) Charles Petzold, 

1998"), 




szAppName, MB 工 CONINFORMATION 

| MB 

OK); 




} 

break ; 

return 0 ; 






case WM 

TIMER: 







MessageBeep (0) 

• 

r 






return 0 ; 






case WM 

DESTROY: 







PostQuitMessage 

(0), 

• 

r 



} 

return 

} 

MENUDEMO.RC 


return 0 ; 





DefWindowProc 

(hwnd, message , wParam, 

IParam); 



( 摘录） 






/ /Microsoft 

Developer Studio generated resource script. 




♦include "resource.h" 

♦include "afxres.h" 






//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 







MENUDEMO MENU DISCARDABLE 






BEGIN 







POPUP 

n &File" 






BEGIN 

MENUITEM 

"&New n , 


I DM 

FILE 

—NEW 


MENUITEM 

"&Open ", 


I DM 

FILE 

OPEN 


MENUITEM 

"&Save", 


工 DM 

FILE 

—SAVE 


MENUITEM 

"Save &As 

工 DM 

FILE 

SAVE 

AS 


MENUITEM 

SEPARATOR 






MENUITEM 

"E&xit", 


工 DM 

APP : 

EXIT 

END 







POPUP 

M &Edit n 






BEGIN 

MENUITEM 

"&Undo M , 


I DM 

EDIT 

UNDO 


MENUITEM 

SEPARATOR 






MENUITEM 

"C&ut", 


I DM 

EDIT 

_CUT 


MENUITEM 

"&Copy n , 


I DM 

EDIT 

_COPY 


MENUITEM 

"&Paste n , 


工 DM 

EDIT 

PASTE 


MENUITEM 

"De&lete ", 

工 DM 

EDIT 

CLEAR 

END 
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POPUP "^Background" 
BEGIN 


END 


MENUITEM 

MENUITEM 

MENUITEM 

MENUITEM 

MENUITEM 


n &White n , IDM_BKGND—WHITE, CHECKED 

"&Light Gray", IDM_BKGND_LTGRAY 
"&Gray n , IDM_BKGND_GRAY 

"&Dark Gray” ， 工 DM_BKGND_DKGRAY 
n &Black", 工 DM BKGND BLACK 


POPUP M &Timer" 


BEGIN 


END 

POPUP 

BEGIN 


MENUITEM "&Start M , 
MENUITEM "S&top", 


&Help 


工 DM_TIMER—S TART 
IDM TIMER STOP, GRAYED 


MENUITEM "&Help...", 
MENUITEM "&About MenuDemo 


IDM—APP—HELP 
工 DM APP ABOUT 


END 


END 

RESOURCE. H ( 摘录） 


// Microsoft Developer Studio 

generated include file. 

// Used 

by MenuDemo.rc 


#define 

IDM 

FILE 

NEW 

40001 

#define 

IDM 

FILE 

OPEN 

40002 

♦define 

IDM 

FILE 

SAVE 

40003 

♦define 

IDM 

FILE 

SAVE AS 

40004 

#define 

IDM 

APP EXIT 

40005 

#define 

IDM 

EDIT 

UNDO 

40006 

♦define 

IDM 

EDIT 

CUT 

40007 

♦define 

IDM 

EDIT 

COPY 

40008 

#define 

IDM 

EDIT 

PASTE 

40009 

#define 

IDM 

EDIT 

CLEAR 

40010 

♦define 

IDM 

BKGND 

WHITE 

40011 

♦define 

IDM 

BKGND 

LTGRAY 

40012 

#define 

IDM 

BKGND 

—GRAY 

40013 

#define 

IDM 

BKGND 

DKGRAY 

40014 

♦define 

IDM 

BKGND 

BLACK 

40015 

♦define 

IDM 

TIMER 

START 

40016 

#define 

工 DM 

TIMER 

—STOP 

40017 

#define 

IDM 

APP HELP 

40018 

♦define 

IDM 

APP ABOUT 

40019 


MENUDEMO . RC 资源描述档给了您定义功能表的提示。功能表的名称为 
「 MenuDemo 」 。大多数项目有底线字母，这就是说您必须在字母前键入『&』。 


MENUITEM SEPARATOR 叙述是在 「 Menu Item Properties 」对话方块中选中 
「 Separator 」框产生的。注意功能表中有一个项目具有「 Checked 」选项， 
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另一个具有「 Grayed 」选项。还有，「 Background 」突现式功能表中的五 
个项目应该按顺序输入，确保识别字是以数值的顺序，本程式需要这样。所有 
功能表项的识别字定义在 RESOURCE . H 中。 

当收到突现式功能表「 File 」和「 Edit 」各项有关的 WM _ COMMAND 讯息 
时， MENUDEM 0 程式只使系统发出哔声。「 Background 」突现式功能表列出 
MENUDEM 0 用来给背景著色的五种现有画刷。在 MENUDEMO . RC 资源描述档中， 

「 White 」 功能表项（功能表 ID 为 IDM _ BKGND _ WMTE ) 被标以「 CHECffiD 」 ， 
它在功能表项旁边设定选中标记。在 MENUDEMO . C 中， iSelection 的值被初始化 
为 IDM _ BKGND_WHITEo 

「 Background 」突现式功能表上的五种画刷相互排斥。当 MENUDEMO . C 收 
到一个 WM COMMAND 讯息，而该讯息中的 wParam 是「 Background 」突现式功 
能表上的五项之一时，它必须从先前选中的背景颜色中除掉选中标记，并把标 
记加到新的背景颜色上。为此，首先要得到功能表 代号： 

hMenu = GetMenu (hwnd); 

CheckMenuItem 函式用来取消目前被选中的项目： 

CheckMenuItem (hMenu, iSelection, MF_UNCHECKED); 

iSelection 的值被设定为 wParam 的值，新的背景颜色被选中： 

iSelection = wParam ; 

CheckMenuItem (hMenu, iSelection, MF_CHECKED); 

视窗类别中的背景颜色於是被替换为新的背景颜色，视窗显示区域变为无 
效状态， Windows 使用新的背景颜色清除视窗。 

Timer 突现式功能表列出了两个选项- 「 Start 」 和 「 Stop 」 。开始时， 

「 Stop 」 选项变为灰色的（就像在资源描述档中的功能表定义一样）。当您选 
择「 Start 」选项时， MENUDEMO 试图启动一个计时器，如果成功，则无效化「 Start ] 
选项，并启用 「 Stop 」 选项： 

EnableMenuItem (hMenu, IDM—TIMER—START, MF_GRAYED); 

EnableMenuItem (hMenu, IDM_TIMER_STOP, MF_ENABLED); 

当收到一条 WM _ COMMAND 讯息，并且 wParam 等於 IDM _ TIMER _ STOP 时， 
MENUDEMO 程式会停止计数，启用「 Start 」项，然後无效化「 Stop 」 选项： 

EnableMenuItem (hMenu, IDM—TIMER—START, MF_ENABLED); 

EnableMenuItem (hMenu, IDM—TIMER—STOP, MF_GRAYED); 

请注意，在计时器执行时， MENUDEMO 程式不可能收到 wParam 等於 
IDM _ TIMER _ START 的 WM _ COMMAND 讯息。同样地，在计时器关闭时， MENUDEMO 程 
式也不可能收到 wParam 等於 IDM _ TIMER _ STOP 的 WM _ COMMAND 讯息。 

当 MENUDEMO 收到一个 WM _ COMMAND 讯息，而该讯息的参数 wParam 等於 
IDM _ APP _ ABOUT 或 IDM _ APP _ HELP 时， MENUDEMO 程式显示一个讯息方块（在下一 
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章中，我们将把讯息方块变为对话方块）。 

当 MENUDEM 0 程式收到一个 WM _ COMMAND 讯息，其参数 wParam 等於 
IDM _ APP _ EXIT 时，它给自己发送一个 WM _ CL 0 SE 讯息。这个讯息与 DefWindowProc 
收到 WM _ SYSCOMMAND 讯息且 wParam 等於 SC _ CL 0 SE 时发送给视窗讯息处理程式 
的讯息相同。我们将在本章後面介绍 P 0 PPAD 2 时再仔细研究这个问题。 

功能表设计规范 

在 MENUDEM 0 中的「 File 」和「 Edit 」突现式功能表的格式与其他 Windows 
程式中的格式非常类似。 Windows 的目的之一是为使用者提供一种易懂的介面， 
而不要求使用者为每个程式重新学习基本操作方式。如果「 File 」和「 Edit 」 
功能表在每个 Windows 程式中看起来都一样，并且都使用同样的字母和 Alt 键 
来进行选择，那么当然有助於减轻使用者的学习负担。 

除了「 File 」和「 Edit 」突现式功能表外，大多数 Windows 程式的功 
能表都是不同的。当设计一个功能表时，您应该看一看现有的 Windows 程式以 
尽量保持一致。当然，如果您认为别的程式是不对的，而您知道正确的方法， 
那么没有人能够阻止您。同时记住，修改一个功能表，通常只需要修改资源描 
述档而不必修改您的程式码。即使以後要改变功能表项的位置，也不会有多大 
的问题。 

虽然您的程式功能表在顶层可以有 MENUITEM 叙述，但这是不合规范的，因 
为这样会很容易导致错误的选择。如果您要这样做，那么请在字串後面加一个 
惊叹号，表示功能表项不会启动突现式功能表。 

较难的一种功能表定义方法 

在程式的资源描述档中定义功能表，通常是在您的视窗中添加功能表的最 
简单方法，但不是唯一的方法。如果您没有使用资源描述档，那么可以使用 
CreateMenu 和 AppendMenu 两个函式在程式中建立功能表。在您定义完功能表後， 
您可以将功能表代号发送给 CreateWindow ， 或者使用 SetMenu 来设定视窗的功 
能表。 

以下是具体的做法。 CreateMenu 简单地把一个代号传回给新功能表： 

hMenu = CreateMenu () ; 

功能表一开始为空。 AppendMenu 将功能表项插入功能表中。您必须为顶层 
功能表项和每一个突现式功能表提供不同的功能表代号。突现式功能表是单独 
构成的，然後将突现式功能表代号插入顶层功能表。程式 10-5 中所示的程式码 
就是用这种方法建立功能表的，实际上，这个功能表与 MENUDEM 0 程式中的功能 
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表相同。为了简化说明，代码使用 ASCII 字串。 

程式 10 5 不使用资源描述档建立与 MENUDEM0 程式相同功能表的 C 程式码 

hMenu = CreateMenu () ; 



hMenuPopup 

=CreateMenu 

0 ； 


AppendMenu 

(hMenuPopup, 

MF_STRING, 工 DM FILE—NEW, "&New"); 

AppendMenu 

(hMenuPopup A 

MF_STRING, 工 DM FILE OPEN, "&Open ...； 

AppendMenu 

(hMenuPopup A 

MF_STRING, IDM FILE SAVE, n &Save"); 

AppendMenu 

(hMenuPopup, 

MF_STRING, IDM FILE_SAVE AS, "Save &As . . . M )； 

AppendMenu 

(hMenuPopup, 

MF_SEPARATOR, ◦, NULL); 

AppendMenu 

(hMenuPopup A 

MF_STRING, 工 DM APP EXIT, "E&xit"); 

AppendMenu 

(hMenu, 

MF POPUP, hMenuPopup, n &File"); 

hMenuPopup 

=CreateMenu 

0 ； 


AppendMenu 

(hMenuPopup A 

MF_STRING, 工 DM EDIT UNDO, n &Undo"); 

AppendMenu 

(hMenuPopup, 

MF_SEPARATOR, ◦, NULL); 

AppendMenu 

(hMenuPopup, 

MF_STRING,IDM EDIT_CUT, "Cu&t"); 

AppendMenu 

(hMenuPopup A 

MF_STRING,IDM EDIT_COPY, n &Copy n ); 

AppendMenu 

(hMenuPopup A ] 

MF STRING, 工 DM EDIT PASTE, n &Paste"); 

AppendMenu 

(hMenuPopup, MF_STRING, 工 DM EDIT_CLEAR, n De&lete n ); 

AppendMenu 

(hMenu, 

MF 

POPUP, hMenuPopup, "&Edit"); 

hMenuPopup 

=CreateMenu 

0 ; 


AppendMenu 

(hMenuPopup, 

MF 

_STRING| MF_CHECKED, 工 DM BKGND WHITE, 

"&White n ); 




AppendMenu 

(hMenuPopup A 

MF 

_STRING, IDM BKGND LTGRAY, "&Light 

Gray"); 




AppendMenu 

(hMenuPopup, 

MF 

_STRING, IDM BKGND GRAY, 

"&Gray n ); 




AppendMenu 

(hMenuPopup A 

MF 

_STRING, 工 DM BKGND_DKGRAY a "&Dark 

Gray ’，）； 




AppendMenu 

(hMenuPopup, 

MF 

_STRING, 工 DM BKGND BLACK, n &Black"); 

AppendMenu 

(hMenu, MF POPUP, hMenuPopup, "^Background"); 

hMenuPopup 

=CreateMenu 

0 ; 


AppendMenu 

(hMenuPopup, 

MF 

_STRING, IDM TIMER—START, M &Start"); 

AppendMenu 

(hMenuPopup, 

MF 

_STRING | MF GRAYED, IDM TIMER—STOP, "S&top"); 

AppendMenu 

(hMenu, MF POPUP, hMenuPopup A "&Timer"); 

hMenuPopup 

= CreateMenu () 

• 

r 

AppendMenu 

(hMenuPopup A 

MF 

_STRING, IDM HELP HELP, M &Help"); 

AppendMenu 

(hMenuPopup, 

MF 

_STRING, IDM APP ABOUT, "&About 

MenuDemo... 

") ； 



AppendMenu 

(hMenu, MF POPUP , hMenuPopup, "&Help M ); 
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我认为您会同意底下这个 观点： 使用资源描述档功能表模板来制作功能表， 
会更容易而且更清楚。我并不鼓励您使用这里的方法定义功能表，而只是提供 
了一种实作功能表的方法。当然，您可以使用包含所有功能表项字串、 ID 和旗 
标等的结构阵列来压缩程式码大小。不过，如果您这么做了，那么您还可以利 
用 Windows 定义功能表的第三种方法。 LoadMenuIndirect 函式接受一个指向 
MENUITEMTEMPLATE 型态的结构指标，并传回功能表的代号，该函式在载入资源 
描述档中的常规功能表模板後，在 Windows 中构造功能表，读者不妨自己尝试 
一下。 

浮动突现式功能表 


您还可以在没有顶层功能表列的情况下使用功能表，也就是说，您可以使 
突现式功能表出现在萤幕顶层的任何位置。一种方法是使用滑鼠右键来启动突 
现式功能表。程式 10-6 所示的 P 0 PMENU 说明了这种方法。 


程式 10-6 P 0 PMENU 


POPMENU.C 

/* - 

POPMENU.C -- Popup Menu Demonstration 

(c) Charles Petzold, 1998 



♦include <windows.h> 

♦include "resource.h M 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 
HINSTANCE hlnst ; 

TCHAR szAppName[] = TEXT ("PopMenu"); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


HWND 

MSG 

WNDCLASS 


hwnd ; 
msg ; 
wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 


=CS_HREDRAW | CS—VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, szAppName); 

=LoadCursor (NULL, 工 DC—ARROW); 

=(HBRUSH) GetStockObject (WHITE BRUSH); 
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wndclass . IpszMenuName 

= NULL ; 




wndclass . IpszClassName 

= s zAppName ; 




if (!RegisterClass (&wndclass)) 

/ 





l 

MessageBox ( NULL, 

TEXT 

("This program 

requires 

Windows NT 丨 ’’） ， 





szAppName, 

MB ICONERROR); 


} 

return 0 ; 






hlnst : 

= hlnstance ; 






hwnd = 

CreateWindow ( szAppName, 

TEXT (’’Popup Menu Demonstration") , 



WS OVERLAPPEDWINDOW, 






CW USEDEFAULT, CW USEDEFAULT, 





CW USEDEFAULT, CW USEDEFAULT, 





NULL, NULL, hlnstance. 

NULL) ; 




ShowWindow (hwnd, iCmdShow) 

參 

f 





UpdateWindow (hwnd) ; 






while 

； 

(GetMessage (&msg, NULL, 0, 

0)) 




i 

TranslateMessage 

(&msg) ; 




\ 

DispatchMessage 

(&msg) ; 



} 

j 

return 

msg . wParam ; 





LRESULT CALLBACK WndProc ( HWND 

hwnd. 

UINT message 

, WPARAM 

wParam,LPARAM 

IParam) 

f 







static 

HMENU hMenu ; 






static 

int idColor [5] 

= { 

WHITE BRUSH, 


LTGRAY BRUSH, 

GRAY 

BRUSH, 









DKGRAY BRUSH, BLACK 

BRUSH } 

參 

f 


static 

int iSelection 

= IDN 

[BKGND WHITE ; 




POINT 



point ; 




switch 

/ 

(message) 






l 

case WM CREATE : 







hMenu = LoadMenu 

(hlnst , szAppName) 

參 

r 




hMenu = GetSubMenu (hMenu, 0); 





return 0 ; 






case WM RBUTTONUP: 







point.x = LOWORD 

(IParam); 





point.y = HIWORD 

(IParam); 





ClientToScreen (hwnd. 

&point); 
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hwnd, NULL) 


case 


Program\n n ) 


TrackPopupMenu 

參 

(hMenu, TPM RIGHTBUTTON, 

point.x, point.y, ◦, 

F 

return 0 

• 

f 




WM COMMAND : 






switch (LOWORD 

f 

(wParam)) 



case 

IDM 

FILE 

NEW: 



case 

IDM 

FILE 

OPEN: 



case 

IDM 

FILE 

SAVE: 



case 

IDM 

FILE 

SAVE AS: 



case 

工 DM 

EDIT 

UNDO: 



case 

IDM 

EDIT 

CUT: 



case 

工 DM 

EDIT 

COPY: 



case 

IDM 

EDIT 

PASTE: 



case 

IDM 

EDIT 

CLEAR: 






MessageBeep (0) 

參 

f 





return 0 ; 



case 

IDM 

BKGND 

WHITE: 

// Note : Logic below 

case 

IDM 

BKGND 

LTGRAY: 

// 

assumes that IDM WHITE 

case 

工 DM 

BKGND 

GRAY: 

// 

through 工 DM BLACK are 

case 

IDM 

BKGND 

DKGRAY : 

// 

consecutive numbers in 

case 

IDM 

BKGND 

BLACK: 

// 

the order shown here. 


CheckMenuItem (hMenu, iSelection, MF_UNCHECKED); 
iSelection = LOWORD (wParam); 

CheckMenuItem (hMenu, iSelection, MF_CHECKED); 

SetClassLong (hwnd, GCL_HBRBACKGROUND, (LONG) 

GetStockObject 

(idColor [LOWORD (wParam) - IDM_BKGND—WHITE])); 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case IDM—APP_ABOUT: 

MessageBox (hwnd, TEXT ("Popup Menu Demonstration 

TEXT ("(c) Charles Petzold, 19 98"), 
szAppName, MB_ICONINFORMATION | MB_OK); 
return 0 ; 

case IDM_APP_EXIT: 

SendMessage (hwnd, WM—CLOSE, 0, 0); 
return 0 ; 
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case IDM_APP_HELP: 

MessageBox (hwnd A TEXT ("Help not yet implemented !"), 
szAppName, MB_ICONEXCLAMATION | MB_OK); 
return 0 ; 

} 

break ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

POPMENU.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h M 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

POPMENU MENU DISCARDABLE 
BEGIN 

POPUP "MyMenu" 

BEGIN 

POPUP "&File" 

BEGIN 

MENUITEM "&New n , 

MENUITEM "&Open", 

MENUITEM "&Save", 

MENUITEM "Save &As n , 

MENUITEM SEPARATOR 
MENUITEM "E&xit", 

END 

POPUP "&Edit n 
BEGIN 

MENUITEM "&Undo", 

MENUITEM SEPARATOR 
MENUITEM "Cu&t", 

MENUITEM "&Copy", 

MENUITEM "&Paste n , 

MENUITEM "De&lete", 


工 DM_FILE—NEW 
IDM_FILE_OPEN 
IDM—FILE—SAVE 
工 DM—FILE_SAVE_AS 

工 DM APP EXIT 


工 DM_EDIT_UNDO 

工 DM_EDIT_CUT 
工 DM—EDIT—COPY 
工 DM—EDIT—PASTE 
工 DM EDIT CLEAR 


END 

POPUP n &Background" 

BEGIN 

MENUITEM n &White n , 
MENUITEM "&Light Gray ”， 
MENUITEM ” &Gray n , 


工 DM_BKGND_WHITE, CHECKED 
工 DM_BKGND_LTGRAY 
工 DM BKGND GRAY 
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MENUITEM "&Dark Gray", 工 DM 

BKGND DKGRAY 

MENUITEM n &Black", 

END 

POPUP M &Help" 

BEGIN 

IDM BKGND BLACK 

MENUITEM "&Help... M A 工 DM 

APP HELP 

MENUITEM "&About PopMenu.. 

END 

END 

END 

RESOURCE. H ( 摘录） 

. 11 r IDM APP ABOUT 

// Microsoft Developer Studio generated include file. 

// Used by PopMenu.rc 

♦define IDM FILE—NEW 

40001 

#define IDM FILE OPEN 

40002 

#define IDM FILE_SAVE 

40003 

♦define IDM FILE SAVE AS 

40004 

♦define IDM APP EXIT 

40005 

#define IDM EDIT UNDO 

40006 

#define IDM EDIT—CUT 

40007 

♦define IDM EDIT—COPY 

40008 

♦define 工 DM EDIT PASTE 

40009 

#define IDM EDIT—CLEAR 

40010 

#define IDM BKGND WHITE 

40011 

♦define IDM BKGND LTGRAY 

40012 

♦define IDM BKGND GRAY 

40013 

#define IDM BKGND DKGRAY 

40014 

#define IDM BKGND BLACK 

40015 

♦define IDM APP HELP 

40016 

♦define IDM APP ABOUT 

40017 


资源描述档 POPMENU . RC 定义的功能表与 MENUDEMO . RC 中的功能表非常相 


似。不同的是，在顶层功能表中只包含一项——一个突现式功能表 「 MyMenu 」 ， 
它呼叫 「 File 」 、 「 Edit 」 、 「 Background 」 和 「 Help 」 选项。这四个选项垂 
直一行地出现在突现式功能表上，而不是水平一列地出现在主功能表上。 

在 WndProc 中的 WM _ CREATE 处理期间， P 0 PMENU 取得此突现式功能表的代号， 
就是带有文字 rMyMenuJ 的那个突现式功 能表： 

hMenu = LoadMenu (hlnst, szAppName); 
hMenu = GetSubMenu (hMenu, 0); 

在 WM _ RBUTTONUP 讯息处理期间， POPMENU 提供了滑鼠指标的位置，将此位 
置转换为萤幕座标，再将座标值传递给 TrackPopupMenu ： 

point.x = LOWORD (IParam); 
point.y = HIWORD (IParam); 

ClientToScreen (hwnd, &point); 
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TrackPopupMenu (hMenu, TPM—RIGHTBUTTON, point.x, point.y, 

0 , hwnd, NULL); 

然後， Windows 显示出具有 「 File 」 、 「 Edit 」 、 「 Background 」 和 「 Help 」 

项的突现式功能表。选择其中任何一项都可以使嵌套的突现式功能表显示在右 
边，功能表函式与一般的功能表一样。 

如果要使用与该程式的主功能表相同的功能表并带有 TrackPopupMenu ， 您 
会遇到一些问题，因为函式需要突现式功能表代号。在 「Microsoft Knowledge 
Base 」 文章 ID Q 99806 有提供一些资讯。 

使用系统功能表 

使用 WS _ SYSMENU 样式建立的父视窗，在其标题列的左侧有一个系统功能表 
按钮。如果您愿意，可以修改这个功能表。在 Windows 程式设计的早期，程式 
写作者一般把 「 About 」 功能表项放入系统功能表。虽然这种方法不常见，但是 
修改系统功能表往往是一种在短程式中添加功能表的快速偷懒方法。这里唯一 
的限 制是： 在系统功能表中增加的命令其 ID 值必须小於 OxFOOO ; 否则它们将会 
与 Windows 系统功能表命令所使用的 ID 值相冲突。还要记住，当您为这些新功 
能表项在视窗讯息处理程式中处理 WM _ SYSCOMMAND 讯息时，您必须把其他的 
WM _ SYSCOMMAND 讯息发送给 DefWindowProc 。 如果您不这样做，那么实际上是禁 
用了系统功能表上的所有正常选项。 

程式 10-7 中所示的 P 00 RMENU ( 「设计不当的个人功能表」）在系统功能表 
中加入了一个分隔条和三个命令，最後一个命令将删除这些附加的功能表项。 


程式 10-7 P 00 RMENU 


P00RMENU.C 

/* - 

P00RMENU.C -- 

The 

Poor Person 1 

s Menu 

(c) Charles Petzold, 

1998 

- */ 

♦include <windows.h> 

♦define IDM SYS ABOUT 
♦define IDM—SYS HELP 
#define IDM—SYS REMOVE 


3 

1 

2 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

static TCHAR szAppName[] = TEXT ("PoorMenu"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int 

iCmdShow) 

HMENU 

HWND 


hMenu ; 

hwnd ; 
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MSG 


msg ; 




WNDCLASS 

wndclass ; 




wndclass.style 



=CS 

HREDRAW | CS VREDRAW ; 


wndclass.lpfnWndProc 



=WndProc ; 


wndclass.cbClsExtra 



=◦ 

參 

r 


wndclass.cbWndExtra 



= 0 

參 

f 


wndclass.hlnstance 



=hlnstance ; 


wndclass•hicon 



=Loadlcon (NULL, IDI APPLICATION); 


wndclass.hCursor 



=LoadCursor (NULL, IDC ARROW); 


wndclass.hbrBackground 


=(HBRUSH) 

GetStockObject (WHITE—BRUSH); 


wndclass.IpszMenuName 


=NULL ; 



wndclass.IpszClassName 


=s zAppName ; 


if (!RegisterClass (&wndclass)) 

； 




l 

MessageBox 

( 

NULL, 

TEXT ("This program requires Windows 

NT !，' ） ， 










szAppName, 

MB 

ICONERROR); 






return 0 ; 

} 






hwnd = CreateWindow ( 

szAppName, 1 

TEXT 

("The Poor-Person ’ s Menu 1 ’）， 


WS OVERLAPPEDWINDOW 

f 



CW USEDEFAULT, 

CW USEDEFAULT, 


CW USEDEFAULT, 

CW USEDEFAULT, 


NULL, NULL, hlnstance, NULL); 


hMenu = GetSystemMenu 

(hwnd, 

FALSE); 



AppendMenu (hMenu, MF 

SEPARATOR, 0, 

NULL); 


AppendMenu (hMenu, MF 

STRING 

,I DM 

—SYS— 

ABOUT, TEXT ("About ...)； 


AppendMenu (hMenu, MF 

STRING 

,I DM 

—SYS— 

HELP, TEXT ("Help. .." ))； 


AppendMenu (hMenu, MF 

STRING 

, I DM 

_SYS_ 

REMOVE, TEXT ("Remove 

Additions")) ; 






ShowWindow (hwnd, iCmdShow); 





UpdateWindow (hwnd); 






while (GetMessage (&msg, NULL, 0, 

； 

0)) 



l 

TranslateMessage 

(&msg) 

參 

f 



DispatchMessage (&msg) 

• 

f 


} 

J 

return msg . wParam ; 





LRESULT CALLBACK WndProc ( 

HWND : 

hwnd. 

UINT message, WPARAM wParam,LPARAM 
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IParam) 

{ 

switch (message) 

{ 


case WM_SYSCOMMAND: 

switch (LOWORD (wParam)) 

{ 

case 工 DM_SYS_ABOUT: 

MessageBox ( hwnd, TEXT ("A 

Poor-Person 1 s Menu Program\n") 

TEXT ("(c) Charles Petzold, 19 98"), 
szAppName, MB_OK | MB_ICONINFORMATION); 

return 0 ; 


implemented! n ), 


case IDM_SYS_HELP: 

MessageBox ( hwnd, TEXT ("Help not yet 

s zAppName, MB_OK | MB_ICONEXCLAMATION); 

return 0 ; 


case IDM_SYS_REMOVE: 

GetSystemMenu (hwnd, TRUE); 
return 0 ; 

} 

break ; 


case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 


三个功能表 ID 在 POORMENU . C 的开始部分 定义: 


#define 

I DM 

ABOUT 

1 

#define 

I DM 

HELP 

2 

#define 

IDM 

REMOVE 

3 


在程式视窗建立之後， POORMENU 得到一个系统功能表的 代号: 


hMenu = GetSystemMenu (hwnd, FALSE); 


第一次呼叫 GetSystemMenu 时，您应该为修改功能表作准备，将第二个参 


数设定为 FALSE 。 

使用四个 AppendMenu 呼叫来实作对功能表的 修改: 


AppendMenu 

(hMenu, 

MF 

SEPARATOR, 

o. 



NULL) 

AppendMenu 

參 

f 

(hMenu, 

MF 

STRING, 

IDM 

_SYS_ 

ABOUT, 

TEXT ("About ...)； 

AppendMenu 

(hMenu, 

MF 

STRING, 

IDM 

_SYS_ 

HELP, 

TEXT ("Help ...)； 

AppendMenu 

(hMenu, 

MF 

STRING, 

工 DM 

_SYS_ 

REMOVE, 

TEXT ("Remove 


第 424 页 








Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

Additions")) ; 

第一个 AppendMerm 呼叫是添加分隔条。选择 「Remove Additions 」 功能表 
项将使 P 00 RMENU 删除这些附加的功能表项，这只要把第二个参数设定为 TRUE ， 
再次呼叫 GetSystemMenu 即可： 

GetSystemMenu (hwnd, TRUE) ; 

标准系统功能表有下列选项： Restore 、 Move 、 Size 、 Minimize、Maximize 
和 Close o 它们产生 wParam 分别等於 SC — RESTORE 、 SC — MOVE 、 SC — SIZE 、 
SC _ MINIMUM 、 SC_MAXIMUM 和 SC _ CL 0 SE 的 WM_SYSCOMMAND 讯息。尽管 Windows 程 
式一般不这样做，但是您可以自己处理这些讯息，而不把它们留给 
DefWindowProCc 您也可以使用下面所述的方法来禁止或者除掉系统功能表的标 
准选项。 Windows 文件中还介绍了一些系统功能表的标准附加项目，这些附加项 
目使用识别字 SC _ NEXTWINDOW , SC _ PREVWINDOW 、 SC _ VSCROLL 、 SC_HSCROLL 和 
SC _ ARRANGE 。 您也许会发现，在一些应用程式中将这些命令加入系统功能表是 
合适的。 

改变功能表 

我们已经看到了如何使用 AppendMenu 函式为程式定义功能表以及将功能表 
项加入到系统功能表中。在 Windows 3.0 之前，您不得不被迫使用 ChangeMenu 
函式来完成这种工作。 ChangeMenu 函式有很多功能，至少在当时，整个 Windows 
中它是最复杂的函式之一。现在，许多函式都比 ChangeMenii 函式还要复杂，并 
且 ChangeMenu 的功能被分解为五个新的函式： 

• AppendMenu 在功能表尾部添加一个新的功能表项目 

• DeleteMenu 删除功能表中一个现有的功能表项并清除该项目 

• InsertMenu 在功能表中插入一个新项目 

• ModifyMenu 修改一个现有的功能表项目 

• RemoveMenu 从功能表中移走某一项目 

如果功能表项是一个突现式功能表，那么 DeleteMenu 和 RemoveMenu 之间 
的区别就很重要。 DeleteMerm 清除突现式功能表，但 RemoveMenu 不清除它。 

其他功能表命令 

下面是在使用功能表时一些有用的函式。 

当您改变顶层功能表项时，直到 Windows 重画功能表列时才显示所做的改 
变。您可以通过下列呼叫来强迫执行功能表更新： 

DrawMenuBar (hwnd) ; 

注意， DrawMenuBar 的参数是视窗代号而不是功能表代号。 
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您可以使用下列命令来获得突现式功能表的 代号： 

hMenuPopup = GetSubMenu (hMenu, iPosition); 

其中 iPosition 是 hMenu 指示的顶层功能表中突现式功能表项的索引（开 
始为 0) 。然後您可以在其他函式中使用突现式功能表代号（例如在 AppendMenu 
函式中）。 

您可以使用下列命令获得顶层功能表或者突现式功能表中目前的项数： 

iCount = GetMenuItemCount (hMenu) ; 

您可以取得突现式功能表项的功能表 ID : 

id = GetMenuItemlD (hMenuPopup, iPosition); 

其中 iPosition 是功能表项在突现式功能表中的位置（以0开始）。 

在 MENUDEM 0 中您已经看到如何选中、或者取消选中突现式功能表中的某一 

项： 

CheckMenuItem (hMenu, id, iCheck); 

在 MENUDEMO 中， hMenu 是顶层功能表的代号， id 是功能表 ID ， 而 iCheck 
的值是 MF _ CHECKED 或 MFJJNCHECKED 。 如果 hMenu 是突现式功能表代号，那么参 

数 id 是位置索引而不是功能表 ID 。 如果使用索引会更方便的话，那么您可以在 
第三个参数中包含 MF _ BYP 0 SITI 0 N ， 例如： 

CheckMenuItem (hMenu, iPosition, MF_CHECKED | MF_BYPOSITION); 

除了 第三个参数是 MF_ENABLED , MF_DISABLED 或 MF_GRAYm 夕卜， 
EnableMenuItem 函式与 CheckMenuItem 函式所完成的工作类似。如果您在具有 
突现式功能表的顶层功能表项上使用 EnableMenuItem , 那么必须在第三个参数 
中使用 MF _ BYP 0 SITI 0 N 识别字，因为功能表项没有功能表 ID 。 我们将在本章後 
面所示的 P 0 PPAD 2 程式中看到 EnableMenuItem 的一个例子 。 HiliteMenuItem 
也类似於 CheckMenuItem 和 EnableMenuItem , 但是它使用的是 MF _ HIUTE 和 
MFJJNHILITE 。 当您在功能表项之间移动时， Windows 使用反白显示方式加亮显 
示功能表项。您通常不需要使用 HiliteMenuItem 。 

您还需要对您的功能表做些什么呢？还记得我们在功能表中使用了哪些字 
串吗？您可以透过下面的呼叫来回顾 一下： 

iCharCount = GetMenuString (hMenu, id, pString, iMaxCount, iFlag); 

iF 1 ag 可以是 MF _ BYCOMMAND (其中 id 是功能表 ID )， 也可以是 MF_BYPOSITION 
(其中的 id 是位置索引）。函式将字串的 iMaxCount 个位元组复制到 pString 
中，并传回复制的位元组数。 

或许您也想知道功能表项目前的属性是 什么： 

iFlags = GetMenuState (hMenu, id, iFlag); 

同样地 ， iFlag 可以是 MF _ BYC 0 MMAND 或 MF _ BYP 0 Sm 0 N 。 传回值 iFlags 是 
目前所有属性的组合，您可以通过对 MF _ DISABLED 、 MF _ GRAYED , MF _ CHECKED 、 


第426页 











Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

MF _ MENUBREAK 、 MF_MENUBARBREAK 和 MF_SEPARATOR 识别字的检测来决定目前的 
属性。 

也许现在您对功能表有了一些了解。这时您可能想知道，如果您不再需要 
功能表时又应该如何处理。您可以使用下面的命令来清除功 能表： 

DestroyMenu (hMenu) ; 

从而使功能表代号无效。 

建立功能表的非正统方法 

现在让我们稍微偏离我们所讨论的主题。如果在您的程式中没有下拉式功 
能表，而是建立了多个没有突现式功能表的顶层功能表，并呼叫 SetMenu 在顶 
层功能表之间切换，那会是什么样的情形呢？就像 Lotus 1-2-3 中老式的文字 
模式功能表那样。程式 10-8 中的 N 0 P 0 PUPS 程式展示了处理这种情况。在这个 
程式中， 「 File 」 和 「 Edit 」 项与 MENUDEM 0 程式中的类似，但是却以另一种顶 
层功能表显示出来。 


程式 10-8 N 0 P 0 PUPS 


NOPOPUPS.C 

/ 女 





NOPOPUPS.C -- Demonstrates No-Popup Nested 

Menu 




(c) Charles 

Petzold, 

1998 

- V 

♦include <windows.h> 




♦include "resource.h" 




LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 



int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 


( 


PSTR szCmdLine, int 

iCmdShow) 

\ 

static TCHAR szAppName[] 

=TEXT ("NoPopUps"); 




HWND 

hwnd ; 




MSG 

msg ; 




WNDCLASS 

wndclass ; 




wndclass.style 

=CS_HREDRAW | CS_ 

VREDRAW 

• 

r 


wndclass.lpfnWndProc 

=WndProc ; 




wndclass.cbClsExtra 

=◦; 




wndclass.cbWndExtra 

=◦; 




wndclass.hlnstance 

=hlnstance ; 




wndclass.hicon 

=Loadlcon (NULL, 

IDI APPLICATION); 


wndclass.hCursor 

=LoadCursor (NULL, 工 DC—ARROW); 


wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 


wndclass.IpszMenuName 

=NULL ; 
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wndclass.IpszClassName = szAppName ; 
if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT (’’This program requires Windows NT !’，）， 

szAppName, MB_ICONERROR); 

return 0 ; 

} 

hwnd = CreateWindow ( szAppName, 

TEXT ("No-Popup Nested Menu Demonstration"), 
WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW_USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static HMENU hMenuMain, hMenuEdit, hMenuFile ; 

HINSTANCE hlnstance ; 

switch (message) 

{ 

case WM—CREATE: 

hlnstance = (HINSTANCE) GetWindowLong (hwnd, GWL_HINSTANCE); 

hMenuMain = LoadMenu (hlnstance, TEXT ("MenuMain")); 
hMenuFile = LoadMenu (hlnstance, TEXT ("MenuFile")); 
hMenuEdit = LoadMenu (hlnstance, TEXT ("MenuEdit")); 

SetMenu (hwnd, hMenuMain); 
return 0 ; 

case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case 工 DM—MAIN: 

SetMenu (hwnd, hMenuMain); 
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return 0 

• 

r 

case 

IDM 

FILE: 






SetMenu 

(hwnd, hMenuFile); 




return 0 

• 

r 

case 

I DM 

EDIT: 






SetMenu 

(hwnd, hMenuEdit); 




return 0 

• 

r 

case 

IDM 

FILE 

NEW: 


case 

IDM 

FILE 

OPEN: 


case 

IDM 

FILE 

SAVE : 


case 

IDM 

FILE 

SAVE AS : 


case 

IDM 

EDIT 

UNDO: 


case 

IDM 

EDIT 

CUT: 


case 

IDM 

EDIT 

COPY: 


case 

IDM 

EDIT 

PASTE: 


case 

IDM 

EDIT 

CLEAR: 





MessageBeep (0); 

1 



return 0 

• 

r 

; 

break 

• 

F 




case WM DESTROY: 





SetMenu (hwnd A 

hMenuMain) 

• 

DestroyMenu (hMenuFile); 


DestroyMenu (hMenuEdit); 


PostQuitMessage (0); 


return 0 

1 

• 

r 



i 

return DefWindowProc 

(hwnd 

r message , 

wParam, IParam); 

NOPOPUPS.RC ( 摘录） 





/ /Microsoft Developer Studio generated resource script . 

♦include "resource . h" 





♦include "afxres . h" 





//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 





MENUMAIN MENU DISCARDABLE 




BEGIN 





MENUITEM "MAIN: ", 


◦, 

INACTIVE 


MENUITEM "&File .. 

VV 

• f 

IDM FILE 


MENUITEM "&Edit .. 

VV 

• f 

IDM 

EDIT 


END 
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MENUFILE MENU DISCARDABLE 
BEGIN 

MENUITEM n FILE: n , 0, INACTIVE 

MENUITEM "&New", 

IDM_FILE—NEW 
MENUITEM "&Open... 

MENUITEM "&Save", 

IDM—FILE—SAVE 
MENUITEM "Save &As", 

工 DM—FILE—SAVE—AS 
MENUITEM "(&Main)", 

工 DM—MAIN 

END 

MENUEDIT MENU DISCARDABLE 
BEGIN 


MENUITEM 

"EDIT:", 


o, 

INACTIVE 

MENUITEM 

’’ &Undo", 





MENUITEM 

"Cu&t", 

工 DM 

EDIT 

CUT 


MENUITEM 

n &Copy n , 

工 DM 

EDIT 

COPY 


MENUITEM 

M &Paste M , 


IDM 

EDIT 

PASTE 

MENUITEM 

"De&lete", 


IDM 

EDIT 

_CLEAR 

MENUITEM 

"(&Main) n , 


IDM 

MAIN 



END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 
// Used by NoPopups.rc 


♦define 工 DM_FILE 40001 

♦define 工 DM—EDIT 40002 

♦define 工 DM—FILE—NEW 40003 

♦define 工 DM—FILE—OPEN 40004 

♦define 工 DM—FILE—SAVE 40005 

♦define 工 DM_FILE_SAVE_AS 40006 

♦define 工 DM—MAIN 40007 

♦define 工 DM—EDIT—UNDO 40008 

♦define 工 DM—EDIT_CUT 40009 

♦define 工 DM_EDIT_COPY 40010 

♦define 工 DM—EDIT—PASTE 40011 

♦define IDM EDIT CLEAR 40012 


IDM FILE OPEN 


IDM EDIT UNDO 


在 Microsoft Developer Studio 中，您建立了三个功能表，而不是一个。 
从 「 Insert 」 中选择 「 Resource 」 三次，每个功能表有一个不同的名称。当视 
窗讯息处理程式处理 WM _ CREATE 讯息时， Windows 将每个功能表资源载入记 忆体: 


hMenuMain = 

LoadMenu 

(hlnstance, 

TEXT 

("MenuMain")); 

hMenuFile = 

LoadMenu 

(hlnstance, 

TEXT 

("MenuFile")); 

hMenuEdit = 

LoadMenu 

(hlnstance, 

TEXT 

("MenuEdit")); 


开始时，程式只显示主功 能表: 


第430页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

SetMenu (hwnd, hMenuMain) ; 

主功能表使用字串 「 MAIN :」 、 「 File ...」 和 「 Edit ...」 列出这三个选项。 
然而， 「 MAIN :」 是禁用的，因此它不能使 WM _ COMMAND 讯息被发送到视窗讯息 
处理程式。 「 File 」 和 「 Edit 」 功能表项以 「 FILE :」 和 「 EDIT :」 开始，表示 
它们是子功能表。每个功能表的最後一项都是字串「 （ Main ) 」，表不传回到主 
功能表。在这三个功能表之间进行切换是很简 单的： 

case WM_COMMAND : 

switch (wParam) 

{ 

case IDM—MAIN : 

SetMenu (hwnd, hMenuMain); 
return 0 ; 

case IDM—FILE : 

SetMenu (hwnd, hMenuFile); 
return 0 ; 

case IDM_EDIT : 

SetMenu (hwnd, hMenuEdit); 
return 0 ; 

其他行程式 
} 

break ; 

在 WM _ DESTROY 讯息处理期间， N 0 P 0 PUPS 将程式的功能表设定为主功能表， 
并呼叫 DestroyMenu 来清除 「 File 」 和 「 Edit 」 功能表。当视窗被清除时，主 
功能表将被自动清除。 


键盘加速键 


加速键是产生 WM _ COMMAND 讯息（有些情况下是 WM _ SYSCOMMAND ) 的键组合。 
许多时候，程式使用加速键来重复常用功能表项的动作（然而，加速键还可以 
用於执行非功能表功能）。例如，许多 Windows 程式都有一个包含 「 Delete 」 
或 「 Clear 」 选项的 「 Edit 」 功能表，这些程式习惯上都将 Del 键指定为该选项 
的加速键。使用者可以通过「 Alt 键」从功能表中选择「 Delete 」选项，或 
者只需按下加速键 Del 。当视窗讯息处理程式收到一个 WM _ COMMAND 讯息时， 
它不必确定使用的是功能表还是加速键。 


为什么要使用加速键 


您也许 会问： 为什么我应该使用加速键?为什么不能直接拦截 WM_KEYDOWN 
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或 WM _ CHAR 讯息而自己实作同样的功能表功能呢？好处又在哪里呢？对於一个 
单视窗应用程式，您当然可以拦截键盘讯息，但是使用加速键可以得到一些好 
处：您不需要把功能表和加速键的处理方式重写一遍。 

对於有多个视窗和多个视窗讯息处理程式的应用程式来说，加速键是非常 
重要的。正如我们所看到的， Windows 将键盘讯息发送给目前活动视窗的视窗讯 
息处理程式。然而对於加速键， Windows 把 WM _ COMMAND 讯息发送给视窗讯息处 
理程式，该视窗讯息处理程式的代号在 Windows 函式 TranslateAccelerator 中 
给出。通常这是主视窗，也是拥有功能表的视窗，这意味著无须每个视窗讯息 
处理程式都把加速键的操作处理程式重写一遍。 

如果您在主视窗的显示区域中，使用了非系统模态对话方块（在下一章中 
会讨论）或者子视窗，那么这种好处就变得非常重要。如果定义一个特定的加 
速键以便在不同的视窗之间移动，那么，只需要一个视窗讯息处理程式有这个 
处理程式。子视窗就不会收到加速键引发的 WM _ COMMAND 讯息。 


安排加速键的几条规则 

理论上，您可以使用任何虚拟键或者字元键连同 Shift 键、 Ctrl 键或 Alt 
键来定义加速键。然而，您应该尽力使应用程式之间协调一致，并且尽量避免 
干扰 Windows 的键盘使用。在加速键中，应该避免使用 Tab 、 Enter 、 Esc 和 
Spacebar 键，因为这些键常常用於完成系统功能。 

加速键最经常的用途是操作程式的 「 Edit 」 功能表中的各项。为这些功能 
表项推荐的加速键在 Windows 3. 0和 Windows 3. 1之间已有不同，因此通常都 
要支援如下所列的新旧两套加速键： 


表 10-2 


功能 

旧加速键 

新加速键 

Undo 

Alt+Backspace 

Ctrl+Z 

Cut 

Shift+Del 

Ctrl+X 

Copy 

Ctrl+Ins 

Ctrl+C 

Paste 

Shift+Ins 

Ctrl+V 

Delete 或 Clear 

Del 

Del 


另一种常用的虚拟键是启动辅助资讯的功能键 F 1。 应该避免使用 F 4、 F 5 和 
F 6 键，因为这些键常用在多重文件介面 （ MDI ) 程式中来完成特殊的功能（将在 
第十九章中讨论）。 
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加速键表 


您可以在 Developer Studio 中定义加速键表。为了让程式中载入加速键表 
更为容易，给它和程式名相同的名称（与功能表和图示名也相同）。 

每个加速键都有在 Accel Properties 对话方块中定义的 ID 和按键组合。 
如果您已经定义了功能表，则功能表 ID 会出现在下拉式清单方块中，因此不需 
要键入它们。 

加速键可以是虚拟键或 ASCII 字元与 Shift 、 Ctrl 或 Alt 键的组合。可以 
通过在字母前键入『1来指定带有 Ctrl 键的 ASCII 字元。也可以从下拉式清 
单方块中选取虚拟键。 

当您为功能表项定义加速键时，应该将键的组合包含到功能表项的文字中。 
跳位字元 （\ t ) 将文字与加速键分割开，将加速键列在第二列。为了在功能表 
中为加速键做上标记，可以在文字 rctrlj , 「 Shift 」 或 「 Alt 」 之後跟上一 
个「+」号和一个键名（例如， 「 Shift + F 6」 或 「 Ctrl + F 6」） 。 


加速键表的载入 


在您的程式中，您使用 LoadAccelerators 函式把加速键表载入记忆体，并 
获得该表的代号。 LoadAccelerators 叙述非常类似於 Loadlcon、LoadCursor 
和 LoadMenu 叙述。 

首先，把加速键表的代号定义为型态 HANDLE : 

HANDLE hAccel ; 

然後载入加速 键表： 

hAccel = LoadAccelerators (hlnstance, TEXT ("MyAccelerators M )); 

正如图示、游标和功能表一样，您可以使用一个数值代替加速键表的名称， 
然後在 LoadAccelerators 叙述中和 MAKEINTRESOURCE 巨集一起使用该数值，或 

者把它放在双引号内，前面冠以字元「#」。 

键盘代码转换 

现在我们将讨论底下这三行程式码，在本书中，截至目前为止建立的所有 
Windows 程式中都使用过它们。这些程式码是标准的讯息 回圈： 

while (GetMessage (&msg A NULL, 0 , 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

下面把上头那段程式码加以修改，以便使用加 速键： 
while (GetMessage (&msg, NULL, ◦, 0)) 
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{ 

if ( ! TranslateAccelerator (hwnd, hAccel, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

TranslateAccelerator 函式确认存放在 msg 讯息结构中的讯息是否为键盘 
讯息。如果是，该函式将找寻代号为 hAccel 的加速键表。如果找到了一个符合 
的，则呼叫代号为 hwnd 的视窗讯息处理程式。如果加速键 ID 与系统功能表的 
功能表项一致，则讯息就是 WM _ SYSCOMMAND ; 否则，讯息为 WM _ COMMAND 。 

当 TranslateAccelerator 传回时，如果讯息已经被转换（并且已经被发送 
给视窗讯息处理程式），那么传回值为 非零； 否则，传回值为0。如果 
TranslateAccelerator 传回一'个非零值，则不呼叫 TranslateMessage 和 
DispatchMessage ， 而是经过回圈回到 GetMessage 呼叫中。 

TranslateMessage 中的参数 hwnd 看起来有点累赘，因为讯息回圈中的其他 
三个函式都没有要求这个参数。此外，讯息结构本身（结构变数 msg ) 有一个叫 
做 hwnd 的成员，它是视窗代号。 

该函式有些不同的原因在於： msg 结构的栏位由 GetMessage 呼叫填入。当 
GetMessage 的第二个参数为 NULL 时，函式会找寻应用程式所有视窗的讯息。当 
GetMessage 传回时， msg 结构的 hwnd 是将要获得讯息之视窗的视窗代号。然而， 
当 TranslateAccelerator 把键盘讯息转换为 WM _ C 0 MMAND 或 WM _ SYSC 0 MMAND 讯 
息时，它使用函式的第一个参数指定的视窗代号 hwnd 来代替视窗代号 msg . hwnd 。 
Windows 就是这样把所有加速键讯息发送给同一视窗讯息处理程式的，即使另一 
个应用视窗目前拥有输入焦点。当系统模态对话方块或者讯息方块拥有输入焦 
点时， TranslateAccelerator 不会转换键盘讯息，因为这些视窗的讯息是不经 
过程式的讯息回圈的。 

在某些情况下，当您程式的另一个视窗（比如一个非系统模态对话方块） 
拥有输入焦点时，您也许不想转换加速键。您将在下一章中看到如何处理这种 
情况。 

接收加速键讯息 

当加速键与系统功能表中的功能表项相对应时， TranslateAccelerator 给 
视窗讯息处理程式发送一个 WM _ SYSC 0 MMAND 讯息，否则 ， TranslateAccelerator 
给视窗讯息处理程式发送一个 WM _ C 0 MMAND 讯息。下表所示为几种可能接收到的 
WM _ C 0 MMAND 讯息，这些讯息用於加速键、功能表命令以及子视窗控 制项： 
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表 10-3 



加速键 

功能表 

控制项 

L0W0RD (wParam) 

加速键 ID 

功能表 ID 

控制项 ID 

HIWORD (wParam) 

1 

0 

通知码 

IParam 

0 

0 

子视窗代号 


如果加速键与一个功能表项对应，那么视窗讯息处理程式还会收到 
WM _ INITMENU , WM_INITMENUPOPUP 和 WM_MENUSELECT 讯息，就好像选中了功能表 
选项一样。在处理 WM _ INITMENUPOPUP 时，程式往往启用和禁用突现式功能表中 
的功能表项，因此，在使用加速键时，您仍然能够实作这类功能。如果加速键 
与一个禁用或者无效化的功能表项相对应，那么， TranslateAccelerator 函式 
就不会向视窗讯息处理程式发送 WM _ C 0 MMAND 或 WM _ SYSC 0 MMAND 讯息。 

如果活动视窗已经被最小化，那么 TranslateAccelerator 将为与启用的系 
统功能表项相对应的加速键向视窗讯息处理程式发送 WM _ SYSC 0 MMAND 讯息，而 
不是 WM _ C 0 MMAND 讯息。 TranslateAccelerator 也会为没有任何功能表项与之对 
应的加速键，来向视窗讯息处理程式发送 WM _ C 0 MMAND 讯息。 


功能表与加速键应用程式 P 0 PPAD 

在第九章，我们建立了一个叫做 P 0 PPAD 1 的程式，它使用了子视窗编辑控 
制项来实作基本的笔记本功能。在这一章中，我们将加入 「 File 」 和 「 Edit 」 
功能表，并称此程式为 P 0 PPAD 2。「 Edit 」 功能表的功能表项的功能全部 可用； 
我们将在第十一章中完成 「 File 」 功能，在第十三章中完成 「 Print 」 功能。 P 0 PPAD 2 
如程式 10-9 所不。 


程式 10-9 P0PPAD2 


P0PPAD2.C 

/* - 



P0PPAD2.C -- 

Popup Editor Version 2 (includes menu) 

(c) Charles Petzold, 1998 

女 


♦include <windows.h> 

♦include "resource.h M 

♦define ID_EDIT 1 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("PopPad2 n ); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 
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hAccel ; 

hwnd ; 
msg ; 
wndclass ; 

wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 


HACCEL 

HWND 

MSG 

WNDCLASS 


szAppName); 

wndclass.hCursor 


wndclass.hbrBackground 
(WHITE_BRUSH); 

wndclass.IpszMenuName 
wndclass.IpszClassName 


PSTR szCmdLine, int iCmdShow) 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

= Loadlcon (hlnstance, 

=LoadCursor (NULL, IDC—ARROW); 
= (HBRUSH) GetStockObject 

=szAppName ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 


NT ! n ), 


MessageBox ( NULL, TEXT ("This program requires Windows 


szAppName, MB—ICONERROR); 
return 0 ; 



hwnd = CreateWindow ( szAppName A szAppName, 


WS OVERLAPPEDWINDOW, 


GetSystemMetrics 

(SM— 

CXSCREEN) 

/ 

4, 

GetSystemMetrics 

(SM_ 

_CYSCREEN) 

/ 

4, 

GetSystemMetrics 

(SM_ 

_CXSCREEN) 

/ 

2, 

GetSystemMetrics 

(SM_ 

_CYSCREEN) 

/ 

2, 

NULL, NULL, hlnstance, NULL); 




ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

hAccel = LoadAccelerators (hlnstance, szAppName); 
while (GetMessage (&msg, NULL, 0, 0)) 

{ 

if (!TranslateAccelerator (hwnd, hAccel, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

return msg.wParam ; 
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AskConfirmation (HWND hwnd) 

{ 

return MessageBox ( hwnd, TEXT ("Really want to close PopPad2? n ), 

szAppName, MB YESNO | MB ICONQUESTION); 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, 
IParam) 

{ 


static HWND 
int 


hwndEdit 


iSelect, iEnable ; 


WPARAM wParam,LPARAM 


switch (message) 

{ 

case WM—CREATE: 

hwndEdit = CreateWindow (TEXT ("edit ”）， NULL, 
WS_CHILD I WS—VISIBLE | WS_HSCROLL | WS—VSCROLL | 
WS_BORDER I ES_LEFT | ES—MULTILINE | 
ES—AUTOHSCROLL | ES—AUTOVSCROLL, 

◦, ◦, ◦, 0, hwnd, (HMENU) ID_EDIT, 

((LPCREATESTRUCT) IParam)->hlnstance, NULL); 
return 0 ; 


case WM—SETFOCUS: 

SetFocus (hwndEdit); 
return 0 ; 


case 


TRUE); 


WM—SIZE: 

MoveWindow (hwndEdit, ◦, ◦, LOWORD (IParam), HIWORD (IParam), 
return 0 ; 


case WM—INITMENUPOPUP: 

if (IParam == 1) 

{ 

EnableMenuItem ((HMENU) 


IDM_EDIT_UNDO, 

SendMessage (hwndEdit, EM—CANUNDO, 0, 0) ? 
MF ENABLED : MF GRAYED); 


wParam A 


工 DM EDIT PASTE, 


EnableMenuItem ((HMENU) wParam, 

IsClipboardFormatAvailable (CF_TEXT) ? 

MF ENABLED : MF GRAYED); 


iSelect = SendMessage (hwndEdit, EM GETSEL, 
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0 , 0 ) ; 


case 


if (HIWORD (iSelect) == LOWORD (iSelect)) 

iEnable = MF GRAYED ; 


else 


iEnable = MF ENABLED ; 


EnableMenuItem 

EnableMenuItem 

EnableMenuItem 


((HMENU) wParam, 
((HMENU) wParam, 
((HMENU) wParam, 
return 0 


工 DM_EDIT_CUT, iEnable); 

工 DM—EDIT_COPY, iEnable); 
工 DM EDIT CLEAR, iEnable); 


break ; 
WM_COMMAND : 

if (IParam) 

{ 


if (LOWORD (IParam) == ID_EDIT && 

(HIWORD (wParam) == EN_ERRSPACE || 

HIWORD (wParam) == EN—MAXTEXT)) 

MessageBox (hwnd, TEXT ("Edit control out of space.") 
szAppName, MB_OK | MB_ICONSTOP); 

return 0 ; 


else 

； 

switch (LOWORD (wParam)) 





i 

case 

工 DM 

FILE 

NEW: 





case 

IDM 

FILE 

OPEN: 





case 

IDM 

FILE 

SAVE: 





case 

IDM 

FILE 

SAVE AS : 





case 

IDM 

FILE 

PRINT: 








MessageBeep 

(0); 







return 0 ; 





case 

IDM 

APP j 

EXIT: 








SendMessage 

(hwnd, WM 

CLOSE, 0, 0) 

參 

f 




return 0 ; 





case 

IDM 

EDIT 

UNDO: 








SendMessage 

(hwndEdit, 

WM 

_UNDO, 0, 

0) 




return 0 ; 





case 

工 DM 

EDIT 

_CUT: 








SendMessage 

(hwndEdit, 

WM 

_CUT, ◦, 

0) 




return 0 ; 





case 

IDM 

EDIT 

COPY: 






SendMessage 
return 0 ; 


(hwndEdit, WM COPY, 0, 0) 
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case IDM_EDIT_PASTE: 

SendMessage (hwndEdit, WM_PASTE , 0 , 0); 
return 0 ; 

case IDM_EDIT_CLEAR: 

SendMessage (hwndEdit A WM—CLEAR, 0 , 0); 
return 0 ; 

case IDM—EDIT—SELECT—ALL: 

SendMessage (hwndEdit A EM—SETSEL, 0 , -1); 
return 0 ; 


implemented ! M ), 


case IDM_HELP_HELP: 

MessageBox (hwnd, TEXT ("Help not yet 

szAppName, MB_OK | MB_ICONEXCLAMATION); 

return 0 ; 


case 


Petzold, 1998 ’’）， 



IDM—APP—ABOUT: 

MessageBox (hwnd, TEXT ("P0PPAD2 (c) Charles 

szAppName, MB_OK | MB_ICONINFORMATION); 

return 0 ; 


break ; 


case WM_CLOSE: 

if (IDYES == AskConfirmation (hwnd)) 

DestroyWindow (hwnd); 

return 0 ; 


case WM—QUERYENDSESSION: 

if (IDYES == AskConfirmation (hwnd)) 

return 1 ; 


else 


return 0 ; 


case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

P0PPAD2 .RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h n 
♦include "afxres.h M 
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//////////////////////////////////////////////////////////////////////////// 

/ 

/ 

// Icon 






POPPAD2 

ICON DISCARDABLE 

"poppad2.ico" 



//////////////////////////////////////////////////////////////////////////// 

/ 

/ 

// Menu 






POPPAD2 MENU DISCARDABLE 





BEGIN 






POPUP "&File" 





BEGIN 






MENUITEM "&New 

»f 

f 

IDM 

FILE NEW 



MENUITEM 

’， &Open ...", 

IDM 

FILE OPEN 



MENUITEM 

"&Save", 


IDM FILE 

SAVE 


MENUITEM 

"Save &As••• n , 

IDM 

FILE SAVE 

AS 


MENUITEM 

SEPARATOR 





MENUITEM 

’’ &Print", 




IDM FILE 

PRINT 






MENUITEM 

SEPARATOR 





MENUITEM 

"E&xit", 

IDM 

APP EXIT 


END 






POPUP "&Edit n 





BEGIN 

MENUITEM 

’’ & Undo\tCtrl + Z ’’， 

IDM 

EDIT UNDO 



MENUITEM 

SEPARATOR 





MENUITEM 

n Cu&t\tCtrl+X n , 


IDM EDIT 

_CUT 


MENUITEM 

’’ &Copy\tCtrl+C n , 

IDM 

EDIT COPY 



MENUITEM 

n &Paste\tCtrl+V n , 

IDM 

EDIT PASTE 



MENUITEM 

"De&lete\tDel", 




IDM EDIT 

_CLEAR 






MENUITEM 

SEPARATOR 





MENUITEM 

"^Select All", 




工 DM EDIT 

SELECT ALL 





END 






POPUP "&Help n 





BEGIN 

MENUITEM 

"&Help...", 




IDM HELP 

HELP 






MENUITEM 

n &About PopPad2.. 

.", IDM 

APP ABOUT 


END 






END 






//////////////////////////////////////////////////////////////////////////// 

/ 

/ 

// Accelerator 






POPPAD2 ACCELERATORS DISCARDABLE 




BEGIN 
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VK 

BACK, 


IDM 

EDIT UNDO, 

VIRTKEY, 

ALT, NOINVERT 

VK 

DELETE, 


IDM 

EDIT_CLEAR a 

VIRTKEY, NOINVERT 

VK 

DELETE, 


工 DM 

EDIT_CUT, 

VIRTKEY, 

SHIFT, NOINVERT 

VK 

_F1, 



IDM 

HELP HELP, 

VIRTKEY, 

NOINVERT 

VK 

INSERT, 


IDM 

EDIT_COPY, 

VIRTKEY, 

CONTROL, NOINVERT 

VK 

INSERT, 


工 DM 

EDIT PASTE, 

VIRTKEY, 

SHIFT, NOINVERT 

If A 

c n , 


IDM EDIT 

COPY, 

ASCII, 

NOINVERT 


If A 

V ”， 


工 DM EDIT 

PASTE 

, ASCII, 

NOINVERT 


If A 

X ”， 


工 DM EDIT 

CUT, 

ASCII, 

NOINVERT 


If A 

Z' 


IDM EDIT 

UNDO, 

ASCII, 

NOINVERT 


END 








RESOURCE.H 

( 摘录） 





// Microsoft 

.Developer Studio generated include 

file. 


// Used 

by P0PPAD2.RC 





#define 

IDM 

FILE 

—NEW 


40001 



#define 

IDM 

FILE 

—OPEN 


40002 



♦define 

工 DM 

FILE 

—SAVE 


40003 



♦define 

IDM 

FILE 

—SAVE AS 


40004 



#define 

IDM 

FILE 

PRINT 


40005 



#define 

IDM 

APP ] 

EXIT 


40006 



♦define 

IDM 

EDIT 

UNDO 


40007 



♦define 

工 DM 

EDIT 

一 CUT 


40008 



#define 

IDM 

EDIT 

_COPY 


40009 



#define 

IDM 

EDIT 

PASTE 


40010 



♦define 

IDM 

EDIT 

一 CLEAR 


40011 



♦define 

IDM 

EDIT 

—SELECT ALL 


40012 



#define 

IDM 

HELP 

HELP 


40013 



#define 

IDM 

APP ABOUT 


40014 




P0PPAD2. ICO 


m\ ■ H M 

Ini ■ ■ ■■■■■■■■■■■■■■■■ S' 

s s 8 s inn mu mu mu He 

8 ： ： S ■ . . . S 

■ s s ■■■■■■■■_ ■■■■■■_■ 

D s s 5 i — •■■■■■■■■■■ 5 口 

III I «>■■■■ ......... j 

.S S I 圓 mm ■■■■■ s. 


: ■I ??■■■■ I: 

r ； s ■ ■■■: 

!!! -：： :: ! 


8S-; s S S 

{JS ■ : ■■屋 :' 口® 

-I S__—■■■■■■■— 

"■ i I I i ： I j M ： I 1 I I ： M I i ! I : ■■塵 _■** 

■■屬國 

□ • *. vQ . □ 


P 0 PPAD 2. RC 资源描述档包含功能表和加速键。您将注意到，所有加速键都 
表示在跳位字元 (\ t ) 後的 「 Edit 」 突现式功能表的字串中。 


第 441 页 










Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


启用功能表项 

视窗讯息处理程式的工作包括启用和无效化 「 Edit 」 功能表中的选项，这 
项工作在处理 WM _ INITMENUPOPUP 时完成。首先，程式检查是否要显示 「 Edit 」 
突现式功能表。因为功能表里 「 Edit 」 的位置索引 （「 File 」 从0开始）是1， 
因此如果即将显示 「 Edit 」 突现式功能表，那么 lParam 应该等於1。 

为了确定是否启用「 Undo 」选项， P 0 PPAD 2 给编辑控制项发送一条 EM_CANUNDO 
讯息。如果编辑控制项能够执行 「 Undo 」 动作，那么 SendMessage 呼叫传回非 
零值。在这种情况下，选项被 启用； 否则，选项无 效化： 

EnableMenuItem (wParam, IDM_UNDO, 

SendMessage (hwndEdit, EM—CANUNDO, ◦, 0) ? 

MF_ENABLED : MF_GRAYED); 

只有当剪贴簿中包含文字时， 「 Pastef 选项才能够被启用。我们可以使用 
CF TEXT 识别字通过 IsClipboardFormatAvailable 呼叫来确定这一点： 

EnableMenuItem (wParam, IDM_PASTE, 

IsClipboardFormatAvailable (CF_TEXT) ? MF_ENABLED : MF_GRAYED); 

只有选择了编辑控制项中的文字， 「 Cut 」 、 「 Copy 」 和 「 Delete 」 选项才 
能够被启用。给编辑控制项发送一条 EM _ GETSEL 讯息，并传回包含此资讯的整 

数： 

iSelect = SendMessage (hwndEdit , EM—GETSEL, ◦, 0); 

iSelect 的低位元字是第一个被选中字元的位置， iSelect 的高字组是下一 


个被选中字元的位置。如果这两个字相等，则表示没有选中文字: 


if (HIWORD (iSelect) == LOWORD (iSelect)) 

iEnable = 

=MF 

GRAYED ; 

else 



iEnable = 

=MF 

ENABLED ; 


然後可以将 iEnable 的值用於 「 Cut 」 、 「 Copy 」 和 「 Delete 」 选项: 


EnableMenuItem 

(wParam, 

I DM 

_CUT, 

iEnable); 

EnableMenuItem 

(wParam, 

工 DM 

_C0PY, 

iEnable); 

EnableMenuItem 

(wParam, 

I DM 

DEL, 

iEnable); 


处理功能表项 

当然，如果 P 0 PPAD 2 程式不使用子视窗编辑控制项，那么我们将面临一些 
问题，这涉及如何完成「 Edit 」 功能表中的 「 Undo 」 、「 Cut 」 、「 Copy 」 、「 Paste 」 、 
「 Clear 」 和 「Select All 」 选项。正是编辑控制项使得这种处理变得容易，因 
为对於每一个选项我们只需向编辑控制项发送一个讯息 即可： 

case 工 DM—UNDO : 

SendMessage (hwndEdit , WM—UNDO, 0, 0); 
return 0 ; 
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case 工 DM—CUT : 

SendMessage (hwndEdit , WM—CUT, ◦, 0); 
return 0 ; 

case 工 DM—COPY : 

SendMessage (hwndEdit, WM—COPY, ◦, 0); 
return 0 ; 

case IDM—PASTE : 

SendMessage (hwndEdit, WM—PASTE, 0, 0); 
return 0 ; 

case 工 DM—DEL : 

SendMessage (hwndEdit, WM—DEL, 0, 0); 
return 0 ; 
case IDM—SELALL : 

SendMessage (hwndEdit, EM—SETSEL, ◦, -1); 
return 0 ; 

注意，我们可以更进一步简化这些处理——只要使 IDM _ UND 0、 IDM _ CUT 等 
等的值等於相对应的视窗讯息 WM _ UND 0、 WM _ CUT 的值。 


FileJ 突现式功能表上的 「 About 」 选项启动一个简单的讯息方块: 


case IDM ABOUT : 



MessageBox (hwnd, TEXT 

("P0PPAD2 (c) Charles Petzold, 

1998"), 

MB ICONINFORMATION); 

return 0 ; 

szAppName, 

MB OK | 


在下一章中，我们将把它变成一个对话方块。当您从功能表中选择 「 Help 」 
选项或者按下 F 1 加速键时，同样可以启动一个讯息方块。 


「 Exit 」 选项向视窗讯息处理程式发送一个 WM _ CL 0 SE 讯息： 

case 工 DM—EXIT : 

SendMessage (hwnd, WM—CLOSE, ◦, 0); 
return 0 ; 

这正是 DefWindowProc 收到一个 wParam 等於 SC _ CL 0 SE 的 WM _ SYSC 0 MMAND 
讯息时所完成的工作。 

在前面的那些程式中，我们没有在视窗讯息处理程式中处理 WM _ CL 0 SE 讯息， 
而只是简单地把它送给 DefWindowProco DefWindowProc 对 WM _ CL 0 SE 的处理非 
常简单：呼叫 DestroyWindow 函式。可以不把 WM _ CL 0 SE 讯息送给 DefWindowProc ， 
而让 P 0 PPAD 2 来处理它。这个事实到目前为止并不重要，但是在第十一章中当 
P 0 PPAD 可以真正编辑文字时，它就变得非常重要了。 

case WM—CLOSE : 

if ( 工 DYES == AskConfirmation (hwnd)) 

DestroyWindow (hwnd); 
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return 0 ; 

AskConfirmation 是 P0PPAD2 中的一个函式，它显示一个请求确认关闭程式的讯息方块： 

AskConfirmation (HWND hwnd) 

{ 

return MessageBox (hwnd, TEXT ("Really want to close Poppad2? n ), 

szAppName, MB_YESNO | MB_ICONQUESTION); 

} 

如果选择了 Yes 按钮的话，讯息方块（以及 AskConfirmation 函式）将传 
回 IDYES 。 只有这样，程式才会呼叫 DestroyWindow ， 否则，程式不会结束。 

如果要在程式结束之前确认使用者真的要结束程式，那么您还必须处理 
WM _ QUERYENDSESSION 讯息。当使用者要关闭 Windows 时， Windows 开始向每个 
视窗讯息处理程式发送一个 WM _ QUERYENDSESSION 讯息。如果有任何一个视窗讯 
息处理程式处理这个讯息後传回0,那么 Windows 将不会结束。我们如下处理了 


WM QUERYENDSESSION ： 


case 


WM—QUERYENDSESSION : 

if (IDYES == AskConfirmation (hwnd)) 

return 1 ; 



return 0 ; 


如果要在程式结束之前要求使用者的确认，必须处理 WM _ CL 0 SE 和 
WM _ QUERYENDSESSION 这两个讯息，这就是为什么我们使 P 0 PPAD 2 中的 「 Exit 」 


功能表选项只向视窗讯息处理程式发送一个 WM _ CL 0 SE 讯息的原因。这样做，我 
们避免了在别处进行请求确认的动作。 

如果要处理 WM _ QUERYENDSESSION 讯息，那么您也许还会对 WM _ ENDSESSI 0 N 
讯息感兴趣。 Windows 把这个讯息发送给先前收到 WM _ QUERYENDSESSION 讯息的 


每个视窗讯息处理程式。如果由於另一个程式从 WM _ QUERYENDSESSION 传回了 0 
而不能结束 Windows 的执行，那么 WM _ ENDSESSI 0 N 的 wParam 参数为0。 
WM _ ENDSESSI 0 N 讯息实际上回答了这个问 题:我 告诉过 Windows 可以把我结束掉， 
但是我真的被结束掉了吗？ 

尽管在 P 0 PPAD 2 的 「 File 」 功能表中我加上了常见的 「 New 」 、 「 Open 」 、 
「 Save 」 和 「Save As 」 选项，但是它们现在并不起作用。要处理这些命令，我 
们需要使用对话方块。现在是讨论对话方块的时机，也是您准备学习它们的时 
候了。 
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第十一章对话方块 

如果有很多输入超出了功能表可以处理的程度，那么我们可以使用对话方 
块来取得输入资讯。程式写作者可以通过在某选项後面加上省略号 （ i ) 来表示 
该功能表项将启动一个对话方块。 

对话方块的一般形式是包含多种子视窗控制项的弹出式视窗，这些控制项 
的大小和位置在程式资源描述档的「对话方块模板」中指定。虽然程式写作者 
能够「手工」定义对话方块模板，但是现在通常是在 Visual C ++ Developer Studio 
中以交谈式操作的方式设计的，然後由 Developer Studio 建立对话方块模板。 

当程式呼叫依据模板建立的对话方块时， Microsoft Windows 98负责建立 
弹出式对话方块视窗和子视窗控制项，并提供处理对话方块讯息（包括所有键 
盘和滑鼠输入）的视窗讯息处理程式。有时候称呼完成这些功能的 Windows 内 
部程式码为「对话方块管理器」。 

Windows 的内部对话方块视窗讯息处理程式所处理的许多讯息也传递给您 
自己程式中的函式，这个函式即是所谓的「对话方块程序」或者「对话程序」。 
对话程序与普通的视窗讯息处理程式类似，但是也存在著一些重要区别。一般 
来说，除了在建立对话方块时初始化子视窗控制项，处理来自子视窗控制项的 
讯息以及结束对话方块之外，程式写作者不需要再给对话方块程序增加其他功 
能。对话程序通常不处理 WM_PAINT 讯息，也不直接处理键盘和滑鼠输入。 

对话方块这个主题的含义太广了，因为它还包含子视窗控制项的使用。不 
过，我们已经在第九章研究了子视窗控制项。当您在对话方块中使用子视窗控 
制项时，第九章所提到的许多工作都可以由 Windows 的对话方块管理器来完成。 
尤其是，在程式 COLORS 1中遇到在卷动列之间切换输入焦点的问题也不会在对 
话方块中出现。 Windows 会处理对话方块中的控制项之间切换输入焦点所必需完 
成的全部工作。 

不过，在程式中添加对话方块要比添加图示或者功能表更麻烦一些。我们 
将从一个简单的对话方块开始，让您对各部分之间的相互联系有所了解。 

模态对话方块 

对话方块分为 两类： 「模态的」和「非模态的」，其中模态对话方块最为 
普遍。当您的程式显示一个模态对话方块时，使用者不能在对话方块与同一个 
程式中的另一个视窗之间进行切换，使用者必须主动结束该对话方块，这藉由 
通过按一下 rOKj 或者 rCancelJ 键来完成。不过，在显示模态对话方块时， 
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使用者通常可以从目前的程式切换到另一个程式。而有些对话方块（称为「系 
统模态」）甚至连这样的切换程式操作也不允许。在 Windows 中，显示了系统 
模态对话方块之後，要完成其他任何工作，都必须先结束该对话方块。 

建立 r About J 对话方块 

Windows 程式即使不需要接收使用者输入，也通常具有由功能表上的 
rAboutj 选项启动的对话方块，该对话方块用来显示程式的名字、图示、版权 
旗标和标记为 roKj 的按键，也许还会有其他资讯（例如技术支援的电话号码）。 
我们将要看到的第一个程式除了显示一个 「 About 」 对话方块外，别无它用。这 
个 ABOUT 1程式如程式 11-1 所不： 


程式 11-1 ABOUT 1 


AB0UT1.C 




卜 






AB0UT1.C -- About Box Demo Program 

No. 1 





(c) Charles 

Petzold, 1998 

- V 

♦include <windows.h> 




♦include "resource.h" 




LRESULT CALLBACK WndProc 


(HWND, 

UINT, WPARAM, LPARAM); 

BOOL 

CALLBACK AboutDlgProc 

(HWND, 

UINT, WPARAM, LPARAM); 

int 

WINAPI WinMain (HINSTANCE 

hlnstance, 

HINSTANCE hPrevInstance, 




PSTR szCmdLine, int iCmdShow) 

\ 

static TCHAR szAppName[] = TEXT ("Aboutl") 

參 

f 


MSG 

msg ; 




HWND 


hwnd ; 



WNDCLASS 


wndclass ; 



wndclass.style 


=CS_HREDRAW 

| CS VREDRAW ; 


wndclass.lpfnWndProc 


=WndProc ; 



wndclass.cbClsExtra 


=◦; 



wndclass.cbWndExtra 


=◦; 



wndclass.hlnstance 


=hlnstance 

• 

f 


wndclass.hicon 


=Loadlcon (hlnstance, szAppName); 


wndclass.hCursor 


=LoadCursor 

(NULL, IDC—ARROW); 


wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 


wndclass.IpszMenuName 

=szAppName ; 



wndclass.IpszClassName 

=szAppName ; 



if (!RegisterClass (&wndclass)) 
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MessageBox (NULL, TEXT ("This program requires Windows 
szAppName, MB_ICONERROR); 
return 0 ; 


hwnd = CreateWindow ( szAppName, TEXT ("About Box Demo Program") 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam, 
IParam) 

{ 

static HINSTANCE hlnstance ; 
switch (message) 

{ 

case WM—CREATE : 

hlnstance = ((LPCREATESTRUCT) IParam)->hlnstance ; 
return 0 ; 


case WM—COMMAND : 

switch (LOWORD (wParam)) 


AboutDlgProc); 


case 工 DM—APP—ABOUT : 

DialogBox (hlnstance, TEXT ("AboutBox") 

break ; 



return 0 ; 


case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 


NT! n ), 


LPARAM 


, hwnd, 
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BOOL CALLBACK AboutDlgProc (HWND hDlg, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

switch (message) 

{ 

case WM_INITDIALOG : 

return TRUE ; 

case WM_COMMAND : 

switch (LOWORD (wParam)) 

{ 

case IDOK : 
case IDCANCEL : 

EndDialog (hDlg, 0); 
return TRUE ; 

} 

break ; 

} 

return FALSE ; 

} 

ABOUT 1 .RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h M 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Dialog 

ABOUTBOX DIALOG DISCARDABLE 32, 32, 180, 100 
STYLE DS_MODALFRAME | WS_POPUP 
FONT 8, "MS Sans Serif" 

BEGIN 

DEFPUSHBUTTON "OK",IDOK,66,80,50,14 

ICON 

"ABOUT1",IDC_STATIC, 7,7,21,20 
CTEXT 

n Aboutl n ,IDC_STATIC,40,12,100,8 

CTEXT "About Box Demo 

Program",IDC—STATIC,7,40,166,8 

CTEXT ’’ (c) Charles Petzold, 

1998' IDC—STATIC, 7,52,166, 8 
END 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

ABOUT1 MENU DISCARDABLE 
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BEGIN 

POPUP "&Help n 
BEGIN 

MENUITEM "&About Aboutl...", 

IDM_APP_ABOUT 

END 

END 

1111111111111111111111111111111111111111111111111111111111111111111111111111 
/ 

// 工 con 

AB0UT1 ICON DISCARDABLE "Aboutl.ico" 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by Aboutl.rc 

♦define IDM_APP_ABOUT 40001 

♦define 工 DC STATIC -1 


.am 應 m m 1 


□ 


I 爾■國 ■ 

nun 

MM 


-'I 

□ 


ABOUTl. ICO 

_ 繾關 

STtii 

S ass SB ； 

WSm 



a 

I ： 

r ： 

■ M 

I ： 




: 


：：»：： 


圔 

■nil 




UaSBIgHI 雄 HIS I 


□ 


藉由後面章节中介绍的方法，您还可以在程式中建立图示和功能表。图示 
和功能表的 ID 名均为 「 Aboutl 」 。功能表有一个选项，它产生一条 ID 名为 
IDM _ APP _ AB 0 UT 的 WM _ C 0 MMAND 讯息。这使得程式显示的图 11-1 所示的对话方块。 
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图 11-1 程式 AB0UT1 的对话方块 


对话方块及其才莫板 

要把一个对话方块添加到 Visual C ++ Developer Studio 会有的应用程式 
上，可以先从 Insert 功能表中选择 Resource ，然後选择 Dialog Box 。现 

在一个对话方块出现在您的眼前，该对话方块带有标题列、标题 （ Dialog ) 以 
及 0 K 和 Cancel 按钮。 Controls 工具列允许您在对话方块中插入不同的控 
制项。 

Developer Studio 将对话方块的 ID 设为标准的 IDD + DIAL 0 G 1。 您可以在此 
名称上（或者在对话方块本身）单击右键，然後从功能表中选择 Properties 。 
在本程式中，将 ID 改为 「 AboutBox 」 （带有引号）。为了与我建立的对话方块 
保持一致，请将 X Pos 和 Y Pos 栏位改为32。这表示对话方块相对於程式视 
窗显示区域左上角的显示位置待会会有关於对话方块座标的详细讨论）。 

现在，继续在 Properties 对话方块中选择 Styles 页面标签。因为此对 
话方块没有标题列，所以不要选取 Title Bar 核取方块。然後请单 
击 Properties 对话方块的 关闭 按钮。 

现在可以设计对话方块了。因为不需要 Cancel 按钮，所以先单击该按钮， 
然後按下键盘上的 Delete 键。接著单击 0 K 按钮，将其移动到对话方块的底 
部。在 Developer Studio 视窗下面的工具列上有一个小点阵图，它可使控制项 
在视窗内水平居中对齐，请按下此钮。 
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如果您要让程式的图示出现在对话方块中，可以这 样做： 先在浮动 
的 Controls 工具列中按下「 Pictures 」按钮。将滑鼠移动到对话方块的表 
面，按下左键，然後拉出一个矩形。这就是图示将出现的位置。然後在次矩形 
上按下滑鼠右键，从功能表中选择 Properties 。保持 ID 为 IDC _ STATIC 。 

此识别字在 RESOURCE . H 中定义为-1，用於程式中不使用的所有 ID 。 将 Type 改 
为 Icon 。您可以在 Image 栏位输入程式图示的名称，或者，如果您已经建立 
了一个图示，那么您也可以从下拉式清单方块中选择一个名称 （ Aboutl ) 。 

对於对话方块中的三个静态字串，可以从 Controls 工具列中选择 Static 
Text ， 然後确定文字在对话方块中的位置。右键单击控制项，然後从功能表中 
选择 Properties 。 在 Properties 框的 Caption 栏位中输入要显示的文字。 
选择 Styles 页面标签，从 Align Text 栏位选择 Center 。 

在添加这些字串的时候，若希望对话方块可以更大一些，请先选中对话方 
块，然後拖曳边框。您也可以选择并缩放控制项。通常用键盘上的游标移动键 
完成此操作会更容易些。箭头键本身移动控制项，按下 Shift 键後按箭头键， 
可以改变控制项的大小。所选控制项的座标和大小显示在 Developer Studio 视 
窗的右下角。 

如果您建立了一个应用程式，那么以後在查看资源描述档 ABOUTl . RC 时， 
您将发现 Developer Studio 建立的模板。我所设计的对话方块模板如下： 

ABOUTBOX DIALOG DISCARDABLE 32, 32, 180, 100 
STYLE DS_M0DALFRAME | WS_P0PUP 
FONT 8, "MS Sans Serif" 

BEGIN 

DEFPUSHBUTTON n 0K n , 工 DOK,66,80,50,14 

工 CON "ABOUTl",IDC_STATIC,7,7,21,20 

CTEXT 

"Aboutl",IDC_STATIC,40,12,100,8 

CTEXT "About Box Demo Program” ， IDC_STATIC,7,40,166,8 

CTEXT "(c) Charles Petzold, 1998” ， IDC_STATIC,7,52,166,8 

END 

第一行给出了对话方块的名称（这里为 ABOUTBOX ) 。如同其他资源，您也 
可以使用数字作为对话方块的名称。名称後面是关键字 DIALOG 和 DISCARDABLE 
以及四个数字。前两个数字是对话方块左上角的 x 、 y 座标，该座标在程式呼叫 
对话方块时，是相对於父视窗显示区域的。後两个数字是对话方块的宽度和高 
度。 

这些座标和大小的单位都不是图素。它们实际上依据一种特殊的座标系统， 
该系统只用於对话方块模板。数字依据对话方块使用字体的大小而定（这里是8 
点的 MS Sans Serif 字 体）： x 座标和宽度的单位是字元平均宽度的1/4; y 座 
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标和高度的单位是字元高度的1/8。因此，对这个对话方块来说，对话方块左上 
角距离主视窗显示区域的左边是5个字元，距离顶边是 2-1/2 个字元。对话方 
块本身宽40个字元，高10个字元。 

这样的座标系使得程式写作者可以使用座标和大小来大致勾勒对话方块的 
尺寸和外观，而不管视讯显示器的解析度是多少。由於系统字体字元的高度大 
致为其宽度的两倍，所以， x 轴和 y 轴的量度差不多相等。 

模板中的 STYLE 叙述类似於 CreateWindow 呼叫中的 style 栏位。对於模态 
对话方块，通常使用 WS _ P 0 PUP 和 DS _ M 0 DALFRAME ， 我们将在稍後介绍其他的选 
项。 

在 BEGIN 和 END 叙述（或者是左右大括弧，手工设计对话方块模板时，您 
可能会使用）之间，定义出现在对话方块中的子视窗控制项。这个对话方块使 
用了三种型态的子视窗控制项，它们分别是 DEFPUSHBUTTON (内定按键 ）、 ICON 
(图示）和 CTEXT (文字居中）。这些叙述的格 式为： 

control-type "text" id, xPos, yPos, xWidth, yHeight, iStyle 

其中，後面的 iStyle 项是可选的，它使用 Windows 表头档案中定义的识别 
字来指定其他视窗样式。 

DEFPUSHBUTTON 、 ICON 和 CTE )( T 等识别字只可以在对话方块中使用，它们是 
某种特定视窗类别和视窗样式的缩写。例如， CTEXT 指示这个子视窗控制项类别 
是「静态的」，其样式为： 

WS_CHILD | SS_CENTER | WS—VISIBLE | WS_GROUP 

虽然前面没有出现过 WS _ GR 0 UP 识别字，但是在第九章的 COLORS 1程式中已 
经出现过 WS _ CHILD 、 SS _ CENTER 和 WS_VISIBLE 视窗样式，我们在建立静态子视 
窗文字控制项时已经用到了它们。 

对於图示，文字栏位是程式的图示资源名称，它也在 AB 0 UT 1 资源描述档中 
定义。对於按键，文字栏位是出现在按键里的文字，这个文字相同於在程式中 
建立子视窗控制项时呼叫 CreateWindow 所指定的第二个参数。 

id 栏位是子视窗在向其父视窗发送讯息（通常为 WM _ C 0 MMMAND 讯息）时用 
来标示它自身的值。这些子视窗控制项的父视窗就是对话方块本身，它将这些 
讯息发送给 Windows 的一个视窗讯息处理程式。不过，这个视窗讯息处理程式 
也将这些讯息发送给您在程式中给出的对话方块程序。 ID 值相同於我们在第九 
章建立子视窗时，在 CreateWindow 函式中使用的子视窗 ID 。 由於文字和图示控 
制项不向父视窗回送讯息，所以这些值被设定为 IDC _ STAHC ， 它在 RESOURCE . H 
中定义为-1。按键的 ID 值为 ID 0 K ， 它在 WINUSER . H 中定义为1。 

接下来的四个数字设定子视窗的位置（相对於对话方块显示区域的左上角） 
和大小，它们是以系统字体平均宽度的1/4和平均高度的1/8为单位来表示的。 
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对於 ICON 叙述，宽度和高度将被忽略。 

对话方块模板中的 DEFPUSHBUTTON 叙述，除了包含 DEFPUSHBUTTON 关键字 
所隐含的视窗样式，还包含视窗样式 WS _ GR 0 UP 。 稍後讨论该程式的第二个版本 
AB 0 UT 2 时，还会详细说明 WS + GR 0 UP (以及相关的 WS _ TABSTOP 样式）。 


对话方块程序 

您程式内的对话方块程序处理传送给对话方块的讯息。尽管看起来很像是 
视窗讯息处理程式，但是它并不是真实的视窗讯息处理程式。对话方块的视窗 
讯息处理程式在 Windows 内部定义，这个视窗程序呼叫您编写的对话方块程序， 
把它所接收到的许多讯息作为参数。下面是 AB 0 UT 1 的对话方块 程序： 

BOOL CALLBACK AboutDlgProc (HWNDhDlg, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

switch (message) 

{ 

case WM_INITDIALOG : 

return TRUE ; 

case WM—COMMAND : 

switch (LOWORD (wParam)) 

{ 

case IDOK : 
case 工 DCANCEL : 

EndDialog (hDlg, 0); 
return TRUE ; 

} 

break ; 

} 

return FALSE ; 

} 

该函式的参数与常规视窗讯息处理程式的参数相同，与视窗讯息处理程式 
类似，对话方块程序都必须定义为一个 CALLBACK (callback) 函式。尽管我使 
用了 hDlg 作为对话方块视窗的代号，但是您也可以按照您自己的意思使用 hwndo 
首先，让我们来看一下这个函式与视窗讯息处理程式的 区别： 

• 视窗讯息处理程式传回一个 LRESULTo 对话方块传回一个 B ⑻ L ， 它在 
Windows 表头档案中定义为 int 型态。 

• 如果视窗讯息处理程式不处理某个特定的讯息，那么它将呼叫 
DefWindowProCo 如果对话方块程序处理一个讯息，那么它传回 TRUE (非 
0) ，如果不处理，则传回 FALSE (0) 。 

• 对话方块程序不需要处理 WM _ PAINT 或 WMJ 3 ESTR 0 Y 讯息。对话方块程序 
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不接收 WM _ CREAT 讯息，而是在特殊的 WM _ INITDIALOG 讯息处理期间， 
对话方块程序执行初始化操作。 

WM _ INITDIALOG 讯息是对话方块接收到的第一个讯息，这个讯息只发送给对 
话方块程序。如果对话方块程序传回 TRUE ， 那么 Windows 将输入焦点设定给对 
话方块中第一个具有 WS _ TABSTOP 样式（我们将在 AB 0 UT 2 的讨论中加以解释） 
的子视窗控制项。在这个对话方块中，第一个具有 WS _ TABSTOP 样式的子视窗控 
制项是按键。另外，对话方块程序也可以在处理 WM _ INITDIALOG 时使用 SetFocus 
来将输入焦点设定为对话方块中的某个子视窗控制项，然後传回 FALSEo 

此外，对话方块程序只处理 WM _ COMMAND 讯息。这是当按键被滑鼠点中，或 
者在按钮具有输入焦点的情况下按下空白键时，按键控制项发送给其父视窗的 
讯息。这个控制项的 ID (我们在对话方块模板中将其设定为 ID 0 K ) 在 wParam 
的低字组中。对於这个讯息，对话方块程序呼叫 EndDialog ， 它告诉 Windows 清 
除对话方块。对於所有其他讯息，对话方块程序传回 FALSE ， 并告诉 Windows 内 
部的对话方块视窗讯息处理程式：我们的对话方块程序不处理这些讯息。 

模态对话方块的讯息不通过您程式的讯息伫列，所以不必担心对话方块中 
键盘加速键的影响。 

启动对话方块 

在 WndProc 中处理 WM _ CREATE 讯息时 ， ABOUT 1取得程式的执行实体代号并 
将它放在静态变 数中： 

hlnstance = ((LPCREATESTRUCT) IParam)->hlnstance ; 

ABOUT 1 检查 WM _ COMMAND 讯息，以确保讯息 wParam 的低位元字等於 
IDM _ APP _ ABOUTo 当它获得这样一个讯息时，程式呼叫 DialogBox ： 

DialogBox (hlnstance, TEXT ("AboutBox"), hwnd. AboutDlgProc); 

该函式需要执行实体代号（在处理 WM _ CREATE 时储存的）、对话方块名称 
(在资源描述档中定义的）、对话方块的父视窗（也是程式的主视窗）和对话 
方块程序的位址。如果您使用一个数字而不是对话方块模板名称，那么可以用 
MAKEINTRESOURCE 巨集将它转换为一个字串。 

从功能表中选择 rAbout Aboutlj , 将显示图 11-2 所示的对话方块。您可 
以使用滑鼠单击 rOKj 按钮、按空白键或者按 Enter 键来结束这个对话方块。 
对任何包含内定按钮的对话方块，在按下 Enter 键或空白键之後， Windows 发送 
一个 WM _ COMMAND 讯息给对话方块，并令 wParam 的低字组等於内定按键的 ID ， 
此时的 ID 为 ID 0 K 。 按下 Escape 键也可以关闭对话方块，这时 Windows 将发送 
一个 WM_COMMAND 讯息，并令 ID 等於 IDCANCEL 。 

直到对话方块结束之後，用来显示对话方块的 DialogBox 才将控制权传回 
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给 WndProc 。 DialogBox 的传回值是对话方块程序内部呼叫的 EndDialog 函式的 
第二个参数（这个值未在 AB 0 UT 1 中使用，但会在 AB 0 UT 2 中使用）。然後 ， WndProc 
可以将控制权传回给 Windows o 

即使在显示对话方块时， WndProc 也可以继续接收讯息。实际上，您可以从 
对话方块程序内部给 WndProc 发送讯息 。 ABOUT 1的主视窗是弹出式对话方块视 
窗的父视窗，所以 AboutDlgProc 中的 SendMessage 呼叫可以使用如下叙述来开 

始： 

SendMessage (GetParent (hDlg ) , ...) ; 


不同的主题 


虽然 Visual C ++ Developer Studio 中的对话方块编辑器和其他资源编 
辑器，使我们几乎不用考虑资源描述的写作问题，但是学习一些资源描述的语 
法还是有用的。尤其对於对话方块模板来说，知道了语法，您就可以近一步了 
解对话方块的范围和限制。甚至当它不能满足您的需要时，您还可以自己建立 
一个对话方块模板（就像本章後面的 HEXCALC 程式）。资源编译器和资源描述 
语法的文件位方令 /Platform SDK/Windows Programming Guidelines/Platform 
SDK Tools / Compiling/Using the Resource Compiler 。 

在 Developer Studio 的 「 Properties 」 对话方块中指定了对话方块的视窗 
样式，它•译成对话方块模板中的 STYLE 叙述。对於 AB 0 UT 1， 我们使用模态对 
话方块最常用的 样式； 

STYLE WS_POPUP I DS_MODALFRAME 

然而，您也可以尝试其他样式。有些对话方块有标题列，标题列用於指出 
对话方块的用途，并允许使用者通过滑鼠在显示幕上移动对话方块。此样式为 
WS _ CAPH 0 N 。 如果您使用 WS _ CAPH 0 N ， 那么 DIALOG 叙述中所指定的 X 座标和 y 
座标是对话方块显示区域的座标，并相对於父视窗显示区域的左上角。标题列 
将在 y 座标之上显示。 

如果使用了标题列，那么您可以用 CAPTION 叙述将文字放入标题中。在对 
话方块模板中， CAPTION 叙述在 STYLE 叙述的 後面： 

CAPTION "Dialog Box Caption" 

另外，在对话方块程序处理 WM _ INITDIALOG 讯息处理期间，您还可以 呼叫： 

SetWindowText (hDlg, TEXT ("Dialog Box Caption")); 

如果您使用 WS _ CAPTION 样式，也可以添加一个 WS _ SYSMENU 样式的系统功 
能表按钮。此样式允许使用者从系统功能表中选择 Move 或 Close 。 

从 Properties 对话方块的 Border 清单方块中选择 Resizing (相同於 

样式 WS _ THICKFRAME ) ，允许使用者缩放对话方块，仅管此操作并不常用。如果 
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您不介意更特殊一点的话，还可以著为此对话方块样式添加最大化方块。 

您甚至可以给对话方块添加一个功能表。这时对话方块模板将包括下面的 
叙述： 

MENU menu-name 

其参数不是功能表的名称，就是资源描述中的功能表号。模态对话方块很 
少使用功能表。如果使用了功能表，那么您必须确保功能表和对话方块控制项 
中的所有 ID 都是唯 一的； 或者不是唯一的，却表达了相同的命令。 

FONT 叙述使您可以设定非系统字体，以供对话方块文字使用。这在过去的 
对话方块中不常用，但现在却非常普遍。事实上，在内定情况下 ， Developer 
Studio 为您建立的每一个对话方块都选用8点的 MS Sans Serif 字体。一个 
Windows 程式能把自己外观打点得非常与众不同，这只需为程式的对话方块及其 
他文字输出单独准备一种字体即可。 

尽管对话方块视窗讯息处理程式通常位於 Windows 内部，但是您也可以使 
用自己编写的视窗讯息处理程式来处理对话方块讯息。要这样做，您必须在对 
话方块模板中指定一个视窗类 别名： 

CLASS "class-name" 

这种用法很少见，但是在本章後面所示的 HEXCALC 程式中我们将用到它。 

当您使用对话方块模板的名称来呼叫 DialogBox 时， Windows 通过呼叫普通 
的 CreateWindow 函式来完成建立弹出式视窗所需要完成的一切操作 。 Windows 
从对话方块模板中取得视窗的座标、大小、视窗样式、标题和功能表，从 
DialogBox 的参数中获得执行实体代号和父视窗代号。它所需要的唯一其他资讯 
是一个视窗类别（假设对话方块模板不指定视窗类别的话）。 Windows 为对话方 
块注册一个专用的视窗类别，这个视窗类别的视窗讯息处理程式可以存取对话 
方块程序位址（该位址是您在 DialogBox 呼叫中指定的），所以它可以使程式 
获得该弹出式视窗所接收的讯息。当然，您可以通过自己建立弹出式视窗来建 
立和维护自己的对话方块。不过，使用 DialogBox 则更简单。 

也许您希望受益於 Windows 对话方块管理器，但不希望（或者能够）在资 
源描述中定义对话方块模板，也可能您希望程式在执行时可以动态地建立对话 
方块。这时可以完成这种功能的函式是 DialogBoxIndirect ， 此函式用资料结构 

来定义模板。 

在 ABOUT 1. RC 的对话方块模板中，我们使用缩写 CTEXT 、 ICON 和 

DEFPUSHBUTTON 来定义对话方块所需要的三种型态的子视窗控制项。您还可以使 

用其他型态，每种型态都隐含一个特定的预先定义视窗类别和一种视窗样式。 

下表显示了与一些控制项型态相同的视窗类别和视窗 样式： 

表 11-1 
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控制项型态 

视窗类别 

视窗样式 

PUSHBUTTON 

按钮 

BS PUSHBUTTON 

WS—TABSTOP 

DEFPUSHBUTTON 

按钮 

BS DEFPUSHBUTTON WS TABSTOP 

CHECKBOX 

按钮 

BS CHECKBOX 

WS—TABSTOP 

RADIOBUTTON 

按钮 

BS RADI0BUTT0N 

WS—TABSTOP 

GROUPBOX 

按钮 

BS—GROUPBOX 

WS—TABSTOP 

LTEXT 

静态文字 

SS—LEFT 

WS—GROUP 

CTEXT 

静态文字 

SS—CENTER WS—GROUP 

RTEXT 

静态文字 

SS—RIGHT 

WS—GROUP 

ICON 

静态图示 

SS—ICON 

EDITTEXT 

编辑框 

ES—LEFT 

WS—BORDER WS—TABSTOP 

SCROLLBAR 

卷动列 

SBS—HORZ 

LISTBOX 

清单方块 

LBS NOTIFY 

WS—BORDER WS—VSCROLL 

C0MB0B0X 

下拉式清单方块 

CBS—SIMPLE 

WS—TABSTOP 


资源编译器是唯一能够识别这些缩写的程式。除了表中所示的视窗样式外， 
每个控制项还具有下面的 样式： 

WS_CHILD I WS_VISIBLE 

对於这些控制项型态，除了 EDITTEXT 、 SCROLLBAR、LISTBOX 和 C 0 MB 0 B 0 X 
之外，控制项叙述的格 式为： 

control-type "text " , id, xPos, yPos , xWidth, yHeight, iStyle 

对於 mHTTEn 、 SCROLLBAR、LISTBOX 和 C 0 MB 0 B 0 X ， 其格 式为： 

control-type id, xPos, yPos , xWidth, yHeight, iStyle 

其中没有文字栏位。在这两种叙述中， iStyle 参数都是选择性的。 

在第九章，我讨论了确定预先定义子视窗的宽度和高度的规则。您可能需 
要回到第九章去参考这些规则，这时请 记住： 对话方块模板中指定大小的单位 
为平均字元宽度的1/4,及平均字元高度的1/8。 

控制项叙述的 style 栏位是可选的。它允许您包含其他视窗样式识别字。 
例如，如果您想建立在正方形框左边包含文字的核取方块，那么可以 使用： 

CHECKBOX "text", id, xPos, yPos, xWidth, yHeight, BS_LEFTTEXT 

注意，控制项型态 m ) ITTE )( T 会自动添加一个边框。如果您想建立一个没有 
边框的子视窗编辑控制项，您可以 使用： 

EDITTEXT id, xPos, yPos, xWidth, yHeight, NOT WS_BORDER 

资源编译器也承认与下面叙述类似的专 用控制3：页 叙述： 

CONTROL "text" , id, "class", iStyle, xPos, yPos, xWidth, yHeight 

此叙述允许您通过指定视窗类别和完整的视窗样式，来建立任意型态的子 
视窗控制项。例如，要取代： 


第457页 





































Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


PUSHBUTTON "OK", 工 DOK, 10, 20, 32, 14 

您可以 使用： 

CONTROL "OK", 工 DOK, "button", WS_CHILD | WS—VISIBLE | 

BS_PUSHBUTTON | WS_TABSTOP, 10, 20, 32, 14 

当编译资源描述档时，这两条叙述在 . RES 和 . EXE 档案中的编码是相同的。 
在 Developer Studio 中，您可以使用 Controls 工具列中的 Custom Control 选 
项来建立此叙述。在 AB 0 UT 3 程式中，我向您展示了如何用此选项建立一个控制 
项，且在您的程式中已定义了该控制项的视窗类别。 

当您在对话方块模板中使用 CONTROL 叙述时，不必包含 WS_CHILD 和 
WS_VISIBLE 样式。在建立子视窗时， Windows 已经包含了这些视窗样式。 CONTROL 
叙述的格式也说明 Windows 对话方块管理器在建立对话方块时就完成了此项操 
作。首先，就像我前面所讨论的，它建立一个弹出式视窗，其父视窗代号在 
DialogBox 函式中提供。然後，对话方块管理器为对话方块模板中的每个控制项 
建立一个子视窗。所有这些控制项的父视窗均是这个弹出式对话方块。上面给 
出的 CONTROL 叙述被转换成一个 CreateWindow 呼叫，形式如下 所示： 

hCtrl ^CreateWindow (TEXT ("button"), TEXT ("OK"), 

WS_CHILD I WS_VISIBLE | WS_TABSTOP | 

BS_PUSHBUTTON a 

10 * cxChar / 4, 20 * cyChar / 8, 
32 * cxChar / 4, 14 * cyChar / 8, 
hDlg, 工 DOK, hlnstance, NULL); 

其中， cxChar 和 cyChar 是系统字体字元的宽度和高度，以图素为单位。 hDlg 
参数是从建立该对话方块视窗的 CreateWindow 呼叫传回的值； hlnstance 参数 
是从 DialogBox 呼叫获得的。 


更复杂的对话方块 


ABOUT 1中的简单对话方块展示了设计和执行一个对话方块的要点，现在让 
我们来看一个稍微复杂的例子。程式 11-2 给出的 AB 0 UT 2 程式展示了如何在对 
话方块程序中管理控制项（这里用单选按钮）以及如何在对话方块的显示区域 
中绘图。 

程式 11-2 AB0UT2 

AB0UT2.C 

/* - 

AB0UT2.C -- About Box Demo Program No. 2 

(c) Charles Petzold, 1998 


♦include <windows.h> 
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♦include "resource.h" 






LRESULT CALLBACK WndProc 




(HWND, UINT, WPARAM, LPARAM); 

BOOL 

CALLBACK AboutDlgProc 

(HWND, UINT, WPARAM, LPARAM); 

int 

iCurrentColor 

— 

IDC 

BLACK 

r 



iCurrentFigure 

— 

I DC_ 

RECT 

參 

f 


int WINAPI WinMain (HINSTANCE hlnstance. 

HINSTANCE hPrevInstance, 






PSTR szCmdLine, int 

iCmdShow) 

i 

static TCHAR 

szAppName[] 

=TEXT ( n About2 n ); 



MSG 




msg ; 



HWND 




hwnd ; 



WNDCLASS 




wndclass ; 



wndclass.style 




=CS HREDRAW | 

CS VREDRAW ; 


wndclass.lpfnWndProc 




=WndProc ; 



wndclass.cbClsExtra 




=◦; 



wndclass.cbWndExtra 




=◦; 



wndclass.hlnstance 




=hlnstance ; 



wndclass.hicon 




= Loadlcon 

(hlnstance, 

szAppName); 







wndclass.hCursor 




=LoadCursor (NULL, IDC ARROW); 


wndclass.hbrBackground 




= (HBRUSH) 

GetStockObj ect 

(WHITE BRUSH); 







wndclass.IpszMenuName 




=szAppName ; 



wndclass.IpszClassName 




=szAppName ; 



if (!RegisterClass (&wndclass)) 

/ 




l 

MessageBox 

( 


NULL, 

TEXT ("This program 

requires Windows 

NT !") 

r 










szAppName, MB ICONERROR); 


} 

return 0 ; 







hwnd = CreateWindow ( 

szAppName, 

TEXT ("About Box Demo Program"), 



WS 

OVERLAPPEDWINDOW, 




CW 

USEDEFAULT, CW USEDEFAULT, 




CW 

USEDEFAULT, CW USEDEFAULT, 




NULL, 

NULL, 

hlnstance, NULL); 



ShowWindow (hwnd, iCmdShow) 

參 

f 




UpdateWindow (hwnd); 







while (GetMessage (&msg, 

{ 

NULL, 0, 

0)) 
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TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

void PaintWindow (HWND hwnd, int iColor, int iFigure) 

{ 

static COLORREF crColor [8] = { RGB ( ◦, ◦, ◦), RGB ( 0, ◦, 255), 

RGB ( ◦, 255, 0), RGB ( ◦, 255, 255), 

RGB (255, 0, ◦), RGB (255, 0, 255), 

RGB (255, 2 55, 0 ), RGB (255, 255, 255) }; 

HBRUSH hBrush ; 

HDC hdc ; 

RECT rect ; 

hdc = GetDC (hwnd); 

GetClientRect (hwnd, &rect); 

hBrush = CreateSolidBrush (crColor[iColor - IDC—BLACK]); 
hBrush = (HBRUSH) SelectObj ect (hdc, hBrush); 

if (iFigure == 工 DC—RECT) 

Rectangle (hdc, rect.left, rect.top, rect.right, rect.bottom); 

else 

Ellipse (hdc, rect.left, rect.top, rect.right, rect.bottom); 
DeleteObject (SelectObject (hdc, hBrush)); 

ReleaseDC (hwnd, hdc); 

} 

void PaintTheBlock (HWND hCtrl , int iColor, int iFigure) 

{ 

InvalidateRect (hCtrl, NULL, TRUE); 

UpdateWindow (hCtrl); 

PaintWindow (hCtrl, iColor, iFigure); 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static HINSTANCE hlnstance ; 

PAINTSTRUCT ps ; 

switch (message) 

{ 

case WM—CREATE: 

hlnstance = ((LPCREATESTRUCT) IParam) - >hlnstance ; 
return 0 ; 
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case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case 工 DM—APP—ABOUT: 

if (DialogBox (hlnstance, TEXT ("AboutBox"), 

hwnd, AboutDlgProc)) 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

} 

break ; 

case WM—PAINT: 

BeginPaint (hwnd, &ps); 

EndPaint (hwnd, &ps); 

PaintWindow (hwnd, iCurrentColor, iCurrentFigure); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

BOOL CALLBACK AboutDlgProc (HWND hDlg, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

static HWND hCtrlBlock ; 

static int iColor, iFigure ; 

switch (message) 

{ 

case WM_INITDIALOG: 

iColor = iCurrentColor ; 

iFigure = iCurrentFigure ; 

CheckRadioButton (hDlg, IDC—BLACK, IDC_WHITE, iColor); 
CheckRadioButton (hDlg, IDC—RECT, 工 DC—ELLIPSE, iFigure); 

hCtrlBlock = GetDlgltem (hDlg, IDC_PAINT); 

SetFocus (GetDlgltem (hDlg, iColor)); 
return FALSE ; 

case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case 工 DOK: 
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iCurrentColor 

=iColor ; 




iCurrentFigure 

=iFigure ; 




EndDialog (hDlg, 

TRUE); 




return TRUE ; 



case 

工 DCANCEL: 





EndDialog (hDlg, 

FALSE); 




return TRUE ; 



case 

工 DC_ 

BLACK: 



case 

IDC_ 

RED: 



case 

IDC_ 

GREEN: 



case 

工 DC_ 

YELLOW: 



case 

IDC_ 

BLUE: 



case 

IDC_ 

MAGENTA : 



case 

IDC_ 

_CYAN : 



case 

IDC_ 

WHITE: 





iColor = LOWORD 

(wParam); 




CheckRadioButton (hDlg, IDC_BLACK, 工 DC—WHITE, 

LOWORD (wParam)) 

• 

r 







PaintTheBlock (hCtrlBlock, iColor, iFigure); 




return TRUE ; 



case 

IDC_ 

RECT: 



case 

IDC_ 

ELLIPSE : 





iFigure = LOWORD 

(wParam); 




CheckRadioButton 

(hDlg, IDC_RECT, 

IDC—ELLIPSE, LOWORD (wParam)); 





PaintTheBlock (hCtrlBlock, iColor, iFigure); 


} 

break 

• 

r 

return TRUE ; 


case WM PAINT : 





PaintTheBlock (hCtrlBlock, iColor, 

iFigure); 


break 

• 

f 



/ 

return FALSE ; 




ABOUT2 .RC ( 摘录） 





/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 




♦include "afxres. 

h" 




//////////////////////////////////////////////////////////////////////////// 

/ 

/ 

// Dialog 





ABOUTBOX DIALOG DISCARDABLE 32, 32, 200, 234 
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STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION 
FONT 8, "MS Sans Serif" 

BEGIN 


ICON 

n ABOUT2 n ,IDC STATIC,7,7,20,20 


CTEXT n About2", 工 DC—STATIC,57,12,86,8 

CTEXT "About Box Demo Program” ， IDC—STATIC,7,40,186,8 

LTEXT nn ,IDC—PAINT,114,67,74,72 

GROUPBOX "&Color",IDC—STATIC,7,60,84,143 

RADIOBUTTON n &Black ， ' ， 工 DC—BLACK, 16,76,64,8, WS—GROUP 

WS TABSTOP 


RADIOBUTTON 

RADIOBUTTON 

RADIOBUTTON 

RADIOBUTTON 

RADIOBUTTON 

RADIOBUTTON 

RADIOBUTTON 

GROUPBOX 


"B&lue",IDC—BLUE,16,92,64,8 
” &Green” ， IDC—GREEN,16,108,64,8 
"Cya&n",IDC_CYAN,16,124,64,8 
n &Red n ,IDC—RED,16,140,64,8 
” &Magenta” ， 工 DC—MAGENTA,16,156,64,8 
n &Yellow", 工 DC—YELLOW, 16, 172,64, 8 
n &White n ,IDC WHITE,16,188,64,8 


"^Figure",IDC—STATIC,109,156,84,46,WS—GROUP 
RADIOBUTTON 


"Rec&tangle" A 工 DC_RECT,116,172,65,8,WS_GROUP | WS_TABSTOP 
RADIOBUTTON M ^Ellipse", 工 DC—ELLIPSE,116,188,64,8 

DEFPUSHBUTTON "OK",IDOK,35,212,50,14,WS—GROUP 

PUSHBUTTON 

"Cancel", 工 DCANCEL,113,212,50,14,WS—GROUP 

END 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Icon 

ABOUT2 工 CON DISCARDABLE "About2.ico" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

ABOUT2 MENU DISCARDABLE 

BEGIN 

POPUP n &Help" 

BEGIN 

MENUITEM "&About", IDM_APP_ABOUT 

END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by About2.rc 


#define IDC BLACK 1000 
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#define 

IDC_ 

BLUE 

1001 

#define 

IDC_ 

GREEN 

1002 

#define 

工 DC_ 

CYAN 

1003 

#define 

IDC_ 

RED 

1004 

#define 

IDC_ 

MAGENTA 

1005 

#define 

工 DC_ 

YELLOW 

1006 

#define 

IDC_ 

WHITE 

1007 

#define 

IDC_ 

RECT 

1008 

#define 

IDC_ 

ELLIPSE 

1009 

#define 

IDC_ 

PAINT 

1010 

#define 

工 DM 

APP ABOUT 

40001 

#define 

IDC_ 

STATIC 

-1 


AB0UT2. ICO 





：：. 




：：：：：：：： 

■■■■■■■■ 


j 

□ 


蓳霞鼸節 

M__l 

55 __ 

'■in 


:::: 


SS SS 


SB BS 


:: si 


!■■■■■■! 

!■■■■■■! 




I: 


I 賺 M 籲 M 

: 韉 I 




:::: 


■55 




AB 0 UT 2 中的 About 框有两组单选按钮。一组用来选择颜色，另一组用来选 
择是矩形还是椭圆形。所选的矩形或者椭圆显示在对话方块内，其内部以目前 
选择的颜色著色。使用者按下 roKj 按钮後，对话方块会终止，程式的视窗讯 
息处理程式在它自己的显示区域内绘出所选图形。如果您按下 「 Cancel 」 ，则 
主视窗的显示区域会保持原样。对话方块如图 11-2 所示。尽管 AB 0 UT 2 使用预 
先定义的识别字 ID 0 K 和 IDCANCEL 作为两个按键，但是每个单选按钮均有自己 
的识别字，它们以字首 IDC 开头（用於控制项的 ID ) 。这些识别字在 RESOURCE . H 
中定义。 
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图 11-2 AB0UT2 程式的对话方块 


当您在 AB 0 UT 2 对话方块中建立单选按钮时，请按显示顺序建立。这能保证 
Developer Studio 依照顺序定义识别字的值，程式将使用这些值。另外，每个 
单选按钮都不要选中 「 Auto 」 选项 。 「Auto Radio Button 」 需要的程式码较少， 
但基本上处理起来更深奥些。然後请依照 AB 0 UT 2. RC 中的定义来设定它们的识 

别字。 

选中「 Properties 」 对话方块中下列物件的「 Group 」 选项： 「0 K 」 和「 Cancel 」 
按钮、 「 Figure 」 分组方块、每个分组方块中的第一个单选按钮 （「 Black 」 和 
「 Rectangle 」） 。选中这两个单选按钮的 「Tab Stop 」 核取方块。 

当您有全部控制项在对话方块中的近似位置和大小时，就可以从 rLayout ] 
功能表选择 「Tab Order ] 选项。按 AB 0 UT 2. RC 资源描述中显示的顺序单击每一 
个控制项。 


使用对话方块控制项 


在第九章中，您会发现大多数子视窗控制项发送 WM _ COMMAND 讯息给其父视 
窗（唯一例外的是卷动列控制项）。您还看到，经由发送讯息给子视窗控制项， 
父视窗可以改变子视窗控制项的状态（例如，选择或不选择单选按钮、核取方 
块）。您也可以用类似方法在对话方块程序中改变控制项。例如，如果您设计 
了一系列单选按钮，就可以发送讯息给它们，以选择或者不选择这些按钮。不 
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过， Windows 也提供了几种使用对话方块控制项的简单办法。我们来看一看对话 
方块程序与子视窗控制项相互通信的方式。 

AB 0 UT 2 的对话方块模板显示在程式 11-2 的 AB 0 UT 2. RC 资源描述档中。 
GR 0 UPB 0 X 控制项只是一个带标题（标题为 「 Color 」 或者 「 Figure 」） 的分组方 
块，每组单选按钮都由这样的分组方块包围。前一组的八个单选按钮是互斥的， 
第二组的两个单选按钮也是如此。 

当用滑鼠单击其中一个单选按钮时（或者当单选按钮拥有输入焦点时按空 
白键），子视窗向其父视窗发送一个 WM _ COMMAND 讯息，讯息的 wParam 的低字 
组被设为控制项的 ID ， wParam 的高字组是一个通知码， IParam 值是控制项的视 
窗代号。对於单选按钮，这个通知码是 BN _ CLICKED 或者0。然後 Windows 中的 
对话方块视窗讯息处理程式将这个 WM _ C 0 MMAND 讯息发送给 AB 0 UT 2. C 内的对话 
方块程序。当对话方块程序收到一个单选按钮的 WM _ C 0 MMAND 讯息时，它为此按 
钮设定选中标记，并为组中其他按钮清除选中标记。 

您可能还记得在第九章中已经提过，选中和不选中按钮均需要向子视窗控 
制项发送 BM _ CHECK 讯息。要设定一个按钮选中标记，您可以 使用： 

SendMessage (hwndCtrl, BM—SETCHECK, 1, 0); 

要消除选中标记，您可以使用： 

SendMessage (hwndCtrl, BM—SETCHECK, 0, 0); 

其中 hwndCtrl 参数是子视窗按钮控制项的视窗代号。 

但是在对话方块程序中使用这种方法是时有点问题的，因为您不知道所有 
单选按钮的视窗代号，只是从您获得的讯息中知道其中一个代号。幸运的是， 
Windows 为您提供了一个函式，可以用对话方块代号和控制项 ID 来取得一个对 
话方块控制项的视窗代号： 

hwndCtrl = GetDlgltem (hDlg, id); 

(您也可以使用如下函式，从视窗代号中取得控制项的 ID 值： 

id = GetWindowLong (hwndCtrl, GWL_ID); 

但是在大多数情况下这是不必要的。） 

您会注意到，在程式 11-2 所示的表头档案 AB 0 UT 2. H 中，八种颜色的 ID 值 
是从 IDC _ BLACK 到 IDC _ WHITE 连续变化的，这种安排在处理来自单选按钮的 
WM _ C 0 MMAND 讯息时将会很有用。在第一次尝试选中或者不选中单选按钮时，您 
可能会在对话方块程序中编写如下的 程式： 

static int iColor ; 

其他行程式 
case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

其他行程式 
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case IDC—BLACK: 
case IDC—RED: 
case IDCGREEN : 
case IDC_YELLOW: 
case IDC—BLUE: 
case IDC—MAGENTA: 
case IDC_CYAN: 
case IDC_WHITE: 

iColor 二 LOWORD (wParam); 

for (i = IDC—BLACK, i <= IDC—WHITE, i++) 

SendMessage (GetDlgltem (hDlg, i), 

BM—SETCHECK, i == LOWORD (wParam), 0); 
return TRUE ; 

其他行程式 

这种方法能让人满意地执行。您将新的颜色值储存在 iColor 中，并且还建 
立了一个回圈，轮流使用所有八种颜色的 ID 值。您取得每个单选按钮控制项的 
视窗代号，并用 SendMessage 给每个代号发送一条 BM _ SETCHECK 讯息。只有对 
於向对话方块视窗讯息处理程式发送 WM _ C 0 MMAND 讯息的按钮，这个讯息的 
wParam 值才被设定为1。 

第一种简化的方法是使用专门的对话方块程序 SendDlgltemMessage ： 

SendDlgltemMessage (hDlg, id, iMsg, wParam, IParam); 

它相同於： 

SendMessage (GetDlgltem (hDlg, id), id, wParam, IParam); 

现在，回圈将变成 这样： 

for (i = IDC_BLACK, i <= 工 DC—WHITE, i++) 

SendDlgltemMessage (hDlg, i, BM—SETCHECK, i == LWORD (wParam), 0); 

稍微有些改进。但是真正的重大突破要等到使用了 CheckRadioButton 函式 
时才会 出现： 

CheckRadioButton (hDlg, idFirst , idLast, idCheck); 

这个函式将 ID 在 idFirst 到 idLast 之间的所有单选按钮的选中标记都清 
除掉，除了 ID 为 idCheck 的单选按钮，因为它是被选中的。这里，所有 ID 必 
须是连续的。从此我们可以完全摆脱回圈，并 使用： 

CheckRadioButton (hDlg, IDC_BLACK, IDC_WHITE A LOWORD (wParam)); 

这正是 AB 0 UT 2 对话方块程序所采用的方法。 

在使用核取方块时，也提供了类似的简化函式。如果您建立了一个 
「 CHECKBOX 」 对话方块视窗控制项，那么可以使用如下的函式来设定和清除选 
中 标记： 

CheckDlgButton (hDlg, idCheckbox, iCheck); 

如果 iCheck 设定为1，那么按钮被 选中； 如果设定为0,那么按钮不被选 
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中。您可以使用如下的方法来取得对话方块中某个核取方块的 状态： 

iCheck = IsDlgButtonChecked (hDlg, idCheckbox); 

在对话方块程序中，您既可以将选中标记的目前状态储存在一个静态变数 
中，又可以在收到一个 WM _ COMMAND 讯息後，使用如下方法触发 按钮： 

CheckDlgButton (hDlg, idCheckbox, 

!IsDlgButtonChecked (hDlg, idCheckbox)); 

如果您定义了 BS _ AUTOCHECKBOX 控制项，那么完全没有必要处理 WM_COMMAND 
讯息。在终止对话方块之前，您只要使用 IsDlgButtonChecked 就可以取得按钮 
目前的状态。不过，如果您使用 BS _ AUT 0 RADI 0 BUTT 0 N 样式，那么 
IsDlgButtonChecked 就不能令人满意了，因为需要为每个单选按钮都呼叫它， 
直到函式传回 TRUE 。 实际上，您还要拦截 WM _ COMMAND 讯息来追踪按下的按钮。 


「 0 K ■! 和 「 Cancel J 按钮 


AB 0 UT 2 有两个按键，分别标记为 「0 K 」 和 「 Cancel 」 。在 AB 0 UT 2. RC 的对 
话方块模板中， rOKj 按钮的 ID 值为 ID 0 K (在 WINUSER . H 中被定义为 1) ， 
「 Cancel 」 按钮的 ID 值为 IDCANCEL (定义为 2) ， 「0 K 」 按钮是内 定的： 

DEFPUSHBUTTON "OK",IDOK, 35,212,50,14 

PUSHBUTTON "Cancel",IDCANCEL,113,212,50,14 

在对话方块中，通常都这样安排 「0 K 」 和 rCancel ] 按 钮：将 「0 K 」 按钮 
作为内定按钮有助於用键盘介面终止对话。一般情况下，您通过单击两个滑鼠 
按键之一，或者当所期望的按钮具有输入焦点时按下 Spacebar 来终止对话方块。 
不过，如果使用者按下 Enter , 对话方块视窗讯息处理程式也将产生一个 
WM _ C 0 MMAND 讯息，而不管哪个控制项具有输入焦点。 wPamm 的低字组被设定为 
对话方块中内定按键的 ID 值，除非另一个按键拥有输入焦点。在後一种情况下， 
wParam 的低字组被设定为具有输入焦点之按键的 ID 值。如果对话方块中没有内 
定按键，那么 Windows 向对话方块程序发送一个 WM _ C 0 MMAND 讯息，讯息中 wParam 
的低字组被设定为 ID 0 K 。 如果使用者按下 Esc 键或者 Ctrl - Break 键，那么 
Windows 令 wParam 等於 IDCANCEL , 并给对话方块程序发送一个 WM _ C 0 MMAND 讯 
息。所以，您不用在对话方块程序中加入单独的处理键盘操作，因为通常终止 
对话方块的按键会由 Windows 将这两个按键动作转换为 WM _ C 0 MMAND 讯息。 


AboutDlgProc 函式通过呼叫 EndDialog 来处理这两种 WM _ C 0 MMAND 讯息: 


switch (LWORD (wParam)) 

i 

case IDOK: 


iCurrentColor = 

iColor ; 

iCurrentFigure = 

iFigure ; 

EndDialog (hDlg, 

TRUE); 
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return TRUE ; 

case 工 DCANCEL : 

EndDialog (hDlg, FALSE); 
return TRUE ; 

AB 0 UT 2 的视窗讯息处理程式在程式的显示区域中绘制矩形或椭圆时，使用 
了整体变数 iCurrentColor 和 iCurrentFigure 0 AboutDlgProc 在对话方块中画- 
图时使用了静态区域变数 iColor 和 iFigure 。 

注意 EndDialog 的第二个参数的值不同，这个值是在 WndProc 中作为原- 
DialogBox 函式的传回值传回的： 

case IDM—ABOUT: 

if (DialogBox (hlnstance, TEXT ("AboutBox") , hwnd, AboutDlgProc)) 

InvalidateRect (hwnd, NULL, TRUE); 

return 0 ; 

如果 DialogBox 传回 TRUE (非 0) ，则意味著按下了 「0 K 」 按钮，然後需 
要使用新的颜色来更新 WndProc 显示区域。当 AboutDlgProc 收到一个 
WM _ C 0 MMAND 讯息并且讯息的 wParam 的低字组等於 ID 0 K 时， AboutDlgProc 将图 
形和颜色储存在整体变数 iCurrentColor 和 iCurrentFigure 中。如果 DialogBox 
传回 FALSE , 则主视窗继续使用 iCurrentColor 和 iCurrentFigure 的原始设定。 

TRUE 和 FALSE 通常用於 EndDialog 呼叫中，以告知主视窗讯息处理程式使 
用者是用 rOKj 还是用 「 Cancel 」 来终止对话方块的。不过， EndDialog 的参数 
实际上是一个 int 值，而 DialogBox 也传回一个 int 值。所以，用这种方法能 
比仅用 TRUE 或者 FALSE 传回更多的资讯。 

避免使用整体变数 

在 AB 0 UT 2 中使用整体变数可能会、也可能不会影响您。 一 些程式写作者（包 
括我自己）较喜欢少用整体变数。 AB 0 UT 2 中的整体变数 iCimrentColoi : 和 
iCurrentFigure 看来使用得完全合法，因为它们必须同时在视窗讯息处理程式 
和对话方块程序中使用。不过，在一个有一大堆对话方块的程式中，每个对话 
方块都可能改变一堆变数的值，使整体变数的数量容易用得过多。 

您可能更喜欢将程式中的对话方块与资料结构相联系，该资料结构含有对 
话方块可以改变的所有变数。您将在 typedef 叙述中定义这些结构。例如，在 
AB 0 UT 2 中，可以定义与 「 About 」 方块相联系的 结构： 

typedef struct 
{ 

int iColor, iFigure ; 

} 

ABOUTBOX DATA ; 
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在 WndProc 中，您可以依据此结构来定义并初始化一个静态 变数： 

static ABOUTBOX_DATA ad = { 工 DC_BLACK, 工 DC_RECT }; 

在 WndProc 中也是这样，用 ad . iColor 和 ad . iFigure 替换了所有的 
iCurrentColor 和 iCurrentFigure 。 呼叫对话方块时，使用 DialogBoxParam 而 
不用 DialogBox 。 此函式的第五个参数可以是任意的32位元值。 一 般来说，此 
值设定为指向一个结构的指标，在这里是 WndProc 中的 AB 0 UTB 0 X _ DATA 结构。 

case 工 DM—ABOUT: 

if (DialogBoxParam (hlnstance, TEXT ("AboutBox"), 

hwnd, AboutDlgProc, &ad)) 

InvalidateRect (hwnd, NULL, TRUE); 

return 0 ; 

这是 关键： DialogBoxParam 的最後一个参数是作为 WM _ INITDIALOG 讯息中 
的 IParam 传递给对话方块程序的。 

对话方块程序有两个 AB 0 UTB 0 X _ DATA 结构型态的静态变数（一个结构和一 
个指向结构的指标）： 

static ABOUTBOX_DATA ad, * pad ; 

在 AboutDlgProc 中，此定义代替了 iColor 和 iFigure 的定义。在 
WM _ INHDIALOG 讯息的开始部分，对话方块程序根据 IPamm 设定了这两个变数 
的值： 

pad = (ABOUTBOX_DATA *) IParam ; 
ad = * pad ; 

第一道叙述中， pad 设定为 IParam 的指标。亦即， pad 实际是指向在 WndProc 
定义的 AB 0 UTB 0 X _ DATA 结构。第二个参数完成了从 WndProc 中的结构，到 DlgProc 
中的区域结构的栏位对栏位内容复制。 

现在，除了使用者按下 「0 K 」 按钮时所用的程式码以之外，所有的 
AboutDlgProc 都用 ad . iColor 和 ad . iFigure 替换了 iFigure 和 iColor 0 这时， 
将区域结构的内容复制回 WndProc 中的 结构： 

case IDOK : 

* pad = ad ; 

EndDialog (hDlg, TRUE); 
return TRUE ; 


Tab 停留和分组 

在第九章，我们利用视窗子类别化为 COLORS 1增加功能，使我们能够按下 
Tab 键从一个卷动列转移到另一个卷动列。在对话方块中，视窗子类别化是不必 
要的，因为 Windows 完成了将输入焦点从一个控制项移动到另一个控制项的所 
有工作。尽管如此，您必须在对话方块模板中使用 WS _ TABSTOP 和 WS _ GR 0 UP 视 
窗样式达到此目的。对於所有想要使用 Tab 键存取的控制项，都要在其视窗样 


第 470 页 









Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

式中指定 WS _ TABSTOP 。 

如果参阅表11-1，您就会注意到许多控制项将 WS _ TABSTOP 定义为内定样式， 
其他一些则没有将它作为内定样式。一般而言，不包含 WS _ TABSTOP 样式的控制 
项（特别是静态控制项）不应该取得输入焦点，因为即使有了输入焦点，它们 
也不能完成操作。除非在处理 WM _ INITDIALOG 讯息时您将输入焦点设定给一个 
特定的控制项，并从讯息中传回 FALSE 。 否则 Windows 将输入焦点设定为对话方 
块内第一个具有 WS _ TABSTOP 样式的控制项。 

Windows 给对话方块增加的第二个键盘介面包括游标移动键，这种介面对於 
单选按钮有特殊的重要性。如果您使用 Tab 键移动到某一组内目前选中的单选 
按钮，那么，就需要使用游标移动键，将输入焦点从该单选按钮移动到组内其 
他单选按钮上。使用 WS _ GR 0 UP 视窗样式即可获得这个功能。对於对话方块模板 
中的特定控制项序列， Windows 将使用游标移动键把输入焦点从第一个具有 
WS _ GR 0 UP 样式的控制权切换到下一个具有 WS _ GR 0 UP 样式的控制项中。如果有必 
要， Windows 将从对话方块的最後一个控制项回圈到第一个控制项，以便找到分 
组的结尾。 

在内定设定下，控制项 LTEXT 、 CTEXT , RTEH 和 ICON 包含有 WS _ GR 0 UP 样 
式，这种样式方便地标记了分组的结尾。您必须经常将 WS _ GR 0 UP 样式加到其他 
型态的控制项中。 

让我们来看一看 AB 0 UT 2. RC 中的对话方块模板。四个具有 WS _ TABSTOP 样式 
的控制项是每个组的第一个单选按钮（明显地包含）和两个按键（内定设定）。 
在第一次启动对话方块时，您可以使用 Tab 键在这四个控制项之间移动。 

在每组单选按钮中，您可以使用游标移动键切换输入焦点并改变选中标记。 
例如， Color 下拉式清单方块的第一个单选按钮 （ Black ) 和 Figure 下拉式 
清单方块都具有 WS _ GR 0 UP 样式。这意味著您可以用游标移动键将焦点从 「 Black 」 
单选按钮移动到 Figure 分组方块中。类似的情形， Figure 分组方块的第一 
个单选按钮 （ Rectangle ) 和 DEFPUSHBUTTON 都具有 WS _ GR 0 UP 样式，所以您 

可以使用游标移动键在组内两个单选按钮- Rectangle 和 Ellipse 之间移 

动。两个按键都有 WS _ GR 0 UP 样式，以阻止游标移动键在按键具有输入焦点时起 
作用。 

使用 AB 0 UT 2 时， Windows 的对话方块管理器在两组单选按钮中完成一些相 
当复杂的处理。正如所预期的那样，处於单选按钮组内时，游标移动键切换输 
入焦点，并给对话方块程序发送 WM_COMMAND 讯息。但是，当您改变了组内选中 
的单选按钮时， Windows 也给新选中的单选按钮设定了 WS_TABSTOP 样式。当您 
下一次使用 Tab 切换到这一组後， Windows 将会把输入焦点设定为选中的单选按 
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钮。 

文字栏位中的「&」将导致紧跟其後的字母以底线显示，这就增加了另一 
种键盘介面，您可以通过按底线字母来将输入焦点移动到任意单选按钮上。透 
过按下 C (代表 Color 下拉式清单方块）或者 F (代表 Figure 下拉式清单方 
块），您可以将输入焦点移动到相对应组内目前选中的单选按钮上。 

尽管程式写作者通常让对话方块管理器来完成这些工作，但是 Windows 提 
供了两个函式，以便程式写作者找寻下一个或者前一个 Tab 键停留项或者组项。 
这些函式为： 

hwndCtrl = GetNextDlgTabltem (hDlg, hwndCtrl, bPrevious); 

和 

hwndCtrl = GetNextDlgGroupItem (hDlg, hwndCtrl , bPrevious); 

如果 bPrevious 为 TRUE ， 那么函式传回前一个 Tab 键停留项或 组项； 如果 
为 FALSE ， 则传回下一个 Tab 键停留项或者组项。 

在对话方块上画图 

AB 0 UT 2 还完成了一些相对说来很特别的事情，亦即在对话方块上画图。让 
我们来看一看它是怎样做的。在 AB 0 UT 2. RC 的对话方块模板内，使用位置和大 
小为我们想要画图的区域定义了一块空白文字控 制项： 

LTEXT "" IDC_PAINT, 114, 67, 72, 72 

这个区域为18个字元宽和9个字元高。由於这个控制项没有文字，所以视 
窗讯息处理程式为「静态」类别所做的工作，只是在必须重绘这个子视窗控制 
项时清除其背景。 

在目前颜色或图形选择发生改变，或者对话方块自身获得一个 WM _ PAINT 讯 
息时，对话方块程序呼叫 PaintTheBlock ， 这个函式在 AB 0 UT 2. C 中： 

PaintTheBlock (hCtrlBlock, iColor, iFigure); 

在 AboutDlgProc 中，视窗代号 hCtrlBlock 已经在处理 WM _ INITDIALOG 讯 
息时被设定： 

hCtrlBlock = GetDlgltem (hDlg, IDD_PAINT); 

下面是 PaintTheBlock 函式： 

void PaintTheBlock (HWND hCtrl , int iColor, int iFigure) 

{ 

InvalidateRect (hCtrl, NULL, TRUE); 

UpdateWindow (hCtrl); 

PaintWindow (hCtrl , iColor, iFigure); 

} 

这个函式使得子视窗控制项无效，并为控制项视窗讯息处理程式产生一个 
WM _ PAINT 讯息，然後呼叫 AB 0 UT 2 中的另一个函式 PaintWindow 。 
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PaintWindow 函式取得一个装置内容代号，并将其放到 hCtrl 中，画出所选 
图形，根据所选颜色用一个著色画刷填入图形。子视窗控制项的大小从 
GetClientRect 获得。尽管对话方块模板以字元为单位定义了控制项的大小，但 
GetClientRect 取得以图素为单位的尺寸。您也可以使用函式 MapDialogRect 将 
对话方块中的字元座标转换为显示区域中的图素座标。 

我们并非真的绘制了对话方块的显示区域，实际绘制的是子视窗控制项的 
显示区域。每当对话方块得到一个 WM _ PAINT 讯息时，就令子视窗控制项的显示 
区域失效，并更新它，使它确信现在其显示区域又有效了，然後在其上画图。 

将其他函式用於对话方块 

大多数可以用在子视窗的函式也可以用於对话方块中的控制项。例如，如 
果您想捣乱的话，那么可以使用 MoveWindow 在对话方块内移动控制项，强迫使 
用者用滑鼠来追踪它们。 

有时，您需要根据其他控制项的设定，动态地启用或者禁用某些控制项， 
这需要 呼叫： 

EnableWindow (hwndCtrl , bEnable); 

当 bEnable 为 TRUE (非 0) 时，它启用控 制项； 当 bEnable 为 FALSE (0) 
时，它禁用控制项。在控制项被禁用时，它不再接收键盘或者滑鼠输入。您不 
能禁用一个拥有输入焦点的控制项。 


定义自己的控制项 


尽管 Windows 承揽了许多维护对话方块和子视窗控制项的工作，它同时也 
为您提供了各种加入程式码的方法。前面我们已经看到了在对话方块上绘图的 
方法。您也可以使用第九章中讨论的视窗子类别化来改变子视窗控制项的操作。 

您还可以定义自己的子视窗控制项，并将它们用到对话方块中。例如，假 
定您特别不喜欢普通的矩形按键，而倾向於建立椭圆形按键，那么您可以通过 
注册一个视窗类别，并使用自己编写的视窗讯息处理程式处理来自您所建立视 
窗的讯息，从而建立椭圆形按键。在 Developer Studio 中，您可以在与自订控 
制项相联系的 「 Properties 」 对话方块中指定这个视窗类别，这将转换成对话 
方块模板中的 CONTROL 叙述。程式 11-3 所示的 AB 0 UT 3 程式正是这样做的。 

程式 11-3 AB0UT3 

AB0UT3.C 

/* - 

AB0UT3.C -- About Box Demo Program No. 3 

(c) Charles Petzold, 1998 
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V 




♦include <windows.h> 

♦include "resource.h" 




LRESULT CALLBACK WndProc (HWND, UINT 

,WPARAM, LPARAM); 


BOOL CALLBACK AboutDlgProc 

(HWND, 

UINT, WPARAM, LPARAM); 

LRESULT CALLBACK EllipPushWndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance. 

HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

r 


static TCHAR szAppName[] 

=TEXT ( n About3 n ); 


MSG 

msg ; 



HWND 


hwnd ; 


WNDCLASS 

wndclass ; 


wndclass.style 


=CS HREDRAW | 

CS VREDRAW ; 

wndclass.lpfnWndProc 


=WndProc ; 


wndclass.cbClsExtra 


=◦; 


wndclass.cbWndExtra 


= 0 ; 


wndclass.hlnstance 


=hlnstance ; 


wndclass•hicon 


= Loadlcon 

(hlnstance, 

szAppName); 




wndclass.hCursor 


=LoadCursor (NULL, 工 DC ARROW); 

wndclass.hbrBackground 


= (HBRUSH) 

GetStockObj ect 

(WHITE BRUSH); 




wndclass.IpszMenuName 


=szAppName ; 


wndclass.IpszClassName 


=szAppName ; 


if (!RegisterClass (&wndclass)) 

； 



i 

MessageBox ( 

NULL, 

TEXT ("This program 

requires Windows 

NT ! n ), 






szAppName, 

MB ICONERROR); 




return 0 ; 

} 




wndclass.style 


=CS HREDRAW | CS VREDRAW ; 

wndclass.lpfnWndProc 


=EllipPushWndProc ; 


wndclass.cbClsExtra 


=◦; 


wndclass.cbWndExtra 


=◦; 


wndclass.hlnstance 


=hlnstance ; 


wndclass•hicon 


=NULL ; 


wndclass.hCursor 


=LoadCursor (NULL, 

I DC ARROW); 

wndclass.hbrBackground 

=(HBRUSH) (COLOR BTNFACE 

+ 1) ； 

wndclass.IpszMenuName 

=NULL ; 
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wndclass.IpszClassName 


= TEXT ("EllipPush"); 


RegisterClass (&wndclass); 

hwnd = CreateWindow ( szAppName, TEXT ("About Box Demo Program"), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT A 
CW_USEDEFAULT, CW_USEDEFAULT A 
NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static HINSTANCE hlnstance ; 
switch (message) 

{ 

case WM—CREATE : 

hlnstance = ((LPCREATESTRUCT) IParam) - >hlnstance ; 
return 0 ; 


case WM_COMMAND : 

switch (LOWORD (wParam)) 


AboutDlgProc); 


case IDM—APP_ABOUT : 

DialogBox (hlnstance, TEXT ("AboutBox") , hwnd, 
return 0 ; 



break ; 


case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 


BOOL CALLBACK AboutDlgProc (HWND hDlg, UINT message, WPARAM wParam, LPARAM IParam) 
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{ 

switch (message) 

{ 

case WM_INITDIALOG : 

return TRUE ; 

case WM—COMMAND : 

switch (LOWORD (wParam)) 

{ 

case 工 DOK : 

EndDialog (hDlg, 0); 
return TRUE ; 

} 

break ; 

} 

return FALSE ; 


LRESULT CALLBACK EllipPushWndProc ( 
LPARAM IParam) 

{ 


TCHAR 

HBRUSH 

HDC 

PAINTSTRUCT 

RECT 


szText [ 40] 
hBrush ; 
hdc ; 

ps ; 


HWND hwnd, UINT message, WPARAM wParam, 


rect ; 


switch (message) 

{ 

case WM—PAINT : 

GetClientRect (hwnd, &rect); 

GetWindowText (hwnd, szText, sizeof (szText)); 


hdc = BeginPaint (hwnd, &ps); 


hBrush = CreateSolidBrush (GetSysColor (COLOR—WINDOW)); 
hBrush = (HBRUSH) SelectObj ect (hdc, hBrush); 

SetBkColor (hdc, GetSysColor (COLOR—WINDOW)); 

SetTextColor (hdc, GetSysColor (COLOR—WINDOWTEXT)); 

Ellipse (hdc, rect.left, rect.top, rect.right, rect.bottom); 
DrawText (hdc, szText, -1, &rect, 

DT_SINGLELINE | DT_CENTER | DT—VCENTER); 

DeleteObj ect (SelectObj ect (hdc, hBrush)); 

EndPaint (hwnd, &ps); 
return 0 ; 
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case 


case 



WM—KEYUP : 

if (wParam != VK_SPACE) 

break ;// fall through 

WM_LBUTTONUP : 

SendMessage (GetParent (hwnd ), WM—COMMAND, 

GetWindowLong (hwnd, GWL_ID), (LPARAM) hwnd); 

return 0 ; 


return DefWindowProc (hwnd, message , wParam, IParam); 


AB0UT3.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h n 


♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Dialog 

ABOUTBOX DIALOG DISCARDABLE 32, 32, 180, 100 
STYLE DS_MODALFRAME | WS_POPUP 
FONT 8, "MS Sans Serif" 

BEGIN 

CONTROL "OK",IDOK,"EllipPush",WS_GROUP | 

WS_TABSTOP,73,79,32,14 

ICON n ABOUT3 n , 工 DC—STATIC,7,7,20,20 

CTEXT n About3",IDC_STATIC,40,12,100,8 

CTEXT "About Box Demo Program” ， IDC_STATIC,7,4◦,166,8 

CTEXT " (c) Charles Petzold, 

1998",IDC—STATIC, 7,52,166, 8 
END 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

ABOUT3 MENU DISCARDABLE 
BEGIN 

POPUP "&Help n 
BEGIN 

MENUITEM "&About About3...", 

IDM_APP_ABOUT 

END 

END 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Icon 

ABOUT3 ICON DISCARDABLE "iconl.ico" 
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RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 
// Used by About3.rc 

#define 工 DM—APP—ABOUT 40001 

♦define 工 DC STATIC -1 


AB0UT3. ICO 



我们所注册的视窗类别叫做 「 EllipPush 」 （椭圆形按键）。在 Developer 
Studio 的对话方块编辑器中，删除 「 Cancel 」 和 「0 K 」 按钮。要添加依据此视 
窗类别的控制项，请从「 Controls 」工具列选择 「 Custom Control 」。在 
此控制项的「 Properties 」对话方块的「 Class 」栏位输入「 EllipPush 」。 

在对话方块模板中我们没有使用 DEFPUSHBUTTON 叙述，而是用 CONTROL 叙述来 
指定此视窗类别： 

CONTROL " OK " IDOK , " EllipPush ", TABGRP ， 64， 60， 32， 14 

当在对话方块中建立子视窗控制项时，对话方块管理器把这个视窗类别用 
於 CreateWindow 呼叫中。 


AB 0 UT 3. C 程式在 WinMain 中注册了 EllipPush 视窗 类别: 


wndclass.style 

=CS HREDRAW | 

CS_ 

VREDRAW ; 

wndclass.lpfnWndProc 

=EllipPushWndProc ; 



wndclass.cbClsExtra 

=◦; 



wndclass.cbWndExtra 

=◦; 



wndclass.hlnstance 

=hlnstance ; 



wndclass.hlcon 

=NULL ; 



wndclass.hCursor 

=LoadCursor (NULL, 

工 DC_ 

ARROW); 

wndclass.hbrBackground 

=(HBRUSH) (COLOR WINDOW +1); 

wndclass.lps zMenuName 

=NULL ; 



wndclass.lps zClassName 

=TEXT ("EllipPush") 

• 

F 


RegisterClass (&wndclass); 





该视窗类别指定视窗讯息处理程式为 EllipPushWndProc ， 在 AB 0 UT 3. C 中正 
是这样。 
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EllipPushWndProc 视窗讯息处理程式只处理三种 讯息： WM _ PAINT 、 WM_KEYUP 
和 WM _ LBUTTONUP 。在处理 WM _ PAINT 讯息时，它从 GetClientRect 中取得视窗的 
大小，从 GetWindowText 中取得显示在按键上的文字，用 Windows 函式 Ellipse 
和 DrawText 来输出椭圆和文字。 

WM _ KEYUP 和 WM _ LBUTTONUP 讯息的处理非常 简单： 

case WM—KEYUP : 

if (wParam != VK—SPACE) 

break ; // fall through 

case WM_LBUTTONUP : 

SendMessage (GetParent (hwnd), WM—COMMAND, 

GetWindowLong (hwnd, GWL_ID), (LPARAM) hwnd); 

return 0 ; 

视窗讯息处理程式使用 GetParent 来取得其父视窗（即对话方块）的代号， 
并发送一个 WM _ COMMAND 讯息，讯息的 wParam 等於控制项的 ID ， 这个 ID 是用 
GetWindowLong 取得的。然後，对话方块视窗讯息处理程式将这个讯息传给 
AB 0 UT 3 内的对话方块程序，结果得到一个使用者自订的按键，如图 11-3 所示。 
您可以用同样的方法来建立其他自订对话方块控制项。 



图 11-3 AB0UT3 建立的自订按键 


这就是全部要做的吗？其实不然。通常，对於维护子视窗控制项所需要的 
处理而言， EllipPushWndProc 只是一个空架子。例如，按钮不会像普通的按键 
那样闪烁。要•转按键内的颜色，视窗讯息处理程式必须处理 WM_KEYDOWN (来 
自空白键）和 WM _ LBUTT 0 ND 0 WN 讯息。视窗讯息处理程式还必须在收到 
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WMJLBUTTONDOWN 讯息时拦截滑鼠，并且，如果当按钮还处於按下状态，而滑鼠 
移到了子视窗的显示区域之外，那么得要释放滑鼠拦截（并将按钮的内部颜色 
回复为正常状态）。只有在滑鼠被拦截时松开该按钮，子视窗才会给其父视窗 
送回一个 WM _ COMMAND 讯息。 

EllipPushWndPixx : 也不处理 WM _ ENABLE 讯息。如上所述，对话方块程序可 
以使用 EnableWindow 函式来禁用某视窗。於是，子视窗将显示灰色文字，而不 
再是黑色文字，以表示它已经被禁用，并且不能再接收任何讯息了。 

如果子视窗控制项的视窗讯息处理程式需要为所建立的每个视窗存放各自 
不同的资料，那么它可以通过使用视窗类别结构中的 cbWndExtra 值来做到。这 
样就在内部视窗结构中保留了空间，并可以用 SetWindowLong 和 GetWindowLong 
来存取该资料。 

非模态对话方块 

在本章的开始，我曾经说过对话方块分为「模态的」和「非模态的」两种。 
现在我们已经研究过这两种对话方块中最常见的一种——模态对话方块。模态 
对话方块（不包括系统模态对话方块）。允许使用者在对话方块与其他程式之 
间进行切换。但是，使用者不能切换到同一程式的另一个视窗，直到模态对话 
方块被清除为止。非模态对话方块允许使用者在对话方块与其他程式之间进行 
切换，又可以在对话方块与建立对话方块的视窗之间进行切换。因此，非模态 
对话方块与使用者程式常见的普通弹出式视窗可能更为相似。 

当使用者觉得让对话方块保留片刻会更加方便时，使用非模态对话方块是 
合适的。例如，文书处理程式经常使用非模态对话方块来进行 「 Find 」 和 「 Change 」 
操作。如果 「 Find 」 对话方块是模态的，那么使用者必须从功能表中选择 「 Find 」 ， 
然後输入要寻找的字串，结束对话方块，传回到档案中，接著再重复整个程序 
来寻找同一字串的另一次出现。允许使用者在档案与对话方块之间进行切换则 
会方便得多。 

您已经看到，模态对话方块是用 DialogBox 来建立的。只有在清除对话方 
块之後，函式才会传回值。在对话方块程序内使用 EndDialog 呼叫来终止对话 
方块， DialogBox 传回的是该呼叫的第二个参数的值。非模态对话方块是使用 
CreateDialog 来建立的，该函式所使用的参数与 DialogBox 相同。 

hDlgModeless = CreateDialog ( hlnstance, szTemplate, 

hwndParent, DialogProc); 

区别是 CreateDialog 函式立即传回对话方块的视窗代号，并通常将这个视 
窗代号存放到整体变数中。 

尽管将 DialogBox 这一名字用於模态对话方块而 CreateDialog 用於非模态 
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对话方块是随意的，但是您可以通过非模态对话方块与普通视窗类似这一点来 
记住这两个函式的区别。 CreateDialog 可以令人想起 CreateWindow 函式来，而 
後者建立的是普通视窗。 

模态对话方块与非模态对话方块的区别 

使用非模态对话方块与使用模态对话方块相似，但是也有一些重要的 区别: 
首先，非模态对话方块通常包含一个标题列和一个系统功能表按钮。当您 
在 Developer Studio 中建立对话方块时，这些是内定选项。用於非模态对话方 
块的对话方块模板中的 STYLE 叙述 形如： 

STYLE WS—POPUP I WS—CAPTION I WS—SYSMENU | WS—VISIBLE 

标题列和系统功能表允许使用者，使用滑鼠或者键盘将非模态对话方块移 
动到另一个显示区域。对於模态对话方块，您通常无须提供标题列和系统功能 
表，因为使用者不能在其下面的视窗中做任何其他的事情。 

第二项重要的区 别是： 注意，在我们的范例 STYLE 叙述中包含有 WS_VISIBLE 
样式。在 Developer Studio 中，从「 Dialog Properties 」对话方块的「 More 
Styles 」页面标签中选择此选项。如果省略了 WS _ VISIBLE ， 那么您必须在 
CreateDialog 呼叫之後呼叫 ShowWindow ： 

hDlgModeless = CreateDialog ( ... ) ; 

ShowWindow (hDlgModeless, SW_SHOW); 

如果您既没有包含 WS _ VISIBLE 样式，又没有呼叫 ShowWindow , 那么非模态 
对话方块将不会被显示。如果忽略这个事实，那么习惯於模态对话方块的程式 
写作者在第一次试图建立非模态对话方块时，经常会出现问题。 

第三项区别：与模态对话方块和讯息方块的讯息不同，非模态对话方块的 
讯息要经过程序式的讯息伫列。要将这些讯息传送给对话方块视窗讯息处理程 
式，则必须改变讯息仁列。方法如下：当您使用 CreateDialog 建立非模态对话 
方块时，应该将从呼叫中传回的对话方块代号储存在一个整体变数（如 
hDlgModeless ) 中，并将讯息回圈改变为： 

while (GetMessage (&msg A NULL, 0 , 0)) 

{ 

if (hDlgModeless == 0 || !IsDialogMessage (hDlgModeless, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

如果讯息是发送给非模态对话方块的，那么 IsDialogMessage 将它发送给 
对话方块中视窗讯息处理程式，并传回 TRUE (非 0) ;否则，它将传回 FALSE 
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(0) 。只有 hDlgModeless 为0或者讯息不是该对话方块的讯息时，才必须呼 
叫 TranslateMessage 和 DispatchMessage 函式。如果您将键盘加速键用於您的 
程式视窗，那么讯息回圈将如下所示： 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

if (hDlgModeless == 0 || !IsDialogMessage (hDlgModeless, &msg)) 

{ 

if (!TranslateAccelerator (hwnd, hAccel, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 


由於整体变数被初始化为0，所以 hDlgModeless 将为0，直到建立对话方 
块为止，从而保证不会使用无效的视窗代号来呼叫 IsDialogMessage 。 在清除非 
模态对话方块时，您也必须注意这一点，正如最後一点所说明的。 

hDlgModeless 变数也可以由程式的其他部分使用，以便对非模态对话方块 
是否存在加以验证。例如，程式中的其他视窗可以在 hDlgModeless 不等於0时 
给对话方块发送讯息。 

最後一项重要的区别：使用 DestroyWindow 而不是 EndDialog 来结束非模 
态对话方块。当您呼叫 DestroyWindow 後，将 hDlgModeless 整体变数设定为0。 

使用者习惯於从系统功能表中选择 「 Close 」 来结束非模态对话方块。尽管 
启用了 「 Close 」 选项， Windows 内的对话方块视窗讯息处理程式并不处理 
WM _ CL 0 SE 讯息。您必须自己在对话方块程序中处 理它： 

case WM—CLOSE : 

DestroyWindow (hDlg); 
hDlgModeless = NULL ; 
break ; 

注意这两个视窗代号之间的区别： DestroyWindow 的 hDlg 参数是传递给对 
话方块程序的参数； hDlgModeless 是从 CreateDialog 传回的整体变数，程式在 
讯息回圈内检验它。 

您也可以允许使用者使用按键来关闭非模态对话方块，处理方式与处理 
WM _ CL 0 SE 讯息一样。对话方块必须传回给建立它的视窗之任何资料都可以储存 
在整体变数中。如果不喜欢使用整体变数，那么您也可以用 CreateDialogParam 
来建立非模态对话方块，并按前面介绍的方法让它储存一个结构指标。 
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新的 COLORS 程式 

第九章中所描述的 COLORS 1程式建立了九个子视窗，以便显示三个卷动列 
和六个文字项。那时候，这个程式还是我们所写过的程式中相当复杂的一个。 
如果将 COLORS 1转换为使用非模态对话方块则会使程式——特别是 WndProc 函 


式——变得令人难以置信的简单，修正後的 C 0 L 0 RS 2 程式如程式 11-4 所示。 

程式 11-4 C0L0RS2 


C0L0RS2.C 

/* - 

C0L0RS2.C -- Version using 

Modeless Dialog Box 

(c) Charles 

Petzold, 

1998 

V 





♦include <windows.h> 




LRESULT CALLBACK WndProc 

(HWND, UINT, 

WPARAM, 

LPARAM); 

BOOL 

CALLBACK ColorScrDlg 

(HWND, UINT, 

WPARAM, 

LPARAM); 

HWND 

hDlgModeless ; 




int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

r 


PSTR szCmdLine, int 

iCmdShow) 

i 

static TCHAR szAppName[] = TEXT ("Colors2 n ) 

• 

r 


HWND 

hwnd ; 




MSG 

msg ; 




WNDCLASS 

wndclass ; 




wndclass.style 

=CS_HREDRAW 

| CS VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 




wndclass.cbClsExtra 

=◦; 




wndclass.cbWndExtra 

=◦; 




wndclass.hlnstance 

=hlnstance 

• 

f 



wndclass.hicon 

=Loadlcon (NULL, IDI APPLICATION); 


wndclass.hCursor 

=LoadCursor 

(NULL, 

IDC_ARROW); 


wndclass.hbrBackground 

=CreateSolidBrush 

(OL); 



wndclass.IpszMenuName 

=NULL ; 




wndclass.IpszClassName 

=szAppName ; 




if (!RegisterClass (&wndclass)) 

/ 




MessageBox ( 

NULL, TEXT ("This 

program 

requires Windows 

NT ! M ) 

r 







szAppName, 

MB ICONERROR); 





return 0 ; 

} 
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hwnd = CreateWindow ( szAppName, TEXT ("Color Scroll"), 

WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT A 
NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

hDlgModeless = CreateDialog ( hlnstance, TEXT ("ColorScrDlg"), 

hwnd, ColorScrDlg); 
while (GetMessage (&msg, NULL, 0, 0)) 

{ 

if (hDlgModeless == ◦ | | !IsDialogMessage (hDlgModeless, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

switch (message) 

{ 

case WM—DESTROY : 

DeleteObject ( (HGDIOBJ) SetClassLong (hwnd, GCL—HBRBACKGROUND, 
(LONG) GetStockObject (WHITE_BRUSH))); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

BOOL CALLBACK ColorScrDlg ( HWND hDlg, UINT message,WPARAM wParam, LPARAM 
IParam) 

{ 

static int iColor[3]; 

HWND hwndParent, hCtrl ; 

int iCtrllD, ilndex ; 

switch (message) 

{ 

case WM—INITDIALOG : 

for (iCtrllD = 10 ; iCtrllD < 13 ; iCtrlID++) 
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FALSE) ; 


hCtrl = GetDlgltem (hDlg, iCtrllD); 
SetScrollRange (hCtrl, SB_CTL, 0, 255, 

SetScrollPos (hCtrl, SB CTL, ◦, FALSE); 


return TRUE 


case WM—VSCROLL : 

hCtrl 

iCtrllD 

ilndex 

hwndParent 


(HWND) IParam ; 

GetWindowLong (hCtrl, GWL_ID) 
iCtrllD - 10 ; 

GetParent (hDlg); 


1)； 


switch (LOWORD (wParam)) 

{ 

case SB_PAGEDOWN : 

iColor[ilndex] += 15 ; 
case SB_LINEDOWN : 

iColor[ilndex] = min (255, iColor[ilndex] + 


// fall through 


// fall through 


break ; 

case SB_PAGEUP : 

iColor[ilndex] -= 15 ; 
case SB_LINEUP : 

iColor[ilndex] =max (◦, iColor[ilndex] - 1); 
break ; 

case SB—TOP : 

iColor[ilndex] = 0 ; 
break ; 

case SB—BOTTOM : 

iColor[ilndex] = 255 ; 
break ; 

case SB_THUMBPOSITION : 
case SB—THUMBTRACK : 

iColor[ilndex] = HIWORD (wParam); 
break ; 


default : 


return FALSE ; 


SetScrollPos (hCtrl, SB—CTL, 

iColor[ilndex], TRUE); 

SetDlgltemlnt (hDlg, iCtrllD+3, iColor[iIndex], FALSE); 


GCL HBRBACKGROUND, 


DeleteObj ect ((HGDIOBJ) SetClassLong (hwndParent, 

(LONG) CreateSolidBrush ( 

RGB (iColor[◦], iColor[1], iColor[2])))); 
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工 nvalidateRect (hwndParent, NULL, TRUE); 
return TRUE ; 

} 

return FALSE ; 

} 

COLORS2 .RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Dialog 

COLORSCRDLG DIALOG DISCARDABLE 16, 16, 120, 141 

STYLE DS—MODALFRAME | WS_POPUP | WS—VISIBLE | WS_CAPTION 

CAPTION "Color Scroll Scrollbars" 

FONT 8, "MS Sans Serif" 

BEGIN 

CTEXT "&Red n ,IDC_STATIC,8,8,24,8,NOT 

WS_GROUP 

SCROLLBAR 1◦ , 8,2◦,24,1◦◦,SBS—VERT | WS_TABSTOP 

CTEXT n 0 n ,13,8,124,24,8,NOT WS_GROUP 

CTEXT 

"&Green n ,IDC_STATIC,48,8,24,8,NOT WS_GROUP 

SCROLLBAR 11,48,2◦,24,1◦◦,SBS—VERT | WS_TABSTOP 

CTEXT n 0 n ,14,48,124,24,8,NOT WS—GROUP 

CTEXT 

"&Blue n ,IDC_STATIC,89,8,24,8,NOT WS_GROUP 

SCROLLBAR 12,89,2◦ , 24,1◦◦,SBS—VERT | WS_TABSTOP 

CTEXT ， '◦ ，、 15, 89, 124,24,8,NOT WS—GROUP 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by Colors2.rc 

♦define IDC_STATIC -1 

原来的 COLORS 1 程式所显示的卷动列大小是依据视窗大小决定的，而新程 
式在非模态对话方块内以固定的尺寸来显示它们，如图 11-4 所示。 

当您建立对话方块模板时，直接将三个卷动列的 ID 分别设为10、11和12, 
将显示卷动列目前值的三个静态文字栏位的 ID 分别设为13、14和15。将每个 
卷动列都设定为 Tab Stop 样式，而从所有的六个静态文字栏位中删除 Group 样 
式。 
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图 11-4 C 0 L 0 RS 2 的萤幕显示 


在 C 0 L 0 RS 2 中，非模态对话方块是在 WinMain 函式里建立的，紧跟在程式 
主视窗的 ShowWindow 呼叫之後。注意，主视窗的视窗样式包含 WS _ CLIPCHILDREN ， 
这允许程式无须擦除对话方块就能够重画主视窗。 

如上所述，从 CreateDialog 传回的对话方块视窗代号存放在整体变数 
hDlgModeless 中，并在讯息回圈中被测试。不过，在这个程式中，不需要将代 
号存放在整体变数中，也不需要在呼叫 IsDialogMessage 之前测试这个值。讯 
息回圈可以编写 如下： 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

if (!IsDialogMessage (hDlgModeless, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

由於对话方块是在程式进入讯息回圈前建立，并且直到程式结束时才会被 
清除，所以 hDlgModeless 的值将总是有效的。我加入了如下的处理方式，以便 
您可能会往对话方块的视窗讯息处理程式中加入一段清除对话方块的程式码： 

case WM—CLOSE : 

DestroyWindow (hDlg); 
hDlgModeless = NULL ; 
break ; 

在原来的 COLORS 1 程式中， SetWindowText 在使用 wsprintf 将三个数值标 
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签转换为文字之後才设定它们的值。叙 述为： 

wsprintf (szBuffer, TEXT ("%i") , color[i]); 

SetWindowText (hwndValue[i], szBuffer); 

i 的值为目前处理的卷动列的 ID ， hwndValue 是一个阵列，它包含颜色数值 
的三个静态文字子视窗的视窗代号。 

新版本使用 SetDlgltemlnt 为每个子视窗的每个文字栏位设定一个号码： 

SetDlgltemlnt (hDlg, iCtrllD + 3, color [iCtrllD], FALSE); 

尽管 SetDlgltemlnt 和与其对应的 GetDlgltemlnt 在编辑控制项中用得最 
多，它们也可以用来设定其他控制项的文字栏位，如静态文字控制项等 。 iCtrllD 
变数是卷动列的 ID ， 给 ID 加上3使之变成对应数字标签的 ID 。 第三个参数是 
颜色值。通常，第四个参数表示第三个参数的值是解释为有正负号的（第四个 
参数为 TRUE ) 还是无正负号的（第四个参数为 FALSE ) 。但是，对於这个程式， 
值的范围是从0到256,所以这个参数没有意义。 

在将 COLORS 1转换为 C 0 L 0 RS 2 的程序中，我们把越来越多的工作交给了 
Windowso 旧版本呼叫了 CreateWindow 10次;而新版本只呼叫了 CreateWindow 
和 CreateDialog 各一次。但是，如果您认为我们已经把呼叫 CreateWindow 的 
次数降到最少，那么您就错了，请看下一个程式。 

HEXCALC : 视窗还是对话方块？ 


HEXCALC 程式可能是写程式偷懒的经典之作，如程式 11-5 所不。这个程式 
完全不呼叫 CreateWindow ， 也不处理 WM _ PAINT 讯息，不取得装置内容，也不处 
理滑鼠讯息。但是它只用了不到150行的原始码，就构成了一个具有完整键盘 
和滑鼠介面以及10种运算的十六进位计算机。计算机如图 11-5 所示。 


程式 11-5 HEXCALC 

HEXCALC.C 


-k 


HEXCALC.C -- Hexadecimal Calculator 

(c) Charles Petzold, 1998 

_ 'k 


♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("HexCalc"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 
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wndclass 

style 

=CS HREDRAW | CS VREDRAW; 


wndclass 

lpfnWndProc 

=WndProc ; 




wndclass 

cbClsExtra 

=◦; 




wndclass 

cbWndExtra 

=DLGWINDOWEXTRA ; 

// 

Note ! 







wndclass 

hlnstance 

=hlnstance 

參 

f 



wndclass 

hlcon 

=Loadlcon 

(hlnstance, szAppName); 


wndclass 

hCursor 

=LoadCursor (NULL, 

IDC ARROW); 


wndclass 

hbrBackground 

=(HBRUSH) (COLOR 

BTNFACE 

+ 1) ； 


wndclass 

IpszMenuName 

=NULL ; 




wndclass 

IpszClassName 

=s zAppName ; 



/ 

if ( !RegisterClass (&wndclass)) 



1 


MessageBox ( 

NULL, TEXT ("This 

program 

requires Windows 

NT ! ") 

f 









szAppName, 

MB ICONERROR) 

• 

f 





} 

return 0 ; 





hwnd = CreateDialog (hlnstance, szAppName, ◦, 

NULL); 



ShowWindow (hwnd, iCmdShow) 

參 

r 




while (GetMessage (&msg, NULL, 0, 0)) 

f 





TranslateMessage (&msg); 





DispatchMessage (&msg); 



J 

} 

return msg.wParam ; 




void 

ShowNumber (HWND hwnd, UINT 

iNumber) 



1 

TCHAR szBuffer[20]; 





wsprintf 

(szBuffer, TEXT (’’ 

%X n ), iNumber); 



} 

SetDlgltemText (hwnd, VK ESCAPE , szBuffer); 



DWORD 

Calclt (UINT iFirstNum, int iOperation, UINT 

iNum) 


i 

switch (iOperation) 

； 





i 

case ' = 1 

return iNum ; 





case f + 1 

return iFirstNum 

+ iNum ; 




case 1 - 1 

return iFirstNum 

- iNum ; 




case 1 ^ * 

return iFirstNum 

* iNum ; 




case 1 & 1 

return iFirstNum 

& iNum ; 
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case 

' 1 1 ： 

return 

iFirstNum | 

iNum ; 


case 

f A f . 

return 

iFirstNum A 

iNum ; 


case 

'< 

return 

iFirstNum << 

iNum ; 


case 

' > ▼: 

return 

iFirstNum >> 

iNum ; 


case 

V’ ： 

return 

iNum ? iFirstNum / 

iNum: MAXDWORD ; 

case 

: 

return 

iNum ? iFirstNum % 

iNum: MAXDWORD ; 

default : 

return 

0 ； 




LRESULT CALLBACK WndProc ( HWND hwnd, UINT 
IParam) 

{ 

static BOOL bNewNumber = TRUE ; 


static int 
static UINT 
HWND 


i Operation = 1 = 1 ; 
iNumber, iFirstNum ; 

hButton ; 


message, 


WPARAM wParam,LPARAM 


switch (message) 

{ 

case WM—KEYDOWN : // left arrow --> backspace 

if (wParam != VK—LEFT) 

break ; 

wParam = VK_BACK ; 

// fall through 
case WM—CHAR: 

if ( (wParam = (WPARAM) CharUpper ( (TCHAR *) wParam)) 


VK RETURN) 


wParam 


― f — I 


if 

{ 


(hButton = GetDlgltem (hwnd, wParam)) 

SendMessage (hButton, BM—SETSTATE, 1, 0) 
Sleep (100); 

SendMessage (hButton, BM SETSTATE, 0, 0) 


else 

{ 


MessageBeep (0); 
break ; 


// fall through 
case WM_COMMAND : 

SetFocus (hwnd); 


if (LOWORD (wParam) == VK—BACK) / /backspace 

ShowNumber (hwnd, iNumber /= 16); 
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else if (LOWORD (wParam) == VK_ESCAPE) // escape 

ShowNumber (hwnd, iNumber = ◦); 


else if (isxdigit (LOWORD (wParam))) 


// hex digit 


if (bNewNumber) 

{ 

iFirstNum 
iNumber = 


iNumber ; 


wParam - 


if 


else 


bNewNumber = FALSE ; 

(iNumber <= MAXDWORD » 4) 

ShowNumber (hwnd, iNumber 


16 * iNumber + 


(isdigit (wParam) ? 


MessageBeep (0); 


: - 10 )) 


else // operation 


if (!bNewNumber) 


ShowNumber (hwnd, iNumber = 

Calclt (iFirstNum, iOperation, iNumber)); 

bNewNumber = TRUE ; 
iOperation = LOWORD (wParam); 

} 

return 0 ; 
case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

HEXCALC . RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h" 

♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 

/ 

// 工 con 

HEXCALC ICON DISCARDABLE 

"HexCalc.ico" 


//////////////////////////////////////////////////////////////////////////// 

/ 

♦include "hexcalc.dig" 
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HEXCALC.DLG 

/* - 

HEXCALC.DLG dialog script 



HexCalc DIALOG -1, -1, 102, 122 

STYLE WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS_ 
CLASS "HexCalc" 

CAPTION "Hex Calculator" 

{ 


PUSHBUTTON 

n D n , 

68, 8, 

24, 

14, 

14 

PUSHBUTTON 

M A", 

65, 8, 

40, 

14, 

14 

PUSHBUTTON "7", 

55, 

B, 

56, 

14, 


14 


PUSHBUTTON 

"4 

If 

F 



52, 

8, 

72, 

14, 

14 

PUSHBUTTON 

"1 

If 

f 



49, 

8, 

88, 

14, 

14 

PUSHBUTTON 

M 0 

VV 

r 


48 

,s 

,104,14 

,14 


PUSHBUTTON 

"0 

vv 

r 



27, 

26, 

4, 

50, 

14 

PUSHBUTTON 

"E 

n 

f 



69, 

26, 

24, 

14, 

14 

PUSHBUTTON 

"B 

u 

F 



66 f 

26, 

40, 

14, 

14 

PUSHBUTTON 

"8 

vv 

r 



56, 

26, 

56, 

14, 

14 

PUSHBUTTON 

"5 

vv 

r 



53, 

26, 

72, 

14, 

14 

PUSHBUTTON 

"2 

u 

f 



50, 

26, 

88, 

14, 

14 

PUSHBUTTON 

"B 

ack" , 



8, 

26, 

104, 

32, 

14 

PUSHBUTTON 

"C 

VV 

r 



67, 

44, 

40, 

14, 

14 

PUSHBUTTON 

"F 

vv 

f 



70, 

44, 

24, 

14, 

14 

PUSHBUTTON 

"9 

u 

F 


57 

r 44, 56, 14 

,14 


PUSHBUTTON 

n 6 

If 

f 


54 

, 44, 72 

,14 

,14 


PUSHBUTTON 

"3 

VV 

f 


51 

, 44, 88 

, 14 

, 14 


PUSHBUTTON 

▼▼ + 

VV 

r 


43 

, 62, 24 

,14 

,14 


PUSHBUTTON 


if 

F 


45 

, 62, 40 

,14 

,14 


PUSHBUTTON 

n -k 

If 

f 


42 

r 62, 56, 14 

,14 


PUSHBUTTON 

V 

VV 

r 


47 

, 62, 72 

r 14 

,14 


PUSHBUTTON 

"% 

vv 

f 


37 

, 62, 88 

,14 

,14 


PUSHBUTTON 

"Equals M 

r 

61, 

62, 104,32, 14 

PUSHBUTTON 

n “ ， , ， 38, 

80, 

24, 

14, 

14 



PUSHBUTTON 

n 1 

vv 

r 



124 

80, 

40, 

14, 

14 

PUSHBUTTON 

If A 

vv 

r 


94 

, 80, 56, 14 

,14 


PUSHBUTTON 

"< 

u 

f 

60 

f 

80, 

12, 14, 14 


PUSHBUTTON 

"> 

n 

f 

62 

F 

80, 

88, 14, 14 



HEXCALC. ICO 


MINIMIZEBOX 
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K 83 

rs L «. i 


图 11-5 HEXCALC 的萤#显示 

HEXCALC 是一个普通的中序运算式计算机，使用 C 语言的符号表示方式进行 
计算。它对无正负号32位元整数作加、减、乘、除和取余数运算，位元 AND , 0 R ， 
exclusive - OR 运算，还有左右位移运算。被0除将导致结果被设定为 FFFFFFFF 。 

在 HEXCALC 中既可以使用滑鼠又可以使用键盘。您从按键点入」或者输入 
第一个数（最多8位元十六进位数位）开始，然後输入运算子，然後是第二个 
数。接著，您可以透过单击 「 Equals 」 按钮或者按下等号键或 Enter 键便可以 
显示运算结果。为了更正输入，您可以使用 「 Back 」 按钮、 Backspace 或者左箭 
头键。单击 「 display 」 方块或者按下 Esc 键即可清除目前的输入。 

HEXCALC 比较奇怪的一点是，萤幕上显示的视窗似乎是普通的重叠式视窗与 
非模态对话方块的混合体。 一 方面， HEXCALC 的所有讯息都在函式的 WndProc 中 
处理，这个函式与通常的视窗讯息处理程式相似，该函式传回一个长整数，它 
处理 WM _ DESTROY 讯息，呼叫 DefWindowProc ， 就像普通的视窗讯息处理程式一 
样。另一方面，视窗是在 WinMain 中呼叫 CreateDialog 并使用 HEXCALC . DLG 中 
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的对话方块模板建立的。那么， HEXCALC 到底是一个普通的可重叠视窗，还是一 
个非模态对话方块呢？ 

简单的回答是，对话方块就是视窗。通常， Windows 使用它自己内部的视窗 
讯息处理程式处理对话方块视窗的讯息，然後， Windows 将这些讯息传送给建立 
对话方块的程式内的对话方块程序。在 HEXCALC 中，我们让 Windows 使用对话 
方块模板建立一个视窗，但是自己写程式处理这个视窗的讯息。 

不幸的是，在 Developer Studio 的 Dialog Editor 中，对话方块模板需要 
一些我们不能添加的东西。因此，对话方块模板包含在 HEXCALC . DLG 档案中， 
而且需要手工输入。依照下面的方法，您可以将一个文字档案添加到任何专案 
中：从 「 File 」功能表选择「 New 」，再选择「 Files 」页面标签，然後 

从档案型态列表中选择 「 Text File 」。像这样的档案-包含附加资源定义 

-需要包含在资源描述中。从「 View 」功能表选择 「 Resource Includes 」。 

这显示一个对话方块。在 rCompile-time Directives 」 编辑栏输入 

♦include "hexcalc.dig" 

这一行将插入到 HEXCALC . RC 资源描述中，像上面所显示的一样。 

仔细看一下 HEXCALC . DLG 档案中的对话方块模板，您将发现 HEXCALC 如何 


为对话方块使用它自己的视窗讯息处理程式。对话方块模板的上方如下: 


HexCalc DIALOG -1, -1, 102, 122 
STYLE WS OVERLAPPED | WS_CAPTION | 

WS_SYSMENU | 

| WS MINIMIZEBOX 

CLASS "HexCalc" 

CAPTION "Hex Calculator" 




注意诸如 WS _ OVERLAPPm ) 和 WS _ MINIMIZEBOX 等识别字，我们可以将它们用 
在 CreateWindow 呼叫中以建立普通的视窗。 CLASS 叙述是这个对话方块与曾经建 
立过的对话方块之间最重要的区别（而且它也是 Developer Studio 中的 Dialog 
Editor 不允许我们指定的）。当对话方块模板省略了这个叙述时， Windows 为 
对话方块注册一个视窗类别，并使用它自己的视窗讯息处理程式处理对话方块 
讯息。这里，包含 CLASS 叙述就告诉 Windows 将讯息发送到其他的地方——具 
体的说，就是发送到在 HexCalc 视窗类别中指定的视窗讯息处理程式。 

HexCalc 视窗类别是在 HEXCALC 的 WinMain 函式中注册的，就像普通视窗的 
视窗类别一样。但是，请注意有个十分重要的 区别： WNDCLASS 结构的 cbWndExtra 
栏位设定为 DLGWINDOWEXTRA 。 对於您自己注册的对话方块程序，这是必需的。 
在注册视窗类别之後， WinMain 呼叫 CreateDialog ： 

hwnd = CreateDialog (hlnstance, szAppName, 0 , NULL); 

第二个参数（字串 「 HexCaEc 」） 是对话方块模板的名字。第三个参数通常 
是父视窗的视窗代号，这里设定为0,因为视窗没有父视窗。最後一个参数，通 
常是对话方块程序的位址，这里不需要。因为 Windows 不会处理这些讯息，因 
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而也不会将讯息发送给对话方块程序。 

这个 CreateDialog 呼叫与对话方块模板一起，被 Windows 有效地转换为一 
个 CreateWindow 呼叫。该 CreateWindow 呼叫的功能与下面的呼叫相同： 

hwnd = CreateWindow (TEXT ("HexCalc"), TEXT ("Hex Calculator"), 

WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | WS—MINIMIZEBOX, 

CW—USEDEFAULT, CW_USEDEFAULT A 

102 * 4 / cxChar, 122 * 8 / cyChar, 

NULL, NULL, hlnstance, NULL); 

其中， cxChar 和 cyChar 变数分别是系统字体字元的宽度和高度。 

我们通过让 Windows 来进行 CreateWindow 呼叫而收获甚丰： Windows 不会 
在建立弹出式视窗1後就停止，它还会为对话方块模板中定义的其他29个子视 
窗按键控制项呼叫 CreateWindowo 所有这些控制项都给父视窗的视窗讯息处理 
程式发送 WM _ C 0 MMAND 讯息，该程序正是 WndProc 。 对於建立一个包含许多子视 
窗的视窗来说，这是一个很好的技巧。 

下面是使 HEXCALC 的程式码量下降到最少的另一种 方法： 或许您会注意到 
HEXCALC 没有表头档案，表头档案中通常包含对话方块模板中，需要为所有子视 
窗控制项定义的识别字。我们之所以可以不要这个档案，是因为每个按键控制 
项的 ID 设定为出现在控制项上的文字的 ASCII 码。这意味著， WndProc 可以完 
全相同地对待 WM _ C 0 MMAND 讯息和 WM _ CHAR 讯息。在每种情况下， wParam 的低字 
组都是按钮的 ASCII 码。 

当然，对键盘讯息进行一些处理是必要的。 WndProc 拦截 WM _ KEYD 0 WN 讯息， 
将左箭头键转换为 Backspace 键。在处理 WM _ CHAR 讯息时， WndProc 将字元代码 
转换为大写， Enter 键转换为等号键的 ASCII 码。 

WM _ CHAR 讯息的有效性是通过呼叫 GetDlgltem 来检验的。如果 GetDlgltem 


函式传回0,那么键盘字元不是对话方块模板中定义的 ID 之一。如果字元是 ID 
之一，则通过给相应的按钮发送一对 BM _ SETSTATE 讯息，来使之 闪烁： 


if 

I 

(hButton = GetDlgltem (hwnd, wParam)) 


\ 

SendMessage 

(hButton, 

BM SETSTATE, 1, 

0 )； 


Sleep (100) 

• 

r 



} 

SendMessage 

(hButton, 

BM SETSTATE, 0, 

0 )； 


这样做，用最小的代价，却为 HEXCALC 的键盘介面增色不少。 Sleep 函式将 


程式暂停100毫秒。这会防止按钮被按得太快而让人注意不到。 

当 WndProc 处理 WM _ C 0 MMAND 讯息时，它总是将输入焦点设定给父 视窗: 

case WM—COMMAND : 

SetFocus (hwnd); 

否则，一旦使用滑鼠单击某按钮，输入焦点就会切换到该按钮上。 
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通用对话方块 


Windows 的一个主要目的是推动标准的使用者介面。对许多常用的功能表项 
来说，这推行得很快，几乎所有软体厂商都采用 Alt - File-Open 选择来打开一 
个档案。然而，实际的档案开启对话方块却经常各不相同。 

从 Windows 3.1 开始，对这个问题有了一个可行的解决方案，这是一种叫 
做「通用对话方块程式库」的增强。这个程式库由几个函式组成，这些函式启 
动标准对话方块来进行打开和储存档案、搜索和替换、选择颜色、选择字体（我 
将在本章讨论以上的这些内容）以及列印（我将在第十三章讨论）。 

为了使用这些函式，您基本上都要初始化某一结构的各个栏位，并将该结 
构的指标传送给通用对话方块程式库的某个函式，该函式会建立并显示对话方 
块。当使用者关闭对话方块时，被呼叫的函式将控制权传回给程式，您可以从 
传送给它的结构中获得资讯。 

在使用通用对话方块程式库的任何 C 原始码档案时，您都需要含入 
COMMDLG . H 表头档案。通用对话方块的文件在 /Platform SDK/User Interface 
Services/User Input/Common Dialog Box Library 中。 

增强 POPP AD 

当我们往第十章的 POPPAD 中增加功能表时，还有几个标准功能表项没有实 
作。现在我们已经准备好在 P 0 PPAD 中加入打开档案、读入档案以及在磁片上储 
存编辑过档案的功能。在处理中，我们还将在 POPPAD 中加入字体选择和搜索替 
换功能。 


实作 P 0 PPAD 3 程式的档案如程式 11-6 所示。 

程式 11-6 P0PPAD3 


POPPAD.C 

卜 

POPPAD 

.C —— Popup 

Editor 


(c) Charles Petzold, 1998 

- */ 

♦include 

♦include 

♦include 

〈 windows•h> 

<commdlg.h> 

"resource.h" 






♦define 

#define 

EDITID 

UNTITLED 

1 

TEXT ("(untitled)") 





LRESULT 

BOOL 

CALLBACK 

CALLBACK 

WndProc 

AboutDlgProc 

(HWND, 

(HWND, 

UINT, 

UINT, 

WPARAM, 

WPARAM, 

LPARAM); 

LPARAM); 
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// Functions in 

POPFILE.C 

void 

PopFileInitialize 

(HWND); 

BOOL 

PopFileOpenDlg 

(HWND, PTSTR, PTSTR); 

BOOL 

PopFileSaveDig 

(HWND, PTSTR, PTSTR); 

BOOL 

PopFileRead 

(HWND, PTSTR); 

BOOL 

PopFileWrite 

(HWND, PTSTR); 


// Functions in 

POPFIND.C 

HWND 

PopFindFindDlg 

(HWND); 

HWND 

PopFindReplaceDlg 

(HWND); 

BOOL 

PopFindFindText 

(HWND, int *, LPFINDREPLACE); 

BOOL 

PopFindReplaceText 

(HWND, int *, LPFINDREPLACE); 

BOOL 

PopFindNextText 

(HWND, int *); 

BOOL 

PopFindValidFind 

(void); 


// Functions in 

POPFONT.C 

void 

PopFontInitialize 

(HWND); 

BOOL 

PopFontChooseFont 

(HWND); 

void 

PopFontSetFont 

(HWND); 

void 

PopFontDeinitialize (void); 


// Functions in POPPRNT.C 

BOOL 

PopPrntPrintFile (HINSTANCE, HWND, HWND, PTSTR); 


// Global 

variables 

static HWND hDlgModeless ; 


static TCHAR szAppName[]= 

TEXT ("PopPad"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

{ 

PSTR 

MSG msg ; 

HWND hwnd ; 

HACCEL hAccel ; 

WNDCLASS wndclass ; 

szCmdLine, int iCmdShow) 


wndclass.style 

=CS HREDRAW | CS VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 


wndclass.cbClsExtra 

=◦; 


wndclass.cbWndExtra 

=◦; 


wndclass.hlnstance 

=hlnstance ; 


wndclass•hicon 

= Loadlcon (hlnstance, 

szAppName); 
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wndclass.hCursor 


=LoadCursor (NULL, IDC— 

ARROW); 


wndclass.hbrBackground 


= (HBRUSH) 

GetStockObj ect 

(WHITE BRUSH) ; 






wndclass.IpszMenuName 


=s zAppName ; 




wndclass.IpszClassName 


=s zAppName ; 




if (!RegisterClass (&wndclass)) 

； 




l 

MessageBox 

( 

NULL, TEXT ("This program requires 

Windows 

NT ! ") 

r 








szAppName, MB 工 CONERROR); 




return 0 ; 

} 






hwnd = CreateWindow ( 

szAppName, NULL, 





WS_ 

OVERLAPPEDWINDOW, 





CW 

USEDEFAULT, CW USEDEFAULT, 





CW 

USEDEFAULT, CW USEDEFAULT, 





NULL, NULL, hlnstance, szCmdLine) 

參 



ShowWindow (hwnd, iCmdShow); 




UpdateWindow (hwnd); 






hAccel = LoadAccelerators 

(hlnstance, s zAppName); 




while (GetMessage (&msg, 

/ 

NULL, ◦, 0)) 




if (hDlgModeless == NULL || !IsDialogMessage 

(hDlgModeless, 

&msg)) 

； 






l 

{ 

if 

(!TranslateAccelerator (hwnd, hAccel, 

&msg)) 


\ 


TranslateMessage (&msg); 




\ 

} 

DispatchMessage (&msg); 



} 

J 

} 

return msg.wParam ; 





void 

； 

DoCaption (HWND hwnd, TCHAR * szTitleName) 



i 

TCHAR szCaption[64 + MAX 

PATH]; 




wsprintf (szCaption, TEXT 

("%s — %s n ), szAppName, 






szTitleName[0] ? szTitleName 

: UNTITLED); 

} 

SetWindowText (hwnd, szCaption); 



void 

OkMessage (HWND hwnd, TCHAR * szMessage, TCHAR * szTitleName) 
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{ 

TCHAR szBuffer[64 + MAX PATH]; 




wsprintf (szBuffer, szMessage, szTitleName[0] ? szTitleName 

: UNTITLED); 

} 

MessageBox (hwnd A szBuffer, 

szAppName, MB OK | MB 

ICONEXCLAMATION); 

short 

AskAboutSave (HWND hwnd, TCHAR * szTitleName) 



1 

TCHAR szBuffer[64 

int iReturn ; 

+ MAX PATH]; 




wsprintf (szBuffer, TEXT ("Save current changes in %s? n ). 




szTitleName[0] ? szTitleName 

: UNTITLED); 


iReturn = MessageBox (hwnd. 

szBuffer, szAppName, 




MB YESNOCANCEL | MB ICONQUESTION) 

• 

r 



if (iReturn == IDYES) 





if ( !SendMessage 

(hwnd, WM COMMAND, IDM FILE SAVE, 0)) 



iReturn = 工 DCANCEL ; 



} 

return iReturn ; 




LRESULT CALLBACK WndProc ( HWND 

IParam) 

f 

hwnd, UINT message. 

WPARAM 

wParam,LPARAM 


static BOOL 

bNeedSave = FALSE ; 




static HINSTANCE hlnst ; 





static HWND 

hwndEdit ; 




static int 

iOffset ; 




static TCHAR 

szFileName[MAX PATH], 



szTitleName[MAX PATH]; 





static UINT 

messageFindReplace ; 




int 

iSelBeg, iSelEnd, iEnable ; 



LPFINDREPLACE 

pfr ; 




switch (message) 

{ 

case WM CREATE : 





hlnst = ( (LPCREATESTRUCT) IParam) -> hlnstance 

• 

f 



// Create the edit control child window 


hwndEdit = CreateWindow (TEXT ("edit") 

,NULL, 



WS CHILD | WS 

VISIBLE | WS HSCROLL 

| WS VSCROLL | 


WS BORDER | ES LEFT | ES MULTILINE 

1 



ES NOHIDESEL 

| ES AUTOHSCROLL | ES 

AUTOVSCROLL, 


0 , 0 , 0 , 0 , 

hwnd, (HMENU) 

EDITID, hlnst, NULL) 

參 

f 
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SendMessage (hwndEdit, EM—LIMITTEXT , 32000, 0L); 

// Initialize common dialog box stuff 
PopFilelnitialize (hwnd); 

PopFontlnitialize (hwndEdit); 


case 


messageFindReplace = RegisterWindowMessage 
DoCaption (hwnd, szTitleName); 
return 0 ; 

WM—SETFOCUS: 

SetFocus (hwndEdit); 
return 0 ; 


(FINDMSGSTRING) 


case 


TRUE); 


WM—SIZE: 

MoveWindow (hwndEdit, 
return 0 ; 


0, ◦, LOWORD (IParam), HIWORD (IParam), 


case WM—INITMENUPOPUP: 

switch (IParam) 

{ 

case 1: 


// Edit menu 


it 


工 DM EDIT UNDO, 


clipboard 


工 DM EDIT PASTE 


// Enable Undo if edit control can do 


EnableMenuItem 


((HMENU) 


wParam, 


SendMessage (hwndEdit, EM—CANUNDO, ◦, 0L) ? 

MF_ENABLED : MF_GRAYED); 

/ / Enable Paste if text is in the 


EnableMenuItem 


((HMENU) 


wParam, 


IsClipboardFormatAvailable (CF_TEXT) ? 

MF_ENABLED : MF_GRAYED); 

// Enable Cut, Copy, and Del if text is selected 

SendMessage (hwndEdit, EM—GETSEL, (WPARAM) &iSelBeg, 
(LPARAM) &iSelEnd); 

iEnable = iSelBeg != iSelEnd ? MF ENABLED : MF GRAYED ; 


iEnable); 


EnableMenuItem ((HMENU) wParam, IDM EDIT CUT 


EnableMenuItem ( (HMENU) wParam, 工 DM EDIT COPY, 
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iEnable) ; 


iEnable) ; 


EnableMenuItem ( (HMENU) wParam, IDM EDIT CLEAR, 


break ; 


case 2 : 


// Search menu 


// Enable Find, Next, and Replace if modeless 
// dialogs are not already active 


iEnable = hDlgModeless == NULL ? 
MF_ENABLED : MF_GRAYED ; 

EnableMenuItem ((HMENU) wParam, IDM_SEARCH_FIND, 

iEnable); 

EnableMenuItem ((HMENU) 

_ _ iEnable); 

EnableMenuItem ((HMENU) 

工 DM_SEARCH_REPLACE, iEnable); 

break ; 

} 

return 0 ; 


工 DM SEARCH NEXT, 


wParam, 


wParam, 


case WM COMMAND : 


// Messages from edit control 


if (IParam && LOWORD (wParam) == EDITID) 

{ 

switch (HIWORD (wParam)) 

{ 

case EN_UPDATE : 

bNeedSave = TRUE ; 
return 0 ; 

case EN_ERRSPACE : 

case EN_MAXTEXT : 

MessageBox (hwnd, TEXT ("Edit control out of space. n ), 
szAppName, MB_OK | MB_ICONSTOP); 

return 0 ; 

} 

break ; 

} 


switch (LOWORD (wParam)) 

{ 

// Messages from File menu 
case IDM_FILE—NEW: 

if (bNeedSave && IDCANCEL 

(hwnd, szTitleName)) 

return 0 ; 


AskAboutSave 
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SetWindowText (hwndEdit, TEXT ("\0" )) ； 
szFileName[ 0 ] = * \0 1 ; 

szTitleName[0] = ' \0 1 ; 

DoCaption (hwnd, szTitleName); 
bNeedSave = FALSE ; 
return 0 ; 

case IDM_FILE_OPEN: 

if (bNeedSave && IDCANCEL == AskAboutSave (hwnd, szTitleName)) 
return 0 ; 

if (PopFileOpenDlg (hwnd, szFileName, szTitleName)) 

{ 

if (!PopFileRead (hwndEdit, szFileName)) 

{ 

OkMessage (hwnd, TEXT ("Could not read file %s! n ), 

szTitleName); 
szFileName[0] = ? \0 1 ; 

szTitleName[0] = ! \0 1 ; 


DoCaption (hwnd, szTitleName); 

bNeedSave = FALSE ; 
return 0 ; 

case IDM_FILE_SAVE: 

if (szFileName[0]) 

{ 

if (PopFileWrite (hwndEdit, szFileName)) 

{ 

bNeedSave = FALSE ; 
return 1 ; 

} 

else 

{ 

OkMessage (hwnd, TEXT ("Could not write file %s"), 

szTitleName); 

return 0 ; 

} 

} 

//fall through 
case IDM_FILE_SAVE_AS : 

if (PopFileSaveDig (hwnd, szFileName, szTitleName)) 

{ 

DoCaption (hwnd, szTitleName); 
if (PopFileWrite (hwndEdit, 
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szFileName)) 


FALSE ; 


bNeedSave 


return 


else 


OkMessage (hwnd, TEXT ("Could not write file %s n ), 

szTitleName); 

return 0 ; 


return 


case IDM FILE PRINT: 


(!PopPrntPrintFile (hlnst, hwnd, hwndEdit, 


szTitleName)) 


OkMessage ( hwnd, TEXT ("Could not print file %s n ), 

szTitleName); 
return 0 ; 

case IDM—APP_EXIT: 

SendMessage (hwnd, WM CLOSE, ◦, 0); 


return 0 ; 


// Messages from Edit menu 


case IDM EDIT UNDO: 


SendMessage (hwndEdit, WM—UNDO, ◦, 0); 
return 0 ; 


case IDM EDIT CUT: 


SendMessage (hwndEdit, WM—CUT, ◦, 0); 
return 0 ; 


case IDM EDIT COPY: 


SendMessage (hwndEdit, WM—COPY, ◦, 0) 
return 0 ; 


case IDM EDIT PASTE: 


SendMessage (hwndEdit, WM—PASTE, ◦, 0) 
return 0 ; 


case IDM EDIT CLEAR: 


SendMessage (hwndEdit, WM—CLEAR, ◦, 0) 
return 0 ; 
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case IDM_EDIT_SELECT—ALL : 

SendMessage (hwndEdit , EM—SETSEL, 0, -1); 
return 0 ; 


case 


// Messages from Search menu 


IDM_SEARCH_FIND: 

SendMessage (hwndEdit, EM_GETSEL, 0, (LPARAM) &iOffset); 
hDlgModeless = PopFindFindDlg (hwnd); 
return 0 ; 


case 


工 DM SEARCH NEXT : 


SendMessage (hwndEdit, EM_GETSEL, ◦, (LPARAM) &iOffset); 

if (PopFindValidFind ()) 

PopFindNextText (hwndEdit, &iOf fset); 


else 


hDlgModeless = PopFindFindDlg (hwnd); 


return 0 ; 


case IDM_SEARCH_REPLACE : 

SendMessage (hwndEdit, EM_GETSEL, ◦, (LPARAM) &iOffset); 
hDlgModeless = PopFindReplaceDig (hwnd); 
return 0 ; 

case IDM_FORMAT_FONT: 

if (PopFontChooseFont (hwnd)) 

PopFontSetFont (hwndEdit); 

return 0 ; 

// Messages from Help menu 

case IDM_HELP: 

OkMessage (hwnd, TEXT ("Help not yet implemented !’，）， 
TEXT ( n \0 n ))； 

return 0 ; 

case IDM—APP—ABOUT: 

DialogBox (hlnst, TEXT ("AboutBox") , hwnd, AboutDlgProc); 
return 0 ; 

} 

break ; 

WM—CLOSE: 

if ( !bNeedSave | | IDCANCEL != AskAboutSave (hwnd, szTitleName)) 

DestroyWindow (hwnd); 


return 0 ; 
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case WM—QUERYENDSESSION : 

if ( ! bNeedSave | | IDCANCEL ! = AskAboutSave (hwnd, szTitleName)) 
return 1 ; 

return 0 ; 

case WM—DESTROY: 

PopFontDeinitialize (); 

PostQuitMessage (0); 
return 0 ; 


default : 


// Process "Find-Replace" messages 
if (message == messageFindReplace) 

{ 

pfr = (LPFINDREPLACE) IParam ; 
if (pfr->Flags & FR—DIALOGTERM) 

hDlgModeless = NULL ; 


if (pfr->Flags & FR_FINDNEXT) 

if (!PopFindFindText (hwndEdit, &iOffset, pfr)) 
OkMessage (hwnd, TEXT ("Text not found !’’）， 

TEXT ( n \0 n ))； 


FR REPLACEALL) 


pfr)) 


if (pfr->Flags & FR_REPLACE | | pfr->Flags & 
if ( !PopFindReplaceText (hwndEdit, &iOffset, 
OkMessage (hwnd, TEXT ( n Text not found ! 1 ，）， 

TEXT ( n \0 n ))； 


&iOffset, pfr)); 


if (pfr->Flags & FR_REPLACEALL) 

while (PopFindReplaceText (hwndEdit, 


return 0 ; 

} 

break ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 


BOOL CALLBACK AboutDlgProc (HWND hDlg, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

switch (message) 

{ 

case WM—INITDIALOG: 

return TRUE ; 
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case WM—COMMAND: 




switch (LOWORD (wParam)) 



case 工 DOK: 

EndDialog (hDlg, 0) 

• 

F 


1 

return TRUE ; 



; 

break ; 




/ 

return FALSE ; 



/ 

POPFILE.C 



/* 一一一 





POPFILE.C -- Popup Editor File Functions 





- " 

♦include <windows.h> 

♦include <commdlg.h> 



static OPENFILENAME ofn ; 



void 

; 

PopFilelnitialize (HWND 

hwnd) 


l 

static TCHAR szFilter[] 

= TEXT ("Text Files ( 

*.TXT)\0*.txt\0 M ) \ 



TEXT ("ASCII Files 

(*.ASC)\0*.asc\0 n ) \ 



TEXT ("All Files (* 



ofn.lStructSize 

=sizeof (OPENFILENAME); 


ofn.hwndOwner 

=hwnd ; 



ofn.hlnstance 

=NULL ; 



ofn.IpstrFilter 

=szFilter ; 



ofn.lpstrCustomFilter 

=NULL ; 



ofn.nMaxCustFilter 

=◦; 



ofn.nFiIterIndex 

=◦; 



ofn.IpstrFile 

=NULL ; // Set in Open and Close functions 


ofn.nMaxFile 

=MAX PATH ; 



ofn.lpstrFileTitle 

=NULL ; // 

Set in Open and Close 

functions 




ofn.nMaxFileTitle 

=MAX PATH ; 



ofn.lpstrlnitialDir 

=NULL ; 



ofn.lpstrTitle 

=NULL ; 



ofn . Flags 

=◦; 

/ / Set in Open and 

Close 

functions 




ofn.nFileOffset 

=◦; 



ofn . nFileExtension 

=◦; 



ofn . lpstrDefExt 

=TEXT ("txt"); 



ofn . lCustData 

= 0L ; 



ofn . lpfnHook 

=NULL ; 
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ofn.lpTemplateName 


= NULL ; 


BOOL PopFileOpenDlg (HWND hwnd A PTSTR pstrFileName, PTSTR pstrTitleName) 


ofn.hwndOwner 


=hwnd ; 


ofn.IpstrFile 
ofn.lpstrFileTitle 
ofn.Flags 


=pstrFileName ; 

=pstrTitleName ; 

= OFN HIDEREADONLY | OFN CREATEPROMPT ; 


return GetOpenFileName (&ofn); 


BOOL PopFileSaveDlg (HWND hwnd, PTSTR pstrFileName, PTSTR pstrTitleName) 


ofn.hwndOwner 
ofn.IpstrFile 
ofn.lpstrFileTitle 
ofn.Flags 


=hwnd ; 

=pstrFileName ; 

=pstrTitleName ; 

= OFN OVERWRITEPROMPT 


return GetSaveFileName (&ofn); 


BOOL PopFileRead (HWND hwndEdit, PTSTR pstrFileName) 


BYTE 

bySwap ; 

DWORD 

dwBytesRead ; 

HANDLE 

hFile ; 

int 

i , iFileLength, iUniTest 

PBYTE 

pBuffer, pText, pConv ; 


// Open the file. 


if (INVALID_HANDLE_VALUE == 

(hFile = CreateFile (pstrFileName, GENERIC_READ, 

F 工 LE_SHARE_READ, 

NULL, OPEN_EXISTING, ◦, NULL))) 
return FALSE ; 

// Get file size in bytes and allocate memory for read. 

// Add an extra two bytes for zero termination. 

iFileLength = GetFileSize (hFile, NULL); 
pBuffer = malloc (iFileLength + 2); 

// Read file and put terminating zeros at end. 

ReadFile (hFile, pBuffer, iFileLength, &dwBytesRead, NULL); 
CloseHandle (hFile); 
pBuffer[iFileLength] = '\0'; 
pBuffer[iFileLength +1] = ? \0 1 ; 
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// Test to see if the text is Unicode 
iUniTest = IS_TEXT_UNICODE_SIGNATURE I IS_TEXT_UNICODE_REVERSE_SIGNATURE ; 
if (IsTextUnicode (pBuffer, iFileLength, &iUniTest)) 

pText = pBuffer + 2 ; 
iFileLength -= 2 ; 


if (iUniTest & IS TEXT UNICODE REVERSE SIGNATURE) 


for (i = ◦ ; i < iFileLength / 2 ; i++) 

{ 

bySwap = ((BYTE *) pText) [2 * i]; 

((BYTE *) pText) [2 * 幻 =((BYTE *) pText) [2 
((BYTE *) pText) [2 * i + 1] = bySwap ; 

} 




text to 


#ifndef UNICODE 


string 

#else 

#endif 


// Allocate memory for possibly converted string 
pConv = malloc (iFileLength +2); 

//If the edit control is not Unicode, convert Unicode 

// non-Unicode (i.e., in general, wide character). 

WideCharToMultiByte (CP—ACP, 0, (PWSTR) pText, -1, pConv, 
iFileLength + 2, NULL, NULL); 

// If the edit control is Unicode, just copy the 


lstrcpy ((PTSTR) pConv, (PTSTR) pText); 


else 


// the file is not Unicode 


pText = pBuffer ; 

// Allocate memory for possibly converted string. 
pConv = malloc (2 * iFileLength +2); 

// If the edit control is Unicode, convert ASCII 

text. 

#ifdef UNICODE 

MultiByteToWideChar (CP—ACP, 0, pText, -1, (PTSTR) pConv, 

iFileLength +1); 

// If not, just copy buffer 


#else 


#endif 


lstrcpy ((PTSTR) pConv, (PTSTR) pText); 
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SetWindowText (hwndEdit , (PTSTR) pConv); 
free (pBuffer); 
free (pConv); 

return TRUE ; 

} 

BOOL PopFileWrite (HWND hwndEdit, PTSTR pstrFileName) 

{ 

DWORD dwBytesWritten ; 

HANDLE hFile ; 

int iLength ; 

PTSTR pstrBuffer ; 

WORD wByteOrderMark = OxFEFF ; 

// Open the file, creating it if necessary 

if (INVALID_HANDLE—VALUE == 

(hFile = CreateFile (pstrFileName, GENERIC_WRITE, ◦, 
NULL, CREATE—ALWAYS, ◦, NULL))) 
return FALSE ; 

// Get the number of characters in the edit control and allocate 
// memory for them. 

iLength = GetWindowTextLength (hwndEdit); 

pstrBuf fer = (PTSTR) malloc ((iLength + 1) * sizeof (TCHAR)); 

if ( !pstrBuffer) 

{ 

CloseHandle (hFile); 
return FALSE ; 

} 

// If the edit control will return Unicode text , write the 
// byte order mark to the file. 

#ifdef UNICODE 

WriteFile (hFile, &wByteOrderMark, 2, &dwBytesWritten, NULL); 

#endif 

// Get the edit buffer and write that out to the file. 
GetWindowText (hwndEdit, pstrBuffer, iLength + 1); 

WriteFile (hFile, pstrBuffer, iLength * sizeof (TCHAR), 

&dwBytesWritten, NULL); 

if ((iLength * sizeof (TCHAR)) != (int) dwBytesWritten) 

{ 


CloseHandle (hFile); 
free (pstrBuffer); 
return FALSE ; 
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CloseHandle (hFile) ; 
free (pstrBuffer); 

return TRUE ; 

POPFIND.C 


POPFIND.C -- Popup Editor Search and Replace Functions 
- V 


♦include <windows.h> 

♦include <commdlg.h> 

♦ include <tchar.h> // for —tcsstr (strstr for Unicode & 

non-Unicode) 


♦define MAX_STRING_LEN 256 

static TCHAR szFindText [MAX_STRING_LEN]; 
static TCHAR szReplText [MAX_STRING_LEN]; 

HWND PopFindFindDlg (HWND hwnd) 

{ 

static FINDREPLACE fr ; // must be static for modeless dialog! ! ! 


fr.IStructSize 
fr.hwndOwner 
fr.hlnstance 
fr.Flags 

FR—HIDEWHOLEWORD ; 

fr.IpstrFindWhat 
fr.IpstrReplaceWith 
fr.wFindWhatLen 
fr.wReplaceWithLen 
fr.lCustData 
fr.lpfnHook 
fr.lpTemplateName 


=sizeof (FINDREPLACE); 

=hwnd ; 

=NULL ; 

= FR—HIDEUPDOWN | FR—HIDEMATCHCASE 

=szFindText ; 

=NULL ; 

=MAX STRING LEN ; 



=NULL ; 
=NULL ; 


return FindText (&fr); 


HWND PopFindReplaceDig (HWND hwnd) 

{ 

static FINDREPLACE fr ; // must be static for modeless dialog! ! ! 

fr. IStructSize = sizeof (FINDREPLACE); 

fr.hwndOwner = hwnd ; 
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fr.hlnstance 
fr.Flags 

FR—HIDEWHOLEWORD ; 

fr.IpstrFindWhat 
fr.IpstrReplaceWith 
fr.wFindWhatLen 
fr.wReplaceWithLen 
fr.lCustData 
fr.lpfnHook 
fr.lpTemplateName 

return ReplaceText (&fr) 


NULL ; 

FR—HIDEUPDOWN | FR—HIDEMATCHCASE 

szFindText ; 
szReplText ; 

MAX_STRING_LEN ; 

MAX_STRING_LEN ; 

0 ； 

NULL ; 

NULL ; 


BOOL PopFindFindText (HWND hwndEdit, int * piSearchOffset, LPFINDREPLACE pfr) 

{ 

int iLength, iPos ; 

PTSTR pstrDoc, pstrPos ; 


// Read in the edit document 


iLength = GetWindowTextLength (hwndEdit); 

if (NULL == (pstrDoc = (PTSTR) malloc ( (iLength + 1) * sizeof (TCHAR)))) 

return FALSE ; 

GetWindowText (hwndEdit, pstrDoc, iLength + 1); 

// Search the document for the find string 

pstrPos = —tcsstr (pstrDoc + * piSearchOffset, pfr->lpstrFindWhat); 
free (pstrDoc); 

// Return an error code if the string cannot be found 

if (pstrPos == NULL) 

return FALSE ; 


offset 


// Find the position in the document and the new start 


iPos = pstrPos 一 pstrDoc ; 

* piSearchOffset = iPos + lstrlen (pfr->lpstrFindWhat); 


// Select the found text 

SendMessage (hwndEdit, EM—SETSEL, iPos, * piSearchOffset); 
SendMessage (hwndEdit, EM SCROLLCARET, ◦, 0); 
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return TRUE ; 

} 

BOOL PopFindNextText (HWND hwndEdit, int * piSearchOffset) 

{ 

FINDREPLACE fr ; 
fr.IpstrFindWhat = szFindText ; 

return PopFindFindText (hwndEdit A piSearchOffset , &fr); 


BOOL PopFindReplaceText (HWND hwndEdit, int * piSearchOf f set, LPFIND, REPLACE pfr) 

{ 

// Find the text 

if (!PopFindFindText (hwndEdit, piSearchOffset, pfr)) 
return FALSE ; 


// Replace it 

SendMessage ( hwndEdit, EM—REPLACESEL, ◦, (LPARAM) pfr-> 

IpstrReplaceWith); 
return TRUE ; 


BOOL PopFindValidFind (void) 

{ 

return * szFindText != '\0 

} 

POPFONT.C 

/* - 


POPFONT.C -- Popup Editor Font Functions 



♦include <windows.h> 
♦include <commdlg.h> 


static LOGFONT logfont ; 
static HFONT hFont ; 


BOOL PopFontChooseFont (HWND hwnd) 

{ 

CHOOSEFONT cf ; 

cf. IStructSize = sizeof (CHOOSEFONT); 

cf.hwndOwner = hwnd ; 

cf.hDC = NULL ; 

cf.lpLogFont 
cf.iPointSize 
cf.Flags 
CF_EFFECTS ; 

cf.rgbColors 
cf.lCustData 


=&logfont ; 

=◦; 

=CF 工 NITTOLOGFONTSTRUCT | CF SCREENFONTS | 
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cf.lpfnHook 
cf.lpTemplateName 
cf.hlnstance 
cf.IpszStyle 
cf.nFontType 
from ChooseFont 

cf.nSizeMin 
cf.nSizeMax 


=NULL ; 

=NULL ; 


=NULL ; 
=NULL ; 



/ / Returned 


return ChooseFont (&cf); 


void PopFontInitialize (HWND hwndEdit) 

{ 

GetObject (GetStockObject (SYSTEM—FONT), sizeof (LOGFONT), 

(PTSTR) &logfont); 

hFont = CreateFontlndirect (&logfont); 

SendMessage (hwndEdit, WM SETFONT, (WPARAM) hFont, 0); 


void PopFontSetFont (HWND hwndEdit) 

{ 

HFONT hFontNew ; 

RECT rect ; 


hFontNew = CreateFontlndirect (&logfont); 

SendMessage (hwndEdit, WM—SETFONT, (WPARAM) hFontNew, 0); 
DeleteObj ect (hFont); 
hFont = hFontNew ; 

GetClientRect (hwndEdit , &rect); 

工 nvalidateRect (hwndEdit, &rect , TRUE); 


void PopFontDeinitialize (void) 

{ 

DeleteObj ect (hFont); 

} 

POPPRNTO.C 

/* - 

POPPRNTO.C —— Popup Editor Printing Functions (dummy version) 



♦include <windows.h> 

BOOL PopPrntPrintFile ( HINSTANCE hlnst, HWND hwnd, HWND hwndEdit, 

PTSTR pstrTitleName) 

{ 

return FALSE ; 
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POPPAD.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Dialog 

ABOUTBOX DIALOG DISCARDABLE 32, 32, 180, 100 
STYLE DS_MODALFRAME | WS_POPUP 
FONT 8, M MS Sans Serif" 

BEGIN 

DEFPUSHBUTTON "OK",IDOK, 66, 80,50,14 
ICON 

"POPPAD",IDC_STATIC,7,7,20,20 
CTEXT 

"PopPad",IDC_STATIC, 40, 12,100,8 

CTEXT "Popup Editor for Windows” ， IDC—STATIC,7,40,166,8 

CTEXT "(c) Charles Petzold, 1998 n ,IDC_STATIC,7,52,166,8 

END 

PRINTDLGBOX DIALOG DISCARDABLE 32, 32, 186, 95 

STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU 
CAPTION "PopPad" 

FONT 8, "MS Sans Serif" 

BEGIN 

PUSHBUTTON "Cancel" A 工 DCANCEL,67,74,50,14 

CTEXT "Sending",IDC—STATIC,8,8,172,8 

CTEXT nn ,IDC—FILENAME,8,28,172,8 

CTEXT "to print spooler• n , 工 DC—STATIC,8,48,172,8 

END 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 


POPPAD MENU DISCARDABLE 
BEGIN 


POPUP 

BEGIN 

MENUITEM 

MENUITEM 

MENUITEM 

MENUITEM 

MENUITEM 

MENUITEM 

MENUITEM 

MENUITEM 

END 


"&File n 

"&New\tCtrl+N" A 工 DM—FILE—NEW 

"&Open..•\tCtrl+0” ， IDM—FILE—OPEN 
"&Save\tCtrl+S M , IDM—FILE_SAVE 

"Save &As IDM—FILE_SAVE_AS 

SEPARATOR 

"&Print\tCtrl+P", IDM—FILE_PRINT 
SEPARATOR 

"E&xit", IDM APP EXIT 


POPUP "&Edit n 
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BEGIN 



MENUITEM 

"&Undo\tCtrl+Z", 

I DM 

EDIT UNDO 


MENUITEM 

SEPARATOR 




MENUITEM 

n Cu&t\tCtrl+X n , 

I DM 

EDIT CUT 


MENUITEM 

"&Copy\tCtrl+C", 

I DM 

EDIT_COPY 


MENUITEM 

Paste\tCtrl+V", 

工 DM 

EDIT PASTE 


MENUITEM 

"De&lete\tDel n , 

I DM 

EDIT CLEAR 


MENUITEM 

SEPARATOR 




MENUITEM 

"^Select All", 

工 DM 

EDIT SELECT ALL 

END 

POPUP 

"&Search" 



BEGIN 

MENUITEM 

"&Find...\tCtrl+F" 

,IDM 

SEARCH FIND 


MENUITEM 

"Find &Next\tF3 n , 

工 DM 

SEARCH NEXT 


MENUITEM 

n ^Replace.. .\tCtrl+R", 

IDM SEARCH REPLACE 

END 

POPUP 

"F&ormat" 



BEGIN 

MENUITEM 

"&Font... 



END 

POPUP 

"&Help n 




BEGIN 





MENUITEM 

"&Help", 

工 DM HELP 


MENUITEM 

"&About PopPad... 

”, IDM APP ABOUT 


END 





END 



// Accelerator 

POPPAD ACCELERATORS DISCARDABLE 
BEGIN 

VK_BACK, 工 DM_EDIT_UNDO, VIRTKEY, ALT, NOINVERT 

VK—DELETE, IDM_EDIT_CLEAR, VIRTKEY, NOINVERT 

VK_DELETE a 工 DM_EDIT_CUT, VIRTKEY, SHIFT, NOINVERT 

VK—FI, 工 DM_HELP, VIRTKEY, NOINVERT 

VK—F3, IDM_SEARCH_NEXT, VIRTKEY, NOINVERT 

VK_INSERT, 工 DM_EDIT_COPY, VIRTKEY, CONTROL, NOINVERT 

VK—INSERT, IDM_EDIT_PASTE, VIRTKEY, SHIFT, 

NOINVERT 


f f / 

'C n , 

IDM 

EDIT 

_COPY, 

ASCII, 

NOINVERT 

f f / 

、 F n , 


工 DM 

SEARCH FIND, 

ASCII, 

NOINVERT 

f f / 

、 N n , 


工 DM 

FILE NEW, 

ASCII, 

NOINVERT 

f I / 



IDM 

FILE OPEN, 

ASCII, 

NOINVERT 

f f / 

、 p ”， 

IDM 

FILE 

PRINT, 

ASCII, 

NOINVERT 

f f / 

'R", 

IDM 

SEARCH REPLACE, 

ASCII, 

NOINVERT 

f I / 

、 S n , 

IDM 

FILE 

SAVE, 

ASCII, 

NOINVERT 

f f / 

、 V n , 

IDM 

EDIT 

PASTE, 

ASCII, 

NOINVERT 

f f / 


IDM 

EDIT 

CUT, 

ASCII, 

NOINVERT 
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,,A Z n , IDM_EDIT_UNDO, ASCII, NOINVERT 

END 

1111111111111111111111111111111111111111111111111111111111111111111111111111 
/ 

// 工 con 

POPPAD 工 CON DISCARDABLE 

"poppad.ico" 

RESOURCE. H ( 摘录） 


// Microsoft Developer Studio generated include file. 
// Used by poppad.rc 

#define 

工 DC_ 

FILENAME 

1000 

♦define 

IDM 

FILE—NEW 

40001 

♦define 

IDM 

FILE_OPEN 

40002 

#define 

IDM 

FILE—SAVE 

40003 

#define 

IDM 

FILE—SAVE AS 

40004 

♦define 

IDM 

FILE PRINT 

40005 

♦define 

IDM 

APP EXIT 

40006 

#define 

IDM 

EDIT UNDO 

40007 

#define 

IDM 

EDIT_CUT 

40008 

♦define 

IDM 

EDIT—COPY 

40009 

♦define 

IDM 

EDIT PASTE 

40010 

#define 

IDM 

EDIT_CLEAR 

40011 

#define 

IDM 

EDIT_SELECT ALL 

40012 

♦define 

IDM 

SEARCH FIND 

40013 

♦define 

IDM 

_SEARCH NEXT 

40014 

#define 

IDM 

SEARCH REPLACE 

40015 

#define 

IDM 

FORMAT FONT 

40016 

♦define 

IDM 

HELP 

40017 

♦define 

IDM 

APP ABOUT 

40018 


POPPAD. ICO 
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为了避免在第十三章中重复原始码，我在 POPPAD . RC 的功能表中加入了列 
印专案和一些其他的支援。 
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POPPAD . C 包含了程式中所有的基本原始码。 POPFILE . C 具有启动 File Open 
和 File Save 对话方块的程式码，它还包含档案 I / O 常式。 POPFIND . C 中包含了 
搜寻和替换文字功能。 P 0 PF 0 NT . C 包含了字体选择功能。 POPPRNTO . C 不完成什 
么 工作： 在第十三章中将使用 POPPRNT . C 替换 POPPRNTO . C 以建立最终的 POPPAD 
程式。 

让我们先来看一看 POPPAD . C 。 POPPAD . C 含有两个档案名 字串： 第一个，储 
存在 WndProc , 名称为 szFileName , 含有详细的驱动器名称、路径名称和档案 
名称； 第二个，储存为 szTitleName ， 是程式本身的档案名称。它用在 P 0 PPAD 3 
的 DoCaption 函式中，以便将档案名称显示在视窗的标题 列上; 也用在 OKMessage 
函式和 AskAboutSave 函式中，以便向使用者显示讯息方块。 

POPFILE . C 包含了几个显示 「File Open 」 和 「File Save 」 对话方块以及实 
际执行档案 I / O 的函式。对话方块是使用函式 GetOpenFileName 和 
GetSaveFileName 来显示的。这两个函式都使用一个型态为 OPENFILENAME 的结 
构，这个结构在 C 0 MMDLG . H 中定义。在 POPFILE . C 中，使用了一个该结构型态 
的整体变数，取名为 ofn 。 ofn 的大多数栏位在 PopFilelnitialize 函式中被初 
始化， POPPAD . C 在 WndProc 中处理 WM _ CREATE 讯息时呼叫该函式。 

将 ofn 作为静态整体结构变数会比较方便，因为 GetOpenFileName 和 
GetSaveFileName 给该结构传回的一些资讯，并将在以後呼叫这些函式时用到。 

尽管通用对话方块具有许多选项——包括设定自己的对话方块模板，以及 
为对话方块程序增加「挂勾 （ hook ) 」—— POPFILE . C 中使用的 「File Open 」 
和 「File Save 」 对话方块是最基本的。 OPENFILENAME 结构中被设定的栏位只有 
IStructSize (结构的长度 ）、 hwndOwner (对话方块拥有者 ）、 IpstrFilter (下 
面将简要讨论）、 lpstrFile 和 nMaxFile (指向接收完整档案名称的缓冲区指 
标和该缓冲区的大小）、 IpstrFileTitle 和 nMaxFileTitle (档案名称缓冲区 
及其大小 ）、 Flags (设定对话方块的选项）和 IpstrDefExt (如果使用者在对 
话方块中输入档案名时不指定档案副档名，那么它就是内定的档案副档名）。 

当使用者在 「 File 」 功能表中选择 「 Open 」 时， P 0 PPAD 3 呼叫 POPFILE 的 
PopFileOpenDlg 函式，将视窗代号、一个指向档案名称缓冲区的指标和一个指 
向档案标题缓冲区的指标传给它。 PopFileOpenDlg 恰当地设定 OPENFILENAME 结 
构的 hwndOwner、IpstrFile 和 IpstrFileTitle 栏位，将 Flags 设定为 0 FN _ 
CREATEPROMPT ， 然後呼叫 GetOpenFileName ， 显示如图 11- 6所示的普通对话方 
块。 
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图 11-6 rFile Open 」 对话方块 

当使用者结束这个对话方块时， GetOpenFileName 函式传回。 
OFN _ CREATEPROMPT 旗标指示 GetOpenFileName 显示一个讯息方块，询问使用者 
如果所选档案不存在，是否要建立该档案。 

左下角的下拉式清单方块列出了将要显示在档案列表中的档案型态，此清 
单方块被称为「筛选清单」。使用者可以通过从下拉式清单方块列表中选择另 
一 种档案型态，来改变筛选条件。在 P 0 PFILE . C 的 PopFilelnitialize 函式中， 
我在变数 szFilter (—个字串阵列）中为三种型态的档案定义了一个筛检 清单: 
带有 . TXT 副档名的文字档案、带有 . ASC 副档名的 ASCII 档案和所有档案。 
OPENFILENAME 结构的 IpstrFilter 栏位储存指向此阵列第一个字串的指标。 

如果使用者在对话方块处於活动状态时改变了筛选条件，那么 
OPENFILENAME 的 nFilterlndex 栏位反映出使用者的选择。由於该结构是静态变 

数，下次启动对话方块时，筛选条件将被设定为选中的档案型态。 

POPFILE . C 中的 PopFileSaveDlg 函式与此类似，它将 Flags 参数设定为 
0 FN _0 VERWRITEPR 0 MPT , 并呼叫 GetSaveFileName 启动 「File Save 」 对话方块。 
0 FN _0 VERWRITEPR 0 MPT 旗标导致显示一个讯息方块，如果被选档案已经存在，那 
么将询问使用者是否覆盖该档案。 

Unicode 档案 I/O 


对於本书中的大多数程式，您都不必注意 Unicode 和非 Unicode 版的区别。 
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例如，在 P 0 PPAD 3 的 Unicode 中，编辑控制项将保留 Unicode 文字和使用 Unicode 

字串的所有通用对话方块。例如，当程式需要搜索和替换时，所有的操作都会 
处理 Unicode 字串，而不需要转换。 

不过， P 0 PPAD 3 得处理档案1/0,也就是说，程式不能闭门造车。如果 Unicode 
版的 P 0 PPAD 3 获得了编辑缓冲区的内容并将其写入磁片，档案将是使用 Unicode 
存放的。如果非 Unicode 版的 P 0 PPAD 3 读取了该档案，并将其写入编辑缓冲区， 
其结果将是一堆垃圾。 Unicode 版读取由非 Unicode 版储存的档案时也会这样。 

解决的办法在於辨别和转换。首先，在 H 3 PFILE . C 的 PopFileWrite 函式中， 
您将看到 Unicode 版的程式将在档案的开始位置写入 OxFEFF 。 这定义为位元组 
顺序标记，以表示文字档案含有 Unicode 文字。 

其次，在 PopFileRead 函式中，程式用 IsTextUnicode 函式来决定档案是 
否含有位元组顺序标记。此函式甚至检测位元组顺序标记是否反向了，亦即 
Unicode 文字档案在 Macintosh 或者其他使用与 Intel 处理器相反的位元组顺序 
的机器上建立的。这时，位元组的顺序都经过•转。如果档案是 Unicode 版， 
但是被非 Unicode 版的 P 0 PPAD 3 读取，这时，文字将被 WideCharToMultiChar 
转换。 WideChaiToMultiChar 实际上是一个宽字元 ANSI 函式（除非您执行远东 
版的 Windows ) 。只有这时文字才能放入编辑缓冲区。 

同样地，如果档案是非 Unicode 文字档案，而执行的是 Unicode 版的程式， 
那么文字必须用 MultiCharToWideChar 转换。 

改变字体 

我们将在第十七章详细讨论字体，但那些都不能代替通用对话方块函式来 
选择字体。 

在 WM _ CREATE 讯息处理期间， P 0 PF 0 NT . C 中的 POPPAD 呼叫 
PopFontlnitialize 。 这个函式取得一个依据系统字体建立的 L 0 GF 0 NT 结构，由 
此建立一种字体，并向编辑控制项发送一个 WM _ SETF 0 NT 讯息来设定一种新的字 
体（内定编辑控制项字体是系统字体，而 PopFontlnitialize 为编辑控制项建 
立一种新的字体，因为最终该字体将被删除，而删除现有系统字体是不明智的）。 

当 P 0 PPAD 收到来自程式的字体选项的 WM _ C 0 MMAND 讯息时，它呼叫 
PopFontChooseFont 。这个函式初始化一个 CH 00 SEF 0 NT 结构，然後呼叫 
ChooseFont 显示字体选择对话方块。如果使用者按下「 0 K 」 按钮，那么 ChooseFont 
将传回 TRUE 。 随後， P 0 PPAD 呼叫 PopFontSetFont 来设定编辑控制项中的新字 
体，旧字体将被删除。 

最後，在 WM _ DESTR 0 Y 讯息处理期间， P 0 PPAD 呼叫 PopFontDeinitialize 来 
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删除最近一次由 PopFontSetFont 建立的字体。 

搜寻与替换 

通用对话方块程式库也提供两个用於文字搜寻和替换函式的对话方块，这 
两个函式 （ FindText 和 ReplaceText ) 使用一个型态为 FINDREPLACE 的结构。 
图 10-11 中所示的 POPFIND . C 档案有两个常式 （ PopFindFindDlg 和 
PopFindReplaceDlg ) 呼叫这些函式，还有两个函式在编辑控制项中搜寻和替换 
文字。 

使用搜寻和替换函式有一些考虑。首先，它们启动的对话方块是非模态对 
话方块，这意味著必须改写讯息回圈，以便在对话方块活动时呼叫 
IsDialogMessage 。 第二，传送给 FindText 和 ReplaceText 的 FINDREPLACE 结 

构必须是一个静态变数，因为对话方块是模态的，函式在对话方块显示之後传 
回，而不是在对话方块结束之後 传回； 而对话方块程序必须仍然能够存取该结 
构。 

第三，在显示 FindText 和 ReplaceText 对话方块时，它们通过一条特殊讯 
息与拥有者视窗联络，讯息编号可以通过以 FINDMSGSTRING 为参数呼叫 
RegisterWindowMessage 函式来获得。这是在 WndProc 中处理 WM _ CREATE 讯息时 
完成的，讯息号存放在静态变数中。 

在处理内定讯息时， WndProc 将讯息变数与 RegisterWindowMessage 传回的 
值相比较。1 Par am 讯息参数是一个指向 FINDREPLACE 结构的指标， Flags 栏位 
指示使用者使用对话方块是为了搜寻文字还是替换文字，以及是否要终止对话 
方块。 P 0 PPAD 3 是呼叫 POPFIND . C 中的 PopFindFindText 和 PopFindReplaceText 

函式来执行搜寻和替换功能的。 

只呼叫一个函式的 Windows 程式 

到现在为止，我们已经说明了两个程式，让您浏览选择颜色，这两个程式 
分别是第九章中的⑶ L 0 RS 1 和本章中的⑶ L 0 RS 2。 现在是讲解⑶ L 0 RS 3 的时候了， 
这个程式只有一个 Windows 函式呼叫。 C 0 L 0 RS 3 的原始码如程式 11-7 所示。 

C 0 L 0 RS 3 所呼叫的唯一 Windows 函式是 ChooseColor ， 这也是通用对话方块 
程式库中的函式，它显示如图 11-7 所示的对话方块。颜色选择类似於 COLORS 1 
和⑶ L 0 RS 2, 但是它与使用者交谈互动能力更强。 

程式 11-7 C0L0RS3 

C0L0RS3.C 

/* - 

C0L0RS3.C -- Version using Common Dialog Box 
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♦include <windows.h> 
♦include <commdlg.h> 


int WINAPI WinMain ( HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 


static CHOOSECOLOR 
static COLORREF 


cc ; 


crCustColors [16]; 


cc.IStructSize 

cc.hwndOwner 

cc.hlnstance 

cc.rgbResult 

cc.lpCustColors 

cc.Flags 

cc.lCustData 

cc.lpfnHook 

cc.lpTemplateName 


=sizeof (CHOOSECOLOR) 
NULL ; 

NULL ; 

RGB (0x80, 0x80, 0x80); 

=crCustColors ; 
CC_RGBINIT I CC_FULLOPEN ; 

0 ； 

NULL ; 


NULL 


return ChooseColor (&cc); 


图 11-7 C0L0RS3 的萤幕显示 

ChooseColor 函式使用一个 CHOOSECOLOR 型态的结构和含有16个 DWORD 的 
阵列来存放常用颜色，使用者将从对话方块中选择这些颜色之一。 rgbResult 栏 
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位可以初始化为一个颜色值，如果 Flags 栏位的 CC _ RGBINIT 旗标被设立，则显 
示该颜色。通常在使用这个函式时， rgbResult 将被设定为使用者选择的颜色。 

请注意， Color 对话方块的 hwndOwner 栏位被设定为 NULL 。 在 ChooseColor 
函式呼叫 DialogBox 以显示对话方块时， DialogBox 的第三个参数也被设定为 
NULL 。 这是完全合法的，其含义是对话方块不为另一个视窗所拥有。对话方块 
的标题将显示在工作列中，而对话方块就像一个普通的视窗那样执行。 

您也可以在自己程式的对话方块中使用这种技巧。使 Windows 程式只建立 
对话方块，其他事情都在对话方块程序中完成，这是可能的。 
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第十二章剪贴簿 

Microsoft Windows 剪贴簿允许把资料从一个程式传送到另一个程式中。它 

的原理相对而言比较简单，把资料存放到剪贴簿上的程式或从剪贴簿上取出资 
料的程式都无须太多的负担 。 Windows 98和 Microsoft Windows NT 都提供了剪 

贴簿浏览程式，该程式可以显示剪贴簿的目前内容。 

许多处理档案或者其他资料的程式都包含一个 「 Edit 」 功能表，其中包括 
「 Cut 」 、 「 Copy 」 和 「 Paste 」 选项。当使用者选择 「 Cut 」 或者 「 Copy 」 时， 
程式将资料传送给剪贴簿。这个资料使用某种格式，如文字、点阵图（一种按 
位元排列的矩形阵列，其中的位元与平面显示的图素相对应）或者 metafile (用 
二进位元数值内容表示的绘图命令集）等。当使用者从功能表中选择 「 Paste 」 
时，程式检查剪贴簿中包含的资料，看看使用的是否是程式可以接受的一种格 
式。如果是，那么资料将从剪贴簿传送到程式中。 

如果使用者不发出明确的指令，程式就不能把资料送入或移出剪贴簿。例 
如，在某个程式中执行剪下或复制（或者按 Ctrl - X 及 Ctrl - C ) 操作的使用者， 
应该能够假定资料将储存在剪贴簿上，直到下次剪下或复制操作为止。 

回忆一下第十和第十一章所示的 P 0 PPAD 程式的修订版中，我们加上了 
「 Edit 」 功能表，但是在那边这功能表的作用只是发送讯息给编辑控制项而已。 
多数情况下，处理剪贴簿并不方便，您必须自己呼叫剪贴簿传输函式。 

本章集中讨论将文字传入和移出剪贴簿。在後面的章节里，我将向您展示 
如何用剪贴簿处理点阵图（第十四、十五和十六章）和 metafile (第十八章）。 

剪贴簿的简单使用 

我们由分析把资料传送到剪贴簿（剪下或复制）和存取剪贴簿资料（粘贴) 
的程式码开始。 

标准剪贴簿资料格式 

Windows 支援不同的预先定义剪贴簿格式，这些格式在 WINUSER . H 定义成以 
CF 为字首的识别字。 

首先介绍三种能够储存在剪贴簿上的文字资料型态，以及一个与剪贴簿格 
式相关的资料 型态： 

CF _ TEXT 以 NULL 结尾的 ANSI 字元集字串。它在每行末尾包含一个 
carriage return 和 linefeed 字元，这是最简单的剪贴簿资料格式。传送到剪 
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贴簿的资料存放在整体记忆体块中，并且是利用记忆体块代号进行传送的（我 
将简短地讨论此项概念）。这个记忆体块专供剪贴簿使用，建立它的程式不应 
该继续使用它。 

CF _ OEMTEXT 含有文字资料（与 CF _ TEXT 类似）的记忆体块。但是它使用 
的是 OEM 字元集。通常 Windows 程式不必关心这 一点； 它只有与在视窗中执行 
MS - DOS 程式一起使用剪贴簿时才会使用。 

CFJJNICODETEXT 含有 Unicode 文字的记忆体块。与 CF _ TEXT 类似，它在 
每一行的末尾包含一个 carriage return 和 linefeed 字元，以及一个 NULL 字 
元（两个0位元组）以表示资料结束。 CFJJNICODETEH 只支援 Windows NT 。 
CF _ L 0 CALE 一 个国家地区识别字的代号。表示剪贴簿文字使用的国别地区 

设定。 

下面是两种附加的剪贴簿格式，它们在概念上与 CF _ TEXT 格式相似（也就 
是说，它们都是文字资料），但是它们不需要以 NULL 结尾，因为格式已经定义 
了资料的结尾。现在已经很少使用这些格 式了： 

CF _ SYLK 包含 Microsoft 「符号连结」资料格式的整体记忆体块。这种格 
式用在 Microsoft 的 Multiplan 、 Chart 和 Excel 程式之间交换资料，它是一种 
ASCII 码格式，每一行都用 carriage return 和 linefeed 结尾。 

CF _ DIF 包含资料交换格式 ( DIF ) 之资料的整体记忆体块。这种格式是由 
Software Arts 公司提出的，用於把资料送到 VisiCalc 试算表程式中。这也是 
一种 ASCII 码格式，每一行都使用 carriage return 和 linefeed 结尾。 

下面三种剪贴簿格式与点阵图有关。所谓点阵图就是资料位元的矩形阵列， 
其中的资料位元与输出设备的图素相对应。第十四和第十五章将详细讨论点阵 
图以及这些点阵图剪贴簿的 格式： 

CF . BITMAP 与装置相关的点阵图格式。点阵图是通过点阵图代号传送给剪 
贴簿的。同样，在把这个点阵图传送给剪贴簿之後，程式不应该再继续使用这 
个点阵图。 

CF _ DIB 定义一个装置无关点阵图（在第十五章中描述）的记忆体块。这 
种记忆体块是以点阵图资讯结构开始的，後面跟著可用的颜色表和点阵图资料 
位元。 

CF _ PALETTE 调色盘代号。它通常与 CF _ DIB 配合使用，以定义与装置相关 
的点阵图所使用的颜色调色盘。 

在剪贴簿中，还有可能以工业标准的 TIFF 格式储存的点阵图 资料： 

CF _ TIFF 含有标号图像档案格式 ( TIFF ) 资料的整体记忆体块。这种格式由 
Microsoft 、 Aldus 公司和 Hewlett - Packard 公司以及一些硬体厂商推荐使用。 
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这一格式可从 Hewlett - Packard 的网站上获得。 

下面是两个 metafile 格式，我将在第十八章详细讨论。一个 metafile 就 
是一个以二进位格式储存的画图命 令集： 

CF _ METAFILEPICT 以旧的 metafile 格式存放的「图片」。 

CF_ENHMETAFILE 增强型 metafile (32 位元 Windows 支援的）代号。 

最後介绍几个混合型的剪贴簿 格式： 

CF _ PENDATA 与 Windows 的笔式输入扩充功能联合使用。 

CF _ WAVE 声音（波形）档案。 

使用资源交换档案格式 （Resource Interchange File Format ) 

的多媒体资料。 

CF _ HDR 0 P 与拖放服务相关的档案列表。 

记忆体配置 


程式向剪贴簿传输一些资料的时候，必须配置一个记忆体块，并且将这块 
记忆体交给剪贴簿处理。在本书早期的程式中需要配置记忆体时，我们只需使 
用标准 C 执行时期程式库所支援的 malloc 函式。但是，由於在 Windows 中执行 
的应用程式之间必须要共用剪贴簿所储存的记忆体块，这时 malloc 函式就有些 
不适任这项任务了。 

实际上，我们必须把早期 Windows 所开发的记忆体配置函式再拿出来使用， 
那时的作业系统在16位元的实际模式记忆体结构中执行。现在的 Windows 仍然 
支援这些函式，您还可以使用它们，但不是必须使用这些函式就是了。 

要用 Windows API 来配置一个记忆体块，可以呼叫： 

hGlobal = GlobalAlloc (uiFlags , dwSize); 

此函式有两个 参数： 一系列可能的旗标和记忆体块的位元组大小。函式传 
回一个 HGLOBAL 型态的代号，称为「整体记忆体块代号」或「整体代号」。传 
回值为 NULL 表示不能配置足够的记忆体。 

虽然 GlobalAlloc 的两个参数略有不同，但它们都是32位元的无正负号整 
数。如果将第一个参数设定为0,那么您就可以更有效地使用旗标 GMEM _ FIXED 。 
在这种情况下， GlobalAlloc 传回的整体代号实际是指向所配置记忆体块的指 
标。 

如果不喜欢将记忆体块中的每一位元都初始化为0,那么您也能够使用旗标 
GMEM , _ ZER 0 INITo 在 Windows 表头档案中，简洁的 GPTR 旗标定义为 GMEM _ FIXK ) 
和 GMEM _ ZER 0 INIT 旗标的 组合： 

♦define GPTR (GMEM—FIXED | GMEM_ZEROINIT) 

下面是一个重新配置函式： 


第525页 












Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


hGlobal = GlobaIReAlloc (hGlobal, dwSize, uiFlags); 

如果记忆体块扩大了，您可以用 GMEM _ ZEROINIT 旗标将新的位元组设为0。 
下面是获得记忆体块大小的 函式： 

dwSize = GlobalSize (hGlobal); 

释放记忆体块的函式： 

GlobalFree (hGlobal) ; 

在早期16位元的 Windows 中，因为 Windows 不能在实体记忆体中移动记忆 
体块，所以禁止使用 GMEM _ FIXED 旗标。在32位元的 Windows 中， GMEM_FIXED 
旗标很常见。这是因为它将传回一个虚拟位址，并且作业系统也能够通过改变 
记忆体页映射表在实体记忆体中移动记忆体块。因此为16位元的 Windows 写程 
式时， GlobalAlloc 推荐使用 GMEM _ M 0 VEABLE 旗标。在 Windows 的表头档案中还 
定义了一个简写识别字，用此识别字可以在可移动的记忆体之外填0: 

#define GHND (GMEM—MOVEABLE | GMEM—ZEROINIT) 

GMEM _ M 0 VEABLE 旗标允许 Windows 在虚拟记忆体中移动一个记忆体块。这不 
是说将在实体记忆体中移动记忆体块，只是应用程式用於读写这块记忆体的位 
址可以被变动。 

尽管 GMEM _ M 0 VEABLE 是16位元 Windows 的通则，但是它的作用现在已经少 
得多了。如果您的应用程式频繁地配置、重新配置以及释放不同大小的记忆体 
块，应用程式的虚拟位址空间将会变得支离破碎。可以想像得到，最後虚拟记 
忆体位址空间就会被用完。如果这是个可能会发生的问题，那么您将希望记忆 
体是可移动的。下面就介绍如何让记忆体块成为可搬移位置的。 

首先定义一个指标（例如，一个 int 型态的）和一个 GL 0 BALHANDLE 型态的 
变数： 

int * p ; 

GLOBALHANDLE hGlobal ; 

然後配置记忆体。例如： 

hGlobal = GlobalAlloc (GHND, 1024 ) ; 

与处理其他 Windows 代号一样，您不必担心数字的实际意义，只要照著作 
就好了。需要存取记忆体块时，可以 呼叫： 

p = (int *) GlobalLock (hGlobal); 

此函式将代号转换为指标。在记忆体块被锁定期间， Windows 将固定虚拟记 
忆体中的位址，不再移动那块记忆体。存取结束後 呼叫： 

GlobalUnlock (hGlobal) ; 

这将使 Windows 可以在虚拟记忆体中移动记忆体块。要真正确保此程序正 
常运作（体验早期 Windows 程式写作者的痛苦经历），您应该在单一个讯息处 
理期间锁定和解锁记忆体块。 

在释放记忆体时，呼叫 GlobalFree 应使用代号而不是指标。如果您现在不 
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能存取代号，可以使用下面的 函式： 

hGlobal = GlobalHandle (p); 

在解锁之前，您能够多次锁定一个记忆体块。 Windows 保留一个锁定次数， 
而且在记忆体块可被自由移动之前，每次锁定都需要相对应的解锁。当 Windows 
在虚拟记忆体中移动一个记忆体块时，不需要将位元组从一个位置复制到另一 
个，只需巧妙地处理记忆体页映射表。通常，让32位元 Windows 为您的程式配 
置可移动的记忆体块，其唯一确实的理由只是避免虚拟记忆体的空间碎裂出现。 
使用剪贴簿时，也应该使用可移动记忆体。 

为剪贴簿配置记忆体时，您应该以 GMEM_MOVEABLE 和 GMEM_SHARE 旗标呼叫 
GlobalAlloc 函式。 GMEM_SHARE 旗标使得其他应用程式也可以使用那块记忆体。 


将文字传送到剪贴簿 

让我们想像把一个 ANSI 字串传送到剪贴簿上，并且我们已经有了指向这个 
字串的指标 ( pString ) 。现在希望传送这个字串的 iLength 字元，这些字元可能 
以 NULL 结尾，也可能不以 NULL 结尾。 

首先，通过使用 GlobalAlloc 来配置一个足以储存字串的记忆体块，其中 
还包括一个终止字元 NULL ： 

hGlobal = GlobalAlloc (GHND | GMEM — SHARE , iLength + 1); 

如果未能配置到记忆体块， hGlobal 的值将为 NULL 。如果配置成功，则锁 
定这块记忆体，并得到指向它的一个 指标： 

pGlobal = GlobalLock (hGlobal); 

将字串复制到记忆体块中： 

for (i = 0 ; i < wLength ; i++) 

*pGlobal++ = *pString++ ; 

由於 GlobalAlloc 的 GHND 旗标已使整个记忆体块在配置期间被清除为零， 
所以不需要增加结尾的 NULL 。以下叙述为记忆体块 解锁： 

GlobalUnlock (hGlobal) ; 

现在就有了表示以 NULL 结尾的文字所在记忆体块的记忆体代号。为了把它 
送到剪贴簿中，打开剪贴簿并把它清空： 

OpenClipboard (hwnd) ; 

EmptyClipboard () ; 

利用 CF _ TE )( T 识别字把记忆体代号交给剪贴簿，关闭剪 贴簿： 

SetClipboardData (CF_TEXT, hGlobal); 

Closedipboard (); 

工作告一段落。 

下面是关於此过程的一些 规则： 

在处理同一个讯息的过程中呼叫 OpenClipboard 和 CloseClipboard 。 不需 
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要时，不要打开剪贴簿。 

不要把锁定的记忆体代号交给剪贴簿。 

当呼叫 SetClipboardData 後，请不要再继续使用该记忆体块。它不再属於 
使用者程式，必须把代号看成是无效的。如果需要继续存取资料，可以制作资 
料的副本，或从剪贴簿中读取它（如下节所述）。您也可以在 SetClipboardData 
呼叫和 CloseClipboard 呼叫之间继续使用记忆体块，但是不要使用传递给 
SetClipboardData 函式的整体代号。事实上，此函式也传回一个整体代号，必 
需锁定这些代码以存取记忆体。在呼叫 CloseClipboard 之前，应先为此代号解 
锁。 

从剪贴簿上取得文字 

从剪贴簿上取得文字只比把文字传送到剪贴簿上稍微复杂一些。您必须首 
先确定剪贴簿是否含有 CF _ TEXT 格式的资料，最简单的方法是呼叫 

bAvailable = IsClipboardFormatAvailable (CF_TEXT) ; 

如果剪贴簿上含有 CF _ TEXT 资料，这个函式将传回 TRUE (非零）。我们在 
第十章的 P 0 PPAD 2 程式中已使用了这个函式，用它来确定 「 Edit 」 功能表中 
「 Paste 」 项是被启用还是被停用的。 IsClipboardFormatAvailable 是少数几个 
不需先打开剪贴簿就可以使用的剪贴簿函式之一。但是，如果您之後想再打开 
剪贴簿以取得这个文字，就应该再做一次检查（使用同样的函式或其他方法）， 
以便确定 CF _ TEXT 资料是否仍然留在剪贴簿中。 

为了传送出文字，首先打开剪 贴簿： 

OpenClipboard (hwnd) ; 

会得到代表文字的记忆体块 代号： 

hGlobal = GetClipboardData (CF_TEXT); 

如果剪贴簿不包含 CF _ TEXT 格式的资料，此代号就为 NULL 。 这是确定剪贴 
簿是否含有文字的另一种方法。如果 GetClipboardData 传回 NULL ， 则关闭剪贴 
簿，不做其他任何工作。 

从 GetClipboardData 得到的代号并不属於使用者程式 一一 它属於剪贴簿。 
仅在 GetClipboardData 和 CloseClipboard 呼叫之间这个代号才有效。您不能 
释放这个代号或更改它所引用的资料。如果需要继续存取这些资料，必须制作 
这个记忆体块的副本。 

这里有一种将资料复制到使用者程式中的方法。首先，配置一块与剪贴簿 
资料块大小相同的记忆体块，并配置一个指向该块的 指标： 

pText = (char *) malloc (GlobalSize (hGlobal)); 

再次呼叫 hGlobal ，而 hGlobal 是从 GetClipboardData 呼叫传回的整体代 
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号。现在锁定代号，获得一个指向剪贴簿块的指标： 

pGlobal = GlobalLock (hGlobal) ; 

现在就可以复制资料了： 

strcpy (pText, pGlobal) ; 

或者，您可以使用一些简单的 c 程 式码： 

while (*pText++ = *pGlobal++); 

在关闭剪贴簿之前先解锁记忆体块： 

GlobalUnlock (hGlobal) ; 

Closedipboard (); 

现在您有了一个叫做 pText 的指标，以後程式的使用者就可以用它来复制 
文字了。 

打开和关闭剪贴簿 

在任何时候，只有一个程式可以打开剪贴簿。呼叫 OpenClipboard 的作用 
是当一个程式使用剪贴簿时，防止剪贴簿的内容发生变化 。 OpenCl ipboard 传回 
BOOL 值，它说明是否已经成功地打开了剪贴簿。如果另一个应用程式没有关闭 
剪贴簿，那么它就不能被打开。如果每个程式在回应使用者的命令时都尽快地、 
遵守规范地打开然後关闭剪贴簿，那么您将永远不会遇到不能打开剪贴簿的问 
题。 

但是，在不遵守规范程式和优先权式多工环境中，总会发生一些问题。即 
使在您的程式将某些东西放入剪贴簿和使用者启动一个 「 Paste 」 选项期间，您 
的程式并没有失去输入焦点，但是您也不能假定您放入的东西仍然在那里 ，一 
个背景程式有可能已经在这段期间存取过剪贴簿了。 

而且，请留意一个与讯息方块有关的更微妙 问题： 如果不能配置足够的记 
忆体来将内容复制到剪贴簿，那么您可能希望显示一个讯息方块。但是，如果 
这个讯息方块不是系统模态的，那么使用者可以在显示讯息方块期间切换到另 
一个应用程式中。您应该使用系统模态的讯息方块，或者在您显示讯息方块之 
前关闭剪贴簿。 

如果您在显示一个对话方块时将剪贴簿保持为打开状态，那么您还可能遇 
到其他问题，对话方块中的编辑栏位会使用剪贴簿进行文字的剪贴。 

剪贴簿和 Unicode 

迄今为止，我只讨论了用剪贴簿处理 ANSI 文字(每个字元对应一个位元组）。 
我们用 CF _ TEXT 识别字时就是这种格式。您可能对 CF _ OEMTEXT 和 
CF UNICODETEXT 还不熟悉吧。 
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我有一些好 消息： 在处理您所想要的文字格式时，您只需呼叫 
SetClipboardData 和 GetClipboardData，Windows 将处理剪贴簿中所有的文字 
转换。例如，在 Windows NT 中，如果一个程式用 SetClipboardData 来处理 CF _ TE)(T 
剪贴簿资料型态，程式也能用 CF _0 EMTE )( T 呼叫 GetClipboardData 。 同样地，剪 
贴簿也能将 CF _ OEMTEXT 资料转换为 CF _ TEXT 。 

在 Windows NT 中，转换发生在 CFJJNICODETEXT 、 CF_TEXT 和 CF_OEMTEXT 

之间。程式应该使用对程式本身而言最方便的一种文字格式来呼叫 
SetClipboardData 。同样地，程式应该用程式需要的文字格式来呼叫 
GetClipboardData 。 我们已经知道，本书附上的程式在编写时可以带有或不带 
UNICODE 识别字。如果您的程式也依此编写，那么在定义了 UNICODE 识别字之後， 
程式将执行带有 CFJJNICODETEXT 参数的 SetClipboardData 以及 
GetClipboardData 呼叫，而不是 CF _ TEXT 0 

CLIPTEH 程式，如程式 12-1 所示，展示了一种可行的方法。 


程式 12-1 CLIPTEXT 


CLIPTEXT.C 

/* - 

CLIPTEXT.C —— 


The Clipboard and Text 

(c) Charles Petzold, 1998 
- V 


♦include <windows.h> 
♦include "resource.h n 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

#ifdef UNICODE 

♦define CF_TCHAR CF_UNICODETEXT 

TCHAR szDefaultText [ ] = TEXT ("Default Text - Unicode Version"); 

TCHAR szCaption [ ] = TEXT ("Clipboard Text Transfers - Unicode 

Version"); 

#else 

♦define CF_TCHAR CF_TEXT 

TCHAR szDefaultText[] = TEXT ("Default Text - ANSI Version"); 

TCHAR szCaption [ ] = TEXT ("Clipboard Text Transfers - ANSI Version"); 


#endif 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


static TCHAR 

HACCEL 

HWND 

MSG 

WNDCLASS 


szAppName[] = TEXT ( "ClipText"); 

hAccel ; 
hwnd ; 

msg ; 

wndclass ; 
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wndclass.style 

=CS HREDRAW | CS 

VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 



wndclass.cbClsExtra 

=◦; 



wndclass.cbWndExtra 

=◦; 



wndclass.hlnstance 

=hlnstance ; 



wndclass•hicon 

=Loadlcon (NULL, 

IDI APPLICATION); 


wndclass.hCursor 

=LoadCursor (NULL, IDC ARROW); 


wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 


wndclass.IpszMenuName 

=s zAppName ; 



wndclass.IpszClassName 

=s zAppName ; 



if (!RegisterClass (&wndclass)) 

； 



l 

MessageBox 

( NULL, TEXT ("This program requires Windows 

NT !，' ） ， 






szAppName, 

MB 

ICONERROR); 




return 0 ; 

} 




hwnd = CreateWindow (szAppName, szCaption, 



WS OVERLAPPEDWINDOW, 



CW USEDEFAULT, CW USEDEFAULT, 



CW USEDEFAULT, CW USEDEFAULT, 



NULL, 

NULL, hlnstance, NULL); 



ShowWindow (hwnd, iCmdShow); 



UpdateWindow (hwnd); 




hAccel = LoadAccelerators (hlnstance, s zAppName); 



while (GetMessage (&msg, NULL, 0, 0)) 

； 



i 

if (!TranslateAccelerator (hwnd, hAccel, 

f 

&msg)) 



TranslateMessage (&msg); 



} 

DispatchMessage (&msg); 


} 

} 

return msg.wParam ; 



LRESULT CALLBACK WndProc ( 

HWND hwnd, UINT message , WPARAM wParam,LPARAM 

IParam) 

； 



l 

static PTSTR 

pText ; 



BOOL 

bEnable ; 



HGLOBAL 

hGlobal ; 
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HDC 

PTSTR 

PAINTSTRUCT 

RECT 


hdc ; 

pGlobal ; 
ps ; 
rect ; 


switch (message) 

{ 

case WM—CREATE: 

SendMessage (hwnd, WM—COMMAND, IDM—EDIT_RESET, 0); 
return 0 ; 

case WM—INITMENUPOPUP: 

EnableMenuItem ((HMENU) wParam, 

工 DM_EDIT_PASTE, 

IsClipboardFormatAvailable (CF_TCHAR) ? 

MF ENABLED : MF GRAYED); 


bEnable = pText 

? MF ENABLED : MF 

GRAYED ; 


EnableMenuItem 

((HMENU) 

wParam, 

IDM EDIT_CUT a 

bEnable); 

EnableMenuItem 

((HMENU) 

wParam, 

IDM EDIT COPY, 

bEnable); 

EnableMenuItem 

((HMENU) 

wParam, 



IDM_EDIT_CLEAR, bEnable); 

break ; 

case WM_COMMAND : 

switch (LOWORD (wParam)) 

{ 

case IDM_EDIT_PASTE: 

OpenClipboard (hwnd); 


if (hGlobal = GetClipboardData 

(CF_TCHAR)) 

{ 

pGlobal = GlobalLock (hGlobal); 
if (pText) 

{ 

free (pText); 
pText = NULL ; 

} 

pText=malloc (GlobalSize (hGlobal)); 
lstrcpy (pText, pGlobal); 

工 nvalidateRect (hwnd, NULL, TRUE); 

} 

Closedipboard (); 
return 0 ; 
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case 工 DM_EDIT_CUT : 
case IDM_EDIT_COPY: 

if ( IpText) 

return 0 ; 


(TCHAR)); 


hGlobal = GlobalAlloc (GHND | GMEM—SHARE, 

(lstrlen (pText) + 1) * sizeof (TCHAR)); 

pGlobal = GlobalLock (hGlobal); 
lstrcpy (pGlobal, pText); 

GlobalUnlock (hGlobal); 

OpenClipboard (hwnd); 

EmptyClipboard (); 

SetClipboardData (CF_TCHAR, hGlobal); 
Closedipboard (); 

if ( LOWORD (wParam) == IDM—EDIT_COPY) 

return 0 ; 

// fall through for IDM_EDIT_CUT 
case 工 DM_ED 工 T_C L EAR: 

if (pText) 

{ 

free (pText); 
pText = NULL ; 

} 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case IDM_EDIT_RESET: 

if (pText) 

{ 

free (pText); 
pText = NULL ; 

} 

pText = malloc ( (lstrlen (szDefaultText) + 1) * sizeof 

lstrcpy (pText, szDefaultText); 
InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

} 

break ; 


case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 


GetClientRect (hwnd, &rect); 
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if (pText != NULL) 

DrawText (hdc A pText, -l r &rect, DT_EXPANDTABS 

DT_WORDBREAK); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

if ( pText) 

free (pText); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

CLIPTEXT.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

CLIPTEXT MENU DISCARDABLE 
BEGIN 


POPUP "&Edit n 
BEGIN 


MENUITEM "Cu&t\tCtrl+X 
MENUITEM n &Copy\tCtrl+C n , 
MENUITEM n &Paste\tCtrl+V n , 
MENUITEM n De&lete\tDel n , 

MENUITEM SEPARATOR 
MENUITEM n &Reset n , 

END 


, IDM_EDIT_CUT 

工 DM—EDIT—COPY 
IDM—EDIT—PASTE 
IDM_EDIT_CLEAR 

IDM EDIT RESET 


END 


//////////////////////////////////////////////////////////////////////////// 


// Accelerator 

CLIPTEXT ACCELERATORS DISCARDABLE 


BEGIN 

n C n , 

n V n , 

VK—DELETE, 

n X n , 

END 

RESOURCE. H ( 摘录） 


IDM_EDIT_COPY, VIRTKEY, 

工 DM—EDIT_PASTE, VIRTKEY, 

IDM_EDIT_CLEAR, 
IDM EDIT CUT, VIRTKEY, 


CONTROL, NOINVERT 
CONTROL, NOINVERT 
VIRTKEY, NOINVERT 
CONTROL, NOINVERT 
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// Microsoft Developer Studio generated include file. 


// Used 

by ClipText.rc 


#def ine 

I DM 

EDIT 

_CUT 

40001 

#def ine 

I DM 

EDIT 

COPY 

40002 

#def ine 

工 DM 

EDIT 

PASTE 

40003 

#def ine 

IDM 

EDIT 

_CLEAR 

40004 

#def ine 

I DM 

EDIT 

RESET 

40005 


这是在 Windows NT 下执行 Unicode 版和 ANSI 版程式的概念，而且可以看 
到，剪贴簿是如何在两种字元集之间转换的。注意 CLIPTE )( T . C 顶部的 # ifdef 叙 
述。如果定义了 UNICODE 识别字，那么 CF_TCHAR (我命名的一种常用的剪贴簿 
格式）就等於 CFJJNICODETEXT ; 否则，它就等於 CF _ TEXT 。 程式後面呼叫的 
IsClipboardFormatAvailable、GetClipboardData 和 SetClipboardData 函式都 
使用 CF _ TCHAR 来指定资料型态。 

在程式的开始部分（以及您从 「 Edit 」 功能表中选择 「 Reset 」 选项时）， 
静态变数 pText 包含一个指标，在 Unicode 版的程式中，指标指向 Unicode 字 
串 rDefault Text -Unicode version 」； 在非 Unicode 版的程式中，指标指向 
rDefault Text - ANSI version 」 。您可以用 「 Cut 」 或 「 Copy 」 命令将字串 
传递给剪贴簿，用 「 Cut 」 或 「 Delete 」 命令从程式中删除字串。 「 Paste 」 命 
令将剪贴簿中的文字内容复制到 pText 。 在 WM _ PAINT 讯息处理期间， pText 将 
字串显示在程式的显示区域。 

如果您先在 Unicode 版的 CLIPTEXT 中选择了「 Copy 」命令，然後在非 Unicode 
版中选择 「 Paste 」 命令，那么您就能看到文字已经从 Unicode 转换成了 ANSI 。 
类似地，如果您执行相反的操作，那么文字就会从 ANSI 转换成 Unicode 。 

复杂的剪贴簿用法 


我们已经看到，在将资料准备好之後，从剪贴簿传输资料时需要四个呼叫: 


OpenClipboard 

(hwnd); 

EmptyClipboard 

0 ； 

SetClipboardData (iFormat, hGlobal); 

CloseClipboard 

0 ； 

存取这些资料需要三个呼叫 


OpenClipboard (hwnd); 


hGlobal = GetClipboardData 

(iFormat); 

其他行程式 


CloseClipboard (); 



在 GetClipboardData 和 CloseClipboard 呼叫之间，可以复制剪贴簿资料 
或以其他方式来使用它。很多应用程式都需要采用这种方法，但也可以用更复 
杂的方式来使用剪贴簿。 


第535页 






Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


利用多个资料项目 


当打开剪贴簿并把资料传送给它时，必须先呼叫 EmptyClipboard , 通知 
Windows 释放或删除剪贴簿上的内容。不能在现有的剪贴簿内容中附加其他东 
西。所以，从这种意义上说，剪贴簿每次只能保留一个资料项目。 

但是，可以在 EmptyClipboard 和 CloseClipboard 呼叫之间多次呼叫 
SetClipboardData ， 每次都使用不同的剪贴簿格式。例如，如果想在剪贴簿中 
储存一个很短的文字字串，可以把这个文字写入 metafile ， 也可以把这个文字 
写入点阵图。把点阵图选进记忆体装置内容中，并把这个字串写进点阵图中。 
利用这种方法可以使字串不仅能为从剪贴簿上读取文字的程式所使用，也可以 
为从剪贴簿上读取点阵图和 metafile 的程式所使用。当然，这些程式并不能知 
道 metafile 或点阵图实际上包含了一个字串。 

如果想把一些代号写到剪贴簿上，对每个代号均可以呼叫 
SetClipboardData ： 

OpenClipboard (hwnd) ; 

EmptyClipboard (); 

SetClipboardData (CF_TEXT, hGlobalText); 

SetClipboardData (CF_BITMAP, hBitmap); 

SetClipboardData (CF_METAFILEPICT, hGlobalMFP); 

CloseClipboard (); 

当这三种格式的资料同时位於剪贴簿上时，用 CF _ TEXT 、 CF _ BITMAP 或 
CF_METAFILEPICT 参数呼叫 IsClipboardFormatAvailable 将传回 TRUE 。 通过下 
列呼叫程式可以存取这些 代码： 

hGlobalText = GetClipboardData (CF TEXT); 

或 

hBitmap = GetClipboardData (CF BITMAP); 

或 

hGlobalMFP = GetClipboardData (CF—METAFILEPICT); 

下一次程式呼叫 EmptyClipboard 时， Windows 将释放或删除剪贴簿上保留 
的所有三个代号。 

在将不同的文字格式、不同的点阵图格式或者不同的 metafile 格式添加到 
剪贴簿时，不要使用这种技术。只使用一种文字格式、 一 种点阵图格式以及一 
种 metafile 格式。就像我所说的那样， Windows 将在 CF _ TEXT 、 CF _0 EMTE )( T 和 
CFJJNICODETEXT 之间转换，也可以在 CF _ BITMAP 和 CF _ DIB 之间，以及在 
CF_METAFILEPICT 和 CF_ENHMETAFILE 之间进行转换。 

透过首先打开剪贴簿，然後呼叫 EnumClipboardFormats ， 程式可以确定剪 
贴簿储存的所有格式。开始时设定变数 iFormat 为0: 
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iFormat = 0 ; 

OpenClipboard (hwnd); 

现在从 0 值开始逐次进行连续的 EnumClipboardFormats 呼叫。函式将为目 
前在剪贴簿中的每种格式传回一个正的 iFormat 值。当函式传回0时，表示完 

成： 

while (iFormat = EnumClipboardFormats (iFormat)) 

{ 

各个 iFormat 值的处理方式 

} 

Closedipboard (); 

您可以通过下面的呼叫来取得目前在剪贴簿中之不同格式的 个数： 

iCount = CountClipboardFormats (); 


延迟提出 


当把资料放入剪贴簿中时，一般来说要制作一份资料的副本，并将包含这 
份副本的记忆体块代号传给剪贴簿。对非常大的资料项目来说，这种方法会浪 
费记忆体空间。如果使用者不想把资料粘贴到另一个程式里，那么，在被其他 
内容取代之前，它将一直占据著记忆体空间。 


通过使用一种叫做「延迟提出」的技术可以避免这个问题。实际上，直到 
另一个程式需要资料，程式才提供这份资料。为此，不将资料代号传给 Windows ， 
而是在 SetClipboardData 呼叫中使用 NULL ： 


OpenClipboard 

(hwnd); 

EmptyClipboard 

0 ； 

SetClipboardData 

(iFormat, NULL); 

Closed ipboard 

0 ； 


可以有多个使用不同 iFormat 值的 SetClipboardData 呼叫，对其中某些呼 
叫可使用 NULL 值。而对其他一些则使用实际的代号值。 


前面的过程比较简单，以下的过程就要稍微复杂一些了。当另一个程式呼 
叫 GetClipboardData 时， Windows 将检查那种格式的代号是否为 NULL 。 如果是， 

Windows 将给「剪贴簿所有者」（您的程式）发送一个讯息，要求取得资料的实 
际代号，这时您的程式必须提供这个代号。 

更具体地说，「剪贴簿所有者」是将资料放入剪贴簿的最後一个视窗。当 
一个程式呼叫 OpenClipboard 时， Windows 储存呼叫这个函式时所用的视窗代号， 
这个代号标示打开剪贴簿的视窗。一旦收到一个 EmptyClipboard 呼叫 ， Windows 
就使这个视窗作为新的剪贴簿所有者。 

使用延迟提出技术的程式在它的视窗讯息处理程式中必须处理三个 讯息： 
WM _ RENDERFORMAT 、 WM_RENDERALLFORMATS 和 WM _ DESTROYCLIPBOARD 。 当另一个 
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程式呼叫 GetClipboardData 时， Windows 给视窗讯息处理程式发送一个 
WM_RENDERFORMAT 讯息， wParam 的值是所要求的格式。在处理 WM_RENDERFORMAT 
讯息时，不要打开或清空剪贴簿。为 wParam 所指定的格式建立一个整体记忆体 
块，把数据传给它，并用正确的格式和相应代号呼叫 SetClipboardDatao 很明 
显地，为了在处理 WM_RENDERFORMAT 时正确地构造出此资料，需要在程式中保 
留这些资讯。当另一个程式呼叫 EmptyClipboard 时， Windows 给您的程式发送 
一个 WM_DESTROYCLIPBOARD 讯息，告诉您不再需要构造剪贴簿资料的资讯。您 
的程式不再是剪贴簿的所有者。 

如果程式在它自己仍然是剪贴簿所有者的时候就要终止执行，并且剪贴簿 
上仍然包含著该程式用 SetClipboardData 设定的 NULL 资料代号，它将收到 
WM_RENDERALLFORMATS 讯息。这时，应该打开剪贴簿，清空它，把资料载入记忆 
体块中，并为每种格式呼叫 SetClipboardData , 然後关闭剪贴簿。 
WM_RENDERALLFORMATS 讯息是视窗讯息处理程式最後收到的讯息之一。它後面跟 
有 WM_DESTROYCLIPBOARD 讯息（由於已经提出了所有资料），然後是正常的 
WM_DESTROY 讯息。 

如果您的程式只能向剪贴簿传输一种格式的资料（例如文字），那么您可 
以把 WM_RENDERALLFORMATS 和 WM_RENDERFORMAT 处理结合在一起。这些程式码 

应该类似下面 这样： 

case WM_RENDERALLFORMATS : 

OpenClipboard (hwnd); 

EmptyClipboard (); 

// fall through 

case WM—RENDERFORMAT : 

// 将文字放入整体记忆体块 

SetClipboardData (CF_TEXT, hGlobal); 
if (message == WM_RENDERALLFORMATS) 

Closedipboard (); 

return 0 ; 

如果您的程式使用好几种剪贴簿格式，那么您可能想为 wParam 所要求的格 
式处理 WM _ RENDERFORMATo 除非程式在存放构造资料所需的资讯时遇到困难， 
否则不需要处理 WM_DESTROYCLIPBOARD 讯息。 


自订资料格式 


到目前为止，我们仅处理了 Windows 定义的标准剪贴簿资料格式。但是， 
您可能想用剪贴簿来储存「自订资料格式」。许多文书处理程式使用这种技术 
来储存包含著字体和格式化资讯的文字。 

初看之下，这个概念似乎是没有意义的。如果剪贴簿的作用是在应用程式 
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之间传送资料，那么，为什么剪贴簿中要含有只有一个应用程式才能理解的资 
料呢？答案很 简单： 剪贴簿允许在同一个程式的内部（或者可能在一个程式中 
的不同执行实体之间）传送资料。很明显地，这些执行实体能理解它们自己的 
自订资料格式。 

有几种使用自订资料格式的方法。最简单的方法用到一种表面上是标准剪 
贴簿格式（文字、点阵图或 metafile ) 的资料，可是该资料实际上只对您的程 
式有意义。这种情况下，在 SetClipboardData 和 GetClipboardData 呼叫中可 
使用下列 wFormat 值： CF _ DSPTEXT , CF _ DSPBITMAP 、 CF_DSPMETAFILEPICT 或 
CF_DSPENHMETAFILE (字母 DSP 代表「显示器」）。这些格式允许 Windows 按文 
字、点阵图或 metafile 来浏览或显示资料。但是，另一个使用常规的 CF _ TEXT 、 
CF_BITMAP 、 CF_DIB 、 CF_METAFILEPICT 或 CF_ENHMETAFILE 格式呼叫 
GetCl ipboardData 的程式将不能取得这个资料。 

如果用其中一种格式把资料放入剪贴簿中，则必须使用同样的格式读出资 
料。但是，如何知道资料是来自程式的另一个执行实体，还是来自使用其中某 
种资料格式的另一个程式呢？这里有一种方法，可以透过下列呼叫首先获得剪 
贴簿所 有者： 

hwndClipOwner = GetClipboardOwner (); 

然後可以得到此视窗代号的视窗类别 名称： 

TCHAR szClassName [32] ; 

//其他行程式 

GetClassName (hwndClipOwner A szClassName, 32); 

如果类别名称与程式名称相同，那么资料是由程式的另一个执行实体传送 
到剪贴簿中的。 

使用自订资料格式的第二种方法涉及到 CF _ OWNERDISPLAY 旗标。 
SetClipboardData 的整体记忆体代号是 NULL ： 

SetClipboardData (CF_OWNERDISPLAY, NULL); 

这是某些文书处理程式在 Windows 的剪贴簿浏览器的显示区域中显示格式 
化文字时所采用的方法。很明显地，剪贴簿浏览器不知道如何显示这种格式化 
文字。当一个文书处理程式指定 CF _ OWNERDISPLAY 格式时，它也就承担起在剪 
贴簿浏览器的显示区域中绘图的责任。 

由於整体记忆体代号为 NULL ， 所以用 CF _ OWNERDISPLAY 格式（剪贴簿所有 
者）呼叫 SetClipboardData 的程式必须处理由 Windows 发往剪贴簿所有者的延 
迟提出讯息、以及5条附加讯息。这5个讯息是由剪贴簿浏览器发送到剪贴簿 
所有者的： 

WM _ ASKCBFORMATNAME 剪贴簿浏览器把这个讯息发送到剪贴簿所有者，以 
得到资料格式名称。 IParam 参数是指向缓冲区的指标， wParam 是这个缓冲区能 


第539页 










Programming Windows 程式开发设计指南 （ Windows 95 程序设计第五版） 

容纳的最大字元数目。剪贴簿所有者必须把剪贴簿资料格式的名字复制到这个 
缓冲区中。 

WM_SIZECLIPBOARD 这个讯息通知剪贴簿所有者，剪贴簿浏览器的显示区 
域大小己发生了变化。 wPamm 参数是剪贴簿浏览器的代号， IPamm 是指向包含 
新尺寸的 RECT 结构的指标。如果 RECT 结构中都是0,则剪贴簿浏览器退出或最 
小化。尽管 Windows 的剪贴簿浏览器只允许它自己的一个执行实体执行，但其 
他剪贴簿浏览器也能把这个讯息发送给剪贴簿所有者。应付多个剪贴簿浏览器 
并非不可能（假定 wParam 标识特定的浏览器），但剪贴簿所有者处理起来也不 
容易。 

WM_PAINTCLIPBOARD 这个讯息通知剪贴簿所有者修改剪贴簿浏览器的显 
示区域。同时， wPamm 是剪贴簿浏览器视窗的代号， IPamm 是指向 PAINTSTRUCT 
结构的整体指标。剪贴簿所有者可以从此结构的 hdc 栏中得到剪贴簿浏览器装 
置内容的代号。 

WM_HSCROLLCLIPBOARD 和 WM_VSCROLLCLIPBOARD 这两个讯息通知剪贴簿所 

有者，使用者已经卷动了剪贴簿浏览器的卷动列。 wPamm 参数是剪贴簿浏览器 
视窗的代号， IParam 的低字组是卷动请求，并且，如果低字组是 
SB _ THUMBP 0 SITI 0 N , 那么 IParam 的高字组就是滑块位置。 

处理这些讯息比较麻烦，看来并不值得这样做。但是，这种处理对使用者 
来说是有益的。当从文书处理程式把文字复制到剪贴簿时，使用者在剪贴簿浏 
览器的显示区域中看见文字还保持著格式时心里会舒坦些。 

使用私有剪贴簿资料格式的第三种方法是注册自己的剪贴簿格式名。您向 
Windows 提供格式名， Windows 给程式提供一个序号，它可以用作 
SetClipboardData 和 GetClipboardData 的格式参数。一般来说，采用这种方法 

的程式也要以一种标准格式把资料复制到剪贴簿。这种方法允许剪贴簿浏览器 
在它的显示区域中显示资料（没有与 CF_OWNERDISPLAY 相关的冲突），并且允 
许其他程式从剪贴簿上复制资料。 

例如，假定我们已经编写了一个以点阵图格式、 metafile 格式和自己的已 
注册的剪贴簿格式把资料复制到剪贴簿中的向量绘图程式。剪贴簿浏览器将显 
示 metafile 或者点阵图，其他从剪贴簿上读取点阵图和 metafile 的程式将获 
得这几种格式。但是，当我们的向量绘图程式需要从剪贴簿上读数据时，它会 
按照自己已注册的格式复制资料，这是因为这种格式可能包含著比点阵图档案 
或者 metafile 更多的资讯。 

程式透过下面的呼叫来注册一个新的剪贴簿 格式： 

iFormat = RegisterClipboardFormat (szFormatName); 
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iFormat 的值介於 OxCOOO 和 OxFFFF 之间。剪贴簿浏览器（或一个通过呼叫 
EnumC 1 i pb o ar dF or mat s 取得目前所有剪贴簿资料格式的程式）可以取得这种资 
料格式的 ASCII 名称，这是通过下面呼叫实 作的： 

GetClipboardFormatName (iFormat , psBuffer, iMaxCount); 

Windows 将多达 iMaxCount 个字元复制到 psBuffer 中。 

使用这种方法把资料复制到剪贴簿中的程式写作者，可能需要公开资料格 
式名称和实际的资料格式。如果这个程式流行起来，那么其他程式就会以这种 
格式从剪贴簿中复制资料。 

实作剪贴簿浏览器 

监视剪贴簿内容变化的程式称为「剪贴簿浏览器」。您可以在 Windows 中 
得到一个剪贴簿浏览器，但是您也可以编写自己的剪贴簿浏览器程式。剪贴簿 
浏览器通过传递到浏览器视窗讯息处理程式的讯息来监视剪贴簿内容的变化。 

剪贴簿浏览器链 

任意数量的剪贴簿浏览器应用程式都可以同时在 Windows 下执行，它们都 
可以监视剪贴簿内容的变化。但是，从 Windows 的角度来看，只存在一个剪贴 
簿浏览器，我们称之为「目前剪贴簿浏览器」。 Windows 只保留一个识别目前剪 
贴簿浏览器的视窗代号，并且当剪贴簿的内容发生变化时只把讯息发送到那个 
视窗中。 

剪贴簿浏览器应用程式有必要加入「剪贴簿浏览器链」，以便执行的所有 
剪贴簿浏览器都可以收到 Windows 发送给目前剪贴簿浏览器的讯息。当一个程 
式将自己注册为一个剪贴簿浏览器时，它就成为目前的剪贴簿浏览器。 Windows 
把先前的目前浏览器视窗代号交给这个程式，并且此程式将储存这个代号。当 
此程式收到一个剪贴簿浏览器讯息时，它把这个讯息发送给剪贴簿链中下一个 
程式的视窗讯息处理程式。 

剪贴簿浏览器的函式和讯息 

程式透过呼叫 SetClipboardViewer 函式可以成为剪贴簿浏览器链的一部 
分。如果程式的主要作用是作为剪贴簿浏览器，那么这个程式在 WM_CREATE 讯 
息处理期间可以呼叫这个函式，该函式传回前一个目前剪贴簿浏览器的视窗代 
号。程式应该把这个代号储存在静态变 数中： 

static HWND hwndNextViewer ; 

// 其他行程式 
case WM CREATE : 
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//其他行程式 

hwndNextViewer = SetClipboardViewer (hwnd) ; 

如果在 Windows 的一次执行期间，您的程式成为剪贴簿浏览器的第一个程 
式，那么 hwndNextViewer 将为 NULL 。 

不管剪贴簿中的内容怎样变化， Windows 都将把 WM _ DRAWCLIPBOARD 讯息发 

送给目前的剪贴簿浏览器（最近注册为剪贴簿浏览器的视窗）。剪贴簿浏览器 
链中的每个程式都应该用 SendMessage 把这个讯息发送到下一个剪贴簿浏览器。 
浏览器链中的最後一个程式（第一个将自己注册为剪贴簿浏览器的视窗）所储 
存的 hwndNextViewer 为 NULL 。 如果 hwndNextViewer 为 NULL ， 那么程式只简单 

地将控制项权还给系统而已，而不向其他程式发送任何讯息（不要把 
WM_DRAWCLIPBOARD 讯息和 WM_PAINTCLIPBOARD 讯息混淆了。 WM_PAINTCLIPBOARD 

是由剪贴簿浏览器发送给使用 CFJ 3 WNERDISPLAY 剪贴簿资料格式的程式，而 WM _ 
DRAWCLIPBOARD 讯息是由 Windows 发往目前剪贴簿浏览器的）。 

处理 WM _ DRAWCLIPBOARD 讯息的最简单方法是将讯息发送给下一个剪贴簿浏 
览器（除非 hwndNextViewer 为 NULL ) ，并使视窗的显示区域无效： 

case WM—DRAWCLIPBOARD : 

if ( hwndNextViewer) 

SendMessage (hwndNextViewer A message, wParam, IParam); 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

在处理 WM PAINT 讯息处理期间，通过使用常规的 OpenClipboard 、 
GetClipboardData 和 CloseClipboard 呼叫可以读取剪贴簿的内容。 

当某个程式想从剪贴簿浏览器链中删除它自己时，它必须呼叫 
ChangedipboardChain 。 这个函式接收脱离浏览器链的程式之视窗代号，和下 
一个剪贴簿浏览器的视窗代号： 

ChangedipboardChain (hwnd, hwndNextViewer); 

当程式呼叫 ChangedipboardChain 时 ， Windows 发送 WM_CHANGECBCHAIN 讯 
息给目前的剪贴簿浏览器。 wParam 参数是从链中移除它自己的那个浏览器视窗 
代号 （ ChangeClipboardChain 的第一个参数）， IParam 是从链中移除自己後的 
下一个剪贴簿浏览器的视窗代号 （ ChangeClipboardChain 的第二个参数）。 

当程式接收到 WM _ CHANGECBCHAIN 讯息时，必须检查 wParam 是否等於已经 
储存的 hwndNextViewer 的值。如果是这样，程式必须设定 hwndNextViewer 为 
IParam 。 这项工作保证将来的 WM _ DRAWCLIPBOARD 讯息不会发送给从剪贴簿浏览 
器链中删除了自己的视窗。如果 wParam 不等於 hwndNextViewer ,并且 
hwndNextViewer 不为 NULL ， 则把讯息送到下一个剪贴簿浏览器。 

case WM CHANGECBCHAIN : 
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if ( (HWND) wParam == hwndNextViewer) 

hwndNextViewer = (HWND) IParam ; 


else if (hwndNextViewer) 

SendMessage 


IParam); 

return 0 ; 


(hwndNextViewer, message, wParam, 


不一定要使用 else if 叙述，它只用於保证 hwndNextViewer 为非 NULL 的 
值。 hwndNextViewer 的值为 NULL 时，执行这段程式码的程式就是链中最後一个 
浏览器，而这是不可能的。 

当程式快结束时，如果它仍然在剪贴簿浏览器链中，则必须从链中删除它。 
您可以在处理 WM_DESTROY 讯息时呼叫 ChangedipboardChain 来完成这项工作。 

case WM—DESTROY : 

ChangedipboardChain (hwnd, hwndNextViewer); 

PostQuitMessage (0); 
return 0 ; 

Windows 还有一个允许程式获得第一个剪贴簿浏览器视窗代号的 函式： 

hwndViewer = GetClipboardViewer () ; 

一般来说不需要这个函式。如果没有目前的剪贴簿浏览器，则传回值为 


NULL 。 

下面是一个说明剪贴簿浏览器链如何工作的例子。当 Windows 刚启动时， 
目前剪贴簿浏览器是 NULL : 

剪贴簿浏览器： NULL 

一 个具有 hwndl 视窗代号的程式呼叫 SetClipboardViewer 0 这个函式传回 
的 NULL 成为这个程式中的 hwndNextViewer 值： 

目前剪贴簿浏 览器： hwndl 
hwnd 1的下一个浏 览器： NULL 

第二个具有 hwnd 2 视窗代号的程式呼叫 SetClipboardViewer ,并传回 
hwndl ： 

目前的剪贴簿浏 览器： hwnd 2 
hwnd 2 的下一 * 个浏览器： hwndl 
hwnd 1的下一个浏 览器： NULL 

每三个程式 （ hwnd 3) 和第四个程式 ( hwnd 4) 也呼叫 SetClipboardViewer ， 
并且传回 hwnd 2 和 hwnd 3： 

目前的剪贴簿浏 览器： hwnd 4 
hwnd 4 的下一 * 个浏览器： hwnd 3 
hwnd 3的下一 * 个浏览器： hwnd 2 
hwnd 2 的下一 * 个浏览器 ： hwndl 
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hwnd 1的下一个浏 览器 ： NULL 

当剪贴簿的内容发生变化时， Windows 发送一个 WM _ DRAWCLIPBOARD 讯息给 
hwnd 4， hwnd 4发送讯息给 hwnd 3， hwnd 3发送讯息给 hwnd 2， hwnd 2 发送讯息给 
hwndl , hwndl 传回。 

现在 hwnd 2 决定通过下列呼叫从链中删除自己： 

ChangedipboardChain ( hwnd 2, hwndl ); 

Windows 将 wParam 等於 hwnd 2、1 Par am 等於 hwndl 的 WM_CHANGECBCHAIN 讯 
息发送给 hwnd 4。 由於 hwnd 4 的下一个测览器是 hwnd 3, 所以 hwnd 4 把这个讯息 
传给 hwnd 3。 现在 hwnd 3 注意到 wParam 等於它的下一个测览器 ( hwnd 2) ，所以将 
下一个浏览器设定为1 Par am ( hwndl ) 并且传回。这样工作就完成了。现在剪贴 
簿浏览器链 如下： 

目前剪贴簿浏览器： hwnd 4 
hwnd 4的下一 * 个浏览器： hwnd 3 
hwnd 3的下一 * 个浏览器 ： hwndl 
hwnd 1的下一个浏 览器 ： NULL 

一个简单的剪贴簿浏览器 


剪贴簿浏览器不一定要像 Windows 所提供的那样完善，例如，剪贴簿浏览 
器可以只显示一种剪贴簿资料格式。程式 12-2 中所示的 CLIPVIEW 程式是一种 
只能显示 CF _ TEXT 格式的剪贴簿浏览器。 


程式 12-2 CLIPVIEW 


CLIPVIEW.C 

/* - 



CLIPVIEW.C -- 

Simple Clipboard Viewer 

(c) Charles Petzold, 1998 

—V 


♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain ( HINSTANCE hlnstance, HINSTANCE hPrevInstance 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("ClipView"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 


CS_HREDRAW | CS_VREDRAW 
WndProc ; 
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wndclass.cbClsExtra 

=◦; 


wndclass.cbWndExtra 

= 0 ; 


wndclass.hlnstance 

=hlnstance ; 


wndclass•hicon 

=Loadlcon (NULL, IDI APPLICATION); 

wndclass.hCursor 

=LoadCursor (NULL, 

IDC ARROW); 

wndclass.hbrBackground 

=(HBRUSH) GetStockObject 

(WHITE BRUSH); 

wndclass.IpszMenuName 

=NULL ; 


wndclass.IpszClassName 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 

/ 


MessageBox 

( NULL, TEXT ("This program 

requires Windows 

NT ! n ), 

szAppName, MB ICONERROR); 


return 0 ; 

} 



hwnd = CreateWindow (szAppName, 



TEXT ("Simple Clipboard Viewer (Text Only) n ), 

WS OVERLAPPEDWINDOW, 

CW USEDEFAULT, CW USEDEFAULT, 

CW USEDEFAULT, CW USEDEFAULT, 


NULL, 

NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 


UpdateWindow (hwnd); 



while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 


i 

return msg.wParam ; 

} 



LRESULT CALLBACK WndProc 

( HWND hwnd, UINT message, WPARAM wParam, LPARAM 

IParam) 

f 



static HWND hwndNextViewer ; 


HGLOBAL 

hGlobal ; 


HDC 

hdc ; 


PTSTR 

pGlobal ; 


PAINTSTRUCT 

ps ; 


RECT 

rect ; 


switch (message) 

{ 

case WM CREATE : 
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hwndNextViewer = SetClipboardViewer (hwnd) ; 
return 0 ; 


case WM_CHANGECBCHAIN : 

if ((HWND) wParam == hwndNextViewer) 

hwndNextViewer = (HWND) IParam ; 


else if 

wParam, IParam); 


(hwndNextViewer) 

SendMessage (hwndNextViewer, message. 


return 0 ; 

case WM—DRAWCLIPBOARD: 

if (hwndNextViewer) 

SendMessage (hwndNextViewer A message, wParam, 


IParam); 


InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 


case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 
GetClientRect (hwnd, &rect); 
OpenClipboard (hwnd); 


#ifdef UNICODE 

#else 

#endif 


hGlobal = GetClipboardData (CF_UNICODETEXT); 

hGlobal = GetClipboardData (CF_TEXT); 

if (hGlobal != NULL) 

{ 

pGlobal = (PTSTR) GlobalLock (hGlobal); 

DrawText (hdc, pGlobal, -1, &rect, DT_EXPANDTABS); 
GlobalUnlock (hGlobal); 


Closedipboard (); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

ChangeClipboardChain (hwnd, hwndNextViewer); 
PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 
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CLIPVIEW 依上面所讨论的方法来处理 WM _ CREATE 、 WM _ CHANGECBCHAIN 、 
WM _ DRAWCLIPBOARD 和 WM _ DESTROY 讯息。 WM _ PAINT 讯息处理打开剪贴簿，并用 
CF _ TEXT 格式呼叫 GetClipboardDatac 如果函式传回一个整体记忆体代号，那 
么 CLIPVIEW 将锁定它，并用 DrawText 在显示区域显示文字。 

处理标准格式（如 Windows 提供的那个剪贴簿一样）以外的资料格式的剪 
贴簿浏览器还需要完成一些其他工作，比如显示剪贴簿中目前所有资料格式的 
名称。使用者可以通过呼叫 EnumCl ipboardFormats 并使用 
GetCl ipboardFormatName 得到非标准资料格式名称来完成这项工作。使用 
CF _ OWNERDISPLAY 资料格式的剪贴簿浏览器必须把下面四个讯息送往剪贴簿资 

料的拥有者以显示该资料： 

• WM_PAINTCLIPBOARD 

• WM_SIZECLIPBOARD 

• WM_VSCROLLCLIPBOARD 

• WM_HSCROLLCLIPBOARD 

如果您想编写这样的剪贴簿浏览器，那么必须使用 GetClipboardOwner 获 
得剪贴簿所有者的视窗代号，并当您需要修改剪贴簿的显示区域时，将这些讯 
息发送给该视窗。 
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第十三章使用印表机 

为了处理文字和图形而使用视讯显示器时，装置无关的概念看来非常完美， 
但对於印表机，装置无关的概念又怎样呢？ 

总的说来，效果也很好。在 Windows 程式中，用於视讯显示器的 GDI 函式 
一样可以在印表纸上列印文字和图形，在以前讨论的与装置无关的许多问题（多 
数都与平面显示的尺寸、解析度以及颜色数有关）都可以用相同的方法解决。 
当然，一台印表机不像使用阴极射线管的显示器那么简单，它们使用的是印表 
纸。它们之间有一些比较大的差异。例如，我们从来不必考虑视讯显示器没有 
与显示卡连结好，或者显示器出现「萤幕空间不够」的错误，但印表机 off line 
和缺纸却是经常会遇到的问题。 

我们也不必担心显示卡不能执行某些图形操作，更不用担心显示卡能否处 
理图形，因为，如果它不能处理图形，就根本不能使用 Windows 。 但有些印表机 
不能列印图形（尽管它们能在 Windows 环境中使用）。绘图机尽管可以列印向 
量图形，却存在位元图块的传输问题。 

以下是其他一些需要考虑的问题： 

• 印表机比视讯显示器慢。尽管我们没有机会将程式性能调整到最佳状 
态，却不必担心视讯显示器更新所需的时间。然而，没有人想在做其他 
工作前一直等待印表机完成列印任务。 

• 程式可以用新的输出覆盖原有的显示输出，以重新使用视讯显示器表 
面。这对印表机是不可能的，印表机只能用完一整页纸，然後在新一页 
的纸上列印新的内容。 

• 在视讯显示器上，不同的应用程式都被视窗化。而对於印表机，不同应 
用程式的输出必须分成不同的文件或列印作业。 

为了在 GDI 的其余部分中加入印表机支援功能， Windows 提供几个只用於印 
表机的函式。这些限用在印表机上的函式 （ StartDoc 、 EndDoc 、 StartPage 和 
EndPage ) 负责将印表机的输出组织列印到纸页上。而一个程式呼叫普通的 GDI 
函式在一张纸上显示文字和图形，和在萤幕上显示的方式一样。 

在第十五、十七和十八章有列印点阵图、格式化的文字以及 metafile 的其 
他资讯。 

列印入门 

当您在 Windows 下使用印表机时，实际上启动了一个包含 GDI 32 动态连结 
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程式库模组、列印驱动程式动态连结模组（带 . DRV 副档名）、 Windows 幕後列 
印程式，以及有用到的其他相关模组。在写印表机列印程式之前，让我们先看 
一 看这个程序是如何进行的。 

列印和背景处理 

当应用程式要使用印表机时，它首先使用 CreateDC 或 PrintDlg 来取得指 
向印表机装置内容的代号，於是使得印表机装置驱动程式动态连结程式库模组 
被载入到记忆体（如果还没有载入记忆体的话）并自己进行初始化。然後，程 
式呼叫 StartDoc 函式，通知说一个新文件开始了。 StartDoc 函式是由 GDI 模组 
来处理的， GDI 模组呼叫印表机装置驱动程式中的 Control 函式告诉装置驱动程 
式准备进行列印。 

列印一个文件的程序以 StartDoc 呼叫开始，以 EndDoc 呼叫结束。这两个 
呼叫对於在文件页面上书写文字或者绘制图形的 GDI 命令来说，其作用就像分 
隔页面的书挡一样。每页本身是这样来划清界限的：呼叫 StartPage 来开始一 
页，呼叫 EndPage 来结束该页。 

例如，如果应用程式想在一页纸上画出一个椭圆，它首先呼叫 StartDoc 开 
始列印任务，然後再呼叫 StartPage 通知这是新的一页，接著呼叫 Ellipse ， 正 
如同在萤幕上画一个椭圆一样。 GDI 模组通常将程式对印表机装置内容做出的 
GDI 呼叫储存在磁片上的 metafile 中，该档案名以字串 ~EMF (代表「增强型 
metafile 」） 开始，且以 . TMP 为副档名。然而，我在这里应该指出，印表机驱 
动程式可能会跳过这一步骤。 

当绘制第一页的 GDI 呼叫结束时，应用程式呼叫 EndPage 。 现在，真正的工 
作开始了。印表机驱动程式必须把存放在 metafile 中的各种绘图命令翻译成印 
表机输出资料。绘制一页图形所需的印表机输出资料量可能非常大，特别是当 
印表机没有高级页面制作语言时，更是如此。例如，一台每英寸600点且使用 
8.5 11英寸印表纸的雷射印表机，如果要定义一个图形页，可能需要4百万以 
上位元组的资料。 

为此，印表机驱动程式经常使用一种称作「列印分带」的技术将一页分成 
若干称为「输出带」的矩形。 GDI 模组从印表机驱动程式取得每个输出带的大小， 
然後设定一个与目前要处理的输出带相等的剪裁区，并为 metafile 中的每个绘 
图函式呼叫印表机装置驱动程式的 Output 函式，这个程序叫做「将 metafile 
输出到装置驱动程式」。对装置驱动程式所定义的页面上的每个输出带， GDI 模 
组必须将整个 metafi 1 e 「输出到」装置驱动程式。这个程序完成以後，该 metafile 
就可以删除了。 
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对每个输出带，装置驱动程式将这些绘图函式转换为在印表机上列印这些 
图形所需要的输出资料。这种输出资料的格式是依照印表机的特性而异的。对 
点阵印表机，它将是包括图形序列在内的一系列控制命令序列的集合（印表机 
驱动程式也能呼叫在 GDI 模组中的各种 「 helper 」 辅助常式，用来协助这种输 
出的构造）。对於带有高阶页面制作语言（如 PostScript ) 的雷射印表机，印 
表机将用这种语言进行输出。 

列印驱动程式将列印输出的每个输出带传送到 GDI 模组。随後， GDI 模组将 
该列印输出存入另一个暂存档案中，该暂存档案名以字串 ~ SPL 开始，带有 .TMP 
副档名。当处理好整页之後， GDI 模组对幕後列印程式进行一个程序间呼叫，通 
知它一个新的列印页已经准备好了。然後，应用程式就转向处理下一页。当应 
用程式处理完所有要列印的输出页後，它就呼叫 EndDoc 发出一个信号，表示列 
印作业已经完成。图 13-1 显示了应用程式、 GDI 模组和列印驱动程式的交互作 
用程序。 



(見 W 13-2} 广 > 

列印 

工作描述檔 


图 13-1 应用程式、 GDI 模组、列印驱动程式和列印伫列程式的交互作用过程 
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Windows 幕後列印程式实际上是几个元件的一种组合（见表 13-1) 。 


表 13-1 


列印伫列程式元件 

说明 

列印请求伫列程式 

将资料流程传递给列印功能提供者 

本地列印功能提供者 

为本地印表机建立背景档案 

网路列印功能提供者 

为网路印表机建立背景档案 

列印处理程式 

将列印伫列中与装置无关的资料转换为针对目的印表机的格式 

列印埠监视程式 

控制项连结印表机的埠 

列印语言监视程式 

控制项可以双向通讯的印表机，设定装置设定并检测印表机状态 


列印伫列程式可以减轻应用程式的列印负担。 Windows 在启动时就载入列 
印伫列程式，因此，当应用程式开始列印时，它已经是活动的了。当程式列印 
一个档案时， GDI 模组会建立包含列印输出资料的档案。幕後列印程式的任务是 
将这些档案发往印表机。 GDI 模组发出一个讯息来通知它一个新的列印作业开 
始，然後它开始读档案并将档案直接传送到印表机。为了传送这些档案，列印 
伫列程式依照印表机所连结的并列埠或串列埠使用各种不同的通信函式。在列 
印伫列程式向印表机发送档案的操作完成後，它就将包含输出资料的暂存档案 
删除。这个交互作用过程如图 13-2 所示。 
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列印工作 



图 13-2 幕後列印程式的操作程序 


这个程序的大部分对应用程式来说是透明的。从应用程式的角度来看，「列 
印」只发生在 GDI 模组将所有列印输出资料储存到磁片档案中的时候，在这之 
後（如果列印是由第二个执行绪来操作的，甚至可以在这之前）应用程式可以 
自由地进行其他操作。真正的档案列印操作成了幕後列印程式的任务，而不是 
应用程式的任务。通过印表机档案夹，使用者可以暂停列印作业、改变作业的 
优先顺序或取消列印作业。这种管理方式使应用程式能更快地将列印资料以即 
时方式列印，况且这样必须等到列印完一页後才能处理下一页。 

我们已经描述了一般的列印原理，但还有一些例外情况。其中之一是 
Windows 程式要使用印表机时，并非一定需要幕後列印程式。使用者可以在印表 
机属性表格的详细资料属性页中关闭印表机的背景操作。 

为什么使用者希望不使用背景操作呢？因为使用者可能使用了比 Windows 
列印伫列程式更快的硬体或软体幕後列印程式，也可能是印表机在一个自身带 
有列印伫列器的网路上使用。 一 般的规则是，使用一个列印伫列程式比使用两 
个列印伫列程式更快。去掉 Windows 幕後列印程式可以加快列印速度，因为列 
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印输出资料不必储存在硬碟上，而可以直接输出到印表机，并被外部的硬体列 
印伫列器或软体的幕後列印程式所接收。 

如果没有启用 Windows 列印伫列程式， GDI 模组就不把来自装置驱动程式的 
列印输出资料存入档案中，而是将这些输出资料直接输出到列印输出埠。与列 
印伫列程式进行的列印不同， GDI 进行的列印一定会让应用程式暂停执行一段时 
间（特别是进行列印中的程式）直到列印完成。 

还有另一个例外。通常， GDI 模组将定义一页所需的所有函式存入一个增强 
型 metafile 中，然後替驱动程式定义的每个列印输出带输出一遍该 metafile 
到列印驱动程式中。然而，如果列印驱动程式不需要列印分带的话，就不会建 
立这个 metafile ； GDI 只需简单地将绘图函式直接送往驱动程式。进一步的变 
化是，应用程式也可能得承担起对列印输出资料进行列印分带的责任，这就使 
得应用程式中的列印程式码更加复杂了，但却免去了 GDI 模组建立 metafile 的 
麻烦。这样， GDI 只需简单地为每个输出带将函式传到列印驱动程式。 

或许您现在已经发现了从一个 Windows 应用程式进行列印操作要比使用视 
讯显示器的负担更大，这样可能出现一些问题——特别是，如果 GDI 模组在建 
立 metafile 或列印输出档案时耗尽了磁碟空间。您可以更关切这些问题，并尝 
试著处理这些问题并告知使用者，或者您当然也可以置之不理。 

对於一个应用程式，列印文件的第一步就是如何取得印表机装置的内容。 

印表机装置内容 

正如在视讯显示器上绘图前需要得到装置内容代号一样，在列印之前，使 
用者必须取得一个印表机装置内容代号。一旦有了这个代号（并为建立一个新 
文件呼叫了 StartDoc 以及呼叫 StartPage 开始一页），就可以用与使用视讯显 
示装置内容代号相同的方法来使用印表机装置内容代号，该代号即为各种 GDI 
呼叫的第一个参数。 

大多数应用程式经由呼叫 PrintDlg 函式打开一个标准的列印对话方块（本 
章後面会展示该函式的用法）。这个函式还为使用者提供了一个在列印之前改 
变印表机或者指定其他特性的机会。然後，它将印表机装置内容代号交给应用 
程式。该函式能够省下应用程式的一些工作。然而，某些应用程式(例如 Notepad ) 
仅需要取得印表机装置内容，而不需要那个对话方块。要做到这一点，需要呼 
叫 CreateDC 函式。 

在第五章中，您已知道如何通过如下的呼叫来为整个视讯显示器取得指向 
装置内容的 代号： 

hdc = CreateDC (TEXT ("DISPLAY ”）， NULL, NULL, NULL); 
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您也可以使用该函式来取得印表机装置内容代号。然而，对印表机装置内 
容， CreateDC 的一般语 法为： 

hdc = CreateDC (NULL, szDeviceName, NULL, plnitializationData); 

plnitializationData 参数一'般被设为 NULL。szDeviceName 参数指向一'个 
字串，以告诉 Windows 印表机设备的名称。在设定设备名称之前，您必须知道 
有哪些印表机可用。 

一 个系统可能有不只一台连结著的印表机，甚至可以有其他程式，如传真 
软体，将自己伪装成印表机。不论连结的印表机有多少台，都只能有一台被认 
为是「目前的印表机」或者「内定印表机」，这是使用者最近一次选择的印表 
机。许多小型的 Windows 程式只使用内定印表机来进行列印。 

取得内定印表机装置内容的方式不断在改变。目前，标准的方法是使用 
EnumPrinters 函式来获得。该函式填入一个包含每个连结著的印表机资讯的阵 
列结构。根据所需的细节层次，您还可以选择几种结构之一作为该函式的参数。 
这些结构的名称为 PRINTER _ INFO _ x ， x 是一个数字。 

不幸的是，所使用的函式还取决於您的程式是在 Windows 98上执行还是在 
Windows NT 上执行。程式 13-1 展示了 GetPrinterDC 函式在两种作业系统上工 
作的用法。 


程式 13-1 GETPRNDC 


GETPRNDC.C 

卜 - 

GETPRNDC.C —— GetPrinterDC function 



♦include <windows.h> 
HDC GetPrinterDC (void) 


DWORD 

HDC 

PRINTER_INF0_4 * pinfo4 ; 

PRINTER INFO 5 * pinfo5 ; 


dwNeeded, dwReturned ; 
hdc ; 


if (GetVersion () & 0x80000000) // Windows 98 

{ 

EnumPrinters (PRINTER—ENUM—DEFAULT, NULL, 5, NULL, 

◦, &dwNeeded, &dwReturned); 

pinfo5 = malloc (dwNeeded); 

EnumPrinters (PRINTER_ENUM_DEFAULT, NULL, 5, (PBYTE) 

pinfo5, 

dwNeeded, &dwNeeded, &dwReturned); 

hdc = CreateDC (NULL, pinfo5->pPrinterName, NULL, NULL); 
free (pinfo5); 
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} 

else 


/ /Windows NT 


i 

EnumPrinters (PRINTER ENUM LOCAL, NULL, 4, NULL, 


0 , &dwNeeded, &dwReturned); 


pinfo4 = malloc (dwNeeded); 

EnumPrinters (PRINTER ENUM LOCAL, NULL, 4, (PBYTE) 

pinfo4, 

dwNeeded, &dwNeeded, &dwReturned); 


hdc = CreateDC (NULL, pinfo4->pPrinterName, NULL, NULL); 


free (pinfo4); 

j 

return hdc 

} 

• 

F 


这些函式使用 GetVersion 函式来确定程式是执行在 Windows 98上还是 
Windows NT 上。不管是什么作业系统，函式呼叫 EnumPrinters 两次： 一 次取得 
它所需结构的大小，一次填入结构。在 Windows 98上，函式使用 PRINTER _ INF 0_5 
结构； 在 Windows NT 上，函式使用 PRINTER _ INF 0_4 结构。这些结构在 
EnumPrinters 文件 (/Platform SDK/Graphics and Multimedia 
Services / GDI/Printing and Print Spooler/Printing and Print Spooler 
Reference/Printing and Print Spooler Functions / EnumPrinters , 范例小节 
的前面）中有说明，它们是「容易而快速」的。 

修改後的 DEVCAPS 程式 

第五章的 DEVCAPS 1程式只显示了从 GetDeviceCaps 函式获得的关於视讯显 
示的基本资讯。程式 13-2 所示的新版本显示了关於视讯显示和连结到系统之所 
有印表机的更多资讯。 


程式 13-2 DEVCAPS 2 


DEVCAPS2.C 




卜 - 




DEVCAPS2.C -- 

Displays Device Capability Information (Version 2) 

/ 

♦include <windows.h> 

♦include "resource.h" 


(c) 

Charles Petzold, 1998 

* 

LRESULT CALLBACK WndProc 

(HWND, UINT 

,WPARAM, 

LPARAM); 

void DoBasicInfo 

(HDC, 

HDC, int, 

int); 

void DoOtherlnfo 

(HDC, 

HDC, int, 

int); 
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void DoBitCodedCaps 


(HDC, HDC, int, int, int); 


typedef struct 


int iMask ; 

TCHAR * szDesc ; 


BITS ; 

#define 工 DM—DEVMODE 1000 

int WINAPI WinMain (HINSTANCE hlnstance. 


iCmdShow) 


HINSTANCE hPrevInstance, 

PSTR szCmdLine, 


static TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName[] = TEXT ("DevCaps2"); 

hwnd ; 


msg ; 

wndclass ; 


int 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=szAppName ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows 

NT! n ), 

szAppName, 

MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow (szAppName, NULL, 

WS_OVERLAPPEDWINDOW, 
CW_USEDEFAULT, CW_USEDEFAULT, 
CW—USEDEFAULT, CW_USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 
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{ 

TranslateMessage (&msg); 




DispatchMessage (&msg); 


} 

J 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 

IParam) 

f 




static TCHAR 

szDevice[32], s zWindowText[64]; 



static int 

cxChar, cyChar, nCurrentDevice 

— 

I DM 

SCREEN, 




nCurrentlnfo 

=IDM BASIC ; 



static DWORD 

dwNeeded, dwReturned ; 



static PRINTER 

INFO 4 * pinfo4 ; 



static PRINTER 

INFO 5 * pinfo5 ; 



DWORD 

i ； 



HDC 

hdc, hdclnfo ; 



HMENU 

hMenu ; 



HANDLE 

hPrint ; 



PAINTSTRUCT 

ps ; 



TEXTMETRIC 

tm ; 



switch (message) 

； 



l 

case WM—CREATE 

• 

• 




hdc = GetDC (hwnd); 



SelectObject (hdc, GetStockObject (SYSTEM—FIXED—FONT)) 
GetTextMetrics (hdc, &tm); 

• 



cxChar = tm.tmAveCharWidth ; 

cyChar = tm.tmHeight + tm.tmExternalLeading ; 

ReleaseDC (hwnd, hdc); 


// 

fall through 




case WM SETTINGCHANGE: 




hMenu = GetSubMenu (GetMenu (hwnd), 0); 




while (GetMenuItemCount (hMenu) > 1) 




DeleteMenu (hMenu, 1, MF BYPOSITION); 




// Get a list of all local and remote printers 



// 

// First, find out how large an array we need; 

this 



// call will fail, leaving the required size in 

dwNeeded 



it 


// 

// Next, allocate space for the info array and 

fill 
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// 

// Put the printer names on the menu 


if (GetVersion () & 0x80000000) 


Windows 98 


// 


EnumPrinters (PRINTER—ENUM—LOCAL 
◦, &dwNeeded, &dwReturned); 


NULL, 5, NULL, 


pinfo5 = malloc (dwNeeded); 


pinfo5, 


EnumPrinters (PRINTER_ENUM_LOCAL, NULL, 5, (PBYTE) 
dwNeeded, &dwNeeded, &dwReturned); 


for (i = 0 ; i < dwReturned ; i++) 

{ 

AppendMenu (hMenu, (i+1) % 16 ? 0 

MF MENUBARBREAK, i+1. 


pinfo5[i].pPrinterName); 

} 

free (pinfo5); 

} 

else 

/ / Windows NT 

{ 


EnumPrinters (PRINTER_ENUM—LOCAL, NULL, 4, NULL, 
◦, &dwNeeded, &dwReturned); 

pinfo4 = malloc (dwNeeded); 

EnumPrinters (PRINTER ENUM LOCAL, NULL, 4, (PBYTE) 


pinfo4, 



dwNeeded, &dwNeeded, &dwReturned); 

for (i = 0 ; i < dwReturned ; i++) 

{ 

AppendMenu (hMenu, (i + 1) % 16 ? 0 : MF—MENUBARBREAK, 
pinfo4[i]•pPrinterName); 
free (pinfo4); 


AppendMenu (hMenu, MF_SEPARATOR, ◦, NULL); 

AppendMenu (hMenu, ◦, IDM DEVMODE, TEXT ("Properties")); 


wParam = IDM—SCREEN ; 

// fall through 

case WM COMMAND : 
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hMenu = GetMenu (hwnd) ; 


Printers 


Properties selection 


szDevice, 


if ( LOWORD (wParam) == IDM—SCREEN || // IDM_SCREEN& 

LOWORD (wParam) < 工 DM—DEVMODE) 

{ 

CheckMenuItem (hMenu, nCurrentDevice, MF_UNCHECKED); 
nCurrentDevice = LOWORD (wParam); 

CheckMenuItem (hMenu, nCurrentDevice, MF_CHECKED); 

} 

else if (LOWORD (wParam) == IDM DEVMODE) // 


GetMenuString (hMenu, nCurrentDevice, 
sizeof (szDevice) / sizeof (TCHAR), MF BYCOMMAND); 


NULL)) 


// info menu items 

{ 

MF UNCHECKED); 


MF CHECKED); 


if (OpenPrinter (szDevice, &hPrint, 

{ 

PrinterProperties (hwnd, hPrint); 
ClosePrinter (hPrint); 

} 

} 

else 

CheckMenuItem (hMenu, nCurrentlnfo, 

nCurrentlnfo = LOWORD (wParam); 
CheckMenuItem (hMenu, nCurrentlnfo, 

} 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 


case WM—INITMENUPOPUP : 

if (IParam == 0) 

EnableMenuItem (GetMenu 


IDM DEVMODE, 


nCurrentDevice 


IDM_SCREEMF_GRAYED : MF_ENABLED); 

return 0 ; 


(hwnd), 


case WM—PAINT : 

lstrcpy (szWindowText, TEXT ("Device Capabilities : ")); 


if (nCurrentDevice == 工 DM SCREEN) 
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NULL) ; 


szDevice , 


NULL) ; 


lstrcpy (szDevice, TEXT ("DISPLAY”））; 
hdclnfo = CreateIC (szDevice, NULL, NULL, 

} 

else 

{ 

hMenu = GetMenu (hwnd); 

GetMenuString (hMenu, nCurrentDevice, 

sizeof (szDevice), MF_BYCOMMAND); 

hdclnfo = CreateIC (NULL A szDevice, NULL, 


lstrcat (szWindowText, szDevice); 

SetWindowText (hwnd, szWindowText); 

hdc = BeginPaint (hwnd, &ps); 

SelectObject (hdc, GetStockObject (SYSTEM—FIXED—FONT)); 

if (hdclnfo) 

{ 

switch (nCurrentlnfo) 

{ 

case 工 DM_BASIC : 

DoBasicInfo (hdc, hdclnfo, cxChar, cyChar); 

break ; 

case IDM_OTHER : 

DoOtherlnfo (hdc, hdclnfo, cxChar A cyChar); 

break ; 


case 

工 DM 

CURVE : 

case 

I DM 

LINE : 

case 

I DM 

POLY : 

case 

工 DM 

TEXT : 


DoBitCodedCaps (hdc , hdclnfo, cxChar, cyChar, 

nCurrentlnfo - 工 DM—CURVE); 
break ; 

} 

DeleteDC (hdclnfo); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 


case WM DESTROY : 
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PostQuitMessage (0) ; 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 


void DoBasicInfo (HDC hdc, HDC hdclnfo, int cxChar, int cyChar) 

{ 

static struct 

{ 

int nlndex ; 

TCHAR * szDesc ; 


info []= 

{ 




HORZSIZE, 

TEXT 

("HORZSIZE 

millimeters : ， 






VERTSIZE, 

TEXT 

( n VERTSIZE 

in 

millimeters : 

n ), 





HORZRES, 

TEXT 

("HORZRES 

pixels: n ), 






VERTRES, 

TEXT 

("VERTRES 

in 

raster lines 






BITSPIXEL, 

TEXT 

( n BITSPIXEL 

bits per pixel : 

n ), 





PLANES, 

TEXT 

("PLANES 


Number of 

color planes : n ), 





NUMBRUSHES, 

TEXT 

("NUMBRUSHES 

of 

device brushes 





NUMPENS, 

TEXT 

("NUMPENS 


Number of 

device pens : n ), 





NUMMARKERS, 

TEXT 

("NUMMARKERS 

of 

device markers :’’）， 





NUMFONTS, 

TEXT 

("NUMFONTS 


Number of 

device fonts: n ), 





NUMCOLORS, 

TEXT 

("NUMCOLORS 


Number of device colors : 1 ’）， 


PDEVICESIZE, TEXT( n PDEVICESIZE Size of 


structure : , 


ASPECTX, 

ASPECTY, 

ASPECTXY, 

LOGPIXELSX, 

LOGPIXELSY, 

SIZEPALETTE, 

NUMRESERVED, 

COLORRES, 

PHYSICALWIDTH, 


TEXT ("ASPECTX Relative width of pixel :，'）， 

TEXT ("ASPECTY Relative height of pixel:’ 1 ), 

TEXT("ASPECTXY Relative diagonal of pixel :”）， 

TEXT( n LOGPIXELSX Horizontal dots per inch :")a 
TEXT( n LOGPIXELSY Vertical dots per inch:"), 

TEXT ("SIZEPALETTE Number of palette entries :，'）， 
TEXT ("NUMRESERVED Reserved palette entries :，'）， 
TEXT("COLORRES Actual color resolution :”）， 

TEXT ("PHYSICALWIDTH Printer page pixel width :，'）， 


Width in 
Height 
Width in 
Height 

Color 

Number 

Number 

device 
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PHYSICALHEIGHT,TEXT( n PHYSICALHEIGHT Printer page pixel height :，'）， 
PHYSICALOFFSETX, TEXT (’'PHYSICALOFFSETX Printer page x offset :，’）， 
PHYSICALOFFSETY,TEXT( n PHYSICALOFFSETY Printer page y offset :，'） 

}； 

int i ; 

TCHAR szBuffer[80]; 

for (i = ◦ ; i < sizeof (info) / sizeof (info[0]) ; i++) 

TextOut (hdc, cxChar, (i + 1) * cyChar, szBuffer, 
wsprintf (szBuffer, TEXT ( n %—45s%8d n ), info[i].szDesc, 
GetDeviceCaps (hdclnfo, info [i] •nlndex))); 


void DoOtherlnfo (HDC hdc, HDC hdclnfo, int cxChar, int cyChar) 

{ 

static BITS clip[]= 

{ 

CP_RECTANGLE, TEXT ("CP_RECTANGLE Can Clip To Rectangle : ") 

}； 

static BITS raster[]= 

{ 

RC_BITBLT, TEXT ( n RC_BITBLT Capable of simple BitBlt:"), 

RC_BANDING, TEXT ( n RC_BANDING Requires banding support :，'）， 
RC_SCALING, TEXT ( n RC_SCALING Requires scaling support :”）， 
RC_BITMAP64, TEXT ( n RC_BITMAP64 Supports bitmaps >64K:"), 
RC_GDI20_OUTPUT, TEXT ( n RC_GDI20_OUTPUT Has 2.0 output calls :，'）， 
RC_DI_BITMAP, TEXT ( n RC_DI_BITMAP Supports DIB to memory :，'）， 
RC_PALETTE, TEXT ("RC_PALETTE Supports a palette :，'）， 
RC_DIBTODEV, TEXT ("RC_DIBTODEV Supports bitmap conversion:"), 
RC_BIGFONT, TEXT ( n RC_BIGFONT Supports fonts >64K:"), 

RC—STRETCHBLT,TEXT ( n RC—STRETCHBLT Supports StretchBlt:"), 
RC_FLOODFILL, TEXT ("RC_FLOODFILL Supports FloodFill:"), 
RC_STRETCHDIB,TEXT ( n RC_STRETCHDIB Supports StretchDIBits: n ) 

}； 

static TCHAR * szTech[]= { TEXT ("DT_PLOTTER (Vector plotter) n ), 

TEXT ( n DT_RASDISPLAY (Raster display )”）， 

TEXT ( n DT_RASPRINTER (Raster printer)"), 

TEXT ("DT_RASCAMERA (Raster camera )，'）， 

TEXT ("DT_CHARSTREAM (Character stream )”）， 

TEXT ( n DT—METAFILE (Metafile )，'）， 

TEXT ( n DT_DISPFILE (Display file)") }; 

int i ; 

TCHAR szBuffer[80]; 

TextOut (hdc, cxChar, cyChar, szBuffer, 

wsprintf (szBuffer, TEXT ( "%-24s%04XH"), TEXT ("DRIVERVERSION: n ), 
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GetDeviceCaps (hdclnfo, DRIVERVERSION))) ; 


TextOut 

(hdc, 

cxChar, 2 * 

cyChar, 

szBuf fer, 





wsprintf 

(szBuffer, TEXT 

("%-24s%-40s n ), TEXT 

("TECHNOLOGY:"), 










szTech[GetDeviceCaps 

(hdclnfo, 

TECHNOLOGY)])) 

• 

f 






TextOut 

(hdc. 

cxChar, 4 * 

cyChar, 

szBuf fer, 





wsprintf 

(szBuffer, TEXT 

("CLIPCAPS (Clipping 

capabilities) n ))) 

• 

r 





for (i = 

0 

■ 

;i 

< sizeof (clip) / 

sizeof (clip[0]) 

； i++) 




TextOut 

(hdc, 9 

* cxChar, (i + 6) * cyChar, szBuffer, 






wsprintf (szBuffer, TEXT ("%-45s %3s n ), 

clip [i] .szDesc 

r 











GetDeviceCaps (hdclnfo, CLIPCAPS) 

& clip[i].iMask ? 











TEXT ("Yes") : 

TEXT ("No"))); 

TextOut 

(hdc, 

cxChar, 8 * 

cyChar, 

szBuf fer, 




wsprintf (szBuffer 

, TEXT ("RASTERCAPS (Raster 

capabilities)"))) 

• 

f 





for (i = 

0 

■ 

； i 

< sizeof (raster) 

/ sizeof ( raster [ 0 ]) ; i++) 

TextOut 

(hdc. 

9 * cxChar, 

( i + 10) * cyChar, szBuffer, 






wsprintf (szBuffer, TEXT ( n %-45s %3s n ), 

raster [ i ] .szDesc, 











GetDeviceCaps (hdclnfo. 

RASTERCAPS) & 

raster [ i ] .iMask ? 




} 



TEXT ("Yes 

”): TEXT ("No") )); 

void DoBitCodedCaps 

r 

( HDC hdc. 

HDC hdclnfo, int cxChar, 

int cyChar,int iType) 

static BITS 

r 

curves []= 




l 


CC_ 

—CIRCLES, 

TEXT 

( n CC_CIRCLES 

Can do circles :’'）， 



CC_ 

PIE, 

TEXT 

("CC PIE 

Can do pie wedges : n ) , 



CC_ 

CHORD, 

TEXT 

("CC CHORD 

Can do chord arcs : , 



CC_ 

ELLIPSES, 

TEXT 

("CC ELLIPSES 

Can do ellipses :’’）， 



CC_ 

WIDE, 

TEXT 

("CC WIDE 

Can do wide 

borders : n ) , 


CC_ 

STYLED, 

TEXT 

("CC STYLED 

Can do styled 

borders : ’， ） ， 









CC_ 

WIDESTYLED, 

TEXT 

("CC WIDESTYLED Can do wide and styled 

borders : n ) , 







}； 


CC_ 

INTERIORS, 

TEXT 

("CC INTERIORS 

Can do interiors : n ) 

static BITS 

f 

lines[]= 




X 


LC_ 

POLYLINE, 

TEXT 

("LC POLYLINE Can do polyline:"), 
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lines : n ) , 


LC_ 

MARKER, 

TEXT 

LC_ 

POLYMARKER, 

TEXT 

LC_ 

WIDE, 

TEXT 

LC_ 

STYLED, 

TEXT 

LC_ 

WIDESTYLED, 

TEXT 

LC 

INTERIORS, 

TEXT 


("LC_MARKER Can do markers :’，）， 

("LC_POLYMARKER Can do polymarkers ”）， 
( n LC_WIDE Can do wide lines :’’）， 

( n LC—STYLED Can do styled lines:’ 1 ), 
( n LC—WIDESTYLED Can do wide and styled 

("LC INTERIORS Can do interiors:") 


static BITS poly[]= 


polygon : ") 


polygon : ") 


borders : n ) 


PC—POLYGON, 

TEXT ("PC POLYGON Can do alternate fill 


PC—RECTANGLE, 
PC_WINDPOLYGON, 

TEXT 

PC_SCANLINE a 

PC—WIDE, 

PC STYLED, 


TEXT ("PC—RECTANGLE 

( n PC_WINDPOLYGON Can 

TEXT ("PC_SCANLINE 
TEXT ("PC_WIDE 
TEXT ("PC STYLED 


Can do rectangle: n ), 

do winding number fill 

Can do scanlines :’’）， 
Can do wide borders : ’， ）， 
Can do styled 


borders : ， 


PC—WIDESTYLED, 

TEXT ("PC WIDESTYLED 


Can do wide and styled 


PC INTERIORS, 


TEXT ("PC INTERIORS 


Can do interiors : M ) 


static BITS text[] 


TC_0P_CHARACTER, TEXT ( n TC_OP_CHARACTER Can do character 
output precision :’，）， 

TC OP STROKE, TEXT ( n TC OP STROKE 


precision ， 


precision : n ), 


rotation , 


rotation:"), 


TC CP STROKE, TEXT ("TC CP STROKE 


TC CR 90, 


TC CR ANY, 


TEXT ("TC CP 90 


TEXT ("TC CR ANY 


Can do stroke output 


Can do stroke clip 


Can do 90 degree character 


Can do any character 


TC_SF_X_YINDEP, 
independent of X and Y: n ), 

TC—SA—DOUBLE, 

for scaling : ’， ）， 

TC_SA_INTEGER, 
multiples for scaling :’'）， 

TC_SA—CONTIN, 
for exact scaling:’ 1 ), 


TEXT ("TC SF X YINDEP Can do scaling 


EXT ( "TC SA DOUBLE Can do doubled character 


TEXT ("TC SA INTEGER 


TEXT ("TC SA CONTIN 


Can do integer 


Can do any multiples 
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characters : n ) , 


TC_ 

EA 

DOUBLE, 

TEXT 

("TC_EA DOUBLE 

Can ■ 

do double weight 

TC_ 

IA 

ABLE, 

TEXT 

("TC_ 

IA 

ABLE 

Can 

do 

italicizing :") r 

TC_ 

_UA_ 

ABLE, 

TEXT 

("TC_ 

_UA_ 

ABLE 

Can 

do 

underlining ， 

TC_ 

_SO_ 

ABLE, 

TEXT 

("TC_ 

_SO_ 

ABLE 

Can 

do 

strikeouts : ， 

TC_ 

RA 

ABLE, 

TEXT 

("TC_ 

RA 

ABLE 

Can 

do 

raster fonts : , 

TC 

VA 

ABLE, 

TEXT 

("TC 

VA 

ABLE 

Can 

do 

vector fonts : ") 


static struct 


int 

TCHAR * 

BITS 

int 


bitinfo[]= 


iIndex ; 
szTitle ; 

(★pbits)[]; 
iSize ; 



(curves[0]), 

(lines [0]), 
Capabilities ) n ), 


CURVECAPS, 

(BITS 

LINECAPS, 

(BITS 

POLYGONALCAPS, 

(BITS 

TEXTCAPS, 

(BITS 


TEXT ("CURVCAPS (Curve Capabilities )”）， 

(*) []) curves, sizeof (curves) / sizeof 


TEXT ( n LINECAPS (Line Capabilities )”）， 

(*) []) lines, sizeof (lines) / sizeof 

TEXT ("POLYGONALCAPS (Polygonal 

(*) []) poly, sizeof (poly) / sizeof (poly[0]) A 
TEXT ("TEXTCAPS (Text Capabilities) M ), 

(*) []) text, sizeof (text) / sizeof (text[0]) 


static TCHAR szBuffer[80]; 

BITS (*pbits)[] = bitinfo[iType].pbits ; 

int i , iDevCaps = GetDeviceCaps 

bitinfo[iType]•ilndex); 


(hdclnfo. 


TextOut (hdc, cxChar, cyChar, bitinfo[iType]•szTitle, 

lstrlen (bitinfo[iType].szTitle)); 
for (i = ◦ ; i < bitinfo[iType].iSize ; i++) 

extOut (hdc, cxChar, (i + 3) * cyChar, szBuffer, 
wsprintf (szBuffer, TEXT ("%-55s %3s n ), (*pbits) [ i] .szDesc, 
iDevCaps & (*pbits) [ i ] . iMask ? TEXT (’’Yes ’’） : TEXT (’’No ’’）））； 

} 

DEVCAPS2 .RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 
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//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

DEVCAPS2 MENU DISCARDABLE 
BEGIN 

POPUP "^Device" 

BEGIN 

MENUITEM ，， &Screen n , IDM—SCREEN, CHECKED 

END 

POPUP "^Capabilities" 

BEGIN 

MENUITEM "&Basic Information” ， IDM—BASIC 

MENUITEM "&Other Information” ， IDM—OTHER 
MENUITEM "&Curve Capabilities n ,IDM—CURVE 
MENUITEM "&Line Capabilities n , 工 DM—LINE 
MENUITEM "^Polygonal Capabilities，' ， 工 DM—POLY 
MENUITEM "&Text Capabilities n , 工 DM—TEXT 

END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by DevCaps2.rc 


♦define 工 DM—SCREEN 40001 
♦define 工 DM—BASIC 40002 
♦define 工 DM—OTHER 40003 
♦define 工 DM—CURVE 40004 
♦define 工 DM_LINE 40005 
♦define IDM—POLY 40006 
♦define 工 DM TEXT 40007 


因为 DEVCAPS 2 只取得印表机的资讯内容，使用者仍然可以从 DEVCAPS 2 的 
功能表中选择所需印表机。如果使用者想比较不同印表机的功能，可以先用印 
表机档案夹增加各种列印驱动程式。 

PrinterProperties 呼叫 

DEVCAPS 2 的 「 Device 」 功能表中上还有一个称为 「 Properties 」 的选项。 
要使用这个选项，首先得从 Device 功能表中选择一个印表机，然後再选 
择 Properties ，这时弹出一个对话方块。对话方块从何而来呢？它由印表机 
驱动程式呼叫，而且至少还让使用者选择纸的尺寸。大多数印表机驱动也可以 
让使用者在「直印 （ portrait ) 」或「横印 （ landscape ) 」模式中进行选择。 
在直印模式（一般为内定模式）下，纸的短边是顶部。在横印模式下，纸的长 
边是顶部。如果改变该模式，则所作的改变将在 DEVCAPS 2 程式从 GetDeviceCaps 
函式取得的资讯中反应出来：水平尺寸和解析度将与垂直尺寸和解析度交换。 
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彩色绘图机的 「 Properties 」 对话方块内容十分广泛，它们要求使用者输入安 
装在绘图机上之画笔的颜色和使用之绘图纸（或透明胶片）的型号。 

所有印表机驱动程式都包含一个称为 ExtDeviceMode 的输出函式，它呼叫 
对话方块并储存使用者输入的资讯。有些印表机驱动程式也将这些资讯储存在 
系统登录的自己拥有的部分中，有些则不然。那些储存资讯的印表机驱动程式 
在下次执行 Windows 时将存取该资讯。 

允许使用者选择印表机的 Windows 程式通常只呼叫 PrintDlg (本章後面我 
会展示用法）。这个有用的函式在准备列印时负责和使用者之间所有的通讯工 
作，并负责处理使用者要求的所有改变。当使用者单击 [ PropertiesJ 按钮时， 
PrintDlg 还会启动属性表格对话方块。 

程式还可以通过直接呼叫印表机驱动程式的 ExtDeviceMode 或 
ExtDeveModePropSheet 函式，来显示印表机的属性对话方块，然而，我不鼓励 
您这样做。像 DEVCAPS 2 那样，透过呼叫 PrinterProperties 来启动对话方块会 
好得多。 

PrinterProperties 要求印表机物件的代号，您可以通过 OpenPrinter 函式 
来得到。当使用者取消属性表格对话方块时， PrinterProperties 传回，然後使 
用者通过呼叫 ClosePrinter ， 释放印表机代号。 DEVCAPS 2 就是这样做到这一点 
的。 

程式首先取得刚刚在 Device 功能表中选择的印表机名称，并将其存入一个 
名为 szDevice 的字元阵列中。 

GetMenuString ( hMenu, nCurrentDevice, szDevice, 

sizeof (szDevice) / sizeof (TCHAR), 

MF_BYCOMMAND); 

" 然後，使用 OpenPrinter 获得该设备的代号。如果呼叫成功，那么程式接 
著呼叫 PrinterProperties 启动对话方块，然後呼叫 ClosePrinter 释放设备代 


if (OpenPrinter (szDevice, &hPrint , NULL)) 
{ 

PrinterProperties (hwnd, hPrint); 
ClosePrinter (hPrint); 


检查 BitBlt 支援 


您可以用 GetDeviceCaps 函式来取得页中可列印区的尺寸和解析度（通常， 
该区域不会与整张纸的大小相同）。如果使用者想自己进行缩放操作，也可以 
获得相对的图素宽度和高度。 
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印表机能力的大多数资讯是用於 GDI 而不是应用程式的。通常，在印表机 
不能做某件事时， GDI 会模拟出那项功能。然而，这是应用程式应该事先检查的。 

以 RASTERCAPS ( 「位元映射支援」）参数呼叫 GetDeviceCaps , 它传回的 
RC _ BITBLT 位元包含了另一个重要的印表机特性，该位元标示设备是否能进行位 
元块传送。大多数点阵印表机、雷射印表机和喷墨印表机都能进行位元块传送， 
而大多数绘图机却不能。不能处理位元块传送的设备不支援下列 GDI 函式： 
CreateCompatibleDC 、 CreateCompatibleBitmap 、 PatBlt 、 BitBlt 、 StretchBlt 、 
GrayString 、 Drawlcon ^ SetPixel 、 GetPixel 、 FloodFill 、 ExtFloodFill 、 
FillRgn 、 FrameRgn 、 InvertRgn 、 PaintRgn 、 FillRect、FrameRect 和 InvertRect 。 
这是在视讯显示器上使用 GDI 函式与在印表机上使用它们的唯一重要区别。 

最简单的列印程式 


现在可以开始列印了，我们尽可能简单地开始。事实上，我们的第一个程 
式只是让印表机送纸而已。程式 13-3 的 FORMFEED 程式，展示了列印所需的最 
小需求。 


程式 13-3 FORMFEED 

FORMFEED.C 

/* - 

FORMFEED.C —— Advances printer to next page 

(c) Charles Petzold, 1998 

_ -k 


♦include <windows.h> 

HDC GetPrinterDC (void); 

int WINAP 工 WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

LPSTR IpszCmdLine, int iCmdShow) 

{ 

static DOCINFO di = { sizeof (DOCINFO), TEXT ("FormFeed") }; 

HDC hdcPrint = GetPrinterDC (); 


if (hdcPrint != NULL) 

{ 

if (StartDoc (hdcPrint, &di) > 0) 

if (StartPage (hdcPrint) > 0 

(hdcPrint) > 0) 

EndDoc (hdcPrint); 

DeleteDC (hdcPrint); 

} 

return 0 ; 


&& EndPage 


这个程式也需要前面程式 13-1 中的 GETPRNDC . C 档案 
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除了取得印表机装置内容（然後再删除它）外，程式只呼叫了我们在本章 
前面讨论过的四个列印函式。 FORMFEED 首先呼叫 StartDoc 开始一个新的档案， 
它测试从 StartDoc 传回的值，只有传回值是正数时，才继续 下去： 

if (StartDoc (hdcPrint, &di) > 0) 

StartDoc 的第二个参数是指向 DOCINFO 结构的指标。该结构在第一个栏位 
包含了结构的大小，在第二个栏位包含了字串 「 FormFeed 」 。当档案正在被列 
印或者在等待列印时，这个字串将出现在印表机任务伫列中的 「Document Name 」 
列中。通常，该字串包含进行列印的应用程式名称和被列印的档案名称。 

如果 StartDoc 成功（由一个正的传回值表示），那么 FORMFEED 呼叫 
StartPage ， 紧接著立即呼叫 EndPage 。 这一程序将印表机推进到新的一页，再 
次对传回值进行测试： 

if (StartPage (hdcPrint) > 0 && EndPage (hdcPrint) > 0) 

最後，如果不出错，文件就 结束： 

EndDoc (hdcPrint); 

要注意的是，只有当没出错时，才呼叫 EndDoc 函式。如果其他列印函式中 
的某一个传回错误代码，那么 GDI 实际上已经中断了文件的列印。如果印表机 
目前未列印，这种错误代码通常会使印表机重新设定。测试列印函式的传回值 
是检测错误的最简单方法。如果您想向使用者报告错误，就必须呼叫 
GetLastError 来确定错误。 

如果您写过 MS - DOS 下的简单利用印表机送纸的程式，就应该知道，对於大 
多数印表机， ASCII 码12启动送纸。为什么不简单地使用 C 的程式库函式 open ， 
然後用 write 输出 ASCII 码12呢？当然，您完全可以这么做，但是必须确定印 
表机连结的是串列埠还是并列埠。然後您还要确定另外的程式（例如，列印伫 
列程式）是不是正在使用印表机。您并不希望在文件列印到一半时被别的程式 
把正在列印的那张纸送出印表机，对不对？最後，您还必须确定 ASCII 码12是 
不是所连结印表机的送纸字元，因为并非所有印表机的送纸字元都是12。事实 
上，在 PostScript 中的送纸命令便不是12，而是单字 showpage 。 

简单地说，不要试图直接绕过 Windows ; 而应该坚持在列印中使用 Windows 
函式。 

列印图形和文字 

在一个 Windows 程式中，列印所需的额外负担通常比 FORMFEED 程式高得多， 
而且还要用 GDI 函式来实际列印一些东西。我们来写个列印一页文字和图形的 
程式，采用 F 0 RMFEH ) 程式中的方法，并加入一些新的东西。该程式将有三个版 
本 PRINT 1、 PRINT 2 和 PRINT 3。 为避免程式码重复，每个程式都用前面所示的 
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GETPRNDC . C 档案和 PRINT . C 档案中的函式，如程式 13-4 所示。 


程式 13-4 PRINT 


PRINT.C 

/* - 

PRINT.C -- Common routines for Printl, Print2, and Print3 



♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

BOOL PrintMyPage (HWND); 

extern HINSTANCE hlnst ; 

extern TCHAR szAppName[]; 

extern TCHAR szCaption[]; 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=NULL ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 


NT ! n ), 


MessageBox 


return 


NULL, TEXT ("This program requires Windows 


szAppName, MB ICONERROR); 


hlnst = hlnstance ; 

hwnd = CreateWindow (szAppName, szCaption, 

WS_OVERLAPPEDWINDOW, 
CW—USEDEFAULT, CW_USEDEFAULT, 
CW_USEDEFAULT, CW_USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 
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ShowWindow (hwnd. 

iCmdShow); 





UpdateWindow (hwnd); 





while (GetMessage 

! 

(&msg, NULL, 0, 

0)) 




X 

TranslateMessage 

(&msg); 




\ 

DispatchMessage 

(&msg); 



} 

return msg.wParam 

• 

f 




void 

I 

PageGDICalls (HDC 

hdcPrn, int cxPage, int cyPage) 



I 

static TCHAR szTextStr [ ] = TEXT ("Hello, Printer!’'）; 




Rectangle (hdcPrn, ◦, ◦, cxPage, 

cyPage); 




MoveToEx (hdcPrn, 

◦, ◦, NULL); 





LineTo (hdcPrn, 

cxPage, cyPage) 

參 

f 




MoveToEx (hdcPrn, 

cxPage, ◦, NULL); 




LineTo (hdcPrn, 

0, cyPage); 





SaveDC (hdcPrn); 






SetMapMode 

(hdcPrn, MM ISOTROPIC); 




SetWindowExtEx 

(hdcPrn, 1000, 1000, NULL); 




SetViewportExtEx 

(hdcPrn, cxPage / 2, -cyPage / 

2, 

NULL); 


SetViewportOrgEx 

(hdcPrn, cxPage / 2, cyPage / 

2, 

NULL); 


Ellipse (hdcPrn, 

-500, 500, 500, 

-500); 




SetTextAlign (hdcPrn, TA BASELINE 

| TA_CENTER); 




TextOut (hdcPrn, 

0, 0, szTextStr, 

lstrlen (szTextStr)); 


} 

RestoreDC (hdcPrn, -1); 




LRESULT CALLBACK WndProc ( HWND hwnd, 

UINT message, WPARAM 

wParam,LPARAM 

IParam) 

f 






static int 

cxClient,' 

cyClient ; 




HDC 

hdc ; 





HMENU 

hMenu ; 





PAINTSTRUCT 

ps ; 





switch (message) 

/ 






l 

case WM CREATE : 







hMenu = GetSystemMenu (hwnd, FALSE) 

• 

f 




AppendMenu (hMenu, MF SEPARATOR, 0, 

NULL); 
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AppendMenu (hMenu, ◦, 1, TEXT ("&Print n )); 
return 0 ; 

case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM_SYSCOMMAND: 

if (wParam == 1) 

{ 

if ( !PrintMyPage (hwnd)) 

MessageBox (hwnd, TEXT (’’Could not print 

page 丨 ▼’）， 

szAppName, MB_OK | MB_ICONEXCLAMATION); 
return 0 ; 

} 

break ; 

case WM—PAINT : 

hdc = BeginPaint (hwnd, &ps); 

PageGDICalls (hdc, cxClient, cyClient); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

PRINT . C 包括函式 WinMain 、 WndProc 以及一个称为 PageGDICalls 的函式。 
PageGDICalls 函式接收印表机装置内容代号和两个包含列印页面宽度及高度的 
变数。这个函式还负责画一个包围整个页面的矩形，有两条对角线，页中间有 
一 个椭圆（其直径是印表机高度和宽度中较小的那个的一半），文字 「 Hello , 
Printer !」 位於椭圆的中间。 

处理 WM + CREATE 讯息时， WndProc 将一个 「 Print 」 选项加到系统功能表上。 
选择该选项将呼叫 PrintMyPage , 此函式的功能在程式的三个版本中将不断增 
强。当列印成功时， PrintMyPage 传回 TRUE 值，如果遇到错误时则传回 FALSE 。 
如果 PrintMyPage 传回 FALSE ， WndProc 就会显示一个讯息方块以告知使用者发 
生了错误。 
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列印的基本程序 

列印程式的第一个版本是 PRINT 1， 见程式13-5。经编译後即可执行此程式， 
然後从系统功能表中选择 「 Print 」 。接著， GDI 将必要的印表机输出储存在一 
个暂存档案中，然後列印伫列程式将它发送给印表机。 


程式 13-5 PRINT1 


PRINT1.C 






/* —— 








PRINTl 

• C -- 

Bare Bones 

Printing 







(c) Charles Petzold, 1998 







- " 

♦include 〈windows 

.h> 




HDC 

GetPrinterDC (void); 


"in 

GETPRNDC.C 

void 

PageGDICalls (HDC, int, int); 

"in 

PRINT.C 

HINSTANCE hlnst ; 





TCHAR 



szAppName[] 

=TEXT 

("Printl"); 


TCHAR 



szCaption[] 

=TEXT 

("Print Program 

1") ； 

BOOL : 

! 

PrintMyPage 

(HWND hwnd) 




i 

static 

DOCINFO di = { 

sizeof (DOCINFO), TEXT 

("Printl : Printing") }; 


BOOL 



bSuccess = TRUE ; 



HDC 



hdcPrn ; 




int 



xPage A yPage ; 



if 

(NULL 

==(hdcPrn 

=GetPrinterDC ())) 





return FALSE ; 




xPage 

=GetDeviceCaps 

(hdcPrn, 

HORZRES); 



yPage 

=GetDeviceCaps 

(hdcPrn, 

VERTRES); 



if (StartDoc (hdcPrn, 

&di) > 0) 






if (StartPage 

(hdcPrn) > 0) 






PageGDICalls (hdcPrn, xPage, yPage); 





if 

(EndPage (hdcPrn) > 0) 






EndDoc 

(hdcPrn); 





else 





} 


bSuccess = FALSE ; 


} 

else 


bSuccess = 

FALSE ; 
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DeleteDC (hdcPrn) ; 
return bSuccess ; 

} 

我们来看看 PRINT 1. C 中的程式码。如果 PrintMyPage 不能取得印表机的装 
置内容代号，它就传回 FALSE ， 并且 WndProc 显示讯息方块指出错误。如果函式 
成功取得了装置内容代号，它就通过呼叫 GetDeviceCaps 来确定页面的水平和 
垂直大小（以图素为单位）。 


xPage = 

= GetDeviceCaps 

(hdcPrn, 

HORZRES); 

yPage = 

= GetDeviceCaps 

(hdcPrn, 

VERTRES); 


这不是纸的全部大小，只是纸的可列印区域。呼叫後，除了 PRINT 1 在 
StartPage 和 EndPage 呼叫之间呼叫 PageGDICalls，PRINT 1 的 PrintMyPage 函 
式中的程式码在结构上与 FORMFEED 中的程式码相同。仅当呼叫 StartDoc 、 
StartPage 和 EndPage 都成功时， PRINT 1 才呼叫 EndDoc 列印函式。 


使用放弃程序来取消列印 

对於大型文件，程式应该提供使用者在应用程式列印期间取消列印任务的 
便利性。也许使用者只要列印文件中的一页，而不是列印全部的537页。应该 
要能在印完全部的537页之前纠正这个错误。 

在一个程式内取消一个列印任务需要一种被称为「放弃程序」的技术。放 
弃程序在程式中只是个较小的输出函式，使用者可以使用 SetAbortProc 函式将 
该函式的位址传给 Windows 。 然後 GDI 在列印时，重复呼叫该程序，不断 地问： 
「我是否应该继续列印？」 

我们看看将放弃程序加到列印处理程式中去需要些什么，然後检查一些旁 
枝末节。放弃程序一般命名为 AbortProc ， 其形式为： 

BOOL CALLBACK AbortProc (HDC hdcPrn, int iCode) 

{ 

// 其他行程式 

} 

列印前，您必须通过呼叫 SetAbortProc 来登记放弃程序： 

SetAbortProc (hdcPrn, AbortProc) ; 

在呼叫 StartDoc 前呼叫上面的函式，列印完成後不必清除放弃程序。 
在处理 EndPage 呼叫时（亦即，在将 metafile 放入装置驱动程式并建立临 
时列印档案时）， GDI 常常呼叫放弃程序。参数 hdcPrn 是印表机装置内容代号。 
如果一切正常， iCode 参数是0,如果 GDI 模组在生成暂存档案时耗尽了磁碟空 
间 ， iCode 就是 SP _0 UT 0 FDISK 。 

如果列印作业继续，那么 AbortProc 必须传回 TRUE (非 零）； 如果列印作 
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业异常结束，就传回 FALSE (零）。放弃程序可以被简化为如下所示的 形式: 

BOOL CALLBACK AbortProc (HDC hdcPrn, int iCode) 

{ 

MSG msg ; 

while (PeekMessage (&msg, NULL, 0, 0, PM—REMOVE)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return TRUE ; 


这个函式看起来有点特殊，其实它看起来像是讯息回圈。使用者会注意到， 
这个「讯息回圈」呼叫 PeekMessage 而不是 GetMessage 。 我在第五章的 RANDRECT 
程式中讨论过 PeekMessage 。 应该还记得， PeekMessage 将会控制权返回给程式， 

而不管程式的讯息伫列中是否有讯息存在。 

只要 PeekMessage 传回 TRUE ， 那么 AbortProc 函式中的讯息回圈就重复呼 
叫 PeekMessage 。 TRUE 值表示 PeekMessage 已经找到一个讯息，该讯息可以通 
过 TranslateMessage 和 DispatchMessage 发送到程式的视窗讯息处理程式。若 
程式的讯息仁列中没有讯息，则 PeekMessage 的传回值为 FALSE ， 因此 AbortProc 
将控制权返回给 Windows 。 


Windows 如何使用 AbortProc 


当程式进行列印时，大部分工作发生在要呼叫 EndPage 时。呼叫 EndPage 
前，程式每呼叫一次 GDI 绘图函式， GDI 模组只是简单地将另一个记录加到磁片 
上的 metafile 中。当 GDI 得到 EndPage 後，对列印页中由装置驱动程式定义的 
每个输出带， GDI 都将该 metafile 送入装置驱动程式中。然後， GDI 将印表机 
驱动程式建立的列印输出储存到一个档案中。如果没有启用幕後列印，那么 GDI 
模组必须自动将该列印输出写入印表机。 

在 EndPage 呼叫期间， GDI 模组呼叫您设定的放弃程序。通常 iCode 参数为 
0,但如果由於存在未列印的其他暂存档案，而造成 GDI 执行时磁碟空间不够， 
iCode 参数就为 SP _0 UT 0 FDISK (通常您不会检查这个值，但是如果愿意，您可 
以进行检查）。放弃程序随後进入 PeekMessage 回圈从自己的讯息仁列中找寻 
讯息。 

如果在程式的讯息仁列中没有讯息， PeekMessage 会传回 FALSE ， 然後放弃 
程序跳出它的讯息回圈并给 GDI 模组传回一个 TRUE 值，指示列印应该继续进行。 
然後 GDI 模组继续处理 EndPage 呼叫。 
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如果有错误发生，那么 GDI 将中止列印程序，这样，放弃程序的主要目的 
是允许使用者取消列印。为此，我们还需要一个显示 rCancel ] 按钮的对话方 
±夬，让我们采用两个独立的步骤。首先，我们在建立 PRINT 2 程式时增加一个放 
弃程序，然後在 PRINT 3 中增加一个带有 rCancel J 按钮的对话方块，使放弃程 
序可用。 


实作放弃程序 

现在快速复习一下放弃程序的机制。可以定义一个如下所示的放弃 程序: 


BOOL 

( 

CALLBACK AbortProc 

(HDC hdcPrn, 

int 

iCode) 

1 

MSG msg ; 






while 

； 

(PeekMessage 

(&msg, NULL, 

0, 

◦, PM REMOVE)) 


i 

TranslateMessage 

(&msg) 

• 


I 

DispatchMessage 

(&msg) 

• 

r 

} 

/ 

return 

TRUE ; 






当您想列印什么时，使用下面的呼叫将指向放弃程序的指标传给 Windows ： 


SetAbortProc (hdcPrn, AbortProc); 

在呼叫 StartDoc 之前进行这个呼叫就行了。 

不过，事情没有这么简单。我们忽视了 AbortProc 程序中 PeekMessage 叵 
圈这个问题，它是个很大的问题。只有在程式处於列印程序时， AbortProc 程序 
才会被呼叫。如果在 AbortProc 中找到一个讯息并把它传送给视窗讯息处理程 
式，就会发生一些非常令人讨厌的 事情： 使用者可以从功能表中再次选择 
「 Print 」 ，但程式已经处於列印常式之中。程式在列印前一个档案的同时，使 
用者也可以把一个新档案载入到程式里。使用者甚至可以退出程式！如果这种 
情况发生了，所有使用者程式的视窗都将被清除。当列印常式执行结束时，除 
了退到不再有效的视窗常式之外，您无处可去。 

这种东西会把人搞得晕头转向，而我们的程式对此并未做任何准备。正是 
由於这个原因，当设定放弃程序时，首先应禁止程式的视窗接受输入，使它不 
能接受键盘和滑鼠输入。可以用以下的函式完成这项 工作： 

EnableWindow (hwnd, FALSE); 

它可以禁止键盘和滑鼠的输入进入讯息伫列。因此在列印程序中，使用者 
不能对程式做任何工作。当列印完成时，应重新允许视窗接受输入： 

EnableWindow (hwnd, TRUE) ; 

您可能要问，既然没有键盘或滑鼠讯息进入讯息伫列，为什么我们还要进 
行 AbortProc 中的 TranslateMessage 和 DispatchMessage 呼叫呢？实际上并不 
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一定非得需要 TranslateMessage , 但是，我们必须使用 DispatchMessage , 处 
理 WM_PAINT 讯息进入讯息伫列中的情况。如果 WM_PAINT 讯息没有得到视窗讯 
息处理程式中的 BeginPaint 和 EndPaint 的适当处理，由於 PeekMessage 不再 
传回 FALSE , 该讯息就会滞留在伫列中并且妨碍工作。 

当列印期间阻止视窗处理输入讯息时，您的程式不会进行显示输出。但使 
用者可以切换到其他程式，并在那里进行其他工作，而幕後列印程式则能继续 
将输出档案送到印表机。 

程式 13-6 所示的 PRINT 2 程式在 PRINT 1 中增加了一个放弃程序和必要的支 

援-呼叫 AbortProc 函式并呼叫 EnableWindow 两次（第一次阻止视窗接受输 

入讯息，第二次启用视窗）。 


程式 13-6 PRINT2 


PRINT2.C 




卜 






PRINT2.C --Printing with Abort 

Procedure 





(c) 

Charles Petzold, 1998 





- " 

♦include <windows.h> 




HDC 

GetPrinterDC (void); 


// 

in GETPRNDC.C 

void 

PageGDICalls (HDC, int, 

int); 

// 

in PRINT.C 

HINSTANCE hlnst ; 




TCHAR 

szAppName[] 

=TEXT 

("Print2 M ); 


TCHAR 

szCaption[] 

=TEXT 

(’•Print Program 2 (Abort Procedure) n ); 

BOOL 

{ 

CALLBACK AbortProc (HDC 

hdcPrn, 

int iCode) 


\ 

MSG msg ; 





while (PeekMessage (&msg. 

NULL, ◦, ◦, 

PM REMOVE)) 


TranslateMessage (&msg); 



DispatchMessage (&msg); 


} 

return TRUE ; 




BOOL 

{ 

PrintMyPage (HWND hwnd) 




i 

static DOCINFO di = { sizeof (DOCINFO), TEXT ("Print2 : Printing") }; 


BOOL 


bSuccess 

=TRUE ; 


HDC 


hdcPrn ; 



short 


xPage, yPage ; 


if (NULL == (hdcPrn = GetPrinterDC ())) 
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return FALSE ; 

xPage = GetDeviceCaps (hdcPrn, HORZRES); 
yPage = GetDeviceCaps (hdcPrn, VERTRES); 


EnableWindow (hwnd, FALSE); 

SetAbortProc (hdcPrn, AbortProc); 
if (StartDoc (hdcPrn, &di) > 0) 

{ 

if (StartPage (hdcPrn) > 0) 
{ 




PageGDICalls (hdcPrn, xPage, yPage) 
if (EndPage (hdcPrn) > 0) 

EndDoc (hdcPrn); 

else 


bSuccess = FALSE ; 


bSuccess = FALSE ; 
EnableWindow (hwnd, TRUE); 

DeleteDC (hdcPrn); 
return bSuccess ; 


增加列印对话方块 

PRINT 2 还不能令人十分满意。首先，这个程式没有直接指示出何时开始列 
印和何时结束列印。只有将滑鼠指向程式并且发现它没有反应时，才能断定它 
仍然在处理 PrintMyPage 常式。 PRINT 2 在进行背景处理时也没有给使用者提供 
取消列印作业的机会。 

您可能注意到，大多数 Windows 程式都为使用者提供了一个取消目前正在 
进行列印操作的机会。一个小的对话方块出现在萤幕上，它包括一些文字和 
rCancel ] 按键。在 GDI 将列印输出储存到磁片档案或（如果停用列印伫列程 
式）印表机正在列印的整个期间，程式都显示这个对话方块。它是一个非系统 
模态对话方块，您必须提供对话程序。 

通常称这个对话方块为「放弃对话方块」，称这种对话程序为「放弃对话 
程序」。为了更清楚地把它和「放弃程序」区别开来，我们称这种对话程序为 
「列印对话程序」。放弃程序（名为 AbortProc ) 和列印对话程序（将命名为 
PrintDlgProc ) 是两个不同的输出函式。如果想以一种专业的 Windows 式列印 
方式进行列印工作，就必须拥有这两个函式。 

这两个函式的交互作用方式如下： AbortProc 中的 PeekMessage 回圈得被修 
改，以便将非系统模态对话方块的讯息发送给对话方块视窗讯息处理程式。 
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PrintDlgProc 必须处理 WM _ COMMAND 讯息，以检查 「 Cancel 」 按钮的状态。如果 
「 Cancel 」 钮被按下，就将一个叫做 bUserAbort 的整体变数设为 TRUEoAbortProc 
传回的值正好和 bUserAbort 相反。您可能还记得，如果 AbortProc 传回 TRUE 
会继续列印，传回 FALSE 则放弃列印。在 PRINT 2 中，我们总是传回 TRUE 。 现在， 
使用者在列印对话方块中按下 「 Cancel 」 按钮时将传回 FALSE 。 程式 13-7 所示 
的 PRINT 3 程式实作了这个处理方式。 


程式 13-7 PRINT3 


PRINT3.C 

/* - 

PRINT3.C --Printing with Dialog Box 

(c) Charles Petzold, 1998 

- V 


♦include <windows.h> 

HDC GetPrinterDC (void) ; // in GETPRNDC.C 

void PageGDICalls (HDC, int, int) ; // in PRINT.C 


HINSTANCE hlnst ; 

TCHAR szAppName[] = TEXT ( n Print3 M ); 

TCHAR szCaption [ ] = TEXT (’’Print Program 3 (Dialog Box)’’）; 


BOOL bUserAbort ; 
HWND hDlgPrint ; 


BOOL CALLBACK PrintDlgProc (HWND hDlg, UINT message, 

WPARAM wParam, LPARAM IParam) 


switch (message) 


case 


MF GRAYED) 


WM_INITDIALOG: 

SetWindowText (hDlg, szAppName); 

EnableMenuItem (GetSystemMenu (hDlg, FALSE), SC—CLOSE, 

r 

return TRUE ; 


case WM—COMMAND: 

bUserAbort = TRUE ; 

EnableWindow (GetParent (hDlg), TRUE); 
DestroyWindow (hDlg); 
hDlgPrint = NULL ; 
return TRUE ; 

} 

return FALSE ; 
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BOOL CALLBACK AbortProc (HDC hdcPrn, int iCode) 

{ 

MSG msg ; 

while (!bUserAbort && PeekMessage (&msg A NULL, ◦, ◦, PM_REMOVE)) 

{ 

if ( !hDlgPrint | | !IsDialogMessage (hDlgPrint, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 


return !bUserAbort 


BOOL PrintMyPage (HWND hwnd) 

{ 

static DOCINFO di = { sizeof (DOCINFO), TEXT ("Print3 : Printing") 
BOOL bSuccess = TRUE ; 

HDC hdcPrn ; 

int xPage, yPage ; 

if (NULL == (hdcPrn = GetPrinterDC ())) 

return FALSE ; 

xPage = GetDeviceCaps (hdcPrn, HORZRES); 
yPage = GetDeviceCaps (hdcPrn, VERTRES); 


EnableWindow (hwnd, FALSE); 

bUserAbort = FALSE ; 

hDlgPrint = CreateDialog (hlnst. 


TEXT ("PrintDlgBox"), 

hwnd. 


PrintDlgProc); 

SetAbortProc (hdcPrn, AbortProc); 
if (StartDoc (hdcPrn, &di) > 0) 

{ 

if (StartPage (hdcPrn) > 0) 

{ 


PageGDICalls (hdcPrn, xPage, yPage); 
if (EndPage (hdcPrn) > 0) 

EndDoc (hdcPrn); 

else 

bSuccess = FALSE ; 


else 


if (!bUserAbort) 


bSuccess = FALSE ; 


EnableWindow (hwnd, TRUE); 
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DestroyWindow (hDlgPrint) ; 

} 

DeleteDC (hdcPrn); 

return bSuccess && !bUserAbort ; 

} 

PRINT. RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Dialog 

PRINTDLGBOX DIALOG DISCARDABLE 20, 20, 186, 63 

STYLE DS_MODALFRAME | WS_POPUP | WS—VISIBLE | WS_CAPTION | WS_SYSMENU 
FONT 8, "MS Sans Serif" 

BEGIN 

PUSHBUTTON "Cancel", 工 DCANCEL,67,42,50,14 

CTEXT "Cancel 

Printing",IDC—STATIC,7,21,172,8 
END 

如果您使用 PRINT 3, 那么最好临时暂停使用幕後 列印； 否则，只有在列印 
伫列程式从 PRINT 3 中接收资料时才可见到的 「 Cancel 」 按钮可能会很快消失， 
让您根本没有机会去按它。如果您按 rCancelJ 按钮时列印并不立即终止（特 
别是在一个慢速印表机上），不要惊讶。印表机有一个内部缓冲区，在印表机 
停止之前其中的资料必须全部送出，按 「 Cancel 」 只是告诉 GDI 不要向印表机 
的缓冲区发送更多的资料而已。 

PRINT 3 增加了两个整体 变数： 一个是叫做 bUserAbort 的布林变数，另一个 
是叫做 hDlgPrint 的对话方块视窗代号。 PrintMyPage 函式将 bUserAbort 初始 
化为 FALSE 。 与 PRINT 2 一样，程式的主视窗是不接收输入讯息的。指向 AbortProc 
的指标用於 SetAbortProc 呼叫中，而指向 PrintDlgProc 的指标用於 
CreateDialog 呼叫中。 CreateDialog 传回的视窗代号储存在 hDlgPrint 中。 
现在， AbortProc 中的讯息回圈如下： 

while ( ! bUserAbort && PeekMessage (&msg A NULL, 0 , 0 , PM_REM0VE)) 

{ 

if ( !hDlgPrint | | !IsDialogMessage (hDlgPrint, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

return !bUserAbort ; 
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只有在 bUserAbort 为 FALSE ， 也就是使用者还没有终止列印工作时，这段 
程式码才会呼叫 PeekMessageo IsDialogMessage 函式用来将讯息发送给非系统 
模态对话方块。和普通的非系统模态对话方块一样，对话方块视窗的代号在这 
个呼叫之前受到检查。 AbortProc 的传回值正好与 bUserAbort 相反。开始时， 
bUserAbort 为 FALSE ， 因此 AbortProc 传回 TRUE ， 表示继续进行 列印； 但是 
bUserAbort 可能在列印对话程序中被设定为 TRUE 。 


PrintDlgProc 函式是相当简单的。处理 WM + INITDIALOG 时，该函式将视窗 

标题设定为程式名称，并且停用系统功能表上的 「 Close 」 选项。如果使用者按 
下了 「 Cancel 」 钮 ， PrintDlgProc 将收到 WM_COMMAND 讯息： 


case WM COMMAND : 


bUserAbort = 

TRUE ; 

EnableWindow 

(GetParent (hDlg), TRUE); 

DestroyWindow 

(hDlg); 

hDlgPrint = NULL ; 

return TRUE ; 



将 bUserAbort 设定为 TRUE ， 则说明使用者已经决定取消列印操作，主视窗 
被启动，而对话方块被清除（按顺序完成这两项活动是很重要的，否则，在 
Windows 中执行其他程式之一将变成活动程式，而您的程式将消失到背景中）。 
与通常的情况一样，将 hDlgPrint 设定为 NULL ， 防止在讯息回圈中呼叫 
IsDialogMessage 。 

只有在 AbortProc 用 PeekMessage 找到讯息，并用 IsDialogMessage 将它 

们传送给对话方块视窗讯息处理程式时，这个对话方块才接收讯息。只有在 GDI 
模组处理 EndPage 函式时，才呼叫 AbortProc 。 如果 GDI 发现 AbortProc 的传回 
值是 FALSE ， 它将控制权从 EndPage 传回到 PrintMyPage 。 它不传回错误码。至 
此， PrintMyPage 认为列印页已经发完了，并呼叫 EndDoc 函式。但是，由於 GDI 
模组还没有完成对 EndPage 呼叫的处理，所以不会列印出什么东西来。 

有些清除工作尚待完成。如果使用者没在对话方块中取消列印作业，那么 
对话方块仍然会显示著。 PrintMyPage 重新启用它的主视窗并清除对话 方块： 

if ( ! bUserAbort) 

{ 

EnableWindow (hwnd, TRUE); 

DestroyWindow (hDlgPrint); 

} 

两个变数会通知您发生了什么事： bUserAbort 可以告诉您使用者是否终止 
了列印作业， bSuccess 会告诉您是否出了故障，您可以用这些变数来完成想做 
的工作。 PrintMyPage 只简单地对它们进行逻辑上的 AND 运算，然後把值传回给 
WndProc ： 
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return bSuccess && ! bUserAbort 

为 POPP AD 增加列印功能 


现在准备在 P 0 PPAD 程式中增加列印功能，并且宣布 P 0 PPAD 己告完毕。这 
需要第十一章中的各个 P 0 PPAD 档案，此外，还需要程式 13-8 中的 P 0 PPRNT.C 
档案。 


程式 13-8 P0PPRNT 


POPPRNT.C 

/* - 

POPPRNT.C -- Popup Editor Printing Functions 



♦include <windows.h> 
♦include <commdlg.h> 
♦include "resource.h M 


BOOL bUserAbort ; 
HWND hDlgPrint ; 


BOOL CALLBACK PrintDlgProc ( HWND hDlg, UINT msg, WPARAM wParam,LPARAM IParam) 

{ 

switch (msg) 

{ 

case WM_INITDIALOG : 

EnableMenuItem (GetSystemMenu (hDlg, FALSE ), SC_CLOSE, 

MF_GRAYED); 

return TRUE ; 


case WM—COMMAND : 

bUserAbort = TRUE ; 

EnableWindow (GetParent (hDlg), TRUE); 
DestroyWindow (hDlg); 
hDlgPrint = NULL ; 
return TRUE ; 

} 

return FALSE ; 


BOOL CALLBACK AbortProc (HDC hPrinterDC, int iCode) 

{ 

MSG msg ; 

while (!bUserAbort && PeekMessage (&msg, NULL, ◦, ◦, PM_REMOVE)) 

{ 

if (!hDlgPrint || !IsDialogMessage (hDlgPrint, &msg)) 

{ 
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TranslateMessage (&msg); 


} 

DispatchMessage (&msg); 

} 

} 

return ! bUserAbort ; 


BOOL 

PopPrntPrintFile 

(HINSTANCE 

hlnst, HWND hwnd, HWND hwndEdit, 




PTSTR 

szTitleName) 




static DOCINFO 

di = { sizeof (DOCINFO) }; 


static PRINTDLG 

pd ； 



BOOL 

bSuccess ; 



int 

yChar, iCharsPerLine, iLinesPerPage , iTotalLines, 



iTotalPages, iPage, iLine, iLineNum ; 


PTSTR 

pstrBuf fer 

參 

f 


TCHAR 

szJobName 

[64 + MAX PATH]; 


TEXTMETRIC 

tm ; 



WORD 

iColCopy, 

iNoiColCopy ; 



// Invoke Print common dialog box 


pd.IStructSize 

— 

sizeof (PRINTDLG); 


pd.hwndOwner 

— 

hwnd ; 


pd.hDevMode 

— 

NULL ; 


pd.hDevNames 

— 

NULL ; 


pd.hDC 

二 

NULL ; 


pd.Flags 

— 

PD ALLPAGES | PD COLLATE | 



PD 

RETURNDC | PD NOSELECTION ; 


pd.nFromPage 

— 

0 ； 


pd.nToPage 

— 

0 ； 


pd.nMinPage 

ZZ ： 

0 ； 


pd.nMaxPage 

— 

0 ； 


pd.nCopies 

— 

1 ； 


pd.hlnstance 

— 

NULL ; 


pd.lCustData 

ZZI 

0L ; 


pd . lpfnPrintHook 

— 

NULL ; 


pd . lpfnSetupHook 

— 

NULL ; 


pd . IpPrintTemplateName = 

NULL ; 


pd . IpSetupTemplateName = 

NULL ; 


pd . hPrintTemplate = 

NULL ; 


pd . hSetupTemplate = 

NULL ; 


if ( ! PrintDlg 

(&pd)) 




return TRUE ; 


if (0 == (iTotalLines = SendMessage (hwndEdit, EM GETLINECOUNT A 0, ◦))) 
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return TRUE ; 


// Calculate necessary metrics for file 


GetTextMetries (pd.hDC, &tm); 

yChar = tm.tmHeight + tm.tmExternalLeading ; 

iCharsPerLine = GetDeviceCaps (pd.hDC, HORZRES) / tm.tmAveCharWidth ; 
iLinesPerPage = GetDeviceCaps (pd.hDC, VERTRES) / yChar ; 
iTotalPages = (iTotalLines + iLinesPerPage - 1) / iLinesPerPage ; 


// Allocate a buffer for each line of text 


pstrBuf fer = malloc (sizeof (TCHAR) * (iCharsPerLine + 1)); 


// Display the printing dialog box 


EnableWindow (hwnd, FALSE); 


bSuccess 

bUserAbort 


=TRUE ; 
FALSE ; 


hDlgPrint 


PrintDlgProc); 


CreateDialog (hlnst, TEXT (’’PrintDlgBox ’，）， 

hwnd 


SetDlgltemText (hDlgPrint, IDC_FILENAME, szTitleName); 
SetAbortProc (pd.hDC, AbortProc); 


// Start the document 

GetWindowText (hwnd, szJobName, sizeof (szJobName)); 
di.IpszDocName = szJobName ; 
if (StartDoc (pd.hDC, &di) > 0) 

{ 

/ / Collation requires this loop and 

iNoiColCopy 

for (iColCopy = 0 ; 

iColCopy < ((WORD) pd.Flags & PD_COLLATE ? 

pd.nCopies : 1); 

iColCopy++) 

{ 

for (iPage = 0 ; iPage < iTotalPages ; iPage++) 

{ 

for (iNoiColCopy = 0 ; 

iNoiColCopy < (pd.Flags & PD—COLLATE ? 1 : pd.nCopies); 

iNoiColCopy++) 

{ 

// Start the page 
if (StartPage (pd.hDC) < 0) 
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FALSE ; 


else 


bSuccess 


break 


// For each page, print the lines 
for (iLine = 0 ; iLine < iLinesPerPage ; iLine++) 

{ 

iLineNum = iLinesPerPage * iPage + iLine ; 
if (iLineNum > iTotalLines) 

break ; 

* (int *) pstrBuffer = iCharsPerLine ; 

TextOut (pd.hDC, ◦, yChar * iLine, pstrBuffer, 

(int) SendMessage (hwndEdit, EM_GETLINE, 

(WPARAM) iLineNum, (LPARAM) pstrBuffer)); 


if (EndPage (pd.hDC) < 0) 


bSuccess = FALSE ; 


break ; 


if (bUserAbort) 
break ; 


if (!bSuccess || bUserAbort) 
break ; 


if (!bSuccess || bUserAbort) 
break ; 


(bSuccess) 


bSuccess = FALSE ; 


EndDoc (pd.hDC); 


(!bUserAbort) 


EnableWindow (hwnd, TRUE) 
DestroyWindow (hDlgPrint) 


free (pstrBuffer); 
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DeleteDC (pd.hDC) ; 

return bSuccess && !bUserAbort ; 

} 

与 POPPAD 尽量利用 Windows 高阶功能来简化程式的方针一致， POPPRNT . C 
档案展示了使用 PrintDlg 函式的方法。这个函式包含在通用对话方块程式库 
(common dialog box library ) 中，使用一▲个 PRINTDLG 型态的结构。 

通常，程式的 「 File 」 功能表中有个 「 Print 」 选项。当使用者选中 「 Print 」 
选项时，程式可以初始化 PRINTDLG 结构的栏位，并呼叫 PrintDlg 。 

PrintDlg 显示一个对话方块，它允许使用者选择列印页的范围。因此，这 
个对话方块特别适用於像 P 0 PPAD 这样能列印多页文件的程式。这种对话方块同 
时也给出了一个确定副本份数的编辑区和名为 「Collate (逐份列印）」的核取 
方块。「逐份列印」影响著多个副本页的顺序。例如，如果文件是3页，使用 
者要求列印三份副本，则这个程式能以两种顺序之一列印它们。选择逐份列印 
後的副本的页码顺序为1、2、3、1、2、3、1、2、3，未选择逐份列印的副本的 
页码顺序是1、1、1、2、2、2、3、3、3。程式在这里应负起的责任就是以正确 
的顺序列印副本。 

这个对话方块也允许使用者选择非内定印表机，它包括一个标记为 
[ Properties ] 的按钮，可以启动设备模式对话方块。这样，至少允许使用者 
选择直印或横印。 

从 PrintDlg 函式传回後， PRINTDLG 结构的栏位指明列印页的范围和是否对 
多个副本进行逐份列印。这个结构同时也给出了准备使用的印表机装置内容代 
号。 

在 P 0 PPRNT . C 中， PopPrntPrintFile 函式（当使用者在 「 File 」 功能表里 
选中 「 Print 」 选项时，它由 POPPAD 呼叫）呼叫 PrintDlg ， 然後开始列印档案。 
PopPrntPrintFile 完成某些计算，以确定一行能容纳多少字元和一页能容纳多 
少行。这个程序涉及到呼叫 GetDeviceCaps 来确定页的解析度，呼叫 
GetTextMetrics 来确定字元的大小。 

这个程式通过发送一条 EM _ GETLINECOUNT 讯息给编辑控制项来取得文件中 
的总行数（在变数 iTotalLines 中）。储存各行内容的缓冲区配置在局部记忆 
体中。对每一行，缓冲区的第一个字被设定为该行中字元的数目。把 EM_GETLINE 
讯息发送给编辑控制项可以把一行复制到缓冲区中，然後用 TextOut 把这一行 
送到印表机装置内容中 ( POPPRNT . C 还没有聪明到对超出列印宽度的文字换到下 
一行去处理。在第十七章我们会讨论这种文字绕行的技术）。 

为了确定副本份数，应注意列印文字的处理方式包括两个 for 回圈。第一 
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个 for 回圈使用了一个叫作 iColCopy 的变数，当使用者指定将副本逐份列印时， 
它将会起作用。第二个 for 回圈使用了一个叫作 iNonColCopy 的变数，当不对 
副本进行逐份列印时，它将起作用。 

如果 StartPage 或 EndPage 传回一个错误，或者如果 bUserAbort 为 TRUE ， 
那么这个程式退出增加页号的那个 for 回圈。如果放弃程序的传回值是 FALSE ， 
则 EndPage 不传回错误。正是由於这个原因，在下一页开始之前，要直接测试 
bUserAbort 。 如果没有报告错误，则进行 EndDoc 呼叫： 

if ( ! bError) 

EndDoc (hdcPrn); 

您可能想通过列印多页档案来测试 POPPADo 您可以从列印任务视窗中监视 
列印进展情况。在 GDI 处理完第一个 EndPage 呼叫之後，首先列印的档案将显 
示在列印任务视窗中。此时，幕後列印程式开始把档案发送到印表机。然後， 
如果在 H 3 PPAD 中取消列印作业，那么幕後列印程式将终止列印，这也就是放弃 
程序传回 FALSE 的结果。当档案出现在列印任务视窗中，您也可以透过从 
rDocumentJ 功能表中选择 「Cancel Printing 」 来取消列印作业，在这种情况 
下， P 0 PPAD 中的 EndPage 呼叫会传回一个错误。 

Windows 的程式设计的新手经常会抱住 AbortDoc 函式不放，但实际上这个 
函式几乎不在列印中使用。像在 P 0 PPAD 中看到的那样，使用者几乎随时可以取 
消列印作业，或者通过 P 0 PPAD 的列印对话方块及通过列印任务视窗。这两种方 
法都不需要程式使用 AbortDoc 函式。 P 0 PPAD 中允许 AbortDoc 的唯一时刻是在 
对 StartDoc 的呼叫和对 EndPage 的第一个呼叫之间，但是程式很快就会执行过 
去，以至不再需要 AbortDoc 。 

图 13-3 显示出正确列印多页文件之列印函式的呼叫顺序。检查 bUserAbort 
的值是否为 TRUE 的最佳位置是在每个 EndPage 函式之後。只有当对先前的列印 
函式的呼叫没有产生错误时，才使用 EndDoc 函式。实际上，如果任何一个列印 
函式的呼叫出现错误，那么表演就结束了，同时您也可以回家了。 
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图 13-3 列印一个文件时的函式呼叫顺序 
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第十四章点阵图和 Bitblt 

点阵图是一个二维的位元阵列，它与图像的图素 一一 对应。当现实世界的 
图像被扫描成点阵图以後，图像被分割成网格，并以图素作为取样单位。在点 
阵图中的每个图素值指明了一个单位网格内图像的平均颜色。单色点阵图每个 
图素只需要一位元，灰色或彩色点阵图中每个图素需要多个位元。 

点阵图代表了 Windows 程式内储存图像资讯的两种方法之一。储存图像资 
讯的另一种形式是 metafile ， 我将在第十八章讨论。 Metafile 储存的就是对图 
像如何生成的描述，而不是将图像以数位化的图示代表。 

以後我将更详细地讨论 ， Microsoft Windows 3. 0定义了一种称为装置无关 
点阵图 ( DIB ： device-independent bitmap ) 。我将在下一章讨论 DIB 。 本章主 
要讨论 GDI 点阵图物件，这是一种在 Windows 中比 DIB 更早支援的点阵图形资 
料。如同本章大量的范例程式所说明的，这种比 DIB 点阵图更早被 Windows 支 
援的图形格式仍然有其利用价值。 

点阵图入门 

点阵图和 metafile 在电脑图形处理世界中都占有一席之地。点阵图经常用 
来表示来自真实世界的复杂图像，例如数位化的照片或者视讯图像 。 Metafile 
更适合於描述由人或者机器产生的图像，比如建筑蓝图。点阵图和 metafile 都 
能存於记忆体或作为档案存於磁片上，并且都能通过剪贴簿在 Windows 应用程 
式之间传输。 

点阵图和 metafile 的区别在於位元映射图像和向量图像之间的差别。位元 
映射图像用离散的图素来处理输出 设备； 而向量图像用笛卡尔座标系统来处理 
输出设备，其线条和填充物件能被个别拖移。现在大多数的图像输出设备是位 
元映射设备，这包括视讯显示、点阵印表机、雷射印表机和喷墨印表机。而笔 
式绘图机则是向量输出设备。 

点阵图有两个主要的缺点。第一个问题是容易受装置依赖性的影响。最明 
显的就是对颜色的依赖性，在单色设备上显示彩色点阵图的效果总是不能令人 
满意的。另一个问题是点阵图经常暗示了特定的显示解析度和图像纵横比。尽 
管点阵图能被拉伸和缩小，但是这样的处理通常包括复制或删除图素的某些行 
和列，这样会破坏图像的大小。而 metafile 在放大缩小後仍然能保持图形样貌 
不受破坏。 

点阵图的第二个缺点是需要很大的储存空间。例如，描述完整的 640 X 480 
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图素，16色的视频图形阵列 ( VGA ： Video Graphics Array ) 萤幕的一幅点阵图 
需要大於150 KB 的 空间； 一幅1024 X 768,并且每个图素为24位元颜色的图像 
则需要大於2 MB 的空间。 Metafile 需要通常比点阵图来得少的空间。点阵图的 
储存空间由图像的大小及其包含的颜色决定，而 metafile 的储存空间则由图像 
的复杂程度和它所包含的 GDI 指令数决定。 

然而，点阵图优於 metafile 之处在於速度。将点阵图复制给视讯显示器通 
常比复制基本图形档案的速度要快。最近几年，压缩技术允许压缩点阵图的档 
案大小，以使它能有效地通过电话线传输并广泛地用於 Internet 的网页上。 

点阵图的来源 


点阵图可以手工建立，例如，使用 Windows 98附带的「小画家」程式 。一 
些人宁愿使用位元映射绘图软体也不使用向量绘图软体。他们 假定： 图形最後 
一定会复杂到不能用线条跟填充区域来表达。 

点阵图图像也能由电脑程式计算生成。尽管大多数计算生成的图像能按向 
量图形 metafile 储存，但是高清晰度的画面或碎形图样通常还是需要点阵图。 

现在，点阵图通常用於描述真实世界的图像，并且有许多硬体设备能让您 
把现实世界的图像输入到电脑。这类硬体通常使用 电荷耦合装置 （ CCD : 
charge-coupled device ) ,这种装置接触到光就释放电荷。有时这些 CCD 单元 
能排列成一组，一个图素对应一个 CCD ; 为节约开支，只用一行 CCD 扫描图像。 

在这些电脑 CCD 设备中， 扫描器 是最古老的。它用一行 CCD 沿著纸上图 
像（例如照片）的表面扫描。 CCD 根据光的强度产生电荷。类比数位转换器 ( ADC ： 
Analog - to-digital converters ) 把电荷转换为数位讯号，然後排列成点阵图。 

携带型摄像机也利用 CXD 单元组来捕捉影像。通常，这些影像是记录到录 
影带上。不过，这些视讯输出也能直接进入 影像捕捉器 (frame grabber ) ， 
该装置能把类比视讯信号转换为一组图素值。这些影像捕捉器与任何相容的视 
讯信号来源都能同时使用，例如 VCR 、 光碟、 DVD 播放机或有线电视解码器。 

最近，数位照相机的价位对於家庭使用者来说开始变得负担得起了。它看 
起来很像普通照相机。但是数位照相机不使用底片，而用一组 CCD 来拦截图像， 
并且在 ADC 内部把数位图像直接储存在照相机内的记忆体中。通常，数位照相 
机与电脑的介面要通过序列埠。 


占阵 


尺寸 


点阵图呈矩形，并有空间尺寸，图像的高度和宽度都以图素为单位。例如， 
此网格可描述一个很小的点 阵图： 宽度为9图素，高度为6图素，或者更简单 
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地计为 9 X 6： 


01 2 3 4 5 6 7 8 

0 

1 

2 

3 

4 

5 

习惯上，点阵图的速记尺寸是先给出宽度。点阵图总数为 9 X 6 或者54图 
素。我将经常使用符号 CX 和 cy 来表示点阵图的宽度和高度。 （: 表示计数，因此 
cx 和 cy 是沿著 x 轴（水平）和 y 轴（垂直）的图素数。 

我们能根据 x 和 y 座标来描述点阵图上具体的图素。一般（并不都是这样）， 
在网格内计算图素时，点阵图开始於图像的左上角。这样，在此点阵图右下角 
的图素座标就是(8, 5)。因为从0开始计数，所以此值比图像的宽度和高度小1。 

点阵图的空间尺寸通常也指定了解析度，但这是一个有争议的词。我们说 
我们的视讯显示有640 X 480的解析度，但是雷射印表机的解析度只有每英寸300 
点。我喜欢用後一种情况中解析度的意思作为每单位图素的数量。点阵图在这 
种意义上的解析度指的是点阵图在特定测量单位中的图素数。不管怎样，当我 
使用解析度这个词语时，其定义的内容应该是明确的。 

点阵图是矩形的，但是电脑记忆体空间是线性的。通常（但并不都是这样) 
点阵图按列储存在记忆体中，且从顶列图素开始到底列结束。 （ DIB 是此规则的 
一个主要例外）。每一列，图素都从最左边的图素开始依次向右储存。这就好 
像储存几列文字中的各个字元。 


颜色和点阵图 


除空间尺寸以外，点阵图还有颜色尺寸。这里指的是每个图素所需要的位 
元数，有时也称为点阵图的颜 色深度 （color depth ) 、 位元数 ( bit - count ) 
或 位元/图素 （ bpp : bits per pixel ) 数。点阵图中的每个图素都有相同数 
量的颜色位元。 

每图素1位元的点阵图称为 二阶 （ bilevel )、 二色 （ bicolor ) 或者单 
色 （ monochrome ) 点阵图。每图素可以是0或1，0表示黑色，1可以表示白色， 
但并不总是这样。对於其他颜色， 一 个图素就需要有多个位元。可能的颜色值 
等於2位元数值。用2位元可以得到4种颜色，用4位元可以得16种颜色，8 
位元可得到256种颜色，16位元可得到65, 536种颜色，而24位元可得到 
16, 777, 216种颜色。 
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如何将颜色位元的组合与人们所熟悉的颜色相对应是目前处理点阵图时 
经常碰到（而且常常是灾难）的问题。 

实际的设备 

点阵图可按其颜色位元数来分类；在 Windows 的发展过程中，不同的点阵 
图颜色格式取决於常用视讯显示卡的功能。实际上，我们可把视讯显示记忆体 
看作是一幅巨大的点阵图 一一 我们从显示器上就可以看见。 

Windows 1.0 多数采用的显示卡是 IBM 的彩色图像适配器 ( CGA ： Color 
Graphics Adapter ) 和单色图形卡 （ HGC : Hercules Graphics Card) 。 HGC 是 
单色设备，而 CGA 也只能在 Windows 以单色图形模式使用。单色点阵图现在还 
很常用（例如，滑鼠的游标一般为单色），而且单色点阵图除显示图像以外还 
有其他用途。 

随著增强型图形显示卡 （ EGA : Enhanced Graphics Adapter ) 的出现 ， Windows 
使用者开始接触16色的图形。每个图素需要4个颜色位元。（实际上， EGA 比 
这里所讲的更复杂，它还包括一个64种颜色的调色盘，应用程式可以从中选择 
任意的16种颜色，但 Windows 只按较简单的方法使用 EGA ) 。在 EGA 中使用的 
16种颜色是黑、白、两种灰色、高低亮度的红色、绿和蓝（三原色）、青色（蓝 
和绿组合的颜色）。现在认为这16种颜色是 Windows 的最低颜色标准。同样， 
其他16色点阵图也可以在 Windows 中显示。大多数的图示都是16色的点阵图。 
通常，简单的卡通图像也可以用这16种颜色制作。 

在16色点阵图中的颜色编码有时称为 IRGB (高亮红 绿蓝： 
Intensity - Red - Green - Blue ) ，并且实际上是源自 IBM CGA 文字模式下最初使 
用的十六种颜色。每个图素所用的4个 IRGB 颜色位元都映射为表 14-1 所示的 
Windows 十六进位 RGB 颜色。 


表 14-1 


IRGB 

RGB 颜色 

颜色名称 

0000 

oo - oo-oo 

甲 

0001 

00-00-80 

暗蓝 

0010 

00-80-00 

暗绿 

0011 

00-80-80 

暗青 

0100 

80-00-00 

暗红 

0101 

80-00-80 

暗洋红 

0110 

80-80-00 

暗黄 

0111 

co - co-co 

亮灰 
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1000 

80-80-80 

暗灰 

1001 

00-00-FF 

蓝 

1010 

00-FF-00 

绿 

1011 

00-FF-FF 

青 

1100 

FF-00-00 

红 

1101 

FF-00-FF 

洋红 

1110 

FF-FF-00 

黄 

1111 

FF-FF-FF 

r 


EGA 的记忆体组成了四个「颜色面」，也就是说，定义每个图素颜色的四位 
元在记忆体中是不连续的。然而，这样组织显示记忆体便於使所有的亮度位元 
都排列在一起、所有的红色位元都排在一起，等等。这样听起来就好像一种设 
备依赖特性，即 Windows 程式写作者不需要了解所有细节，但这时应或多或少 
地知道一些。不过，这些颜色面会出现在一些 API 呼叫中，例如 GetDeviceCaps 
和 CreateBitmap 0 

Windows 98和 Microsoft Windows NT 需要 VGA 或解析度更高的图形卡。这 
是目前公认的显示卡的最低标准。 

1987年， IBM 最早发表视讯图像阵列 (Video Graphics Array ： VGA ) 以及 
PS /2 系列的个人电脑。它提供了许多不同的显示模式，但最好的图像模式 
( Windows 也使用其中之一）是水平显示640个图素，垂直显示480个图素，带 
有16种颜色。要显示256种颜色，最初的 VGA 必须切换到 320 X 240 的图形模 
式，这种图素数不适合 Windows 的正常工作。 

一般人们已经忘记了最初 VGA 卡的颜色限制，因为其他硬体制造商很快就 
开发了 「 Super - VGA 」（ SVGA ) 显示卡，它包括更多的视讯记忆体，可显示256 
种颜色并有多於 640 X 480 的模式。这是现在的标准，而且也是一件好事，因为 
对於现实世界中的图像来说，16种颜色过於简单，有些不适合。 

显示256种颜色的显示卡模式采用每图素8位元。不过，这些8位元值都 
不必与实际的颜色相符。事实上，显示卡提供了「调色盘对照表 （palette lookup 
table ) 」，该表允许软体指定这8位元的颜色值，以便与实际颜色相符合。在 
Windows 中，应用程式不能直接存取调色盘对照表。实际上， Windows 储存了 256 
种颜色中的20种，而应用程式可以通过 「 Windows 调色盘管理器」来自订其余 
的236种颜色。关於这些内容，我将在第十六章详细介绍。调色盘管理器允许 
应用程式在256色显示器上显示实际点阵图。 Windows 所储存的20种颜色如表 
14-2 所示。 

表 14-2 
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IRGB 

RGB 颜色 

颜色名称 

00000000 

00-00-00 

里 

00000001 

80-00-00 

暗红 

00000010 

00-80-00 

暗绿 

00000011 

80-80-00 

暗黄 

00000100 

00-00-80 

暗蓝 

00000101 

80-00-80 

暗洋红 

00000110 

00-80-80 

暗青 

00000111 

co-co-co 

亮灰 

00001000 

C0-DC-C0 

美元绿 

00001001 

A6-CA-F0 

天蓝 

11110110 

FF-FB-F0 

乳白 

11110111 

A0-A0-A4 

中性灰 

11111000 

80-80-80 

暗灰 

11111001 

FF-00-00 

红 

11111010 

00-FF-00 

绿 

11111011 

FF-FF-00 

黄 

11111100 

00-00-FF 

蓝 

11111101 

FF-00-FF 

洋红 

11111110 

00-FF-FF 

青 

11111111 

FF-FF-FF 

白 


最近几年， True - Color 显示卡很普遍，它们在每图素使用16位元或24位 
元。有时每图素虽然用了 16位元，其中有1位元不用，而其他15位元主要近 
似於红、绿和蓝。这样红、绿和蓝每种都有32色阶，组合起来就可以达到32, 768 
种颜色。更普遍的是，6位元用於绿色（人类对此颜色最敏感），这样就可得到 
65, 536种颜色。对於非技术性的 PC 使用者来说，他们并不喜欢看到诸如32, 768 
或65, 536之类的数字，因此通常将这种视讯显示卡称为 Hi - Color 显示卡，它 
能提供数以千计的颜色。 

到了每个图素24位元时，我们总共有了 16, 777, 216种颜色（或者 True 
Color , 数百万的颜色），每个图素使用3位元组。这与今後的标准很相似，因 
为它大致代表了人类感官的极限而且也很方便。 

在呼叫 GetDeviceCaps 时（参见第五章的 DEVCAPS 程式），您能利用 
BITSPIXEL 和 PLANES 常数来获得显示卡的颜色单位，这些值显示如表 14-3 所示 

表 14-3 
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BITSPIXEL 

PLANES 

颜色数 

1 

1 

2 

1 

4 

16 

8 

1 

256 

15 或 16 

1 

32,768 或 65 536 

24 或 32 

1 

16 777 216 


最近，您应该不会再碰到单色显示器了，但即便碰到了，您的应用程式也 
应该不会发生问题。 

GDI 支援的点阵图 

Windows 图形装置介面 （ GDI : Graphics Device Interface ) 从 L 0 版开始 
支援点阵图。不过，一直到 Windows 3. 0以前， Windows 下唯一支援 GDI 物件的 
只有点阵图，以点阵图代号来使用。这些 GDI 点阵图物件是单色的，或者与实 
际的图像输出设备（例如视讯显示器）有相同的颜色单位。例如，与16色 VGA 
相容的点阵图有四个颜色面。问题是这些颜色点阵图不能储存，也不能用於颜 
色单位不同的图像输出设备（如每图素占8位元就可以产生256种颜色的设备) 
上。 

从 Windows 3.0 开始，定义了一种新的点阵图格式，我们称之为装置无关 
点阵图 （ device-independent bitmap ) ，或者 DIB 。 DIB 包括了自己的调色盘， 
其中显示了与 RGB 颜色相对应的图素位元。 DIB 能显示在任何位元映射输出设备 
上。这里唯一的问题是 DIB 的颜色通常一定会转换成设备实际表现出来的颜色。 

与 DIB 同时 ， Windows 3. 0还介绍了 「 Windows 调色盘管理器」，它让程式 
能够从显示的256种颜色中自订颜色。就像我们在第十六章所看到的那样，应 
用程式通常在显示 DIB 时使用「调色盘管理器」。 

Microsoft 在 Windows 95 (和 Windows NT 4. 0) 中扩展了 DIB 的定义，并 
且在 Windows 98 (和 Windows NT 5.0) 中再次扩展。这些扩展增加了所谓的「图 
像颜色管理器 （ ICM : Image Color Management ) ，并允许 DIB 更精确地指定图 
像所需要的颜色。我将在第十五章简要讨论 ICM 。 

不论 DIB 多么重要，在处理点阵图时，早期的 GDI 点阵图物件依然扮演了 
重要的角色。掌握点阵图使用方式的最好方法是按各种用法在演进发展的时间 
顺序来学习，先从 GDI 点阵图物件和位元块传输的概念开始。 
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位元块传输 


我前面提到过，您可以把整个视讯显示器看作是一幅大点阵图。您在萤幕 
上见到的图素由储存在视讯显示卡上记忆体中的位元来描述。任何视讯显示的 
矩形区域也都是一个点阵图，其大小是它所包含的行列数。 

让我们从将图像从视讯显示的一个区域复制到另一个区域，开始我们在点 
阵图世界的旅行吧！这个是强大的 BitBlt 函式的工作。 

Bitblt (读作 「bit blit 」） 代表「位元块传输 （ bit-block transfer )」。 
BLT 起源於一条组合语言指令，该指令在 DEC PDP -10 上用来传输记忆体块。术 
语 「 bitblt 」 第—▲次用在图像上与 Xerox Palo Alto Research Center ( PARC ) 
设计的 SmallTalk 系统有关。在 SmallTalk 中，所有的图形输出操作都使用 
bitblt 。 程式写作者有时将 bit 用作动词，例如 ： 「Then I wrote some code to 
bit the happy face to the screen and play a wave file . 」 

BitBlt 函式移动的是图素，或者（更明确地）是一个位元映射图块。您将 
看到，术语「传输 （ transfer ) 」与 BitBlt 函式不尽相同。此函式实际上对图 
素执行了一次位元操作，而且可以产生一些有趣的结果。 

简单的 BitBlt 


程式 14-1 所示的 BITBLT 程式用 BitBlt 函式将程式系统的功能表图示（位 
於程式 Windows 的左上角）复制到它的显示区域。 


程式 14-1 BITBLT 


BITBLT.C 

/* - 

BITBLT.C -- BitBlt Demonstration 

(c) Charles Petzold, 1998 

- */ 


♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


static TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName [] = TEXT ("BitBlt"); 

hwnd ; 

msg ; 

wndclass ; 


wndclass.style = CS_HREDRAW | CS_VREDRAW ; 

wndclass.lpfnWndProc = WndProc ; 

wndclass.cbClsExtra = 0 ; 
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wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=hlnstance ; 

=Loadlcon (NULL, IDI_INFORMATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=NULL ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT (’'This program requires Windows NT !’’）， 

szAppName, 


MB_ICONERROR); 

return 0 ; 



hwnd = CreateWindow ( szAppName A TEXT ("BitBlt Demo ’，）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USE DEFAULT, 
CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 


static int 

HDC 

int 

PAINTSTRUCT 


cxClient, cyClient, cxSource, cySource ; 
hdcClient, hdcWindow ; 
x, y ； 

ps ; 


switch (message) 

{ 


case WM CREATE : 


cxSource = 
GetSystemMetries 
cySource = 
GetSystemMetries 
return 0 ; 


GetSystemMetrics 
(SM—CXSIZE); 
GetSystemMetrics 
(SM CYCAPTION); 


(SM_CXSIZEFRAME) + 
(SM CYSIZEFRAME) + 


第 598 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 
case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM—PAINT: 

hdcClient = BeginPaint (hwnd, &ps); 
hdcWindow = GetWindowDC (hwnd); 

for (y = 0 ; y < cyClient ; y += cySource) 
for (x = ◦ ; x < cxClient ; x += cxSource) 

{ 

BitBlt (hdcClient, x, y, cxSource, cySource, 

hdcWindow, SRCCOPY); 

} 

ReleaseDC (hwnd, hdcWindow); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

但为什么只用了一个 BitBlt 呢？实际上，那个 BITBLT 用系统功能表图示 
的多个副本来填满显示区域（在此情况下是资讯方块中普遍使用的 
IDI_INFORMATION 图示），如图 14-1 所示。 
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BKBII 



Inlxl 


eeeeeeeeeeeeeeeeeeeeeeeeeeeel 

□eeeeeeeeeeebeeeebeeeeeeeeeel 

eeeeeeeeeeeeueeeeueeeeeeeeulx 

eeeeeeeeeeeeeebeebeeeeeeeeeel 

EEEEEEEEEEEEBEEEEBEEEEEBEEEEC 

□eeeeeeeeeeebeeeeeeeeeebeeeel 

eeeeeeeeeeeeeeeeeeeeeeeeeeeel 

eeeeeeeeeeeeeeeeebeeeeeeeeeel 

EEEEEEEL2EEEEBEEEEBEEEEEEEEEBL 

EEEEEEEEEEEEEEEEEEEEEEEEEEEEL 

EEEEEEEEEEEEBEEEEBEEEEEEEEEEL 

eeeeeeeeeeeeeeeeeeeeeeeeeeeel 

eeeeeeeeeeeeeeeeeeeeeeeeeeeec 

EEEEEEEEEEEEEEEEEEEEEEEEEEEEC 

eeeeeeeeeeeebeeeebeeeeeeeeeec 

eeeeeeeeeeeeeeeeeeeeeeeeeeee[ 


图 14-1 BITBLT 的萤幕显示 


BitBlt 函式从称为「来源」的装置内容中将一个矩形区的图素传输到称为 
「目的 ( destination )」 的另一个装置内容中相同大小的矩形区。此函式的语法 
如下： 

BitBlt (hdcDst, xDst, yDst, cx, cy, hdcSrc, xSrc, ySrc, dwROP); 

来源和目的装置内容可以相同。 

在 BITBLT 程式中，目的装置内容是视窗的显示区域，装置内容代号从 
BeginPaint 函式获得。来源装置内容是应用程式的整个视窗，此装置内容代号 
从 GetWindowDC 获得的。很明显地，这两个装置内容指的是同一个实际设备（视 
讯显示器）。不过，这两个装置内容的座标原点不同。 

xSix 和 ySrc 参数指明了来源图像左上角的座标位置。在 BITBLT 中，这两 
个参数设为0,表示图像从来源装置内容（也就是整个视窗）的左上角开始 ， cx 
和 cy 参数是图像的宽度和高度。 BITBLT 根据从 GetSytemMetrics 函式获得的资 
讯来计算这些值。 

xDst 和 yDst 参数表示了复制图像位置左上角的座标位置。在 BITBLT 中， 
这两个参数设定为不同的值以便多次复制图像。对於第一次 BitBlt 呼叫，这两 
个参数设制为0,将图像复制到显示区域的左上角位置。 

BitBlt 的最後一个参数是位元映射操作型态。我将简短地讨论一下这个值。 
请注意， BitBlt 是从实际视讯显示记忆体传输图素，而不是从系统功能表 
图示的其他图像传输。如果您移动 BITBLT 视窗以使部分系统功能表图示移出萤 
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幕，然後调整 BITBLT 视窗的尺寸使其重画，这时您将发现 BITBLT 显示区域中 
显示的是功能表图示的一部分。 BitBlt 函式不再存取整个图像。 

在 BitBlt 函式中，来源和目的装置内容可以相同。您可以重新编写 BITBLT 
以使 WM_PAINT 处理执行以下 内容： 


BitBlt (hdcClient , ◦, ◦, cxSource, cySource, 

hdcWindow, 0 , 0 , SRCCOPY); 
for (y = 0 ; y < cyClient ; y += cySource) 
for (x = ◦ ; x < cxClient ; x += cxSource) 




if (x > 0 M y > 0) 

BitBlt (hdcClient, x, y, cxSource, cySource , 
hdcClient, ◦, ◦, SRCCOPY); 


这将与前面显示的 BITBLT 一 样产生相同的效果，只是显示区域左上角比较 
模糊。 

在 BitBlt 内的最大限制是两个装置内容必须是相容的。这意味著或者其中 
之一必须是单色的，或者两者的每个图素都相同的位元数。总而言之，您不能 
用此方法将萤幕上的某些图形复制到印表机。 


拉伸点阵图 


在 BitBlt 函式中，目的图像与来源图像的尺寸是相同的，因为函式只有两 
个参数来说明宽度和高度。如果您想在复制时拉伸或者压缩图像尺寸，可以使 
用 StretchBlt 函式。 StretchBlt 函式的语法如下： 

StretchBlt ( hdcDst, xDst, yDst, cxDst, cyDst, 

hdcSrc, xSrc, ySrc, cxSrc, cySrc, dwROP); 

此函式添加了两个参数。现在的函式就分别包含了目的和来源各自的宽度 
和高度。 STRETCH 程式展示了 StretchBlt 函式，如程式 14-2 所示。 

程式 14-2 STRETCH 

STRETCH.C 

/* - 

STRETCH.C -- StretchBlt Demonstration 

(c) Charles Petzold, 1998 


V 

♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName [] = TEXT ("Stretch"); 
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HWND 

MSG 

WNDCLASS 


hwnd ; 

msg ; 

wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 


wndclass 

wndclass 

wndclass 

wndclass 

wndclass 


.cbClsExtra 
.cbWndExtra 
.hlnstance 
.hlcon 
.hCursor 


wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI_INFORMATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE_BRUSH); 
=NULL ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows 

NT ! n ), 

szAppName, 

MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow (szAppName, TEXT ("StretchBlt Demo"), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, 

CW—USEDEFAULT, 

CW USEDEFAULT, 


CW USEDEFAULT, 


NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 


UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, ◦, 0)) 


{ 

TranslateMessage (&msg) 
DispatchMessage (&msg) 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( 
IParam) 

{ 

static int 
HDC 

PAINTSTRUCT 


HWND hwnd, UINT message, WPARAM wParam, LPARAM 

cxClient, cyClient, cxSource, cySource ; 
hdcClient, hdcWindow ; 
ps ; 
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switch (message) 

/ 




1 

case 

WM CREATE : 





cxSource = 

GetSystemMetries 

(SM_CXSIZEFRAME) + 



GetSystemMetries 

(SM CXSIZE); 




cySource = 

GetSystemMetries 

(SM_CYSIZEFRAME) + 



GetSystemMetries 

(SM CYCAPTION); 




return 0 ; 




case 

WM SIZE : 





cxClient = 

LOWORD (IParam); 




cyClient = 

return 0 ; 

HIWORD (IParam); 



case 

WM PAINT: 





hdcClient : 

=BeginPaint (hwnd 

, &ps); 



hdcWindow : 

=GetWindowDC (hwnd); 



StretchBlt 

(hdcClient, ◦, 0, 

cxClient, cyClient, 



hdcWindow, 0, ◦, 

cxSource, cySource, MERGECOPY); 



ReleaseDC 

(hwnd, hdcWindow) 

參 

f 



EndPaint (hwnd, &ps); 




return 0 ; 




case 

WM DESTROY: 





PostQuitMessage (0); 




return 0 ; 



} 

/ 

return DefWindowProc (hwnd. 

message, wParam, 

IParam); 


此程式只有呼叫了 StretchBlt 函式一次，但是利用此函式以系统功能表图 
示填充了整个显示区域，如图 14-2 所示。 
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图 14-2 STRETCH 的萤幕显示 


BitBlt 和 StretchBlt 函式中所有的座标与大小都是依据逻辑单位的。但是 
当您在 BitBlt 函式中定义了两个不同的装置内容，而这两个装置内容虽然参考 
同一个实际设备，却各自有著不同的映射模式，这时将发生什么结果呢？如果 
出现这种情况，呼叫 BitBlt 产生的结果就显得不明 确了： cx 和 cy 参数都是逻 
辑单位，而它们同样应用於来源装置内容和目的装置内容中的矩形区。所有的 
座标和尺寸必须在实际的位元传输之前转换为装置座标。因为 cx 和 cy 值同时 
用於来源和目的装置内容，所以此值必须转换为装置内容自己的单位。 

当来源和目的装置内容相同，或者两个装置内容都使用 MM_TEXT 图像模式 
时，装置单位下的矩形尺寸在两个装置内容中会是相同的，然後才由 Windows 
进行图素对图素的转换。不过，如果装置单位下的矩形尺寸在两个装置内容中 
不同时，则 Windows 就把此工作转交给更通用的 StretchBlt 函式。 

StretchBlt 也允许水平或垂直旋转图像。如果 cxSrc 和 cxDst 标记（转换 
成装置单位以後）不同，那么 StretchBlt 就建立一个镜 像:左 右旋转。在 STRETCH 
程式中，通过将 xDst 参数改为 cxClient 并将 cxDst 参数改成 -cxClient ， 您就 
可以做到这一点。如果 cySrc 和 cyDst 不同，则 StretchBlt 会上下旋转图像。 
要在 STRETCH 程式中测试这一点，可将 yDst 参数改为 cyClient 并将 cyDst 参 
数改成 - cyCliento 
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StretchBlt 模式 


使用 StretchBlt 会碰到一些与点阵图大小缩放相关的一些根本问题。在扩 
展一个点阵图时， StretchBlt 必须复制图素行或列。如果放大倍数不是原图的 
整数倍，那么此操作会造成产生的图像有些失真。 

如果目的矩形比来源矩形小，那么 StretchBlt 在缩小图像时就必须把两行 
(或列）或者多行（或列）的图素合并到一行（或列）。完成此操作有四种方 
法，它根据装置内容伸展模式属性来选择其中一种方法。您可使用 
SetStretchBltMode 函式来修改这个属性。 

SetstretchBltMode (hdc, iMode); 

iMode 可取下列值： 

• BLACKONWHITE 或者 STRETCH_ANDSCANS (内定）如果两个或多个图素得 
合并成一个图素，那么 StretchBlt 会对图素执行一个逻辑 AND 运算。 
这样的结果是只有全部的原始图素是白色时该图素才为白色，其实际意 
义是黑色图素控制了白色图素。这适用於白背景中主要是黑色的单色点 
阵图。 

• WHITEONBLACK 或 STRETCH _ ORSCANS 如果两个或多个图素得合并成一个 
图素，那么 StretchBlt 执行逻辑 OR 运算。这样的结果是只有全部的原- 
始图素都是黑色时才是黑色，也就是说由白色图素决定颜色。这适用於 
黑色背景中主要是白色的单色点阵图。 

• C 0 L 0 R 0 NC 0 L 0 R 或 STRETCH_DELETESCANS StretchBlt 简单地消除图素行 

或列，而没有任何逻辑组合。这是通常是处理彩色点阵图的最佳方法。 

• HALFTONE 或 STRETCH_HALFTONE Windows 根据组合起来的来源颜色来计 

算目的的平均颜色。这将与半调调色盘联合使用，第十六章将展示这一 
程序。 

Windows 还包括用於取得目前伸展模式的 GetStretchBltMode 函式。 

位元映射操作 

BITBLT 和 STRETCH 程式简单地将来源点阵图复制给了目的点阵图，在过程 
中也可能进行了缩放。这是把 SRCC 0 PY 作为 BitBlt 和 StretchBlt 函式最後一 
个参数的结果。 SRCC 0 PY 只是您能在这些函式中使用的256个位元映射操作中的 
一个。让我们先在 STRETCH 程式中做一个别的实验，然後再系统地研究位元映 
射操作。 

尽量用 N 0 TSRCX 0 PY 来代替 SRCC 0 PY 。 与它们名称一样，位元映射操作在复 
制点阵图时转换其颜色。在显示区域视窗，所有的颜色 转换： 黑色变成白色、 
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白色变成黑色，蓝色变成黄色。现在试一下 SRCINVERT ， 您将得到同样效果。如 
果试一下 BLACKNESS ， 正如其名称一样，整个显示区域都将变成黑色，而 
WHITENESS 则使其变成白色。 

现在试一试用下列三条叙述来代替 StretchBlt 呼叫： 

SelectObj ect (hdcClient , CreateHatchBrush (HS_DIAGCROSS, RGB (◦, 0, ◦))); 
StretchBlt ( hdcClient, 0, 0, cxClient, cyClient, 

hdcWindow, 0, 0, cxSource, cySource, MERGECOPY); 

DeleteObj ect (hdcClient, GetStockObj ect (WHITE—BRUSH)); 

这次，您将在图像上看到一个菱形的画刷，这是什么？ 

我在前面说过， BitBlt 和 StretchBlt 函式不是简单的位元块传输。此函式 
实际在下面三种图像间执行位元操作。 

Source 来源点阵图，拉伸或压缩（如果有必要）到目的矩形的尺寸。 
Destination 在 BitBlt 或 StretchBlt 呼叫之前的目的矩形。 

Pattern 在目的装置内容中选择的目前画刷，水平或垂直地复制到目的矩 
形范围内。 

结果是复制到了目的矩形中。 

位元映射操作与我们在第五章遇到的绘图模式在概念上相似。绘图模式采 
用图像物件的控制项方式，例如一条线就组合成一个目的。我们知道有16种绘 
图模式——也就是说，物件中的0和1画出时，唯一结果就是目的中0和1的 
组合。 

使用 BitBlt 和 StretchBlt 的位元映射操作包含了三个物件的组合，这将 
产生256种位元映射操作。有256种方法来组合来源点阵图、目的点阵图和图 
案。有15种位元映射操作已经命名——其中一些名称其实还不能够清楚清楚说 
明其意义——它们定义在 WINGDI . H 里头，其余的都有数值，列在 /Platform 
SDK/Graphics and Multimedia Services / GDI/Raster Operation Codes/Ternary 
Raster Operations 之中 。 

有名称的 15 种 R 0 P 代码见表14-4。 


表 14-4 


图案 （ P ) : 1 1 1 1 0 0 0 0 
来源 ( s ) : 110 0 110 0 

目的 （ D ) : 10 10 10 10 

布林操作 

R 0 P 代码 

名称 

结果： 

00000000 


0x000042 

BLACKNESS 


0 0 0 1 0 0 0 1 

〜 (S|D) 

0xll00A6 

N0TSRCERASE 


0 0 1 1 0 0 1 1 

〜 S 

0x330008 

N0TSRCC0PY 
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9 

1 

0 

0 

0 

1 

0 

0 

S & ~D 

0x440328 

SRCERASE 


0 

1 

0 

1 

0 

1 

0 

1 


0x550009 

DSTINVERT 


0 

1 

0 

1 

1 

El 

1 

0 

p 


N 

D 


0x5A0049 

PATINVERT 



1 

1 

0 

0 

1 

1 

m 

s 

A 

D 


0x660046 

SRCINVERT 



0 

0 

0 

1 

0 

0 

0 

S & D 

0x8800C6 

SRCAND 




1 

1 

1 

El 

1 

1 

〜 s 


0xBB0226 

MERGEPAINT 


B 


0 

0 

0 

0 

0 

0 

p 

k s 


OxCOOOCA 

MERGEC0PY 


1 

1 

0 

0 

1 

l 

0 

0 

s 

0xCC0020 

SRCC0PY 


1 

1 

1 

B 

1 

l 

1 

0 

s 


0xEE0086 

SRCPAINT 


1 

1 

1 

1 

0 

0 

0 

0 

p 

0xF00021 

PATC0PY 


1 

1 

1 

1 

1 

El 

1 

1 

p 

〜 s 

■ 

0xFB0A09 

PATPAINT 


1 

1 

1 

1 

1 

l 

1 

1 

1 

0xFF0062 

WHITENESS 


此表格对於理解和使用位元映射操作非常重要，因此我们应花点时间来研 
究。 

在这个表格中， 「 R 0 P 代码」行的值将传递给 BitBlt 或 StretchBlt 的最後 
一个 参数； 在「名称」行中的值在 WINGDI . H 定义。 R 0 P 代码的低字组协助装置 
驱动程式传输位元映射操作。高字组是0到255之间的数值。此数值与第2列 
的图案的位元相同，这是在图案、来源和显示在顶部的目的之间进行位元操作 
的结果。「布林运算」列按 C 语法显示图案、来源和目的的组合方式。 

要开始了解此表，最简单的办法是假定您正处理一个单色系统（每图素1 
位元）其中0代表黑色，1代表白色。 BLACKNESS 操作的结果是不管是来源、目 
的和图案是什么，全部为零，因此目的将显示黑色。类似地， WHITENESS 总导致 
目的呈白色。 

现在假定您使用位元映射操作 PATC 0 PY 。 这导致结果位元与图案位元相同， 
而忽略了来源和目的点阵图。换句话说， PATC 0 PY 简单地将目前图案复制给了目 
的矩形。 

PATPAINT 位元映射操作包含一个更复杂的操作。其结果相同於在图案、目 
的和反转的来源之间进行位元或操作。当来源点阵图是黑色 （0) 时，其结果总 
是白色 （1) ;当来源是白色 （1) 时，只要图案或目的为白色，则结果就是白 
色。换句话说，只有来源为白色而图案和目的都是黑色时，结果才是黑色。 

彩色显示时每个图素都使用了多个位元。 BitBlt 和 StretchBlt 函式对每个 
颜色位元都分别提供了位元操作。例如，如果目的是红色而来源为蓝色， 
SRCPAINT 位元映射操作把目的变成洋红色。注意，操作实际是按显示卡内储存 
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的位元执行的。这些位元所对应的颜色取决於显示卡的调色盘的设定 。 Windows 
完成了此操作，以便位元映射操作能达到您预计的结果。不过，如果您修改了 
调色盘（我将在第十六章讨论），位元映射操作将产生无法预料的结果。 

如要得到位元映射操作较好的应用程式，请参见本章後面的「非矩形点阵 
图图像」一节。 

图案 Bit 

除了 BitBlt 和 StretchBlt 以外 ， Windows 还包括一'个称为 PatBlt 
(rpattern block transfer ： 图案块传输」）的函式。这是三个 「 bit 」 函式 
中最简单的。与 BitBlt 和 StretchBlt 不同，它只使用一个目的装置内容 。 PatBlt 
语法是： 

PatBlt (hdc, x, y, cx, cy, dwROP); 

x 、 y 、 cx 和 cy 参数位於逻辑单位。逻辑点 （ x ， y ) 指定了矩形的左上角。 
矩形宽为 CX 单位，高为 cy 单位。这是 PatBlt 修改的矩形区域。 PatBlt 在画刷 
与目的装置内容上执行的逻辑操作由 dwROP 参数决定，此参数是 R 0 P 代码的子 
集——也就是说，您可以只使用那些不包括来源目的装置内容的 R 0 P 代码。下 
表列出了 PatBlt 支援的16个位元映射 操作： 


表 14-5 


图案 （ P ) : 110 0 

目的 （ D ) : 10 10 

布林操作 

R 0 P 代码 

名称 

结果： 

0 0 0 0 

0 

0x000042 

BLACKNESS 


0 0 0 1 

〜 (P 

D) 

0x0500A9 



0 0 10 

〜 P & D 

0x0A0329 



0 0 11 

〜 P 

0x0F0001 



0 10 0 

P & ~D 

0x500325 



0 10 1 

〜 D 

0x550009 

DSTINVERT 


0 110 

P ^ D 

0x5A0049 

PATINVERT 


0 111 

〜 (P & D) 

0x5F00E9 



10 0 0 

P & D 

0xA000C9 



10 0 1 

〜 (P D 

0xA50065 



10 10 

D 

0xAA0029 



10 11 

〜 P 

D 

0xAF0229 
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110 0 

P 

0xF00021 

PATCOPY 


110 1 

P 

〜 D 

0xF50225 



1110 

P 

D 

0xFA0089 



1111 

1 

0xFF0062 

WHITENESS 


下面列出了 PatBlt —些更常见用途。如果想画一个黑色矩形，您可呼叫 

PatBlt (hdc, x, y, cx, cy, BLACKNESS); 

要画一个白色矩形，请用 

PatBlt (hdc, x, y, cx, cy, WHITENESS); 

函式 

PatBlt (hdc, x, y, cx, cy, DSTINVERT); 

用於改变矩形的颜色。如果目前装置内容中选择了 WHITE _ BRUSH ， 那么函式 

PatBlt (hdc, x, y, cx, cy, PATINVERT); 

也改变矩形。 

您可以再次呼叫 FillRect 函式来用画笔充满一个矩形 区域： 

FillRect (hdc, &rect, hBrush); 

FillRect 函式相同於下列代码： 

hBrush = SelectObj ect (hdc, hBrush); 

PatBlt (hdc, rect.left, rect.top, 

rect.right - rect.left, 

rect.bottom - rect.top, PATCOPY); 

SelectObj ect (hdc, hBrush); 

实际上，此程式码是 Windows 用於执行 FillRect 函式的动作。如果您呼叫 

工 nvertRect (hdc, &rect) ; 

Windows 将其转换成函式： 

PatBlt (hdc, rect.left, rect.top, 

rect.right - rect.left, 

rect.bottom - rect.top, DSTINVERT); 

在介绍 PatBlt 函式的语法时，我说过点 （ x ， y ) 指出了矩形的左上角，而 
且此矩形宽度为 cx 单位，高度为 cy 单位。此叙述并不完全正确。 BitBlt、PatBlt 
和 StretchBlt 是最合适的 GDI 画图函式，它们根据从一个角测得的逻辑宽度和 
高度来指定逻辑直角座标。矩形边框用到的其他所有 GDI 画图函式都要求根据 
左上角和右下角的座标来指定座标。对於 MM _ TE )( T 映射模式，上面讲述的 PatBlt 
参数就是正确的。然而对於公制的映射模式来说，就不正确。如果您使用一的 
cx 和 cy 值，那么点 （ x ， y ) 将是矩形的左下角。如果希望点 （ x ， y ) 是矩形的左 
上角，那么 cy 参数必须设为矩形的负高度。 

如果想更精确，用 PatBlt 修改颜色的矩形将通过 cx 的绝对值获得逻辑宽 
度，通过 cy 的绝对值获得逻辑高度。这两个参数可以是负值。由逻辑点（ X ， y ) 
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和 (x + cx , y + cy ) 给定的两个角定义了矩形。矩形的左上角通常属於 PatBlt 
修改的区域。右上角则超出了矩形的范围。根据映射模式和 cx 、 cy 参数的符号， 
矩形左上角的点应为（ X ， y ) 、 （ X ， y + cy ) 、 (x + cx , y ) 或者 （x + cx ， 
y + cy ) o 

如果给 MM _ LOENGLISH 设定了映射模式，并且您想在显示区域左上角的一小 
块正方形上使用 PatBlt ， 您可以使用 

PatBlt (hdc, ◦, ◦, 100, -100, dwROP) ; 

或 

PatBlt (hdc, 0, -10 0, 100, 100, dwROP); 

或 

PatBlt (hdc, 10 0, ◦, -100, -100, dwROP); 

或 

PatBlt (hdc, 10 0, -100, -10 0, 100, dwROP); 

给 PatBlt 设定正确参数最容易的方法是将 x 和 y 设为矩形左上角。如果映 
射模式定义 y 座标随著向上卷动显示而增加，那么请使用负的 cy 参数。如果映 
射模式定义 x 座标向左增加（很少有人用），则需要使用负的 cx 参数。 


GDI 点阵图物件 


我在本章前面已提到过 Windows 从 1. 0开始就支援 GDI 点阵图物件。因为 
在 Windows 3.0 发表了装置无关点阵图， GDI 点阵图物件有时也称为装置相关点 
阵图，或者 DDBo 我尽量不全部引用 device-dependent bitmap 的全文，因为它 
看上去与 device-independent bitmap 类似。缩写 DDB 会好一些，因为我们很 
容易把它与 DIB 区别开来。 

对程式写作者来说，现存的两种不同型态的点阵图从 Windows 3. 0开始就 
更为混乱。许多有经验的 Windows 程式写作者都不能准确地理解 DIB 和 DDB 之 
间的关系。（恐怕本书的 Windows 3.0 版本不能澄清这个问题）。诚然， DIB 和 
DDB 在许多方面是相 关的： DIB 与 DDB 能相互转换（尽管转换程序中会丢失一些 
资讯）。然而 DIB 和 DDB 是不可以相互替换的，并且不能简单地选择一种方法 
来表示同一个可视资料。 

如果我们能假设说 DIB —定会替代 DDB ， 那以後就会很方便了。但现实并不 
是如此， DDB 还在 Windows 中扮演著很重要角色，尤其是您在乎程式执行表现好 
坏时。 


建立 DDB 


DDB 是 Windows 图形装置介面的图形物件之一（其中还包括绘图笔、画刷、 
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字体、 metafile 和调色盘）。这些图形物件储存在 GDI 模组内部，由应用程式 
软体以代号数字的方式引用。您可以将 DDB 代号储存在一个 HBITMAP (「handle 
to a bitmap ： 点阵图代号」）型态的变数中，例如： 

HBITMAP hBitmap ; 

然後通过呼叫 DDB 建立的一个函式来获得代号， 例如： CreateBitmap 。 这 
些函式配置并初始化 GDI 记忆体中的一些记忆体来储存关於点阵图的资讯，以 
及实际点阵图位元的资讯。应用程式不能直接存取这段记忆体。点阵图与装置 
内容无关。当程式使用完点阵图以後，就要清除这段记 忆体： 

DeleteObj ect (hBitmap); 

如果程式执行时您使用了 DDB ， 那么程式终止时，您可以完成上面的操作。 
CreateBitmap 函式用法如下： 

hBitmap = CreateBitmap (cx, cy, cPlanes, cBitsPixel, bits); 

前两个参数是点阵图的宽度和高度（以图素为单位），第三个参数是颜色 
面的数目，第四个参数是每图素的位元数，第五个参数是指向一个以特定颜色 
格式存放的位元阵列的指标，阵列内存放有用来初始化该 DDB 的图像。如果您 
不想用一张现有的图像来初始化 DDB ， 可以将最後一个参数设为 NULL 。 以後您 
还是可以设定该 DDB 内图素的内容。 

使用此函式时， Windows 也允许建立您喜欢的特定型态 GDI 点阵图物件。例 
如，假设您希望点阵图宽7个图素、高9个图素、5个?色位元面，并且每个图 
素占3位元，您只需要执行下面的 操作： 

hBitmap = CreateBitmap (7, 9, 5, 3, NULL); 

这时 Windows 会好好给您一个有效的点阵图代号。 

在此函式呼叫期间， Windows 将储存您传递给函式的资讯，并为图素位元配 
置记忆体。粗略的计算是此点阵图需要 7 X 9 X 5 X 3, 即945位元，这需要比118 
个位元组还多几个位元。 

然而， Windows 为点阵图配置好记忆体以後，每行图素都占用许多连贯的位 
元组，这样 

iWidthBytes = 2 * ((cx * cBitsPixel + 15) / 16) ; 

或者 C 程式写作者更倾向於 写成： 

iWidthBytes = (cx * cBitsPixel + 15) & 〜 15) >> 3 ; 

因此，为 DDB 配置的记忆体 就是： 

iBitmapBytes = cy * cPlanes * iWidthBytes ; 

本例中， iWidthBytes 占 4 位元组， iBitmapBytes 占180位元组。 

现在，知道一张点阵图有5个颜色位元面，每图素占3个颜色位有什么意 
义吗？真是见鬼了，这甚至不能把它称作一个习题作业。虽然您让 GDI 内部配 
置了些记忆体，并且让这些记忆体有一定结构的内容，但是您这张点阵图完全 
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作不出任何有用的事情来。 

实际上，您将用两种型态的参数来呼叫 CreateBitmap 。 
cPlanes 和 cBitsPixel 都等於1 (表示单色点阵图）；或者 
cPlanes 和 cBitsPixel 都等於某个特定装置内容的值，您可以使用 PLANES 
和 BITSPIXEL 索引来从 GetDeviceCaps 函式获得。 

更现实的情况下，您只会在第一种情况下呼叫 CreateBitmapo 对於第二种 
情况，您可以用 CreateCompatib 1 eBitmap 来简化问题： 

hBitmap = CreateCompatibleBitmap (hdc, cx, cy); 

此函式建立了一个与设备相容的点阵图，此设备的装置内容代号由第一个 
参数给出。 CreateCompatibleBitmap 用装置内容代号来获得 GetDeviceCaps 资 
讯，然後将此资讯传递给 CreateBitmap 。 除了与实际的装置内容有相同的记忆 
体组织之外， DDB 与装置内容没有其他联系。 

CreateDiscardabl eBi tmap 函式与 CreateCompatibleBitmap 的参数相同， 
并且功能上相同。在早期的 Windows 版本中， CreateDiscardableBitmap 建立的 
点阵图可以在记忆体减少时由 Windows 将其从记忆体中清除，然後程式再重建 
点阵图资料。 

第三个点阵图建立函式是 CreateBitmapIndirect ： 

hBitmap CreateBitmapIndirect (&bitmap); 

其中 bitmap 是 BITMAP 型态的结构。 BITMAP 结构定义 如下： 

typedef struct —tagBITMAP 
{ 

LONG bmType ; 

LONG bmWidth ; 

LONG bmHeight ; 

LONG bmWidthBytes ; 

WORD bmPlanes ; 

WORD bmBitsPixel ; 

LPVOID bmBits ; 

} 

BITMAP, * PBITMAP ; 

在呼叫 CreateBitmapIndirect 函式时，您不需要设定 bmWidthBytes 栏位。 
Windows 将为您计算，您也可以将 bmBits 栏位设定为 NULL ， 或者设定为初始化 
点阵图时用的图素位元位址。 

GetObject 函式内也使用 BITMAP 结构，首先定义一个 BITMAP 型态的结构。 

BITMAP bitmap ; 

并呼叫函式 如下： 

GetObject (hBitmap, sizeof (BITMAP), &bitmap); 

Windows 将用点阵图资讯填充 BITMAP 结构的栏位，不过， bmBits 栏位等於 


// set to 0 
// width in pixels 
// height in pixels 
// width of row in bytes 
// number of color planes 
// number of bits per pixel 
// pointer to pixel bits 
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NULL 。 

您最後应呼叫 DeleteObject 来清除程式内建立的所有点阵图。 

点阵图位元 


用 CreateBitmap 或 CreateBitmapIndirect 来建立设备相关 GDI 点阵图物 
件时，您可以给点阵图图素位元指定一个指标。或者您也可以让点阵图维持未 
初始化的状态。在建立点阵图以後， Windows 还提供两个函式来获得并设定图素 
位元。 

要设定图素位元，请呼叫： 

SetBitmapBits (hBitmap, cBytes, &bits); 

GetBitmapBits 函式有相同的语法： 

GetBitmapBits (hBitmap, cBytes, &bits); 

在这两个函式中， cBytes 指明要复制的位元组数， bits 是最少 cBytes 大 
小的缓冲区。 

DDB 中的图素位元从顶列开始排列。我在前面说过，每列的位元组数都是偶 
数。除此之外，没什么好说明的了。如果点阵图是单色的，也就是说它有1个 
位元面并且每个图素占1位元，则每个图素不是1就是0。每列最左边的图素是 
本列第一个位元组最高位元的位元。我们在本章的後面讲完如何显示单色 DDB 
之後，将做一个单色的 DDB 。 

对於非单色点阵图，应避免出现您需要知道图素位元含义的状况。例如， 
假定在8位颜色的 VGA 上执行 Windows ， 您可以呼叫 CreateCompatibleBitmap 。 
通过 GetDeviceCaps , 您能够确定您正处理一个有1个颜色位元面和每图素8位 
元的设备。一个位元组储存一个图素。但是图素值 0 x 37 是什么意思呢？很明显 
是某种颜色，但到底是什么颜色呢？ 

图素实际上并不涉及任何固定的颜色，它只是一个值。 DDB 没有颜色表。问 
题的关键在 於：当 DDB 显示在萤幕上时，图素的颜色是什么。它肯定是某种颜 
色，但具体是什么颜色呢？显示的图素将与在显示卡上的调色盘查看表里的 
0 x 37 索引值代表的 RGB 颜色有关。这就是您现在碰到的装置依赖性。 

不过，不要只因为我们不知道图素值的含义，就假定非单色 DDB 没用。我 
们将简要看一下它们的用途。下一章，我们将看到 SetBitmapBits 和 
GetBitmapBits 函式是如何被更有用的 SetDIBits 和 GetDIBits 函式所取代的。 

因此，基本的规则是这样的：不要用 CreateBitmap、CreateBitmapIndirect 
或 SetBitmapBits 来设定彩色 DDB 的位元，您只能安全地使用这些函式来设定 
单色 DDB 的位元。（如果您在呼叫 GetBitmapBits 期间，从其他相同格式的 DDB 
中获得位元，那么这些规则例外。） 
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在继续之前，让我再讨论一下 SetBitmapDimensionEx 和 
GetBitmapDimensionEx 函式。这些函式让您设定（和获得）点阵图的测量尺寸 
(以 0. 1毫米为单位）。这些资讯与点阵图解析度一起储存在 GDI 中，但不用 
於任何操作。它只是您与 DDB 联系的一个测量尺寸标识。 

记忆体装置内容 

我们必须解决的下一个概念是记忆体装置内容。您需要用记忆体装置内容 
来处理 GDI 点阵图物件。 

通常，装置内容指的是特殊的图形输出设备（例如视讯显示器或者印表机) 
及其装置驱动程式。记忆体装置内容只位於记忆体中，它不是真正的图形输出 
设备，但可以说与指定的真正设备「相容」。 

要建立一个记忆体装置内容，您必须首先有实际设备的装置内容代号。如 
果是 hdc , 那么您可以像下面那样建立记忆体装置 内容： 

hdcMem = CreateCompatibleDC (hdc); 

通常，函式的呼叫比这更简单。如果您将参数设为 NULL ， 那么 Windows 将 
建立一个与视讯显示器相相容的记忆体装置内容。应用程式建立的任何记忆体 
装置内容最终都通过呼叫 DeleteDC 来清除。 

记忆体装置内容有一个与实际位元映射设备相同的显示平面。不过，最初 
此显示平面非常小 一一 单色、1图素宽、1图素高。显示平面就是单独1位元。 

当然，用1位元的显示平面，您不能做更多的工作，因此下一步就是扩大 
显示平面。您可以通过将一个 GDI 点阵图物件选进记忆体装置内容来完成这项 
工作， 例如： 

SelectObject (hdcMem, hBitmap); 

此函式与您将画笔、画刷、字体、区域和调色盘选进装置内容的函式相同。 
然而，记忆体装置内容是您可以选进点阵图的唯 一一 种装置内容型态。（如果 
需要，您也可以将其他 GDI 物件选进记忆体装置内容。） 

只有选进记忆体装置内容的点阵图是单色的，或者与记忆体装置内容相容 
设备有相同的色彩组织时， SelectObject 才会起作用。这也是建立特殊的 DDB 
(例如有5个位元面，且每图素3位元）没有用的原因。 

现在情况是 这样： SelectObject 呼叫以後， DDB 就是记忆体装置内容的显 
示平面。处理实际装置内容的每项操作，您几乎都可以用於记忆体装置内容。 
例如，如果用 GDI 画图函式在记忆体装置内容中画图，那么图像将画在点阵图 
上。这是非常有用的。还可以将记忆体装置内容作为来源，把视讯装置内容作 
为目的来呼叫 BitBlto 这就是在显示器上绘制点阵图的方法。如果把视讯装置 
内容作为来源，把记忆体装置内容作为目的，那么呼叫 BitBlt 可将萤幕上的一 


第614页 






Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


些内容复制给点阵图。我们将看到这些都是可能的。 

载入点阵图资源 

除了各种各样的点阵图建立函式以外，获得 GDI 点阵图物件代号的另一个 
方法就是呼叫 LoadBitmap 函式。使用此函式，您不必担心点阵图格式。在程式 
中，您只需简单地按资源来建立点阵图，这与建立图示或者滑鼠游标的方法类 
似。 LoadBitmap 函式的语法与 Loadlcon 和 LoadCursor 相同： 

hBitmap = LoadBitmap (hlnstance, szBitmapName); 

如果想载入系统点阵图，那么将第一个参数设为 NULL 。 这些不同的点阵图 
是 Windows 视觉介面（例如关闭方块和勾选标记）的一小部分，它们的识别字 
以字母 0 BM 开始。如果点阵图与整数识别字而不是与名称有联系，那么第二个 
参数就可以使用 MAKEINTRESOURCE 巨集。由 LoadBitmap 载入的所有点阵图最终 
应用 DeleteObject 清除。 

如果点阵图资源是单色的，那么从 LoadBitmap 传回的代号将指向一个单色 
的点阵图物件。如果点阵图资源不是单色，那么从 LoadBitmap 传回的代号将指 
向一个 GDI 点阵图物件，该物件与执行程式的视讯显示器有相同的色彩组织。 
因此，点阵图始终与视讯显示器相容，并且总是选进与视讯显示器相容的记忆 
体装置内容中。采用 LoadBitmap 呼叫後，就不用担心任何色彩转换的问题了。 
在下一章中，我们就知道 LoadBitmap 的具体运作方式了。 

程式 14-3 所示的 BRICKS 1程式示范了载入一小张单色点阵图资源的方法。 
此点阵图本身不像砖块，但当它水平和垂直重复时，就与砖墙相似了。 

程式 14-3 BRICKS1 

BRICKS1•C 

/* - 

BRICKS1.C -- LoadBitmap Demonstration 

(c) Charles Petzold, 1998 


*/ 

♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName [] = TEXT ("Bricksl"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 
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wndclass . style 


=CS HREDRAW | CS VREDRAW ; 


wndclass . lpfnWndProc 


= WndProc ; 



wndclass . cbClsExtra 


=◦; 



wndclass . cbWndExtra 


=◦; 



wndclass.hlnstance 


= hlnstance ; 



wndclass • hicon 


= Loadlcon (NULL, IDI APPLICATION); 


wndclass . hCursor 


= LoadCursor (NULL, 工 DC_ 

ARROW); 


wndclass . hbrBackground 


= (HBRUSH) GetStockObject (WHITE BRUSH) ; 


wndclass . IpszMenuName 


= NULL ; 



wndclass . IpszClassName 


= s zAppName ; 



if (!RegisterClass (&wndclass)) 

/ 



MessageBox 

(NULL, TEXT (’’This program requires Windows NT !’’）， 




szAppName, MB ICONERROR) ; 


return 0 ; 

} 





hwnd = CreateWindow ( 

szAppName, TEXT ("LoadBitmap Demo") 

f 



WS_ 

OVERLAPPEDWINDOW, 




CW 

USEDEFAULT, CW USEDEFAULT, 




CW 

USEDEFAULT, CW USEDEFAULT, 




NULL, NULL, hlnstance, NULL) ; 



ShowWindow (hwnd, iCmdShow) 

參 

f 



UpdateWindow (hwnd) ; 





while (GetMessage (&msg, NULL, ◦, 0)) 

； 



i 

TranslateMessage (&msg) ; 



DispatchMessage (&msg) ; 


} 

i 

return msg . wParam ; 




LRESULT CALLBACK WndProc ( 

HWND 

hwnd, UINT message, WPARAM 

wParam,LPARAM 

IParam) 

f 





static HBITMAP hBitmap 

參 

f 




static int 


cxClient, cyClient, cxSource, 

cySource ; 


BITMAP 


bitmap ; 



HDC 


hdc, hdcMem ; 



HINSTANCE 


hlnstance ; 



int 


y ; 



PAINTSTRUCT 


ps ; 



switch (message) 

{ 
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case WM_CREATE : 

hlnstance = ((LPCREATESTRUCT) IParam)->hlnstance ; 


hBitmap = LoadBitmap (hlnstance, TEXT ("Bricks’’））; 

GetObject (hBitmap, sizeof (BITMAP), ^bitmap); 

cxSource = bitmap.bmWidth ; 
cySource = bitmap.bmHeight ; 

return 0 ; 


case WM SIZE : 


cxClient = 

LOWORD 

(IParam) 

cyClient = 

HIWORD 

(IParam) 

return 0 ; 




case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

hdcMem = CreateCompatibleDC (hdc); 
SelectObj ect (hdcMem, hBitmap); 


for (y = ◦ ; y < cyClient ; y += cySource) 
for (x = ◦ ; x < cxClient ; x += cxSource) 

{ 

BitBlt (hdc, x, y, cxSource, cySource, hdcMem, 0 , 0 , 

SRCCOPY); 

} 

DeleteDC (hdcMem); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

DeleteObj ect (hBitmap); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

BRICKS1.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h M 


//////////////////////////////////////////////////////////////////////////// 
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// Bitmap 

BRICKS 

B 工 TMAP D 工 S CARDABLE 

"Bricks .bmp’’ 

在 Visual 

BRICKS. BMP 

■■■■■_ 

C ++ Developer Studio 中建立点阵图时， 

应指明点阵图的高度 


和宽度都是8个图素，是单色，名称是 「 Bricks 」 。 BRICKS 1 程式在 WM+CREATE 


讯息处理期间载入了点阵图并用 GetObject 来确定点阵图的图素尺寸（以便当 
点阵图不是8图素见方时程式仍能继续工作）。以後 ， BRICKS 1将在 WM_DESTROY 
讯息中删除此点阵图。 

在 WM _ PAINT 讯息处理期间 ， BRICKS 1建立了一个与显示器相容的记忆体装 
置内容，并且选进了点阵图。然後是从记忆体装置内容到显示区域装置内容一 
系列的 BitBlt 函式呼叫，再删除记忆体装置内容。图 14-3 显示了程式的执行 
结果。 

顺便说一下 ， Developer Studio 建立的 BRICKS . BMP 档案是一个装置无关点 
阵图。您可能想在 Developer Studio 内建立一个彩色的 BRICKS . BMP 档案（您 
可自己选定颜色），并且保证一切工作正常。 

我们看到 DIB 能转换成与视讯显示器相容的 GDI 点阵图物件。我们将在下 


章看到这是如何操作的。 



图 14-3 BRICKS1 的萤幕显示 
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单色点阵图格式 

如果您在处理小块单色图像，那么您不必把它们当成资源来建立。与彩色 
点阵图物件不同，单色位元的格式相对简单一些，而且几乎能全部从您要建立 
的图像中分离出来。例如，假定您要建立下图所示的点 阵图： 


您能写下一系列的位元 （0 代表黑色，1代表白色），这些位元直接对应於 
网格。从左到右读这些位元，您能给每8位元组配置一个十六进位元的位元组 
值。如果点阵图的宽度不是16的倍数，在位元组的右边用零填充，以得到偶数 
个位元组： 


图素宽为20，扫描线高为5，位元组宽为4。您可以用下面的叙述来设定此 
点阵图的 BITMAP 结构： 


并且可以将位元储存在 BYTE 阵 列中： 


用 CreateBitmapIndirect 来建立点阵图需要下面两条叙述： 


另一种方 法是： 


您也可以用一道叙述来建立点 阵图： 


在程式 14-4 显示的 BRICKS 2 程式利用此技术直接建立了砖块点阵图，而没 
有使用资源。 

程式 14-4 BRICKS2 


static BITMAP bitmap 


0 A 20, 5, 4 r l r 1 


hBitmap = CreateBitmap (20, 5, 1, 1, bits); 


BRICKS2.C 


bitmap.bmBits = (PSTR) bits ; 

hBitmap = CreateBitmapIndirect (^bitmap); 


hBitmap = CreateBitmapIndirect (^bitmap); 
SetBitmapBits (hBitmap, sizeof bits, bits); 


static BYTE bits [ ] = { 0x51 A 0x77 A 0x10 , 0x00 A 

0x57, 0x77, 0x50, 0x00, 

0x13, 0x77, 0x50, 0x00, 
0x57 A 0x77 A 0x50 A 0x00 A 
0x51 A 0x11 A 0x10 , 0x00 }; 


01010001011101110001= 51 77 10 00 
01010111011101110101= 57 77 50 00 
00010011011101110101= 13 77 50 00 
01010111011101110101= 57 77 50 00 
01010001000100010001= 51 11 10 00 
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/ * _ 


— 

— 


BRICKS2.C 一一 CreateBitmap Demonstration 


/ 


(c) Charles 

Petzold, 1998 

女 

/ 

#include <windows.h> 



LRESULT CALLBACK WndProc (HWND, 

UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

/ 

PSTR szCmdLine, 

int iCmdShow) 


i 

static TCHAR szAppName 

[]=TEXT ( n Bricks2 n ); 



HWND 

hwnd ; 



MSG msg 

• 

f 



WNDCLASS 

wndclass ; 



wndclass.style 

=CS HREDRAW | CS 

VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 



wndclass.cbClsExtra 

=◦; 



wndclass.cbWndExtra 

=◦; 



wndclass.hlnstance 

=hlnstance ; 



wndclass•hicon 

=Loadlcon (NULL, 

IDI APPLICATION); 


wndclass.hCursor 

=LoadCursor (NULL, IDC ARROW); 


wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 


wndclass.IpszMenuName 

=NULL ; 



wndclass.IpszClassName 

=szAppName ; 



if (!RegisterClass (&wndclass)) 

/ 



l 

MessageBox ( 

NULL, TEXT ("This program requires Windows 

NT !") 

f 




szAppName, MB ICONERROR); 



return 0 ; 

} 




hwnd = CreateWindow 

(szAppName, TEXT ("CreateBitmap Demo"), 


WS OVERLAPPEDWINDOW, 



CW USEDEFAULT, CW USEDEFAULT, 



CW USEDEFAULT, CW USEDEFAULT, 



NULL, NULL, 

hlnstance, NULL); 



ShowWindow (hwnd, iCmdShow); 



UpdateWindow (hwnd); 




while (GetMessage (&msg, NULL, 0, 0)) 



I 

TranslateMessage (&msg); 



DispatchMessage (&msg); 



第620页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


return msg.wParam 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static BITMA Pbitmap ={ 0,8,8,2,1,1}; 

static BYTE bits [8][2]={ OxFF, ◦, OxOC, ◦, OxOC, ◦, OxOC, 


static HBITMAP hBitmap ; 

static int 

HDC 

int 

PAINTSTRUCT 


◦ xFF, 0, OxCO, 0, OxCO, ◦, OxCO, 0 } 

cxClient, cyClient, cxSource, cySource ; 
hdc, hdcMem ; 
x, y ; 
ps ; 


switch (message) 

{ 

case WM CREATE : 


bitmap.bmBits 
hBitmap 
cxSource 
cySource 
return 0 ; 


: bits ; 

CreateBitmapIndirect 
bitmap.bmWidth ; 
bitmap.bmHeight ; 


(&bitmap) 


case WM SIZE: 


case WM PAINT: 


0, ◦, SRCCOPY); 


cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 


hdc = BeginPaint (hwnd, &ps); 

hdcMem = CreateCompatibleDC (hdc); 
SelectObject (hdcMem, hBitmap); 

for (y = ◦ ; y < cyClient ; y += cySource) 
for (x = 0 ; x < cxClient ; x += cxSource) 


BitBlt (hdc, x A y, cxSource, cySource, hdcMem, 


DeleteDC (hdcMem); 
EndPaint (hwnd, &ps); 
return 0 ; 
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case WM—DESTROY: 

DeleteObj ect (hBitmap); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

您可以尝试一下与彩色点阵图相似的物件。例如，如果您的视讯显示器执 
行在256色模式下，那么您可以根据表 14-2 来定义彩色砖的每个图素。不过， 
当程式执行在其他显示模式下时，此程式码不起作用。以装置无关方式处理彩 
色点阵图需要使用下章讨论的 DIB 。 

点阵图中的画刷 


BRICKS 系列的最後一个专案是 BRICKS 3， 如程式 14-5 所示。乍看此程式， 
您可能会有这种感觉：程式码哪里去了呢？ 


程式 14-5 BRICKS3 


BRICKS3.C 



BRICKS3.C -- CreatePatternBrush Demonstration 


(c) Charles Petzold, 1998 



♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


static TCHAR 

HBITMAP 

HBRUSH 

HWND 

MSG 

WNDCLASS 


szAppName [] = TEXT ( n Bricks3 n ); 
hBitmap ; 
hBrush ; 
hwnd ; 

msg ; 

wndclass ; 


hBitmap = LoadBitmap (hlnstance, TEXT ("Bricks")); 
hBrush = CreatePatternBrush (hBitmap); 

DeleteObj ect (hBitmap); 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 


CS_HREDRAW | CS—VREDRAW 
WndProc ; 

0 ; 

0 ; 

hlnstance ; 
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wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, 工 DC—ARROW); 

=hBrush ; 

=NULL ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows 


NT ! n ), 


szAppName, MB—ICONERROR); 
return 0 ; 



hwnd = CreateWindow (szAppName, TEXT ( n C reate Pat ter nBrush Demo ’’）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW_USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

DeleteObj ect (hBrush); 
return msg.wParam ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

switch (message) 

{ 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

BRICKS3.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 
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//////////////////////////////////////////////////////////////////////////// 

/ 

// Bitmap 

BRICKS BITMAP DISCARDABLE "Bricks.bmp" 

此程式与 BRICKS 1 使用同一个 BRICKS . BMP 档案，而且视窗看上去也相同。 
正如您看到的一样，视窗讯息处理程式没有更多的内容。 BRICKS 3 实际上使 
用砖块图案作为视窗类别背景画刷，它在 WNDCLASS 结构的 hbrBackground 栏位 
中定义。 

您现在可能猜想 GDI 画刷是很小的点阵图，通常是8个图素见方。如果将 
L 0 GBRUSH 结构的 lbStyle 栏位设定为 BS _ PATTERN ，然後呼叫 
CreatePatternBrush 或 CreateBrushlndirect ，您就可以在点阵图外面来建立 
画刷了。此点阵图至少是宽高各8个图素。如果再大 ， Windows 98将只使用点 
阵图的左上角作为画刷。而 Windows NT 不受此限制，它会使用整个点阵图。 

请记住，画刷和点阵图都是 GDI 物件，而且您应该在程式终止前删除您在 
程式中建立画刷和点阵图。如果您依据点阵图建立画刷，那么在用画刷画图时， 
Windows 将复制点阵图位元到画刷所绘制的区域内。呼叫 CreatePatternBrush 
(或者 CreateBrushlndirect ) 之後，您可以立即删除点阵图而不会影响到画笔。 
类似地，您也可以删除画刷而不会影响到您选进的原始点阵图。注意， BRICKS 3 
在建立画刷後删除了点阵图，并在程式终止前删除了画刷。 

绘制点阵图 

在视窗中绘图时，我们已经将点阵图当成绘图来源使用过了。这要求先将 
点阵图选进记忆体装置内容，并呼叫 BitBlt 或者 StretchBlt 。 您也可以用记忆 
体装置内容代号作为所有实际呼叫的 GDI 函式中的第一参数。记忆体装置内容 
的动作与实际的装置内容相同，除非显示平面是点阵图。 

程式 14-6 所示的 HELL 0 BIT 程式展示了此项技术。程式在一个小点阵图上 
显示了字串 「 Hello ， world !」 ，然後从点阵图到程式显示区域执行 BitBlt 或 
StretchBlt (依照选择的功能表选项而定）。 


程式 14-6 HELL0BIT 


HELLOBIT.C 

/* - 



HELLOBIT.C -- 

Bitmap Demonstration 

(c) Charles Petzold, 1998 

- ” 

♦include <windows.h> 

♦include "resource.h" 
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LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 


PSTR szCmdLine, int iCmdShow) 

I 

static TCHAR szAppName [] = TEXT ("HelloBit"); 


HWND 

hwnd ; 


MSG 

msg ; 


WNDCLASS 

wndclass ; 


wndclass.style 

=CS HREDRAW | CS VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 


wndclass.cbClsExtra 

=◦; 


wndclass.cbWndExtra 

=◦; 


wndclass.hlnstance 

=hlnstance ; 


wndclass•hicon 

=Loadlcon (NULL, IDI APPLICATION); 


wndclass.hCursor 

=LoadCursor (NULL, IDC—ARROW); 


wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 


wndclass.IpszMenuName 

=szAppName ; 


wndclass.IpszClassName 

=szAppName ; 


if (!RegisterClass (&wndclass)) 

/ 


MessageBox ( NULL, TEXT 

("This program requires Windows NT! n ), 



szAppName, MB ICONERROR); 


return 0 ; 

} 



hwnd = CreateWindow (szAppName, TEXT ("HelloBit"), 


WS OVERLAPPEDWINDOW, 

CW USEDEFAULT, CW USEDEFAULT, 

CW USEDEFAULT, CW USEDEFAULT, 


NULL, NULL, 

hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow) 

UpdateWindow (hwnd); 

• 

f 


while (GetMessage (&msg, NULL, ◦, 0)) 

； 


i 

TranslateMessage 

(&msg); 


DispatchMessage 

(&msg); 

} 

； 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND 

IParam) 

{ 

hwnd, UINT message, WPARAM wParam A LPARAM 


第625页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


static 

HBITMAP hBitmap ; 




static 

HDC 

hdcMem ; 




static 


int cxBitmap, 

cyBitmap, cxClient, 

cyClient, iSize = 

IDM BIG ; 






static TCHAR * 

szText = TEXT (" 

Hello, world! ’’） ; 



HDC 


hdc ; 




HMENU 


hMenu ; 




int 


x, y ; 




PAINTSTRUCT 

ps ; 




SIZE 


size ; 




switch (message) 

/ 





case WM 

CREATE : 







hdc = GetDC (hwnd); 

hdcMem = CreateCompatibleDC (hdc); 





GetTextExtentPoint32 (hdc, szText , 

lstrlen 

(szText), 

&size); 


cxBitmap = size. 

cx ; 





cyBitmap = size. 

cy ; 





hBitmap = CreateCompatibleBitmap 

(hdc. 

cxBitmap, 

cyBitmap); 


ReleaseDC (hwnd. 

hdc); 





SelectObject (hdcMem, hBitmap); 





TextOut (hdcMem, 

◦, ◦, szText, lstrlen (szText)); 



return 0 ; 




case WM 

SIZE : 







cxClient = LOWORD (IParam); 

cyClient = HIWORD (IParam); 





return 0 ; 




case WM 

COMMAND : 

hMenu = GetMenu 

(hwnd); 





switch (LOWORD (wParam)) 

f 





1 

case 工 DM BIG: 

case 工 DM SMALL : 

CheckMenuItem 

(hMenu, 

iSize, 

MF UNCHECKED) 

參 

r 








iSize = LOWORD (wParam); 





CheckMenuItem 

(hMenu, 

iSize, 

MF CHECKED); 









InvalidateRect (hwnd, NULL, 

TRUE); 
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} 

return 0 ; 

break ; 


case 

WM PAINT: 

hdc = BeginPaint 

(hwnd, &ps); 




switch (iSize) 

{ 



cyClient , 

case 

IDM BIG: 

hdcMem, ◦, 

StretchBlt (hdc, 0 , 

0 , cxBitmap, cyBitmap, 

0 , cxClient, 

SRCCOPY); 

break ; 



case IDM—SMALL: 

for (y = ◦ ; y < cyClient 

for (x = ◦ ; x < cxClient 

/ 

;y += cyBitmap) 

;x += cxBitmap) 



BitBlt (hdc , x, y, cxBitmap, cyBitmap, 

hdcMem, ◦, ◦, SRCCOPY); 



} 

/ 

break ; 




EndPaint (hwnd, 

return 0 ; 

&ps); 


case 

WM DESTROY 

• 

攀 

DeleteDC (hdcMem); 

DeleteObj ect (hBitmap); 

PostQuitMessage (0); 

return 0 ; 


f 

return DefWindowProc (hwnd, message , wParam, IParam); 


/ 

HELLOBIT.RC ( 摘录） 

/ /Microsoft Developer 

♦include "resource.h" 

♦include "afxres.h" 

Studio generated 

resource script. 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

HELLOBIT MENU DISCARDABLE 

BEGIN 

POPUP "&Size n 

BEGIN 
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MENUITEM ， '&Big n , IDM_BIG, CHECKED 

MENUITEM "&Small", IDM_SMALL 

END 

END 

RESOURCE. H (摘录） 

// Microsoft Developer Studio generated include file. 

// Used by HelloBit.rc 

♦define 工 DM—BIG 40001 

♦define 工 DM—SMALL 40002 

程式从呼叫 GetTextExtentPoint 32 确定字串的图素尺寸开始。这些尺寸将 
成为与视讯显示相容的点阵图尺寸。当此点阵图被选进记忆体装置内容（也与 
视讯显示相容）後，再呼叫 TextOut 将文字显示在点阵图上。记忆体装置内容 
在程式执行期间保留。在处理 WM _ DESTR 0 Y 资讯期间， HELL 0 BH 删除了点阵图和 
记忆体装置内容。 

HELLOBIT 中的一条功能表选项允许您显示点阵图尺寸，此尺寸或者是显示 
区域中水平和垂直方向平铺的实际尺寸，或者是缩放成显示区域大小的尺寸， 
如图 14-4 所示。正与您所见到的一样，这不是显示大尺寸字元的好方法！它只 
是小字体的放大版，并带有放大时产生的锯齿线。 



图 14-4 HELLOBIT 的萤幕显示 


您可能想知道一个程式，例如 HELL 0 BH ， 是否需要处理 WM_DISPLAYCHANGE 
讯息。只要使用者（或者其他应用程式）修改了视讯显示大小或者颜色深度， 
应用程式就接收到此讯息。其中颜色深度的改变会导致记忆体装置内容和视讯 
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装置内容不相容。但这并不会发生，因为当显示模式修改後， Windows 自动修改 
了记忆体装置内容的颜色解析度。选进记忆体装置内容的点阵图仍然保持原样， 
但不会造成任何问题。 

阴影点阵图 

在记忆体装置内容绘图 （ 也就是点阵图）的技术是执行「阴影点阵图 （shadow 
bitmap ) 」的关键。此点阵图包含视窗显示区域中显示的所有内容。这样，对 
WM _ PAINT 讯息的处理就简化到简单的 BitBlt 。 

阴影点阵图在绘画程式中最有用。程式 14-7 所示的 SKETCH 程式并不是一 
个最完美的绘画程式，但它是一个开始。 


程式 14-7 SKETCH 


SKETCH.C 




卜 




SKETCH.C -- Shadow Bitmap 

Demonstration 



/ 


(c) Charles Petzold, 1998 

'k 

/ 

♦include <windows.h> 




LRESULT CALLBACK WndProc (HWND, 

UINT, WPARAM, 

LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 



PSTR 

szCmdLine, int 

iCmdShow) 




static TCHAR szAppName [] = TEXT ("Sketch") 

• 

r 

HWND 

hwnd 

• 

r 


MSG 

msg ; 



WNDCLASS 

wndclass ; 


wndclass.style 

=CS_ 

HREDRAW | CS_VREDRAW ; 

wndclass.lpfnWndProc 

=WndProc ; 


wndclass.cbClsExtra 

=◦; 



wndclass.cbWndExtra 

=◦; 



wndclass.hlnstance 

=hlnstance ; 


wndclass.hicon 

=Loadlcon (NULL, 工 DI APPLICATION); 

wndclass.hCursor 

=LoadCursor (NULL, 

工 DC—ARROW); 

wndclass.hbrBackground 

=(HBRUSH) 

GetStockObj ect 

(WHITE BRUSH); 

wndclass.IpszMenuName 

=NULL ; 



wndclass.IpszClassName 

=szAppName 



if (!RegisterClass (&wndclass)) 

s 



MessageBox ( 

NULL, TEXT 

("This program 

requires Windows 
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NT !，' ） ， 



szAppName, MB_ICONERROR) ; 
return 0 ; 


hwnd = CreateWindow (szAppName, TEXT (’’Sketch ”）， 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW—US E DE FAULT, 
CW—USEDEFAULT, CW—USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 


if (hwnd == NULL) 

{ 


bitmap!"), 


MessageBox 


NULL, TEXT ("Not enough memory to create 


szAppName, MB—ICONERROR); 

return 0 ; 



ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


void GetLargestDisplayMode (int * pcxBitmap, int * pcyBitmap) 

{ 

DEVMODE devmode ; 

int iModeNum = 0 ; 


pcxBitmap = * pcyBitmap = 0 ; 


ZeroMemory (&devmode, sizeof (DEVMODE)); 
devmode.dmSize = sizeof (DEVMODE); 

while (EnumDisplaySettings (NULL, iModeNum++, &devmode)) 

{ 

* pcxBitmap = max (* pcxBitmap, (int) devmode.dmPelsWidth); 

* pcyBitmap = max (* pcyBitmap, (int) devmode.dmPelsHeight); 

} 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 
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static BOOL fLeftButtonDown, fRightButtonDown 

static HBITMAP hBitmap ; 


static HDC 
static int 


yMouse 


HDC 

PAINTSTRUCT 


hdcMem ; 

cxBitmap, cyBitmap, cxClient, 


cyClient, xMouse 


hdc 


ps 


switch (message) 

{ 

case WM—CREATE: 

GetLargestDisplayMode (&cxBitmap, &cyBitmap); 


cyBitmap); 


bitmap 


hdc = GetDC (hwnd); 

hBitmap = CreateCompatibleBitmap (hdc, cxBitmap, 

hdcMem = CreateCompatibleDC (hdc); 

ReleaseDC (hwnd, hdc); 

if ( !hBitmap) // no memory for 

{ 

DeleteDC (hdcMem); 
return -1 ; 


SelectObj ect (hdcMem, hBitmap); 

PatBlt (hdcMem, ◦, ◦, cxBitmap, cyBitmap, WHITENESS); 
return 0 ; 


case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 


case WM_LBUTTONDOWN: 

if (!fRightButtonDown) 

SetCapture (hwnd); 


xMouse = LOWORD (IParam); 
yMouse = HIWORD (IParam); 
fLeftButtonDown = TRUE ; 
return 0 ; 


case WM—LBUTTONUP: 

if (fLeftButtonDown) 

SetCapture (NULL); 
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fLeftButtonDown = FALSE ; 
return 0 ; 

case WM—RBUTTONDOWN: 

if (!fLeftButtonDown) 

SetCapture (hwnd); 

xMouse = LOWORD (IParam); 
yMouse = HIWORD (IParam); 
fRightButtonDown = TRUE ; 
return 0 ; 

case WM—RBUTTONUP: 

if (fRightButtonDown) 

SetCapture (NULL); 

fRightButtonDown = FALSE ; 
return 0 ; 

case WM—MOUSEMOVE: 

if (!fLeftButtonDown && !fRightButtonDown) 



return 0 ; 




hdc = GetDC (hwnd); 



WHITE PEN)); 

SelectObj ect (hdc, 

GetStockObject 

(fLeftButtonDown 

? BLACK 

WHITE PEN)); 

SelectObj ect (hdcMem, 
GetStockObject 

(fLeftButtonDown 

? BLACK 


MoveToEx (hdc, xMouse, yMouse, NULL) 

MoveToEx (hdcMem, xMouse, yMouse, NULL) 

• 

f 

• 

f 


xMouse = (short) LOWORD (IParam); 
yMouse = (short) HIWORD (IParam); 

LineTo (hdc, xMouse, yMouse); 
LineTo (hdcMem, xMouse, yMouse); 

ReleaseDC (hwnd, hdc); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 


PEN : 


PEN 
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BitBlt (hdc, ◦, ◦, cxClient, cyClient, hdcMem, ◦, 0, 

SRCCOPY); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

DeleteDC (hdcMem); 

DeleteObj ect (hBitmap); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 


要想在 SKETCH 中画线，请按下滑鼠左键并拖动滑鼠。要擦掉画过的东西（更 
确切地说，是画白线），请按下滑鼠右键并拖动滑鼠。要清空整个视窗，请 i 结 
束程式，然後重新载入，一切从头再来。图 14-5 中显示的 SKETCH 程式图样表 
达了对苹果公司的麦金塔电脑早期广告的敬意。 



图 14-5 SKETCH 的萤幕显示 


此阴影点阵图应多大？在本程式中，它应该大到能包含最大化视窗的整个 
显示区域。这一问题很容易根据 GetSystemMetrics 资讯计算得出，但如果使用 
者修改了显示设定後再显示，进而扩大了最大化时视窗的尺寸，这时将发生什 
么呢？ SKETCH 程式在 EnumDisplaySettings 函式的帮助下解决了此问题。此函 
式使用 DEVM 0 DE 结构来传回全部有效视讯显示模式的资讯。第一次呼叫此函式 
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时，应将 EnumDisplaySettings 的第二参数设为0，以後每次呼叫此值都增加。 
EnumDisplaySettings 传回 FALSE 时完成。 

与此同时， SKETCH 将建立一个阴影点阵图，它比目前视讯显示模式的表面 
还多四倍，而且需要几百万位元组的记忆体。由於如此， SKETCH 将检查点阵图 
是否建立成功了，如果没有建立，就从 WM _ CREATE 传回-1，以表示错误。 

在 WM _ M 0 USEM 0 VE 讯息处理期间，按下滑鼠左键或者右键，并在记忆体装置 
内容和显示区域装置内容中画线时， SKETCH 拦截滑鼠。如果画线方式更复杂的 
话，您可能想在一个函式中实作，程式将呼叫此函式两次—— 一 次画在视讯装 
置内容上， 一 次画在记忆体装置内容上。 

下面是一个有趣的 实验： 使 SKETCH 视窗小於全画面尺寸。随著滑鼠左键的 
按下，将滑鼠拖出视窗的右下角。因为 SKETCH 拦截滑鼠，所以它继续接收并处 
理 WM _ M 0 USEM 0 VE 讯息。现在扩大视窗，您将看到阴影点阵图包含您在 SKETCH 
视窗外所画的内容。 

在功能表中使用点阵图 

您也可以用点阵图在功能表上显示选项。如果您联想起功能表中档案夹、 
剪贴簿和资源回收筒的图片，那么不要再想那些图片了。您应该考虑一下，功 
能表上显示点阵图对画图程式用途有多大，想像一下在功能表中使用不同字体 
和字体大小、线宽、阴影图案以及颜色。 

GRAFMENU 是展示图形功能表选项的范例程式。此程式顶层功能表如图 14-6 
所示。放大的字母来自於 40 X 16 图素的单色点阵图档案，该档案在 Visual C ++ 

Developer Studio 建立。从功能表上选择「 FONT 」 将弹出三个选择项- 「 Courier 

New 」 、「 Arial 」 和 「Times New Roman 」 。它们是标准的 Windows TrueType 
字体，并且每一个都按其相关的字体显示，如图 14-7 所示。这些点阵图在程式 
中用记忆体装置内容建立。 
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图 14-6 GRAFMENU 程式的顶层功能表 



图 14-7 GRAFMENU 程式弹出的 「 FONT 」 功能表 

最後，在拉下系统功能表时，您将获得一些「辅助」资讯，用 「 HELP 」 表 
示了新使用者的线上求助项目（参见图 14-8) 。此 64 X 64 图素的单色点阵图是 
在 Developer Studio 中建立的。 
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Move 

Si2« 

Minimize 

Close 


AIUF4 



图 14-8 GRAFMENU 程式系统功能表 

GRAFMENU 程式，包括四个 Developer Studio 中建立的点阵图，如程式 14-8 


所示 


程式 14-8 GRAFMENU 


GRAFMENU.C 

卜 

GRAFMENU.C -- Demonstrates Bitmap Menu 工 terns 

(c) Charles Petzold, 1998 

-v 

♦include 

<windows.h> 


♦include 

"resource.h" 


LRESULT 

CALLBACK WndProc 

(HWND, UINT, WPARAM, LPARAM); 

void 

AddHelpToSys 

(HINSTANCE, HWND); 

HMENU 

CreateMyMenu 

(HINSTANCE); 

HBITMAP 

StretchBitmap 

(HBITMAP); 

HBITMAP 

GetBitmapFont 

(int); 

void 

DeleteAllBitmaps 

(HWND); 

TCHAR szAppName[] = TEXT ("GrafMenu" 

)； 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 


PSTR szCmdLine, int 

iCmdShow) 

HWND hwnd ; 
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MSG msg ; 

WNDCLASS wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE_BRUSH); 
=NULL ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows 


NT ! n ), 


szAppName, MB—ICONERROR); 

return 0 ; 



hwnd = CreateWindow (szAppName,TEXT ("Bitmap Menu Demonstration"), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT iMsg, WPARAM wParam,LPARAM IParam) 

{ 

HMENU hMenu ; 

static int iCurrentFont = 工 DM—FONT—COUR ; 

switch (iMsg) 

{ 

case WM—CREATE: 

AddHelpToSys ( ( (LPCREATESTRUCT) IParam)—>hlnstance. 
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hwnd) ; 


hMenu 


— 

CreateMyMenu 

(((LPCREATESTRUCT) 

IParam) - >hlnstance) ; 








SetMenu (hwnd. 

hMenu); 




CheckMenuItem 

(hMenu, iCurrentFont, 

MF_CHECKED); 



return 0 

• 



case WM 

SYSCOMMAND: 







switch (LOWORD 

(wParam)) 




l 

case 

工 DM 

HELP: 

• 

• 

MessageBox (hwnd. 

TEXT ("Help not yet 

implemented! n ) 

r 









szAppName, MB OK | MB ICONEXCLAMATION); 



} 

break 



return 0 ; 




參 

f 




case WM 

COMMAND : 








switch (LOWORD 

(wParam)) 




i 

case 

工 DM 

FILE 

NEW: 




case 

工 DM 

FILE 

OPEN: 




case 

I DM 

FILE 

SAVE: 




case 

I DM 

FILE 

SAVE AS: 




case 

IDM 

EDIT 

UNDO: 




case 

工 DM 

EDIT 

_CUT: 




case 

IDM 

EDIT 

_COPY: 




case 

IDM 

EDIT 

PASTE: 




case 

工 DM 

EDIT 

CLEAR: 







MessageBeep (0); 







return 0 ; 




case 

工 DM 

FONT 

_COUR: 




case 

工 DM 

FONT 

ARIAL: 




case 

工 DM 

FONT 

TIMES : 






hMenu = GetMenu (hwnd) t 

• 

r 



CheckMenuItem 

(hMenu, iCurrentFont, 

MF UNCHECKED); 






iCurrentFont = LOWORD (wParam); 

CheckMenuItem (hMenu, iCurrentFont, 

MF_CHECKED); 


} 

break 

參 

f 


return 0 ; 


case WM DESTROY: 








DeleteAllBitmaps (hwnd); 
PostQuitMessage (0); 
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return 0 ; 

} 

return DefWindowProc (hwnd, iMsg, wParam, IParam); 

} 

/* - 

AddHelpToSys : Adds bitmap Help item to system menu 



void AddHelpToSys (HINSTANCE hlnstance, HWND hwnd) 

{ 

HBITMAP hBitmap ; 

HMENU hMenu ; 

hMenu = GetSystemMenu (hwnd, FALSE); 

hBitmap = StretchBitmap (LoadBitmap (hlnstance, TEXT ("BitmapHelp"))); 
AppendMenu (hMenu, MF_SEPARATOR, ◦, NULL); 

AppendMenu (hMenu, MF BITMAP, IDM HELP, (PTSTR) (LONG) hBitmap); 


/* - 

CreateMyMenu : Assembles menu from components 



HMENU CreateMyMenu (HINSTANCE hlnstance) 

{ 

HBITMAP hBitmap ; 

HMENU hMenu, hMenuPopup ; 

int i ; 

hMenu = CreateMenu (); 

hMenuPopup = LoadMenu (hlnstance, TEXT ("MenuFile")); 

hBitmap = StretchBitmap (LoadBitmap (hlnstance, TEXT ("BitmapFile n ))); 
AppendMenu (hMenu, MF_BITMAP | MF_POPUP, (int) hMenuPopup, 

(PTSTR) (LONG) hBitmap); 

hMenuPopup = LoadMenu (hlnstance, TEXT ("MenuEdit n )); 

hBitmap = StretchBitmap (LoadBitmap (hlnstance, TEXT ("BitmapEdit n ))); 
AppendMenu (hMenu, MF_BITMAP | MF_POPUP, (int) hMenuPopup, 

(PTSTR) (LONG) hBitmap); 
hMenuPopup = CreateMenu (); 
for (i = ◦ ; i < 3 ; i++) 

{ 

hBitmap = GetBitmapFont (i); 

AppendMenu (hMenuPopup, MF_BITMAP, IDM—FONT_COUR + i, 

(PTSTR) (LONG) hBitmap); 


hBitmap = StretchBitmap (LoadBitmap (hlnstance, TEXT ("BitmapFont"))); 
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AppendMenu (hMenu, MF_BITMAP | MF_POPUP, (int) hMenuPopup, 

(PTSTR) (LONG) hBitmap); 

return hMenu ; 

} 

/* - 

StretchBitmap : Scales bitmap to display resolution 



HBITMAP StretchBitmap (HBITMAP hBitmapl) 


BITMAP 

HBITMAP 

HDC 

int 


bml, bm2 ; 
hBitmap2 ; 

hdc, hdcMeml, hdcMem2 ; 
cxChar, cyChar ; 


// Get the width and height of a system font character 


cxChar = LOWORD (GetDialogBaseUnits ()); 
cyChar = HIWORD (GetDialogBaseUnits ()); 


// Create 2 memory DCs compatible with the display 
hdc = CreateIC (TEXT ("DISPLAY ”）， NULL, NULL, NULL); 
hdcMeml = CreateCompatibleDC (hdc); 
hdcMem2 = CreateCompatibleDC (hdc); 

DeleteDC (hdc); 


// Get the dimensions of the bitmap to be stretched 
GetObject (hBitmapl, sizeof (BITMAP), (PTSTR) &bml); 

// Scale these dimensions based on the system font size 

bm2 = bml ; 

bm2.bmWidth = (cxChar * bm2.bmWidth) / 4 ; 

bm2.bmHeight = (cyChar * bm2.bmHeight) / 8 ; 

bm2.bmWidthBytes = ((bm2.bmWidth + 15) / 16) * 2 ; 

// Create a new bitmap of larger size 

hBitmap2 = CreateBitmapIndirect (&bm2); 

// Select the bitmaps in the memory DCs and do a StretchBlt 
SelectObj ect (hdcMeml , hBitmapl); 

SelectObj ect (hdcMem2, hBitmap2); 

StretchBlt (hdcMem2, ◦, ◦, bm2.bmWidth, bm2.bmHeight, 

hdcMeml , ◦, ◦, bml.bmWidth A bml•bmHeight, SRCCOPY); 

// Clean up 
DeleteDC (hdcMeml); 

DeleteDC (hdcMem2); 

DeleteObj ect (hBitmapl); 
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return hBitmap2 ; 



GetBitmapFont : Creates bitmaps with font names 



HBITMAP GetBitmapFont (int i) 


{ 

static TCHAR * szFaceName[3]= { 


TEXT ("Courier New"), TEXT ("Arial"), 


TEXT ("Times New Roman") 
HBITMAP 
HDC 
HFONT 
SIZE 

TEXTMETRIC 


hBitmap ; 
hdc, hdcMem ; 
hFont ; 
size ; 
tm ; 


hdc = CreateIC (TEXT ( n DISPLAY” ）， NULL, NULL, NULL); 
GetTextMetrics (hdc, &tm); 


hdcMem 

hFont 


=CreateCompatibleDC (hdc); 

=CreateFont (2 * tm.tmHeight, 0, ◦, 0, 0, ◦, 0, 0, ◦, ◦, 0, 


szFaceName[i]); 


hFont = (HFONT) SelectObj ect (hdcMem, hFont); 

GetTextExtentPoint32 (hdcMem, szFaceName[i], 
lstrlen (szFaceName[i]), &size); 
hBitmap = CreateBitmap (size.ex, size.cy, 1, 1, NULL); 

SelectObj ect (hdcMem, hBitmap); 

TextOut (hdcMem, ◦, ◦, szFaceName[i], lstrlen (szFaceName[i])); 
DeleteObj ect (SelectObj ect (hdcMem, hFont)); 

DeleteDC (hdcMem); 

DeleteDC (hdc); 


return hBitmap ; 



DeleteAllBitmaps : Deletes all the bitmaps in the menu 
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void 

! 

DeleteAllBitmaps (HWND hwnd) 


\ 

HMENU hMenu ; 



int 

i ； 



MENUITEMINFO mii = { sizeof (MENUITEMINFO) , MIIM_SUBMENU | MIIM TYPE }; 



// Delete Help bitmap 

on system menu 


hMenu = GetSystemMenu (hwnd, FALSE); 



GetMenuItemlnfo (hMenu, IDM HELP, FALSE 

,&mii); 


DeleteObj ect ((HBITMAP) mii.dwTypeData) 

• 

r 



// Delete top-level menu bitmaps 


hMenu = GetMenu (hwnd); 



for 

r 

(i = ◦ ; i < 3 ; i++) 



i 

GetMenuItemlnfo (hMenu 

,i, TRUE, &mii); 


} 

DeleteObj ect ((HBITMAP) mii.dwTypeData); 



// Delete bitmap items 

on Font menu 


hMenu = mii.hSubMenu ;; 



for 

r 

(i = ◦ ; i < 3 ; i++) 



i 

GetMenuItemlnfo (hMenu, i, TRUE , &mii); 


} 

DeleteObj ect ((HBITMAP) mii. 

dwTypeData); 

} 

GRAFMENU 

• RC ( 摘录） 


/ /Microsoft Developer Studio generated resource script. 

♦include 

"resource.h" 


♦include 

"afxres.h" 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 



MENUFILE 

MENU DISCARDABLE 


BEGIN 






MENUITEM "&New n , 

IDM FILE—NEW 



MENUITEM n &Open … n , 

IDM FILE OPEN 



MENUITEM "&Save", 

IDM FILE SAVE 



MENUITEM "Save &As …， '， 

IDM FILE—SAVE AS 

END 




MENUEDIT 

MENU DISCARDABLE 


BEGIN 






MENUITEM "&Undo", 

IDM EDIT UNDO 



MENUITEM SEPARATOR 




MENUITEM "Cu&t", 

IDM EDIT_CUT 



MENUITEM n &Copy n , 

工 DM EDIT—COPY 



MENUITEM "&Paste n , 

IDM EDIT PASTE 
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MENUITEM "De&lete", 

IDM EDIT_CLEAR 

END 






//////////////////////////////////////////////////////////////////////////// 

/ 

// Bitmap 





BITMAPFONT 

BITMAP 

DISCARDABLE 

"Fontlabl.bmp" 

BITMAPHELP 

BITMAP 

DISCARDABLE 

"Bighelp.bmp" 

BITMAPEDIT 

BITMAP 

DISCARDABLE 

"Editlabl.bmp" 

BITMAPFILE 

BITMAP 

DISCARDABLE 

"Filelabl.bmp" 

RESOURCE.H 

( 摘录） 



// Microsoft Developer 

Studio generated 

include file. 

// Used 

by GrafMenu.rc 



♦define 

I DM 

FONT 

一 COUR 

101 


#define 

I DM 

FONT 

ARIAL 

102 


#define 

工 DM 

FONT 

TIMES 

103 


♦define 

IDM 

HELP 


104 


♦define 

IDM 

EDIT 

UNDO 

40005 


#define 

IDM 

EDIT 

_CUT 

40006 


#define 

IDM 

EDIT 

_COPY 

40007 


♦define 

IDM 

EDIT 

PASTE 

40008 


♦define 

IDM 

EDIT 

_CLEAR 

40009 


#define 

工 DM 

FILE 

_NEW 

40010 


#define 

IDM 

FILE 

_OPEN 

40011 


♦define 

IDM 

FILE 

_SAVE 

40012 


♦define 

IDM 

FILE 

SAVE AS 40013 



EDITLABL. BMP 



FILELABL. BMP 



FONTLABL. BMP 


第 643 页 














































































Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


：：：：：： 


mmm 


BIGHELP. BMP 


要将点阵图插入功能表，可以利用 AppendMenu 或 InsertMenu 。 点阵图有两 
个来源：可以在 Visual C ++ Developer Studio 建立点阵图，包括资源脚本中 
的点阵图档案，并在程式使用 LoadBitmap 时将点阵图资源载入到记忆体，然後 
呼叫 AppendMenu 或 InsertMenu 将点阵图附加到功能表上。但是用这种方法会 
有一些 问题： 点阵图不适於所有显示模式的解析度和纵 横比； 有时您需要缩放 
载入的点阵图以解决此问题。另一种方法是：在程式内部建立点阵图，并将它 
选进记忆体装置内容，画出来，然後再附加到功能表中。 

GRAFMENU 中的 GetBitmapFont 函式的参数为0、1或2，传回一个点阵图代 
号。此点阵图包含字串 rCourier New 」 、 「 Arial 」 或 「Times New Roman 」 ， 

而且字体是各自对应的字体，大小是正常系统字体的两倍。让我们看看 
GetBitmapFont 是怎么做的。（下面的程式码与 GRAFMENU . C 档案中的有些不同。 
为了清楚起见，我用 「 Arial 」 字体相应的值代替了引用 szFaceName 阵列。） 
第一步是用 TEXTMETRIC 结构来确定目前系统字体的大小，并建立一个与目 
前萤幕相容的记忆体装置内容： 


hdc = CreateIC (TEXT (''DISPLAY’' ）， NULL, NULL, NULL); 

GetTextMetrics (hdc, &tm); 

hdcMem = CreateCompatibleDC (hdc); 
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CreateFont 函式建立了一种逻辑字体，该字体高是系统字体的两倍，而且 
逻辑名称为 「 Arial 」 ： 

hFont = CreateFont (2 * tm.tmHeight , ◦, ◦, 0, ◦, ◦, 0, 0, 0, 0, ◦, ◦, 0, 

TEXT ("Arial")); 

从记忆体装置内容中选择该字体，然後储存内定字体 代号： 

hFont = (HFONT) SelectObject (hdcMem, hFont); 

现在，当我们向记忆体装置内容写一些文字时， Windows 就会使用选进装置 
内容的 TrueType Arial 字体了。 

但这个记忆体装置内容最初只有一个单图素单色设备平面。我们必须建立 
一 个足够大的点阵图以容纳我们所要显示的文字。通过 GetTextExtentPoint 32 
函式，可以取得文字的大小，而用 CreateBitmap 可以根据这些尺寸来建立点阵 

图： 

GetTextExtentPoint32 (hdcMem, TEXT ("Arial ”）， 5, &size); 
hBitmap = CreateBitmap (size.ex, size.cy, 1, 1, NULL); 

SelectObj ect (hdcMem, hBitmap); 

现在这个装置内容是一个单色的显示平面，大小也是严格的文字尺寸。我 
们现在要做的就是书写 文字： 

TextOut (hdcMem, ◦, ◦, TEXT ("Arial"), 5); 

除了清除，所有的工作都完成了。要清除，我们可以用 SelectObject 将系 
统字体（带有代号 hFont ) 重新选进装置内容，然後删除 SelectObject 传回的 
前一个字体代号，也就是 Arial 字体 代号： 

DeleteObj ect (SelectObject (hdcMem, hFont)); 

现在可以删除两个装置内容： 

DeleteDC (hdcMem) ; 

DeleteDC (hdc); 

这样，我们就获得了一个点阵图，该点阵图上有 Arial 字体的字串 「 Arial 」 。 
当我们需要缩放字体以适应不同显示解析度或纵横比时，记忆体装置内容 
也能解决问题。在 GRAFMENU 程式中，我建立了四个点阵图，这些点阵图只适用 
於系统字体高8图素、宽4图素的显示。对於其他尺寸的系统字体，只能缩放 
点阵图。 GRAFMENU 中的 StretchBitmap 函式完成此功能。 

第一步是获得显示的装置内容，然後取得系统字体的文字规格，接下来建 
立两个记忆体装置 内容： 

hdc = CreateIC (TEXT ("DISPLAY ”）， NULL, NULL, NULL); 

GetTextMetrics (hdc, &tm); 
hdcMeml = CreateCompatibleDC (hdc); 
hdcMem2 = CreateCompatibleDC (hdc); 

DeleteDC (hdc); 

传递给函式的点阵图代号是 hBitmapl 。 程式能用 GetObject 获得点阵图的 
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大小： 

GetObject (hBitmapl, sizeof (BITMAP), (PSTR) &bml); 


此操作将尺寸复制到 BITMAP 型态的结构 bml 中。结构 bm 2 等於结构 bml ， 
然後根据系统字体大小来修改某些 栏位： 


bm2 = bml ; 

bm2.bmWidth 

=(tm.tmAveCharWidth 

* bm2. bmWidth) / 4 ; 

bm2.bmHeight 

=(tm.tmHeight * 

bm2.bmHeight) / 8 ; 

bm2.bmWidthBytes 

=((bm2.bmWidth + 15) 

/ 16) * 2 ; 


下一个点阵图带有代号 hBitmap 2, 可以根据动态的尺寸 建立: 


hBitmap2 = CreateBitmapIndirect (&bm2); 

然後将这两个点阵图选进两个记忆体装置内 容中： 

SelectObj ect (hdcMeml, hBitmapl); 

SelectObj ect (hdcMem2, hBitmap2); 

我们想把第一个点阵图复制给第二个点阵图，并在此程序中进行拉伸。这 
包括 StretchBlt 呼叫： 

StretchBlt ( hdcMem2 , ◦, ◦, bm2.bmWidth, bm2.bmHeight, 

hdcMeml , 0,0, bml.bmWidth, bml•bmHeight, SRCCOPY); 

现在第二幅图适当地缩放了，我们可将其用到功能表中。剩下的清除工作 
很 简单： 

DeleteDC (hdcMeml) ; 

DeleteDC (hdcMem2); 

DeleteObj ect (hBitmapl); 

在建造功能表时， GRAFMENU 中的 CreateMyMenu 函式呼叫了 StretchBitmap 
和 GetBitmapFont 函式。 GRAFMENU 在资源档案中定义了两个功能表，在选择 
「 File 」 和 「 Edit 」 选项时会弹出这两个功能表。函式开始先取得一个空功能 
表的代号： 

hMenu = CreateMenu () ; 

从资源档案载入 「 File 」 的突现式功能表（包括四个 选项： 「 New 」、「 Open 」、 
「 Save 」 和 「Save as 」） ： 

hMenuPopup = LoadMenu (hlnstance, TEXT ("MenuFile")); 

从资源档案还载入了包含 「 FILE 」 的点阵图，并用 StretchBitmap 进行了 
拉伸： 

hBitmapFile = StretchBitmap (LoadBitmap (hlnstance, TEXT ("BitmapFile"))); 

点阵图代号和突现式功能表代号都是 AppendMenu 呼叫的 参数： 

AppendMenu (hMenu, MF_BITMAP | MF_POPUP, hMenuPopup, (PTSTR) (LONG) 
hBitmapFile); 

「 Edit 」 功能表类似程序 如下： 

hMenuPopup = LoadMenu (hlnstance, TEXT ("MenuEdit")); 

hBitmapEdit =StretchBitmap (LoadBitmap (hlnstance, TEXT ("BitmapEdit n )))； 

AppendMenu (hMenu, MF BITMAP | MF POPUP, hMenuPopup, (PTSTR)(LONG) hBitmapEdit); 
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呼叫 GetBitmapFont 函式可以构造这三种不同字体的突现式功能表： 

hMenuPopup = CreateMenu () ; 
for (i = ◦ ; i < 3 ; i++) 

{ 

hBitmapPopFont [i] = GetBitmapFont (i); 

AppendMenu (hMenuPopup, MF_BITMAP, 工 DM—FONT_COUR + i, 

(PTSTR) (LONG) hMenuPopupFont [i]); 

} 

然後将突现式功能表添加到功能表中： 

hBitmapFont = StretchBitmap (LoadBitmap (hlnstance, "BitmapFont")); 
AppendMenu ( hMenu, MF_BITMAP | MF_POPUP, hMenuPopup, (PTSTR) (LONG) 

hBitmapFont); 

WndProc 通过呼叫 SetMenu ， 完成了视窗功能表的建立工作。 

GRAFMENU 还改变了 AddHelpToSys 函式中的系统功能表。此函式首先获得一 
个系统功能表代号： 

hMenu = GetSystemMenu (hwnd, FALSE); 

这将载入 「 HELP 」 点阵图，并将其拉伸到适当 尺寸： 

hBitmapHelp = StretchBitmap (LoadBitmap (hlnstance, TEXT ("BitmapHelp"))); 

这将给系统功能表添加一条分隔线和拉伸的点阵图： 

AppendMenu (hMenu, MF_SEPARATOR / ◦, NULL); 

AppendMenu (hMenu, MF_BITMAP, IDM—HELP, (PTSTR)(LONG) hBitmapHelp); 

GRAFMENU 在退出之前呼叫一个函式来清除并删除所有点阵图。 

下面是在功能表中使用点阵图的一些注意事项。 

在顶层功能表中， Windows 调整功能表列的高度以适应最高的点阵图。其他 
点阵图（或字串）是根据功能表列的顶端对齐的。如果在顶层功能表中使用了点 
阵图，那么从使用常数 SM _ CYMENU 的 GetSystemMetrics 得到的功能表列大小将 
不再有效。 

执行 GRAFMENU 期间可以 看到： 在突现式功能表中，您可使用带有点阵图功 
能表项的勾选标记，但勾选标记是正常尺寸。如果不满意，您可以建立一个自 
订的勾选标记，并使用 SetMenuItemBitmapSo 

在功能表中使用非文字（或者使用非系统字体的文字）的另一种方法是「拥 
有者绘制」功能表。 

功能表的键盘介面是另一个问题。当功能表含有文字时， Windows 会自动添 
加键盘介面。要选择一个功能表项，可以使用 Alt 与字串中的一个字母的组合 
键。而一旦在功能表中放置了点阵图，就删除了键盘介面。即使点阵图表达了 
一定的含义，但 Windows 并不知道。 

目前我们可以使用 WM _ MENUCHAR 讯息。当您按下 Alt 和与功能表项不相符 
的一个字元键的组合键时， Windows 将向您的视窗讯息处理程式发送一个 
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WM _ MENUCHAR 讯息。 GRAFMENU 需要截取 WM _ MENUCHAR 讯息并检查 wParam 的值（即 
按键的 ASCII 码）。如果这个值对应一个功能表项，那么向 Windows 传回双字 
组： 其中高字组为2,低字组是与该键相关的功能表项索引值。然後由 Windows 
处理余下的事。 

非矩形点阵图图像 


点阵图都是矩形，但不需要都显示成矩形。例如，假定您有一个矩形点阵 
图图像，但您却想将它显示成椭圆形。 

首先，这听起来很简单。您只需将图像载入 Visual C ++ Developer Studio 
或者 Windows 的「画图」程式（或者更昂贵的应用程式），然後用白色的画笔 
将图像四周画上白色。这时将获得一幅椭圆形的图像，而楠圆的外面就成了白 
色。只有当背景色为白色时此点阵图才能正确显示，如果在其他背景色上显示， 
您就会发现椭圆形的图像和背景之间有一个白色的矩形。这种效果不好。 

有一种非常通用的技术可解决此类问题。这种技术包括「遮罩 （ mask ) 」 
点阵图和一些位元映射操作。遮罩是一种单色点阵图，它与您要显示的矩形点 
阵图图像尺寸相同。每个遮罩的图素都对应点阵图图像的一个图素。遮罩图素 
是 1( 白色），对应著点阵图图素 显示； 是 0( 黑色），则显示背景色。（或者遮罩 
点阵图与此相反，这根据您使用的位元映射操作而有一些相对应的变化。） 

让我们看看 BITMASK 程式是如何实作这一技术的。如程式 14-9 所示。 


程式 14-9 BITMASK 


BITMASK.C 




BITMASK.C -- 

Bitmap Masking Demonstration 

(c) Charles Petzold, 1998 


*/ 


♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName [] = TEXT ("BitMask"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 


CS_HREDRAW | CS—VREDRAW 
WndProc ; 
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wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (LTGRAY—BRUSH); 
=NULL ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("This program requires Windows NT !’’）， 

szAppName, MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow (szAppName, TEXT ("Bitmap Masking Demo "), 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW_USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam,LPARAM IParam) 


static HBITMAP 

static HINSTANCE 

static int 

BITMAP 

HDC 

int 

PAINTSTRUCT 


hBitmapImag, hBitmapMask ; 
hlnstance ; 

cxClient, cyClient, cxBitmap, cyBitmap ; 
bitmap ; 

hdc, hdcMemlmag, hdcMemMask ; 

x, y ; 

ps ; 


switch (message) 

case WM CREATE : 


hlnstance = ( (LPCREATESTRUCT) IParam)->hlnstance ; 

// Load the original image and get its size 
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hBitmapImag = LoadBitmap (hlnstance, TEXT ("Matthew")); 
GetObject (hBitmapImag, sizeof (BITMAP), ^bitmap); 
cxBitmap = bitmap.bmWidth ; 
cyBitmap = bitmap.bmHeight ; 


DC 

NULL); 


ellipse 

(BLACK—BRUSH)); 

(WHITE BRUSH)); 


// Select the original image into a memory DC 
hdcMemlmag = CreateCompatibleDC (NULL); 

SelectObject (hdcMemlmag, hBitmapImag); 

/ / Create the monochrome mask bitmap and memory 

hBitmapMask = CreateBitmap (cxBitmap, cyBitmap, 1, 1, 

hdcMemMask = CreateCompatibleDC (NULL); 

SelectObj ect (hdcMemMask, hBitmapMask); 

// Color the mask bitmap black with a white 

SelectObj ect (hdcMemMask, GetstoekObj ect 

Rectangle (hdcMemMask, 0 , ◦, cxBitmap, cyBitmap); 
SelectObj ect (hdcMemMask, GetStockObject 

Ellipse (hdcMemMask, ◦, 0, cxBitmap, cyBitmap); 


// Mask the original image 
BitBlt (hdcMemlmag, 0, 0, cxBitmap, cyBitmap, 
hdcMemMask, 0, ◦, SRCAND); 

DeleteDC (hdcMemlmag); 

DeleteDC (hdcMemMask); 
return 0 ; 


case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 


case WM PAINT : 


hdc = BeginPaint (hwnd, &ps); 


// Select bitmaps into memory DCs 


hdcMemlmag = CreateCompatibleDC (hdc); 
SelectObj ect (hdcMemlmag, hBitmapImag); 


hdcMemMask = CreateCompatibleDC (hdc); 
SelectObj ect (hdcMemMask, hBitmapMask); 


// Center image 


第 650 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


0x220326) ; 


SRCPAINT) ; 


x = (cxClient - cxBitmap) / 2 ; 
y = (cyClient - cyBitmap) / 2 ; 

// Do the bitblts 

BitBlt (hdc, x, y, cxBitmap, cyBitmap, hdcMemMask, 0 , 0 , 
BitBlt (hdc, x, y, cxBitmap, cyBitmap, hdcMemlmag, 0 , ◦, 

DeleteDC (hdcMemlmag); 

DeleteDC (hdcMemMask); 

EndPaint (hwnd, &ps); 
return 0 ; 


case WM—DESTROY: 

DeleteObj ect (hBitmapImag); 

DeleteObj ect (hBitmapMask); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

BITMASK.RC 

// Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h M 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Bitmap 

MATTHEW BITMAP DISCARDABLE "matthew.bmp" 


资源档案中的 MATTHEW . BMP 档案是我侄子的一幅黑白数位照片，宽 200 图 
素，高320图素，每图素8位元。不过，另外制作个 BITMASK 只是因为此档案 
的内容是任何东西都可以。 

注意， BITMASK 将视窗背景设为亮灰色。这样就确保我们能正确地遮罩点阵 
图，而不只是将其涂成白色。 


下面让我们看一下 WM _ CREATE 的处理 程序： BITMASK 用 LoadBitmap 函式获 
得 hBitmapImag 变数中原始图像的代号。用 GetObject 函式可取得点阵图的宽 
度高度。然後将点阵图代号选进代号为 hdcMemlmag 的记忆体装置内容中。 

程式建立的下一个单色点阵图与原来的图大小相同，其代号储存在 
hBitmapMask ， 并选进代号为 hdcMemMask 的记忆体装置内容中。在记忆体装置 
内容中，使用 GDI 函式，遮罩点阵图就涂成了黑色背景和一个白色的 椭圆： 
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SelectObj ect (hdcMemMask, GetStockObj ect (BLACK_BRUSH)); 

Rectangle (hdcMemMask, 0 , ◦, cxBitmap, cyBitmap); 

SelectObj ect (hdcMemMask, GetStockObj ect (WHITE_BRUSH)); 

Ellipse (hdcMemMask, ◦, ◦, cxBitmap, cyBitmap); 

因为这是一个单色的点阵图，所以黑色区域的位元是0,而白色区域的位元 

是1。 

然後 BitBlt 呼叫就按此遮罩修改了原 图像： 

BitBlt (hdcMemlmag, ◦, ◦, cxBitmap, cyBitmap, 

hdcMemMask, ◦, ◦, SRCAND); 

SRCAND 位元映射操作在来源位元（遮罩点阵图）和目的位元（原图像）之 
间执行了位元 AND 操作。只要遮罩点阵图是白色，就显示 目的； 只要遮罩是黑 
色，则目的就也是黑色。现在原图像中就形成了一个黑色包围的椭圆区域。 

现在让我们看一下 WM _ PAINT 处理程序。此程序同时改变了选进记忆体装置 
内容中的图像点阵图和遮罩点阵图。两次 BitBlt 呼叫完成了这个魔术，第一次 
在视窗上执行遮罩点阵图的 BitBlt ： 

BitBlt (hdc, x, y, cxBitmap, cyBitmap, hdcMemMask, ◦, ◦, 0x220326); 

这里使用了一个没有名称的位元映射操作。逻辑运算子是 D & ~ S 。 回忆来 
源——即遮罩点阵图——是黑色（位元值 0) 包围的一个白色（位元值 1) 椭圆。 
位元映射操作首先将来源反色，也就是改成白色包围的黑色椭圆。然後位元操 
作在这个已转换的来源和目的（即视窗上）之间执行位元 AND 操作。当目的和 
位元值1 「 AND 」 时保持 不变； 与位元值0 「 AND 」 时，目的将变黑。因此 ， BitBlt 
操作将在视窗上画一个黑色的椭圆。 

第二次的 BitBlt 呼叫则在视窗中绘制图像点 阵图： 

BitBlt (hdc, x, y, cxBitmap, cyBitmap, hdcMemlmag, ◦, ◦, SRCPAINT); 

位元映射操作在来源和目的之间执行位元 「0 R 」 操作。由於来源点阵图的 
外面是黑色，因此保持目的 不变； 而在椭圆区域内，目的是黑色，因此图像就 
原封不动地复制了过来。执行结果如图 14-9 所示。 

注意事项： 

有时您需要一个很复杂的遮罩 一一 例如，抹去原始图像的整个背景。您将 
需要在画图程式中手工建立然後将其储存到成档案。 
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图 14-9 BITMASK 的萤幕显示 

如果正在为 Windows NT 编写类似的应用程式，那么您可以使用与 MASKBH 
程式类似的 MaskBlt 函式，而只需要更少的函式呼叫 。 Windows NT 还包括另一 
个类似 BitBlt 的函式 ， Windows 98不支援该函式。此函式是 PlgBlt ( 「平行 
四边形位元块移动 ： parallelogram bit 」） 。这个函式可以对图像进行旋转或 
者倾斜点阵图图像。 

最後，如果在您的机器上执行 BITMASK 程式，您就只会看见黑色、白色和 
两个灰色的阴影，这是因为您执行的显示模式是16色或256色。对於16色模 
式，显示效果无法改进，但在256色模式下可以改变调色盘以显示灰阶。您将 
在第十六章学会如何设定调色盘。 

简单的动画 

小张的点阵图显示起来非常快，因此可以将点阵图和 Windows 计时器联合 
使用，来完成一些基本的动画。 

现在开始这个弹球程式。 

BOUNCE 程式，如程式 14-10 所示，产生了一个在视窗显示区域弹来弹去的 
小球。该程式利用计时器来控制小球的行进速度。小球本身是一幅点阵图，程 
式首先通过建立点阵图来建立小球，将其选进记忆体装置内容，然後呼叫一些 
简单的 GDI 函式。程式用 BitBlt 从一个记忆体装置内容将这个点阵图小球画到 
显示器上。 
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程式 14-10 BOUNCE 


BOUNCE.C 
/* - 


BOUNCE.C -- Bouncing Ball Program 

(c) Charles Petzold, 1998 



♦include <windows.h> 
♦define ID TIMER 1 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, 


iCmdShow) 



static TCHAR szAppName[] = TEXT ("Bounce"); 


HWND 

MSG 

WNDCLASS 


hwnd ; 

msg ; 

wndclass ; 


int 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass•hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS_VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, 工 DC—ARROW); 

=(HBRUSH) GetStockObject (WHITE_BRUSH); 
=NULL ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 



NT ! n ), 


MessageBox ( 


NULL, TEXT ("This program requires Windows 


MB_ICONERROR); 

return 0 ; 


szAppName A 


hwnd = CreateWindow ( szAppName, TEXT ("Bouncing Ball ”）， 

WS_OVERLAPPEDWINDOW a 
CW_USEDEFAULT, CW_USEDEFAULT, 
CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 
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ShowWindow (hwnd, iCmdShow) ; 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc (HWND hwnd, UINT iMsg, WPARAM wParam, LPARAM IParam) 

{ 

static HBITMAP hBitmap ; 

static int cxClient, cyClient, xCenter, yCenter, cxTotal, 

cyTotal, 

cxRadius, cyRadius, cxMove, cyMove, xPixel, 

yPixel ; 

HBRUSH hBrush ; 

HDC hdc, hdcMem ; 

int iScale ; 

switch (iMsg) 

{ 

case WM—CREATE: 

hdc = GetDC (hwnd); 

xPixel = GetDeviceCaps (hdc, ASPECTX); 
yPixel = GetDeviceCaps (hdc, ASPECTY); 

ReleaseDC (hwnd, hdc); 

SetTimer (hwnd, ID_TIMER, 50, NULL); 
return 0 ; 

case WM—SIZE: 

xCenter = (cxClient = LOWORD (IParam)) / 2 ; 
yCenter = (cyClient = HIWORD (IParam)) / 2 ; 

iScale = min (cxClient * xPixel, cyClient * yPixel) / 16 ; 

cxRadius = iScale / xPixel ; 
cyRadius = iScale / yPixel ; 

cxMove = max (1, cxRadius / 2); 
cyMove = max (1, cyRadius / 2); 

cxTotal = 2 * (cxRadius + cxMove); 
cyTotal = 2 * (cyRadius + cyMove); 


if (hBitmap) 
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DeleteObj ect (hBitmap) ; 
hdc = GetDC (hwnd); 
hdcMem = CreateCompatibleDC (hdc); 

hBitmap = CreateCompatibleBitmap (hdc, cxTotal, cyTotal); 
ReleaseDC (hwnd, hdc); 

SelectObject (hdcMem, hBitmap); 

Rectangle (hdcMem, -1, -1, cxTotal + 1, cyTotal + 1); 


hBrush = CreateHatchBrush (HS_DIAGCROSS, OL); 
SelectObject (hdcMem, hBrush); 

SetBkColor (hdcMem, RGB (255, ◦, 255)); 

Ellipse (hdcMem, cxMove, cyMove, cxTotal - cxMove, cyTotal 

- cyMove); 

DeleteDC (hdcMem); 

DeleteObj ect (hBrush); 
return 0 ; 


case WM—TIMER: 

if ( !hBitmap) 


break ; 


cyTotal, 


<=◦)) 


<=◦)) 


hdc = GetDC (hwnd); 

hdcMem = CreateCompatibleDC (hdc); 

SelectObj ect (hdcMem, hBitmap); 

BitBlt (hdc, xCenter - cxTotal / 2, 

yCenter 一 cyTotal / 2, cxTotal , 


hdcMem, ◦, ◦, SRCCOPY); 


ReleaseDC (hwnd, hdc); 
DeleteDC (hdcMem); 


xCenter += cxMove ; 
yCenter += cyMove ; 

if ((xCenter + cxRadius >= cxClient) | | (xCenter - cxRadius 


cxMove = -cxMove ; 


if ((yCenter + cyRadius >= cyClient) | 


(yCenter - cyRadius 


cyMove = -cyMove ; 


return 0 ; 


case WM DESTROY: 
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if (hBitmap) 

DeleteObj ect (hBitmap); 

KillTimer (hwnd, ID_TIMER); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, iMsg, wParam, IParam); 

} 

BOUNCE 每次收到一个 WM _ SIZE 讯息时都重画小球。这就需要与视讯显示器 
相容的记忆体装置 内容： 

hdcMem = CreateCompatibleDC (hdc); 

小球的直径设为视窗显示区域高度或宽度中较短者的十六分之一。不过， 
程式构造的点阵图却比小 球大： 从点阵图中心到点阵图四个边的距离是小球半 
径的 1.5 倍： 

hBitmap = CreateCompatibleBitmap (hdc, cxTotal , cyTotal); 

将点阵图选进记忆体装置内容後，整个点阵图背景设成 白色： 

Rectangle (hdcMem, -1, -1, xTotal + 1, yTotal + 1); 

那些不固定的座标使矩形边框在点阵图之外著色。 一 个对角线开口的画刷 
选进记忆体装置内容，并将小球画在点阵图的 中央： 

Ellipse (hdcMem, xMove, yMove, xTotal - xMove, yTotal - yMove); 

当小球移动时，小球边界的空白会有效地删除前一时刻的小球图像。在另 
一个位置重画小球只需在 BitBlt 呼叫中使用 SRCC 0 PY 的 R 0 P 代码： 

BitBlt (hdc, xCenter - cxTotal / 2, yCenter - cyTotal / 2, cxTotal, cyTotal, 

hdcMem, ◦, ◦, SRCCOPY); 

BOUNCE 程式只是展示了在显示器上移动图像的最简单的方法。在一般情况 
下，这种方法并不能令人满意。如果您对动画感兴趣，那么除了在来源和目的 
之间执行或操作以外，您还应该研究其他的 R 0 P 代码（例如 SRCINVERT ) 。其他 
动画技术包括 Windows 调色盘 （ 以及 AnimatePalette 函式）和 CreateDIBSection 
函式。对於更高级的动画您只好放弃 GDI 而使用 DirectX 介面了。 

视窗外的点阵图 

SCRAMBLE 程式，如程式14_11所示，编写非常粗糙，我本来不应该展示这 
个程式，但它示范了一些有趣的技术，而且在交换两个显示矩形内容的 BitBlt 
操作的程序中，用记忆体装置内容作为临时储存空间。 

程式 14-11 SCRAMBLE 

SCRAMBLE.C 

/* - 


第 657 页 




















































Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

SCRAMBLE.C -- Scramble (and Unscramble) Screen 

(c) Charles Petzold, 1998 


女 


#include <windows.h> 


#define NUM 300 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine 

iCmdShow) 

{ 

static int 
HDC 
int 

HBITMAP 
HWND 
int 


iKeep [NUM][4]; 

hdcScr, hdcMem ; 
cx, cy ; 
hBitmap ; 

hwnd ; 
i, j, xl. 


yl, x2, y2 


if (LockWindowUpdate (hwnd 

{ 

hdcScr = 

DCX_LOCKWINDOWUPDATE); 

hdcMem 
cx = 

cy = 

hBitmap 


GetDesktopWindow ())) 


GetDCEx 


(hwnd. 


NULL, 


DCX CACHE 


=CreateCompatibleDC (hdcScr); 
GetSystemMetrics (SM—CXSCREEN) / 10 ; 
GetSystemMetrics (SM—CYSCREEN) / 10 ; 
CreateCompatibleBitmap (hdcScr, cx, cy) 


SelectObj ect (hdcMem, hBitmap); 
srand ( (int) GetCurrentTime ()); 


for 

for 

{ 


(i = ◦ ; i < 2 ; i++) 
(j = ◦ ; j < NUM ; j++) 


if (i 


0 ) 


iKeep 

[j] 

[◦]= 

xl = 

cx 

女 

(rand 

0 

% 

10); 

iKeep 

[j] 

[1]= 

yl = 

cy 

女 

(rand 

0 

% 

10); 

iKeep 

[j] 

[2]= 

x2 = 

cx 

女 

(rand 

0 

% 

10); 

iKeep 

\ 

[j] 

[3]= 

y2 = 

cy 

女 

(rand 

0 

% 

10); 

/ 

else 











xl = 

iKeep 

[NUM 

— 

1 

- j] 

[0] 

參 

r 



yl = 

iKeep 

[NUM 

— 

1 

- j] 

[1] 

參 

r 



int 
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x2 = iKeep [NUM - 1 - j] [2]; 
y2 = iKeep [NUM - 1 - j] [3]; 

} 

BitBlt (hdcMem, ◦, ◦, cx, cy, hdcScr, xl, yl, 

SRCCOPY); 

BitBlt (hdcScr, xl, yl , cx, cy, hdcScr, x2, y2, 

SRCCOPY); 

BitBlt (hdcScr, x2, y2, cx, cy, hdcMem, 0, 0, 

SRCCOPY); 

Sleep (10); 

} 

DeleteDC (hdcMem); 

ReleaseDC (hwnd, hdcScr); 

DeleteObj ect (hBitmap); 

LockWindowUpdate (NULL); 

} 

return FALSE ; 

} 

SCRAMBLE 没有视窗讯息处理程式。在 WinMain 中，它首先呼叫带有桌面视 
窗代号的 LockWindowUpdate 。 此函式暂时防止其他程式更新萤幕。然後 SCRAMBLE 
通过呼叫带有参数 DCXJL 0 CKWIND 0 WUPDATE 的 GetDCEx 来获得整个蛮幕的装置内 
容。这样就只有 SCRAMBLE 可以更新萤幕了。 

然後 SCRAMBLE 确定全萤幕的尺寸，并将长宽分别除以10。程式用这个尺寸 
(名称是 cx 和 cy ) 来建立一个点阵图，并将该点阵图选进记忆体装置内容。 

使用 C 语言的 rand 函式， SCRAMBLE 计算出四个随机值（两个座标点）作为 
cx 和 cy 的倍数。程式透过三次呼叫 BitBlt 函式来交换两个矩形块中显示的内 
容。第一次将从第一个座标点开始的矩形复制到记忆体装置内容。第二次 BitBlt 
将从第二座标点开始的矩形复制到第一点开始的位置。第三次将记忆体装置内 
容中的矩形复制到第二个座标点开始的区域。 

此程序将有效地交换显示器上两个矩形中的内容。 SCRAMBLE 执行300次交 
换，这时的萤幕显示肯定是一团糟。但不用担心，因为 SCRAMBLE 记得是怎么把 
显示弄得这样一团糟的，接著在退出前它会按相反的次序恢复原来的桌面显示 
(锁定萤幕前的画面）！ 

您也可以用记忆体装置内容将一个点阵图复制给另一个点阵图。例如，假 
定您要建立一个点阵图，该点阵图只包含另一个点阵图左上角的图形。如果原来 
的图像代号为 hBitmap ， 那么您可以将其尺寸复制到一个 BITMAP 型态的结 构中: 

GetObj ect (hBitmap, sizeof (BITMAP), &bm); 
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然後建立一个未初始化的新点阵图，该点阵图的尺寸是原来图的1/4: 

hBitmap2 = CreateBitmap ( bm.bmWidth / 2, bm.bmHeight / 2, 

bm.bmPlanes, bm.bmBitsPixel, NULL); 

现在建立两个记忆体装置内容，并将原来点阵图和新点阵图选分别进这两 
个记忆体装置内容： 

hdcMeml = CreateCompatibleDC (hdc) ; 
hdcMem2 = CreateCompatibleDC (hdc); 

SelectObj ect (hdcMeml , hBitmap); 

SelectObj ect (hdcMem2, hBitmap2); 

最後，将第一个点阵图的左上角复制给第 二个： 

BitBlt ( hdcMem2 , ◦, ◦, bm.bmWidth / 2, bm.bmHeight / 2, 

hdcMeml, ◦, ◦, SRCCOPY); 

剩下的只是清除 工作： 

DeleteDC (hdcMeml); 

DeleteDC (hdcMem2); 

DeleteObj ect (hBitmap); 

BLOWUP . C 程式，如图 14-21 所示，也用视窗更新锁定来在程式视窗之外显 
示一个捕捉的矩形。此程式允许使用者用滑鼠圈选萤幕上的矩形区域，然後 
BLOWUP 将该区域的内容复制到点阵图。在 WM_PAINT 讯息处理期间，点阵图复制 
到程式的显示区域，必要时将拉伸或压缩。（参见程式14-12。 ） 


程式 14-12 BLOWUP 


BLOWUP.C 


/* - 


BLOWUP.C -- 

Video Magnifier Program 

(c) Charles Petzold, 1998 


*/ 


♦include <windows.h> 
♦include <stdlib.h> 
♦include "resource.h" 
LRESULT CALLBACK WndProc 


// for abs definition 


(HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine 

iCmdShow) 

{ 

static TCHAR 
HACCEL 
HWND 
MSG 

WNDCLASS 


int 


szAppName [] = TEXT ("Blowup") 

hAccel ; 
hwnd ; 

msg ; 

wndclass ; 
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wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, 工 DC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=s zAppName ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows 

NT ! n ), 

szAppName, 

MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow ( szAppName, TEXT ("Blow-Up Mouse Demo ”）， 

WS_OVERLAPPEDWINDOW a 

CW—USEDEFAULT, CW—USEDEFAULT, 
CW_USEDEFAULT a CW—USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

hAccel = LoadAccelerators (hlnstance, s zAppName); 
while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

if ( !TranslateAccelerator (hwnd, hAccel, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

return msg.wParam ; 

} 

void InvertBlock (HWND hwndScr A HWND hwnd, POINT ptBeg, POINT ptEnd) 

{ 

HDC hdc ; 

hdc = GetDCEx (hwndScr, NULL, DCX_CACHE | DCX_LOCKWINDOWUPDATE); 
ClientToScreen (hwnd, &ptBeg); 

ClientToScreen (hwnd, &ptEnd); 

PatBlt (hdc, ptBeg.x, ptBeg.y, ptEnd.x - ptBeg.x, ptEnd.y - ptBeg.y. 
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DSTINVERT); 


} 

ReleaseDC (hwndScr, hdc); 



HBITMAP CopyBitmap (HBITMAP 

f 

hBitmapSrc) 




BITMAP bitmap ; 

HBITMAP hBitmapDst ; 




HDC 

hdcSrc, hdcDst ; 



GetObject (hBitmapSrc, 

sizeof (BITMAP), ^bitmap); 



hBitmapDst = CreateBitmapIndirect 

(&bitmap); 



hdcSrc = CreateCompatibleDC (NULL) 

參 

f 



hdcDst = CreateCompatibleDC (NULL) 

• 

r 



SelectObj ect (hdcSrc, 

hBitmapSrc) 

• 



SelectObj ect (hdcDst, 

hBitmapDst) 

• 

f 



BitBlt (hdcDst, ◦, ◦, 

bitmap•bmWidth, bitmap.bmHeight, 




hdcSrc, 0, 

0, SRCCOPY); 



DeleteDC (hdcSrc); 

DeleteDC (hdcDst); 




} 

return hBitmapDst ; 




LRESULT CALLBACK WndProc ( 

IParam) 

f 

HWND hwnd. 

UINT message, WPARAM 

wParam,LPARAM 


static BOOL 

bCapturing, 

bBlocking ; 



static HBITMAP hBitmap ; 




static HWND 

hwndScr ; 




static POINT 

ptBeg, ptEnd ; 



BITMAP 

bm ; 




HBITMAP 

hBitmapClip 

• 

f 



HDC 

hdc, hdcMem 

參 

f 



int 

iEnable ; 




PAINTSTRUCT 

ps ; 




RECT 

rect ; 




switch (message) 

{ 

case WM LBUTTONDOWN: 





if ( !bCapturing) 

f 





if 

(LockWindowUpdate 

(hwndScr = 

GetDesktopWindow ())) 
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bCapturing = TRUE ; 
SetCapture (hwnd); 

SetCursor (LoadCursor 

IDC_CROSS)); 

} 

else 

MessageBeep (0); 

} 

return 0 ; 

case WM—RBUTTONDOWN: 

if (bCapturing) 

{ 

bBlocking = TRUE ; 
ptBeg.x = LOWORD (IParam); 
ptBeg.y = HIWORD (IParam); 
ptEnd = ptBeg ; 

InvertBlock (hwndScr, hwnd, ptBeg, 

} 

return 0 ; 

case WM—MOUSEMOVE: 

if (bBlocking) 

{ 

InvertBlock (hwndScr, hwnd, ptBeg, 
ptEnd.x = LOWORD (IParam); 
ptEnd.y = HIWORD (IParam); 
InvertBlock (hwndScr, hwnd, ptBeg, 

} 

return 0 ; 


case WM—LBUTTONUP: 
case WM—RBUTTONUP: 

if (bBlocking) 

{ 

ptEnd); 


InvertBlock (hwndScr, hwnd 

ptEnd.x = LOWORD (IParam); 
ptEnd.y = HIWORD (IParam); 


if (hBitmap) 

{ 

DeleteObj ect (hBitmap) 
hBitmap = NULL ; 


hdc = GetDC (hwnd); 


(NULL, 


ptEnd); 


ptEnd); 


ptEnd); 


ptBeg, 
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(hdc) ; 
(hdc. 


ptBeg•x) , 


hdcMem 


CreateCompatibleDC 


hBitmap 


CreateCompatibleBitmap 


abs (ptEnd.x - ptBeg.x), 
abs (ptEnd.y - ptBeg.y)); 

SelectObj ect (hdcMem, hBitmap); 


StretchBlt (hdcMem, 0, ◦, 


abs 


(ptEnd.x 


abs (ptEnd.y 一 ptBeg.y), 
hdc, ptBeg.x, ptBeg.y, ptEnd.x - ptBeg.x, 

ptEnd.y - ptBeg.y, SRCCOPY); 

DeleteDC (hdcMem); 

ReleaseDC (hwnd, hdc); 
InvalidateRect (hwnd, NULL, TRUE); 

} 

if (bBlocking || bCapturing) 

{ 

bBlocking = bCapturing = FALSE ; 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 
ReleaseCapture (); 

LockWindowUpdate (NULL); 

} 

return 0 ; 


case WM—INITMENUPOPUP: 

iEnable = 工 sClipboardFormatAvailable (CF_BITMAP) ? 
MF ENABLED : MF GRAYED ; 


iEnable); 


EnableMenuItem ( (HMENU) wParam, IDM EDIT PASTE, 


iEnable); 
iEnable); 
iEnable); 


iEnable = hBitmap ? MF ENABLED : MF GRAYED ; 






EnableMenuItem 

((HMENU) 

wParam A 

IDM EDIT CUT, 

EnableMenuItem 

((HMENU) 

wParam, 

IDM EDIT COPY, 

EnableMenuItem 

((HMENU) 

wParam A 

IDM EDIT DELETE, 

return 0 ; 





case WM_COMMAND : 

switch (LOWORD (wParam)) 

{ 

case 工 DM EDIT CUT: 
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TRUE) ; 


case 工 DM—EDIT_COPY: 

if (hBitmap) 

{ 

hBitmapClip = CopyBitmap (hBitmap); 
OpenClipboard (hwnd); 

EmptyClipboard (); 

SetClipboardData (CF_BITMAP, hBitmapClip); 

} 

if (LOWORD (wParam) == IDM—EDIT_COPY) 

return 0 ; 

//fall through for IDM—EDIT—CUT 
case IDM_EDIT_DELETE : 

if (hBitmap) 

{ 

DeleteObj ect (hBitmap); 
hBitmap = NULL ; 

} 

工 nvalidateRect (hwnd, NULL, 
return 0 ; 

case IDM_EDIT_PASTE: 

if (hBitmap) 

{ 

DeleteObj ect (hBitmap); 
hBitmap = NULL ; 

} 

OpenClipboard (hwnd); 

hBitmapClip = GetClipboardData (CF BITMAP); 


if (hBitmapClip) 

hBitmap = CopyBitmap (hBitmapClip); 
Closedipboard (); 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

} 

break ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

if (hBitmap) 

{ 

GetClientRect (hwnd, &rect); 


hdcMem = CreateCompatibleDC (hdc); 
SelectObject (hdcMem, hBitmap); 

GetObject (hBitmap, sizeof (BITMAP), (PSTR) 
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&bm) ; 


SetStretchBltMode (hdc, COLORONCOLOR); 


StretchBlt (hdc, 


◦, ◦, rect.right 


rect.bottom. 


hdcMem, 0 , 0 , bm.bmWidth, bm.bmHeight, SRCCOPY); 


DeleteDC (hdcMem); 


EndPaint 
return 0 


(hwnd, &ps); 


case WM DESTROY: 


if (hBitmap) 


DeleteObj ect (hBitmap) 


PostQuitMessage (0); 


return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam) 

} 

BLOWUP . RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h" 

♦include "afxres.h M 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

BLOWUP MENU DISCARDABLE 
BEGIN 

POPUP "&Edit n 
BEGIN 

MENUITEM n Cu&t\tCtrl+X", 

MENUITEM n &Copy\tCtrl+C n A 
MENUITEM "&Paste\tCtrl+V", 

MENUITEM n De&lete\tDelete n , 

END 

END 


工 DM_EDIT_CUT 
工 DM—EDIT—COPY 

IDM—EDIT—PASTE 
IDM EDIT DELETE 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Accelerator 

BLOWUP ACCELERATORS DISCARDABLE 
BEGIN 

n C n , 工 DM—EDIT_COPY, VIRTKEY, CONTROL, NOINVERT 

"V" A 工 DM—EDIT_PASTE, VIRTKEY, CONTROL, NOINVERT 

VK DELETE, IDM EDIT DELETE, VIRTKEY, NOINVERT 
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"X", IDM_EDIT_CUT, VIRTKEY, CONTROL, NOINVERT 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by Blowup.rc 


♦define 工 DM—EDIT—CUT 
#define IDM—EDIT—COPY 
♦define IDM—EDIT—PASTE 
♦define IDM EDIT DELETE 


40001 

40002 

40003 

40004 


Blow Up 







图 14-10 BLOWUP 显示的一个范例 

由於滑鼠拦截的限制，所以开始使用 BLOWUP 时会有些困难，需要逐渐适应。 
下面是使用本程式的 方法： 

在 BLOWUP 显示区域按下滑鼠左键不放，滑鼠指标会变成「+」字型。 

继续按住左键，将滑鼠移到萤幕上的任何其他位置。滑鼠游标的位置就是 
您要圈选的矩形区域的左上角。 

继续按住左键，按下滑鼠右键，然後拖动滑鼠到您要圈选的矩形区域的右 
下角。释放滑鼠左键和右键。（释放滑鼠左、右键次序无关紧要。） 

滑鼠游标恢复成箭头状，这时您圈选的矩形区域已复制到了 BLOWUP 的显示 
区域，并作了适当的压缩或拉伸变化。 

如果您从右上角到左下角选取的话， BLOWUP 将显示矩形区域的镜像。如果 
从左下到右上角选取， BLOWUP 将显示颠倒的图像。如果从右上角至左上角选取， 
程式将综合两种效果。 
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BLOWUP 还包含将点阵图复制到剪贴簿，以及将剪贴簿中的点阵图复制到程 
式的处理功能。 BLOWUP 处理 WM _ INITMENUPOPUP 讯息来启用或禁用 「 Edit 」 功能 
表中的不同选项，并通过 WM _ COMMAND 讯息来处理这些功能表项。您应该对这些 
程式码的结构比较熟悉，因为它们与第十二章中的复制和粘贴文字项目的处理 
方式在本质上是一样的。 

不过，对於点阵图，剪贴簿物件不是整体代号而是点阵图代号。当您使用 
CF_BITMAP 时 ， GetClipboardData 函式传回一个 HBITMAP 物件，而且 

SetClipboardData 函式接收一个 HBITMAP 物件。如果您想将点阵图传送给剪贴 
簿又想保留副本以供程式本身使用，那么您必须复制点阵图。同样，如果您从 
剪贴簿上粘贴了一幅点阵图，也应该做一个副本。 BLOWUP 中的 CopyBitmap 函式 
是通过取得现存点阵图的 BITMAP 结构，并在 CreateBitmapIndirect 函式中用 
这个结构建立一个新点阵图来完成此项操作的。（变数名的尾码 Six 和 Dst 分别 
代表「来源」和「目的」。 ） 两个点阵图都被选进记忆体装置内容，而且通过 
呼叫 BitBlt 来复制点阵图内容。（另一种复制位元的方法，可以先按点阵图大 
小配置一块记忆体，然後为来源点阵图呼叫 GetBitmapBits ， 为目的点阵图呼叫 
SetBitmapBits 。） 

我发现 BLOWUP 对於检查 Windows 及其应用程式中大量分散的小点阵图和图 
片非常有用。 
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第十五章与装置无关的点阵图 


在上一章我们了解到 Windows GDI 点阵图物件（也称为与装置相关的点阵 
图，或 DDB ) 有许多程式设计用途。但是我并没有展示把这些点阵图储存到磁片 
档案或把它们载入记忆体的方法。这是以前在 Windows 中使用的方法，现在根 
本不用了。因为点阵图的位元格式相当依赖於设备，所以 DDB 不适用於图像交 
换。 DDB 内没有色彩对照表来指定点阵图的位与色彩之间的联系。 DDB 只有在 
Windows 开机到关机的生命期内被建立和清除时才有意义。 

在 Windows 3.0 中发表了与装置无关的点阵图 ( DIB )， 提供了适用於交换的 
图像档案格式。正如您所知的，像 . GIF 或 . JPEG 之类的其他图像档案格式在 
Internet 上比 DIB 档案更常见。这主要是因为 . GIF 和. JPEG 格式进行了压缩， 
明显地减少了下载的时间。尽管有一个用於 DIB 的压缩方案，但极少使用 。 DIB 
内的点阵图几乎都没有被压缩。如果您想在程式中操作点阵图，这实际上是一 
个优点。 DIB 不像 . GIF 和 . JPEG 档案 ， Windows API 直接支援 DIB 。 如果在记忆 
体中有 DIB ， 您就可以提供指向该 DIB 的指标作为某些函式的参数，来显示 DIB 
或把 DIB 转化为 DDB 。 

DIB 档案格式 

有意思的是， DIB 格式并不是源自於 Windows 。 它首先定义在 OS /2 的 1. 1 
版中，该作业系统最初由 IBM 和 Microsoft 在八十年代中期开始开发。 OS /2 1. 1 
在1988年发布，并且是第一个包含了类似 Windows 的图形使用者介面的 OS /2 
版本，该图形使用者介面被称之为 r Presentation Manager ( PM ) 」。 

「Presentation Manager 」 包含了定义点阵图格式的「图形程式介面」 （ GPI ) 。 

然後在 Windows 3. 0中（发布於 1990) 使用了 OS /2 点阵图格式，这时称之 
为 DIB。Windows 3.0 也包含了原始 DIB 格式的变体，并在 Windows 下成为标准。 
在 Windows 95 (以及 Windows NT 4. 0) 和 Windows 98 (以及 Windows NT 5. 0) 
下也定义了一些其他的增强能力，我会在本章讨论它们。 

DIB 首先作为一种档案格式，它的副档名为 . BMP ， 在极少情况下为 . DIB 。 
Windows 应用程式使用的点阵图图像被当做 DIB 档案建立，并作为唯读资源储存 
在程式的可执行档案中。图示和滑鼠游标也是形式稍有不同的 DIB 档案。 

程式能将 DIB 档案减去前14个位元组载入连续的记忆体块中。这时就可以 
称它为 「packed DIB ( packed - DIB ) 格式的点阵图」。在 Windows 下执行的应 
用程式能使用 packed DIB 格式，通过 Windows 剪贴簿来交换图像或建立画刷。 
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程式也可以完全存取 DIB 的内容并以任意方式修改 DIB 。 

程式也能在记忆体中建立自己的 DIB 然後把它们存入档案。程式使用 GDI 
函式呼叫就能「绘制」这些 DIB 内的图像，也能在程序中利用别的记忆体 DIB 
直接设定和操作图素位元。 

在记忆体中载入了 DIB 後，程式也能通过几个 Windows API 函式呼叫来使 
用 DIB 资料，我将在本章中讨论有关内容。与 DIB 相关的 API 呼叫是很少的， 
并且主要与视讯显示器或印表机页面上显示 DIB 相关，还与转换 GDI 点阵图物 
件有关。 

除了这些内容以外，还有许多应用程式需要完成的 DIB 任务，而这些任务 
Windows 作业系统并不支援。例如，程式可能存取了 24位元 DIB 并且想把它转 
化为带有最佳化的256色调色盘的8位元 DIB ， 而 Windows 不会为您执行这些操 
作。但是在本章和下一章将向您显示 Windows API 之外的操作 DIB 的方式。 


OS/2 样式的 DIB 


先不要陷入太多的细节，让我们看一下与首先在 OS/2 1.1 中出现的点阵图 
格式相容的 Windows DIB 格式。 

DIB 档案有四个主要 部分： 

• 档案表头 
• 资讯表头 

• RGB 色彩对照表（不一定有） 

• 点阵图图素位元 

您可以把前两部分看成是 C 的资料结构，把第三部分看成是资料结构的阵 
列。在 Windows 表头档案 WINGDI.H 中说明了这些结构。在记忆体中的 packed DIB 
格式内有三个部分： 

• 资讯表头 

• RGB 色彩对照表（不一定有） 

• 点阵图图素位元 

除了没有档案表头外，其他部分与储存在档案内的 DIB 相同。 

DIB 档案（不是记忆体中的 packed DIB) 以定义为如下结构的 14 个位元组 
的档案表头开始： 

typedef struct tagBITMAPFILEHEADER // bmfh 
{ 

WORD bfType ; // signature word "BM" or 0x4D42 

DWORD bfSize ; // entire size of file 

WORD bfReservedl ; // must be zero 

WORD bfReserved2 ; // must be zero 
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DWORD 

bfOffsetBits ; // 

' offset in file o 

f DIB pixel bits 

/ 

BITMAPFILEHEADER, 

* PBITMAPFILEHEADER ; 




在 WINGDI . H 内定义的结构可能与这不完全相同，但在功能上是相同的。第 


一 个注释（就是文字 rbmfhj ) 指出了给这种资料型态的资料变数命名时推荐 
的缩写。如果在我的程式内看到了名为 pbmfh 的变数，这可能是一个指向 
BHMAPFILEHEADER 型态结构的指标或指向 PBITMAPFILEHEADER 型态变数的指标。 

结构的长度为14位元组，它以两个字母 「 BM 」 开头以指明是点阵图档案。 
这是一个 WORD 值 0 x 4 D 42。 紧跟在 「 BM 」 後的 DWORD 以位元组为单位指出了包括 
档案表头在内的档案大小。下两个 WORD 栏位设定为0。（在与 DIB 档案格式相 
似的滑鼠游标档案内，这两个栏位指出游标的「热点 (hot spot ) 」 ） 。结构 
还包含一个 DWORD 栏位，它指出了档案中图素位元开始位置的位元组偏移量。 
此数值来自 DIB 资讯表头中的资讯，为了使用的方便提供在这里。 

在 OS /2 样式的 DIB 内 ， BITMAPFILEHEADER 结构後紧跟了 BITMAPCOREHEADER 
结构，它提供了关於 DIB 图像的基本资讯。紧缩的 DIB (Packed DIB ) 开始於 


BITMAPCOREHEADER ： 

typedef struct tagBITMAPCOREHEADER // bmch 
{ 

DWORD bcSize ; 

WORD bcWidth ; 

WORD bcHeight ; 

WORD bcPlanes ; 

WORD bcBitCount ; 

} 

BITMAPCOREHEADER, * PBITMAPCOREHEADER ; 

[core (核心）」用在这里看起来有点奇特，它是指这种格式是其他由它 
所衍生的点阵图格式的基础。 


// size of the structure = 12 
// width of image in pixels 
// height of image in pixels 



// bits per pixel (1, 4, 8, or 24) 


BITMAPCOREHEADER 结构中的 bcSize 栏位指出了资料结构的大小，在这种情 
况下是12位元组。 

bcWidth 和 bcHeight 栏位包含了以图素为单位的点阵图大小。尽管这些栏 
位使用 WORD 意味著一个 DIB 可能为65, 535图素高和宽，但是我们几乎不会用 
到那么大的单位。 

bcPlanes 栏位的值始终是1。这个栏位是我们在上一章中遇到的早期 
Windows GDI 点阵图物件的残留物。 

bcBitCount 栏位指出了每图素的位元数。对於 OS /2 样式的 DIB ， 这可能是 
1、4、8或24。 DIB 图像中的颜色数等於 2 bmch . bcBitCoimt ， 或用 C 的语法表 
示为： 

1 << bmch.bcBitCount 
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这样， bcBitCount 栏位等於： 

• 1代表2色 DIB 

• 4代表16色 DIB 

• 8代表256色 DIB 

• 24代表 full -Color DIB 

当我提到「8位兀 DIB 」 时，就是说每图素占8位兀的 DIB 。 


对於前三种情况（也就是位元数为1、4和8时）， BITMAPCOREHEADER 後紧 
跟色彩对照表，24位元 DIB 没有色彩对照表。色彩对照表是一个3位元组 
RGBTRIPLE 结构的阵列，阵列中的每个元素代表图像中的每种 颜色： 


typedef struct tagRGBTRIPLE 

; 

// 

rgbt 

i 

BYTE rgbtBlue ; 

// 

blue level 

BYTE rgbtGreen ; 

// 

green level 

BYTE rgbtRed ; 

I 

// 

red level 

RGBTRIPLE ; 




这样排列色彩对照表以便 DIB 中最重要的颜色首先显示，我们将在下一章 


说明原因。 

WINGDI . H 表头档案也定义了下面的 结构： 

typedef struct tagBITMAPCOREINFO // bmci 
{ 

BITMAPCOREHEADER bmciHeader ; // core-header structure 

RGBTRIPLE bmciColors[1] ; // color table array 

} 

BITMAPCOREINFO, ★ PBITMAPCOREINFO ; 

这个结构把资讯表头与色彩对照表结合起来。虽然在这个结构中 RGBTRIPLE 
结构的数量等於1，但在 DIB 档案内您绝对不会发现只有一个 RGBTRIPLE 。 根据 
每个图素的位元数，色彩对照表的大小始终是2、16或256个 RGBTRIPLE 结构。 
如果需要为8位元 DIB 配置 PBITMAPCOREINFO 结构，您可以这 样做： 

pbmci = malloc (sizeof (BITMAPCOREINFO) + 255 * sizeof (RGBTRIPLE)); 

然後可以这样存取 RGBTRIPLE 结构： 

pbmci->bmciColors[i] 

因为 RGBTRIPLE 结构的长度是 3 位元组，许多 RGBTRIPLE 结构可能在 DIB 
中以奇数位址开始。然而，因为在 DIB 档案内始终有偶数个的 RGBTRIPLE 结构， 
所以紧跟在色彩对照表阵列後的资料块总是以 WORD 位址边界开始。 

紧跟在色彩对照表 （24 位元 DIB 中是资讯表头）後的资料是图素位元本身。 
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由下而上 

像大多数点阵图格式一样， DIB 中的图素位元是以水平行组织的，用视讯显 
示器硬体的术语称作「扫描线」。行数等於 BITMAPCOREHEADER 结构的 bcHeight 
栏位。然而，与大多数点阵图格式不同的是， DIB 从图像的底行开始，往上表示 
图像。 

在此应定义一些术语，当我们说「顶行」和「底行」时，指的是当其正确 
显示在显示器或印表机的页面上时出现在虚拟图像的顶部和底部。就好像肖像 
的顶行是头发，底行是下巴，在 DIB 档案中的「第一行」指的是 DIB 档案的色 
彩对照表後的图素行，「最後行」指的是档案最末端的图素行。 

因此，在 DIB 中，图像的底行是档案的第一行，图像的顶行是档案的最後 
一行。这称之为由下而上的组织。因为这种组织和直觉相反，您可能会 问：为 
什么要这么做？ 

好，现在我们回到 OS /2 的 Presentation Manager 。 IBM 的人认为 PM 内的 
座标系统 一一 包括视窗、图形和点阵图——应该是一致的。这引起了争 论：大 
多数人，包括在全画面文字方式下编程和视窗环境下工作的程式写作者认为应 
使用垂直座标在萤幕上向下增加的座标。然而，电脑图形程式写作者认为应使 
用解析几何的数学方法进行视讯显示，这是一个垂直座标在空间中向上增加的 
直角（或笛卡尔）座标系。 

简而言之，数学方法赢了。 PM 内的所有事物都以左下角为原点（包括视窗 
座标），因此 DIB 也就有了那种方式。 

DIB 图素位元 

DIB 档案的最後部分（在大多数情况下是 DIB 档案的主体）由实际的 DIB 的 
图素位元组成。图素位元是由从图像的底行开始并沿著图像向上增长的水平行 
组织的。 

DIB 中的行数等於 BITMAPCOREHEADER 结构的 bcHeight 栏位。每一行的图素 
数等於该结构的 bcWidth 栏位。每一行从最左边的图素开始，直到图像的右边。 
每个图素的位元数可以从 bcBitCount 栏位取得，为1、4、8或24。 

以位元组为单位的每行长度始终是4的倍数。行的长度可以计 算为： 

RowLength = 4 * ((bmch.bcWidth * bmch.bcBitCount + 31) / 32); 

或者在 c 内用更有效的 方法： 

RowLength = ((bmch.bcWidth * bmch.bcBitCount + 31) & 〜 31) >> 3 ; 

如果需要，可通过在右边补充行（通常是用零）来完成长度。图素资料的 
总位元组数等於 RowLength 和 bmch . bcHeight 的乘积。 
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要了解图素编码的方式，让我们分别考虑四种情况。在下面的图表中，每 
个位元组的位元显示在框内并且编了号，7表示最高位元，0表示最低位元。图 
素也从行的最左端从0开始编号。 


对於每图素1位元的 DIB , 每位元组对应为8图素。最左边的图素是第一个 
位元组的最高位元： 


Pixel: 0 

1 

2 

3 

4 

5 

6 7 

8 

9 

10 

11 

12 

13 

14 15 

16 

17 

18 

19 

20 

21 

22 23 

[7 

6 

5 

4 

3 

2 

1 0 

7 

6 

5 

4 

3 

2 

1 0 

7 

6 

5 

4 

3 

2 

10] 


每个图素可以是0或1。0表示该图素的颜色由色彩对照表中第一个 
RGBTRIPLE 项目给出。1表示图素的颜色由色彩对照表的第二个项目给出。 

对於每图素4位元的 DIB ， 每个位元组对应两个图素。最左边的图素是第一 
个位元组的高4位元，以此 类推： 

Pixel: —0— —1— —2— —3— —4— —5 — 

[7654321 0] [7 654321 0] [7 654321 0 

每图素4位元的值的范围从0到15。此值是指向色彩对照表中16个项目的 


索引。 

对於每图素8位元的 DIB ， 每个位元组为1个 图素: 


Pixel: 

— 0 — 

一 

— 1 — 

— 2 — 


7 6 5 4 3 

2 1 0 


7 6 5 4 3 2 1 0 


7 6 5 4 3 2 1 0 


位元组的值从0到255。同样，这也是指向色彩对照表中256个项目的索弓 | 。 


对於每图素24位元的 DIB , 每个图素需要3个位元组来代表红、绿和蓝的 
颜色值。图素位元的每一行，基本上就是 RGBTRIPLE 结构的阵列，可能需要在 
每行的末端补0以便该行为4位元组的 倍数： 


Pixel: — Blue — 

— Green —— 

— Red — 

7 6 5 4 3 2 1 0 

7 6 5 4 3 2 1 0 

7 6 5 4 3 2 1 0 


每图素24位元的 DIB 没有色彩对照表。 


扩展的 Windows DIB 

现在我们掌握了 Windows 3. 0中介绍的与 OS /2 相容的 DIB , 同时也看一看 
Windows 中 DIB 的扩展版本。 


这种 DIB 形式跟前面的格式一样，以 BITMAPFILEHEADER 结构开始，但是接 
著是 BITMAPINFOHEADER 结构，而不是 BITMAPCOREHEADER 结构： 


typedef struct tagBITMAPINFOHEADER 

// bmih 


i 

DWORD 

biSize ; 

// size of 

the structure = 40 

LONG 

biWidth ; 

// width of the 

image in pixels 

LONG 

biHeight ; 

// height of the 

image in pixels 
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WORD 

biPlanes ; 

// 

=1 




WORD 

biBitCount ; 

// 

bits per pixel (1, 4, 

8, 

16, 24, or 32) 


DWORD 

biCompression ; 

// 

compression code 




DWORD 

biSizelmage ; 


// number of bytes 

in 

image 


LONG 

biXPelsPerMeter ; 

// 

horizontal resolution 




LONG 

biYPelsPerMeter ; 

// 

vertical resolution 




DWORD 

biClrUsed ; 


// number of colors 

used 


DWORD 

biClrlmportant ; 


// number of important 

colors 

BITMAPINFOHEADER , 女 PBITMAPINFOHEADER 

參 

f 




您可以通过检查结构的第一栏位区分与 OS /2 相容的 DIB 和 Windows DIB ， 


前者为12，後者为40。 

您将注意到，在这个结构内有六个附加的栏位，但是 BITMAPINFOHEADER 不 
是简单地由 BITMAPCOREHEADER 加上一些新栏位而成。仔细看一 下：在 
BITMAPCOREHEADER 结构中 ， bcWidth 和 bcHeight 栏位是 16位元 WORD 值； 而在 
BITMAPINFOHEADER 结构中它们是32位元 LONG 值。这是一个令人讨厌的小变化， 
当心它会给您带来麻烦。 


另一个变化是：对於使用 BITMAPINFOHEADER 结构的1位元、4位元和8位 
元 DIB ， 色彩对照表不是 RGBTRIPLE 结构的阵列。相反， BITMAPINFOHEADER 结 
构紧跟著一个 RGBQUAD 结构的 阵列： 


typedef struct tagRGBQUAD 

f 

// rgb 

BYTE 

rgbBlue ; 

// 

blue level 

BYTE 

rgbGreen ; 

// 

green level 

BYTE 

rgbRed ; 

// 

red level 

BYTE 

rgbReserved 

；// 

=◦ 

/ 

RGBQUAD ; 





除了包括总是设定为0的第四个栏位外，与 RGBTRIPLE 结构相同。 WINGDI.H 
表头档案也定义了以下 结构： 


typedef struct tagBITMAPINFO // bmi 

{ 

BITMAPINFOHEADER bmiHeader ; // info-header structure 

RGBQUAD bmiColors[1] ; // color table array 

} 

BITMAPINFO, * PBITMAPINFO ; 

注意，如果 BITMAPINFO 结构以 32 位元的位址边界开始，因为 
BITMAPINFOHEADER 结构的长度是40位元组，所以 RGBQUAD 阵列内的每一个项目 
也以32位边界开始。这样就确保通过32位元微处理器能更有效地对色彩对照 
表资料定址。 

尽管 BITMAPINFOHEADER 最初是在 Windows 3. 0中定义的，但是许多栏位在 
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Windows 95和 Windows NT 4. 0中又重新定义了，并且被带入 Windows 98和 
Windows NT 5.0 中。比如现在的文件中说：「如果 biHeight 是负数，则点阵图 
是由上而下的 DIB ， 原点在左上角」。这很好，但是在1990年刚开始定义 DIB 
格式时，如果有人做了这个决定，那会更好。我的建议是避免建立由上而下的 
DIB 。 有一些程式在编写时没有考虑这种新「特性」，在遇到负的 biHeight 栏 
位时会当掉。还有如 Microsoft Word 97带有的 Microsoft Photo Editor 在遇 
到由上而下的 DIB 时会报告「图像高度不合法」（虽然 Word 97本身不会出错）。 

biPlanes 栏位始终是1，但 biBitCount 栏位现在可以是16或32以及1、4、 
8或24。这也是在 Windows 95和 Windows NT 4. 0中的新特性。一会儿我将介 
绍这些附加格式工作的方式。 

现在让我们先跳过 biCompression 和 biSizelmage 栏位， 一 会儿再讨论它 
们。 

biXPelsPerMeter 和 biYPelsPerMeter 栏位以每公尺多少图素这种笨拙的单 
位指出图像的实际尺寸。 （「 pel」--picture element (图像元素） -- 是 IBM 
对图素的称呼。 ） Windows 在内部不使用此类资讯。然而，应用程式能够利用它 
以准确的大小显示 DIB 。 如果 DIB 来源於没有方图素的设备，这些栏位是很有用 
的。在大多数 DIB 内，这些栏位设定为0,这表示没有建议的实际大小。每英寸 
72点的解析度（有时用於视讯显示器，尽管实际解析度依赖於显示器的大小） 
大约相当於每公尺2835个图素，300 DPI 的普通印表机的解析度是每公尺11，811 
个图素。 

biClrUsed 是非常重要的栏位，因为它影响色彩对照表中项目的数量。对於 
4位元和8位元 DIB , 它能分别指出色彩对照表中包含了小於16或256个项目。 
虽然并不常用，但这是一种缩小 DIB 大小的方法。例如，假设 DIB 图像仅包括 
64个灰阶， biClrUsed 栏位设定为64，并且色彩对照表为256个位元组大小的 
色彩对照表包含了 64个 RGBQUAD 结构。图素值的范围从 0 x 00 到 0 x 3 F 。 DIB 仍 
然每图素需要1位元组，但每个图素位元组的高2位元为零。如果 biClrUsed 
栏位设定为0,意味著色彩对照表包含了由 biBitCount 栏位表示的全部项目数。 

从 Windows 95开始， biClrUsed 栏位对於16位元、24位元或32位元 DIB 
可以为非零。在这些情况下， Windows 不使用色彩对照表解释图素位元。相反地， 
它指出 DIB 中色彩对照表的大小，程式使用该资讯来设定调色盘在256色视讯 
显示器上显示 DIB 。 您可能想起在 OS /2 相容格式中，24位元 DIB 没有色彩对照 
表。在 Windows 3. 0中的扩展格式中，也与这一样。而在 Windows 95中，24位 
元 DIB 有色彩对照表， biClrUsed 栏位指出了它的大小。 

总结 如下： 
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对於1位元 DIB ， biClrUsed 始终是0或2。色彩对照表始终有两个项目。 
对於4位元 DIB ， 如果 biClrUsed 栏位是0或16，则色彩对照表有16个项 
目。如果是从2到15的数，则指的是色彩对照表中的项目数。每个图素的最大 
值是小於该数的1。 

对於8位元 DIB ， 如果 biClrUsed 栏位是0或256，则色彩对照表有256个 
项目。如果是从2到225的数，则指的是色彩对照表中的项目数。每个图素的 
最大值是小於该数的1。 

对於16位元、24位元或32位元 DIB ， biClrtJsed 栏位通常为0。如果它不 
为0,则指的是色彩对照表中的项目数。执行於256色显示卡的应用程式能使用 
这些项目来为 DIB 设定调色盘。 

另一个 警告： 原先使用早期 DIB 文件编写的程式不支援24位元 DIB 中的色 
彩对照表，如果在程式使用24位元 DIB 的色彩对照表的话，就要冒一定的风险。 

biClrlmportant 栏位实际上没有 biClrUsed 栏位重要，它通常被设定为0 
以指出色彩对照表中所有的颜色都是重要的，或者它与 biClrUsed 有相同的值。 
两种方法意味著同一件事，如果它被设定为0与 biClrUsed 之间的值，就意味 
著 DIB 图像能仅仅通过色彩对照表中第一个 biClrlmportant 项目合理地取得。 
当在256色显示卡上并排显示两个或更多8位元 DIB 时，这是很有用的。 

对於1位元、4位元、8位元和24位元的 DIB ， 图素位元的组织和 OS /2 相 
容的 DIB 是相同的， 一 会儿我将讨论16位元和32位元 DIB 。 

真实检查 

当遇到一个由其他程式或别人建立的 DIB 时，您希望从中发现什么内容呢？ 
尽管在 Windows 3.0 首次推出时， OS /2 样式的 DIB 已经很普遍了，但最近这 
种格式却已经很少出现了。许多程式写作者在实际编写快速 DIB 常式时忽略了 
它们。您遇到的任何4位元 DIB 可能是 Windows 的「小画家」程式使用16色视 
讯显示器建立的，在这些显示器上色彩对照表具有标准的16种颜色。 

最普遍的 DIB 可能是每图素8位元。8位元 DIB 分为 两类： 灰阶 DIB 和混色 
DIB 。 不幸的是，表头资讯中并没有指出8位元 DIB 的型态。 

许多灰阶 DIB 有一个等於64的 biClrUsed 栏位，指出色彩对照表中的64 
个项目。这些项目通常以上升的灰阶层排列，也就是说色彩对照表以00-00-00、 
04-04-04、08-08-08、 0 C -0 C -0 C 的 RGB 值开始，并包括 F 0- F 0- F 0、 F 4- F 4- F 4、 
F 8- F 8- F 8 和 FC - FC - FC 的 RGB 值。此类色彩对照表可用下列公式 计算： 

rgb[i].rgbRed = rgb[i].rgbGreen = rgb[i].rgbBlue = i * 256 / 64 ; 

在这里 rgb 是 RGBQUAD 结构的阵列， i 的范围从 0 到63。灰阶色彩对照表 
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可用下列公式 计算： 


rgb[i].rgbRed = rgb[i].rgbGreen = rgb[i].rgbBlue = i 

.* 255 / 63 ; 


因而此表以 FF - FF - FF 结尾。 

实际上使用哪个计算公式并没有什么区别。许多视讯显示卡和显示器没有 


比6位元更大的色彩精确度。第一个公式承认了这个事实。然而当产生小於64 
的灰阶时——可能是16或32 (在此情况下公式的除数分别是15和 31) ——使 
用第二个公式更适合，因为它确保了色彩对照表的最後一个项目是 FF - FF - FF ， 
也就是白色。 

当某些8位元灰阶 DIB 在色彩对照表内有64个项目时，其他灰阶的 DIB 会 
有256个项目。 biClrtJsed 栏位实际上可以为0 (指出色彩对照表中有256个项 
目）或者从2到256的数。当然， biClrUsed 值是2的话就没有任何意义（因为 
这样的8位元 DIB 能当作1位元 DIB 被重新编码）或者小於或等於16的值也没 
意义（因为它能当作4位元 DIB 被重新编码）。任何情况下，色彩对照表中的 
项目数必须与 biClrUsed 栏位相同（如果 biClrUsed 是0，则是 256) ，并且图 
素值不能超过色彩对照表项目数减1的值。这是因为图素值是指向色彩对照表 
阵列的索引。对於 biClrUsed 值为64的8位元 DIB , 图素值的范围从 0 x 00 到 
0 x 3 F o 

在这里应记住一件重要的事 情：当 8位元 DIB 具有由整个灰阶组成的色彩 
对照表（也就是说，当红色、绿色和蓝色程度相等时），或当这些灰阶层在色 
彩对照表中递增（像上面描述的那样）时，图素值自身就代表了灰色的程度。 
也就是说，如果 biClrUsed 是64，那么 0 x 00 图素值为黑色， 0 x 20 的图素值是 
50%的灰阶， 0 x 3 F 的图素值为白色。 

这对於一些图像处理作业是很重要的，因为您可以完全忽略色彩对照表， 
仅需处理图素值。这是很有用的，如果让我回溯时光去对 MTMAPINFOHEADER 结 
构做一个简单的更改，我会添加一个旗标指出 DIB 映射是不是灰阶的，如果是， 
DIB 就没有色彩对照表，并且图素值直接代表灰阶。 

混色的8位元 DIB —般使用整个色彩对照表，它的 biClrUsed 栏位为0或 
256。然而您也可能遇到较小的颜色数，如236。我们应承认一个 事实： 程式通 
常只能在 Windows 颜色面内更改236个项目以正确显示这些 DIB , 我将在下章讨 
论这些内容。 

biXPelsPerMeter 和 biYPelsPerMeter 很少为非零值 ， biClrlmportant 栏 
位不为0或 biClrUsed 值的情况也很少。 
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DIB 压缩 

前面我没有讨论 BITMAPINFOHEADER 中的 biCompression 和 biSizelmage 栏 
位，现在我们讨论一下这些值。 

biCompression 栏位可以为四个常数之一，它们 是: BI — RGB 、 BI — RLE 8、 
BI _ RLE 4 或 BI _ BITFIELDS 。 它们定义在 WINGDL H 表头档案中，值分别为0到3。 
此栏位有两个 用途： 对於4位元和8位元 DIB , 它指出图素位元被用一种运行长 
度 ( run - length ) 编码方式压缩了。对於16位元和32位元 DIB ， 它指出了颜色 
遮罩 (color masking ) 是否用於对图素位元进行编码。这两个特性都是在 Windows 
95中发表的。 

首先让我们看一下 RLE 压缩： 

• 对於1位元 DIB , biCompression 栏位始终是 BI _ RGB 。 

• 对於4位元 DIB，biCompression 栏位可以是 BI_RGB 或 BI _ RLE 4。 

• 对於8位元 DIB，biCompression 栏位可以是 BI_RGB 或 BI _ RLE 8。 

• 对於24位元 DIB ， biCompression 栏位始终是 BI _ RGB 。 

如果值是 BI _ RGB ， 图素位元储存的方式和 OS /2 相容的 DIB —样，否则就使 
用运行长度编码压缩图素位元。 

运行长度编码 （ RLE ) 是一种最简单的资料压缩形式，它是根据 DIB 映射在 
一列内经常有相同的图素字串这个事实进行的。 RLE 通过对重复图素的值及重复 
的次数编码来节省空间，而用於 DIB 的 RLE 方案只定义了很少的矩形 DIB 图像， 
也就是说，矩形的某些区域是未定义的，这能被用於表示非矩形图像。 

8位元 DIB 的运行长度编码在概念上更简单一些，因此让我们从这里入手。 
表 15-1 会帮助您理解当 biCompression 栏位等於 BI + RGB 8 时，图素位元的编码 
方式。 


表 15-1 


位元组 1 

位元组 2 

位元组 3 

位元组 4 

含义 

00 

00 



行尾 

00 

01 



映射尾 

00 

02 

dx 

dy 

移到 （ x + dx ， y + dy ) 

00 

n 二03到 FF 



使用下面 n 个图素 

n 二01 到 FF 

图素 



重复图素 n 次 


当对压缩的 DIB 解码时，可成对查看 DIB 资料位元组，例如此表内的「位 
元组1」和「位元组2」。表格以这些位元组值的递增方式排列，但由下而上讨 
论这个表格会更有意义。 
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如果第一个位元组非零（表格最後一行的情况），那么它就是运行长度的 
重复因数。下面的图素值被重复多次，例如，位元组对 
0 x 05 0 x 27 

解码後的图素值为： 

0 x 27 0 x 27 0 x 27 0 x 27 0 x 27 

当然 DIB 会有许多资料不是图素到图素的重复，表格倒数第二行处理这种 
情况，它指出紧跟著的图素数应逐个使用。 例如： 考虑序列 
0 x 00 0 x 06 0 x 45 0 x 32 0 x 77 0 x 34 0 x 59 0 x 90 

解码後的图素值为： 

0 x 45 0 x 32 0 x 77 0 x 34 0 x 59 0 x 90 

这些序列总是以2位元组的界限排列。如果第二个位元组是奇数，那么序 
列内就有一个未使用的多余位元组。例如，序列 
0 x 00 0 x 05 0 x 45 0 x 32 0 x 77 0 x 34 0 x 59 0 x 00 

解码後的图素值为： 

0 x 45 0 x 32 0 x 77 0 x 34 0 x 59 

这就是运行长度编码的工作方式。很明显地，如果在 DIB 图像内没有重复 
的图素，使用此压缩技术实际上会增加了 DIB 档案的大小。 

上面表格的前三行指出了矩形 DIB 图像的某些部分可以不被定义的方法。 
想像一下，您写的程式对已压缩的 DIB 进行解压缩，在这个解压缩的常式中， 
您将保持一对数字 （ x ， y ) ，开始为（0,0)。每对一个图素解码， x 的值就增加 
1，每完成一行就将 x 重新设为0并且增加 y 的值。 

当遇到跟著 0 x 02 的位元组 0 x 00 时，您读取下两个位元组并把它们作为无 
正负号的增量添加到目前的 x 和 y 值中，然後继续解码。当遇到跟著 0 x 00 的 0 x 00 
时，您就解完了一行，应将 x 设0并增加 y 值。当遇到跟著 0 x 01 的 0 x 00 时， 
您就完成解码了。这些代码准许 DIB 包含那些未定义的区域，它们用於对非矩 
形图像编码或在制作数位动画和电影时非常有用（因为几乎每一格影像都有来 
自前一格的资讯而不需重新编码）。 

对於4位元 DIB ， 编码一般是相同的，但更复杂，因为位元组和图素之间不 
是一^对一*的关系。 

如果读取的第一个位元组非零，那就是一个重复因数 n 。 第二个位元组（被 
重复的）包含2个图素，在 n 个图素的被解码的序列中交替出现。例如，位元 
组对 

0 x 07 0 x 35 
被解码为： 
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0 x 35 0 x 35 0 x 35 0 x 3? 

其中的问号指出图素还未知，如果是上面显示的 0 x 07 0 x 35 对紧跟著下面 
的位元组对： 

0 x 05 0 x 24 

则整个解码的序 列为： 

0 x 35 0 x 35 0 x 35 0 x 32 0 x 42 0 x 42 

如果位元组对中的第一位元组是 0 x 00 ，第二个位元组是 0 x 03 或更大，则 

使用第二位元组指出的图素数。例如，序列 
0 x 00 0 x 05 0 x 23 0 x 57 0 x 10 0 x 00 

解码为： 

0 x 23 0 x 57 0 x 1? 

注意必须填补解码的序列使其成为偶数位元组。 

无论 biCompression 栏位是 BI _ RLE 4 或 BI _ RLE 8 ，biSizelmage 栏位都指出 
了位元组内 DIB 图素资料的大小。如果 biCompression 栏位是 BI _ RGB ， 则 
biSizelmage 通常为0，但是它能被设定为行内位元组长度的 biHeight 倍，就 
像在本章前面计算的那样。 

目前文件说「由上而下的 DIB 不能被压缩」。由上而下的 DIB 是在 biHeight 
栏位为负数的情况下出现的。 

颜色遮罩 (color masking) 

biCompression 栏位也用於连结 Windows 95中新出现的16位元和32位元 
DIB 。 对於这些 DIB，biCompression 栏位可以是 BI_RGB 或 BI_BITFIELDS (均定 
义为值 3) 。 

让我们看一下24位元 DIB 的图素格式，它始终有一个等於 BI _ RGB 的 
biCompression 栏位： 


也就是说，每一行基本上都是 RGBTRIPLE 结构的阵列，在每行末端有可能 
补充值以使行内的位元组是4的倍数。 


Pixel: — Blue — 

— Green —— 

— Red — 

7 6 5 4 3 2 1 0 

7 6 5 4 3 2 1 0 

7 6 5 4 3 2 1 0 


对於具有 biCompression 栏位等於 BI _ RGB 的16位元 DIB , 每个图素需要两 

个位元组。颜色是这样来编 码的： 

Pixel: … een - Blue -0 - Red - Gr … 

7654321 0] [7654321 0 

每种颜色使用5位元。对於行内的第一个图素，蓝色值是第一个位元组的 
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最低五位元。绿色值在第一和第二个位元组中都有 位元： 绿色值的两个最高位 
元是第二个位元组中的两个最低位元，绿色值的三个最低位元是第一个位元组 
中的三个最高位元。红色值是第二个位元组中的2到6位元。第二个位元组的 
最高位兀是0。 


当以16位元字组存取图素值时，这会更加有意义。因为多个位元组值的最 
低位元首先被储存，图素字组如下： 



0 — Red — 一 

— Green - 

—— Blue — 


Pixel Word: 15 14 13 12 11 10 9 

8 7 6 

5 4 3 

2 1 0 

假设在 wPixel 内储存了 16位元图素， 
蓝 色值： 

您能用下列公式计算红色、绿色和 

Red 

Green 

Blue 

= ((0x7C00 & wPixel) >> 

= ( ( 0x03E0 & wPixel ) 

= (( OxOOlF & wPixel ) >> 

» 

10) « 

5) 

0) « 

3 ; 

« 3 ; 

3 ; 


首先，使用遮罩值与图素进行了位元 AND 运算。此结 果是： 红色向右移动 
10位元，绿色向右移动5位元，蓝色向右移动0位元。（这些移动值我称之为 


「右移值」）。这就产生了从 0 x 00 和 OxlF 的颜色值，这些值必须向左移动3 
位元以合成从 0 x 00 到 0 xF 8 的颜色值。（这些移动值我称之为「左移值」。 ） 

请 记住： 如果16位元 DIB 的图素宽度是奇数，每行会在末端补充多余的2 
位元组以使位元组宽度能被4整除。 

对於32位元 DIB ， 如果 biCompression 等於 BI _ RGB ， 每个图素需要4位元 
组。蓝色值是第一个位元组，绿色为第二个，红色为第三个，第四位元组等於0。 
也可这么说，图素是 RGBQUAD 结构的阵列。因为每个图素的长度是4位元组， 
在列末端就不需填补位元组。 

若想以32位元双字组存取每个图素，它就像 这样： 


0 


Red 


Green 


Blue 


31 

30 

• • • 

25 24 23 22 

• • • 

17 

16 

15 

14 

• • • 

9 

8 

7 

6 

■ • • 

1 

0 


如果 dwPixel 是 32 位元双字组， 


Red 

= ((0x00FF000 0 & dwPixel) >> 

16) 

« 0 ; 


Green 

= ((0x0000FF00 & dwPixel) >> 


8) « C 

); 

Blue 

= ((0x000000FF & dwPixel) >> 

0) 

« 0 ; 



左移值全为零，因为颜色值在 OxFF 已是最大。注意这个双字组与 Windows 
GDI 函式呼叫中用於指定 RGB 颜色的32位元 C 0 L 0 RREF 值不一致。在 C 0 L 0 RREF 
值中，红色占最低位元的位元组。 


到目前为止，我们讨论了当 biCompression 栏位为 BI RGB 时，16位元和 
32位元 DIB 的内定情况。如果 biCompression 栏位为 BI + BITFIELDS ， 则紧跟著 
DIB 的 BITMAPINF 0 HEADER 结构的是三个32位元颜色遮罩，第一个用於红色，第 
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二个用於绿色，第三个用於蓝色。可以使用 C 的位元 AND 运算子 （&) 把这些遮 
罩应用於16位元或32位元的图素值上。然後通过右移值向右移动结果，这些 
值只有检查完遮罩後才能知道。颜色遮罩的规则应该很 明确： 每个颜色遮罩位 
元串内的1必须是连续的，并且1不能在三个遮罩位元串中重叠。 

让我们来举个例子，如果您有一个16位元 DIB , 并且 biCompression 栏位 
为 BI _ BHFIELDS 。 您应该检查 BITMAPINFOHEADER 结构之後的前三个双 字组： 
0 x 0000 F 800 
0 x 000007 E 0 
OxOOOOOOlF 

注意，因为这是 16 位元 DIB , 所以只有位於底部16位元的位元值才能被设 
定为1。您可以把变数 dwMask [0] 、 dwMask [ l ] 和 dwMask [2] 设定为这些值。现在 

可以编写从遮罩中计算右移和左移值的一些常 式了： 

int MaskToRShift (DWORD dwMask) 

{ 

int iShift ; 

if ( dwMask == 0) 

return 0 ; 

for ( iShift = ◦ ; !(dwMask & 1) ; iShift++) 

dwMask >>= 1 ; 

return iShift ; 

} 

int MaskToLShift (DWORD dwMask) 

{ 

int iShift ; 

if ( dwMask == 0) 

return 0 ; 

while (!(dwMask & 1)) 

dwMask >>= 1 ; 

for (iShift = 0 ; dwMask & 1 ; iShift++) 

dwMask >>= 1 ; 

return 8 - iShift ; 


然後呼叫 MaskToRShift 函式三次来获得右 移值: 


iRShift[0] : 

= MaskToRShift 

(dwMask[0]); 

iRShift[1] : 

= MaskToRShift 

(dwMask[1]); 

iRShift[2] : 

= MaskToRShift 

(dwMask[2]); 
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分别得到值11、5和0。然後呼叫 MaskToLShift : 


iLShift [0] : 

= MaskToLShift 

(dwMask[0]); 

iLShift [1] : 

=MaskToLShift 

(dwMask[1]); 

iLShift [2] : 

=MaskToLShift 

(dwMask[2]); 

分别得到值3、2和3。现在能从图素中提取每种 颜色： 

Red 

=((dwMask[0] 

& wPixel) >> iRShift[0]) << iLShift[0]; 


Green = ((dwMask[ 1 ] & wPixel) >> iRShift[1]) << iLShift[1]; 

Blue = ((dwMask[2] & wPixel) >> iRShift[2]) << iLShift[2]; 

除了颜色标记能大於 OxOOOOFFFF (这是 16 位元 DIB 的最大遮罩值）之外， 
程序与32位元 DIB —样。 

注意： 

对於16位元或32位元 DIB ， 红色、绿色和蓝色值能大於255。实际上，在 
32位元 DIB 中，如果遮罩中有两个为0,第三个应为32位元颜色值 OxFFFFFFFF 。 
当然，这有点荒唐，但不用担心这个问题。 

不像 Windows NT , Windows 95和 Windows 98在使用颜色遮罩时有许多的 
限制。可用的值显示在表 15-2 中。 


表 15-2 



16 位元 DIB 

16 位元 DIB 

32 位元 DIB 

红色遮罩 

0x00007C00 

0x0000F800 

OxOOFFOOOO 

绿色遮罩 

0x000003E0 

0x000007E0 

OxOOOOFFOO 

蓝色遮罩 

0x0000001F 

OxOOOOOOlF 

OxOOOOOOFF 

速记为 

5-5-5 

5-6-5 

8-8-8 


换句话说，就是当 biCompression 是 BI _ RGB 时，您能使用内定的两组遮罩， 
包括前面例子中显示的遮罩组。表格底行显示了一个速记符号来指出每图素红 
色、绿色和蓝色的位元数。 

第 4 版本的 Header 

我说过 ， Windows 95更改了一些原始 BITMAPINFOHEADER 栏位的定义。 
Windows 95也包括了一个称为 BITMAPV 4 HEADER 的新扩展的资讯表头。如果您知 
道 Windows 95曾经称作 Windows 4. 0，则就会明白此结构的名称了 ， Windows NT 
4.0 也支援此结构。 


typedef struct 




I 

DWORD 

bV4Size ; 

// size of the structure = 

=120 
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LONG 

bV4Width ; // 

width 

of the image in pixels 

LONG 


bV4Height ; 

// 

height of the image in pixels 

WORD 


bV4Planes ; 

// 

=1 

WORD 


bV4BitCount ; 

// 

bits per pixel (1, 4, 8, 16, 24, or 

32) 





DWORD 


bV4Compression ; 

// 

compression code 

DWORD 


bV4SizeImage ; 

// 

number of bytes in image 

LONG 


bV4XPelsPerMeter ; 

// 

horizontal resolution 

LONG 


bV4YPelsPerMeter ; 

// 

vertical resolution 

DWORD 


bV4ClrUsed ; 

// 

number of colors used 

DWORD 


bV4ClrImportant ; 


// number of important colors 

DWORD 


bV4RedMask ; 

// 

Red color mask 

DWORD 


bV4GreenMask ; 

// 

Green color mask 

DWORD 


bV4BlueMask ; 

// 

Blue color mask 

DWORD 


bV4AlphaMask ; 

// 

Alpha mask 

DWORD 


bV4CSType ; 

// 

color space type 

CIEXYZTRIPLE 

bV4Endpoints ; 

// 

XYZ values 

DWORD 


bV4GammaRed ; 

// 

Red gamma value 

DWORD 


bV4GammaGreen ; 

// 

Green gamma value 

DWORD 


bV4GammaBlue ; 

// 

Blue gamma value 

/ 

BITMAPV4HEADER, 

* PBITMAPV4HEADER ; 




注意前11个栏位与 BITMAPINFOHEADER 结构中的相同，後5个栏位支援 
Windows 95和 Windows NT 4. 0的图像颜色调配技术。除非使用 BITMAPV 4 HEADER 
结构的後四个栏位，否则您应该使用 BITMAPINFOHEADER (或 BITMAPV 5 HEADER ) 。 


当 bV 4 Compression 栏位等於 BI_BHFIELDS 时， bV 4 RedMask 、 bV 4 GreenMask 
和 bV 4 BlueMask 可以用於16位元和32位元 DIB 。 它们作为定义在 
BITMAPINFOHEADER 结构中的颜色遮罩用於相同的函式，并且当使用除了明确的 
结构栏位之外的原始结构时，它们实际上出现在 DIB 档案的相同位置。就我所 
知， bV 4 AlphaMask 栏位不被使用。 

BITMAPV 5 HEADER 结构剩余的栏位包括 「 Windows 颜色管理 （Image Color 
Management ) 」，它的内容超越了本书的范围，但是了解一些背景会对您有益。 

为色彩使用 RGB 方案的问题在於，它依赖於视讯显示器、彩色照相机和彩 
色扫描器的显示技术。如果颜色指定为 RGB 值 (255,0,0) ,意味著最大的电压 
应该加到阴极射线管内的红色电子枪上， RGB 值（128, 0,0)表示使用一半电压。 
不同显示器会产生不同的效果。而且，印表机使用了不同的颜色表示方法，以 
青色、洋红色、黄色和黑色的组合表示颜色。这些方法称之为 CMY 
( cyan - magenta-yellow :青色-洋红色-黄色）和 CMYK 
( cyan - magenta - yellow - black : 青色-洋红色-黄色-黑色）。数学公式能把 
RGB 值转化为 CMY 和 CMYK ， 但不能保证印表机颜色与显示器颜色相符合。「色 
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彩调配技术」是把颜色与对装置无关的标准联系起来的一种尝试。 

颜色的现象与可见光的波长有关，波长的范围从 380 nm (蓝）到 780 nm (红) 
之间。一切我们能察觉的光线是可见光谱内不同波长的组合。1931年， 
Commission Internationale de L’Eclairage (International Commission on 
Illumination ) 或 CIE 开发了一种科学度量颜色的方法。这包括使用三个颜色调 

配函数（名称为 x 、 y 和 z ) ，它们以其省略的形式（带有每 5 nm 的值）发表在 
CIE Publication 15.2-1986， 「 Colorimetry，Second Edition 」 的表 2. 1 中。 

颜色的光谱 （ S ) 是一组指出每个波长强度的值。如果知道光谱，就能够将 
与颜色相关的函数应用到光谱来计算 X 、 Y 和 Z : 

780 

X=^S(X)x(X) 

A=380 

780 

r=£5(A)j(A) 

A=380 

780 

Z=£5(A)z(A) 

A=380 

这些值称为 大 X 、大 Y 和大 Z 。 y 颜色匹配函式等於肉眼对范围在可见光 
谱内光线的反应。（他看上去像一条由 380 nm 和 780 nm 到0的时钟形曲线 ）。 Y 
称之为 CIE 亮度，因为它指出了光线的总体强度。 

如果使用 BHMAPV 5 HEADER 结构， bV 4 CSType 栏位就必须设定为 
LCS _ CALIBRATED _ RGB ， 其值为0。後四个位元组必须设定为有效值。 


CIEXYZTRIPLE 结构按照如下方式 定义: 


typedef struct tagCIEXYZTRIPLE 

CIEXYZ 

ciexyzRed ; 

CIEXYZ 

ciexyzGreen ; 

CIEXYZ 

ciexyzBlue ; 

/ 

CIEXYZTRIPLE, 

* LPCIEXYZTRIPLE ; 


而 CIEXYZ 结构定义 如下: 


typedef struct tagCIEXYZ 
{ 

FXPT2DOT30 ciexyzX ; 
FXPT2DOT30 ciexyzY ; 
FXPT2DOT30 ciexyzZ ; 

} 

CIEXYZ, * LPCIEXYZ ; 
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这三个栏位定义为 FXPT 2 DOT 30 值，意味著它们是带有2位元整数部分和30 
位元小数部分的定点值。这样， 0 x 40000000 是1.0， 0 x 48000000 是1.5。最大 
值 OxFFFFFFFF 仅比 4. 0小一点点。 

bV 4 Endpoints 栏位提供了三个与 RGB 颜色 (255,0,0) , (0,255,0)和 

(0, 0, 255) 相关的 X 、 Y 和 Z 值。这些值应该由建立 DIB 的应用程式插入以指 
明这些 RGB 颜色的装置无关的意义。 

BITMAPV 4 HEADER 剩余的三个栏位指「伽马值」（希腊的小写字母 Y ) ，它 
指出颜色等级规格内的非线性。在 DIB 内，红、绿、蓝的范围从0到225。在显 
示卡上，这三个数值被转化为显示器使用的三个类比电压，电压决定了每个图 
素的强度。然而，由於阴极射线管中电子枪的电子特性，图素的强度（ I )并不 
与电压（ V )线性相关，它们的关系为： 


y 

e 是由显示器的「亮度」控制设定的黑色等级（理想值为 0) 。指数 Y 由 
显示器的「图像」或「对比度」控制设定的。对於大多数显示器， Y 大约在 2. 5 
左右。 

为了对此非线性作出补偿，摄影机在线路内包含了「伽马修正」。指数 0.45 
修正了进入摄影机的光线，这意味著视讯显示器的伽马为 2. 2。（视讯显示器的 
高伽马值增加了对比度，这通常是不需要的，因为周围的光线更适合於低对比 
度。） 

视讯显示器的这个非线性反应实际上是很适当的，这是因为人类对光线的 
反应也是非线性的。我曾提过， Y 被称为 CIE 亮度，这是线性的光线度量 。 CIE 
也定义了一个接近於人类感觉的亮度值。亮度是 L * (发音为 "ell star ") ，通 
过使用如下公式从 Y 计算得 到的： 

< 0.008856 


0.008856 < y 


z* 



903.3 


Y 

K 



116 ㈤ 3 -16 
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在此 Yn 是白色等级。公式的第一部分是一个小的线性部分。一般，人类的 
亮度感觉是与线性亮度的立方根相关的，这由第二个公式指出。 L * 的范围从0 
到100,每次 L * 的增加都假定是人类能感觉到的亮度的最小变化。 

根据知觉亮度而不是线性亮度对光线强度编码要更好一些。这使得位元的 
数量减少到一个合理的程度并且在类比线路上也降低了杂讯。 

让我们来看一下整个程序。图素值 （ P ) 范围从0到255,它被线性转化成电 
压等级，我们假定标准化为 0. 0到 1. 0之间的值。假设显示器的黑色级设定为0, 
则图素的强 度为： 

I= yr= (2^) 

这里 Y 大约为2.5。人类感觉的亮度 （ L *) 依赖於此强度的立方根和变化从 
0到100的范围，因此大 约是： 

L * = 100 ( 盖 ) 3 

指数值大约为0.85。如果指数值为1，那么 CIE 亮度与图素值完全匹配。 
当然不完全是那种情况，但是如果图素值指出了线性亮度就非常接近。 

BITMAPV 4 HEADER 的最後三个栏位为建立 DIB 的程式提供了一种为图素值指 
出假设的伽马值的方法。这些值由16位元整数值和16位元的小数值说明。例 
如， 0 x 10000 为1.0。如果 DIB 是捕捉实际影像而建立的，影像捕捉硬体就可能 
包含这个伽马值，并且可能是 2. 2 (编码为 0 x 23333) 。如果 DIB 是由程式通过 
演算法产生的，程式会使用一个函式将它使用的任何线性亮度转化为 CIE 亮度。 

第5版的 Header 


为 Windows 98和 Windows NT 5. 0( 即 Windows 2000) 编写的程式能使用拥 
有新的 BITMAPV 5 HEADER 资讯结构的 DIB ： 


typedef struct 
{ 

DWORD 

LONG 

LONG 

WORD 

WORD 


bV5Size ; 
bV5Width ; 
bV5Height ; 
bV5Planes ; 
bV5BitCount ; 


// size of the structure = 120 
// width of the image in pixels 
// height of the image in pixels 
// = 1 

// bits per pixel (1,4,8,16,24,or32) 
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DWORD 

bV5Compression ; 

// compression code 

DWORD 

bV5SizeImage ; 

// number of bytes in image 

LONG 

bV5XPelsPerMeter ; 

// horizontal resolution 

LONG 

bV5YPelsPerMeter ; 

// vertical resolution 

DWORD 

bV5ClrUsed ; 

// number of colors used 

DWORD 

bV5ClrImportant ; 

// number of important colors 

DWORD 

bV5RedMask ; 

// Red color mask 

DWORD 

bV5GreenMask ; 

// Green color mask 

DWORD 

bV5BlueMask ; 

// Blue color mask 

DWORD 

bV5AlphaMask ; 

// Alpha mask 

DWORD 

bV5CSType ; 

// color space type 

CIEXYZTRIPLE 

bV5Endpoints ; 

// XYZ values 

DWORD 

bV5GammaRed ; 

// Red gamma value 

DWORD 

bV5GammaGreen ; 

// Green gamma value 

DWORD 

bV5GammaBlue ; 

// Blue gamma value 

DWORD 

bV5Intent ; 

// rendering intent 

DWORD 

bV5ProfileData ; 

// profile data or filename 

DWORD 

bV5ProfileSize ; 

// size of embedded data or filename 

DWORD 

1 

bV5Reserved ; 


/ 

BITMAPV5HEADER, 

* PBITMAPV5HEADER ; 



这里有四个新栏位，只有其中三个有用。这些栏位支援 ICC Profile Fomat 
Specification , 这是由「国际色彩协会 (International Color Consortium ) _ 


(由 Adobe ^ Agfa > Apple > Kodaks Microsoft > Silicon Graphics、Sun Microsystems 
及其他公司组成）建立的。您能在 http :// www . icc . org 上取得这个标准的副 
本。基本上，每个输入（扫描器和摄影机）、输出（印表机和胶片记录器）以 
及显示（显示器）设备与将原始装置相关颜色（一般为 RGB 或 CMYK ) 联系到装 
置无关颜色规格的设定档案有关，最终依据 CIE XYZ 值来修正颜色。这些设定 
档案的副档名是 • ICM (指「图像颜色管理 ： image color management 」） 。设 
定档案能嵌入 DIB 档案中或从 DIB 档案连结以指出建立 DIB 的方式。您能在 
/Platform SDK/Graphics and Multimedia Services/Color Management 中取得 

有关 Windows 「图像颜色管理」的详细资讯。 

BITMAPV 5 HEADER 的 bV 5 CSType 栏位能拥有几个不同的值。如果是 
LCS _ CALIBRATED _ RGB ， 那么它就与 BITMAPV 4 HEADER 结构相容。 bV 5 Endpoints 栏 
位和伽马栏位必须有效。 

如果 bV 5 CSType 栏位是 LCS _ sRGB ， 就不用设定剩余的栏位。预设的颜色空 
间是「标准」的 RGB 颜色空间，这是由 Microsoft 和 Hewlett - Packard 主要为 

Internet 设计的，它包含装置无关的内容而不需要大量的设定档案。此文件位 
於 http :// www . color , otr / contrib / sRGB . htmlo 

如果 bV 5 CSType 栏位是 LCS _ Windows _ COLOR _ SPACE ， 就不用设定剩余的栏位。 
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Windows 通过 API 函式呼叫使用预设的颜色空间显示点阵图。 

如果 bV 5 CSType 栏位是 PROFILE _ EMBEDDED ， 则 DIB 档案包含一个 ICC 设定 
档案。如果栏位是 PROFILEJLINKED ， DIB 档案就包含了 ICC 设定档案的完整路 
径和档案名称。在这两种情况下， bV 5 ProfileData 都是从 BITMAPV 5 HEADER 开始 
到设定档案资料或档案名称起始位置的偏移量。 bV 5 ProfileSize 栏位给出了资 
料或档案名的大小。不必设定 bV 5 Endpoints 和伽马栏位。 

显示 DIB 资讯 


现在让我们来看一些程式码。实际上我们并不未充分了解显示 DIB 的知识， 
但至少能表从头结构上显示有关 DIB 的资讯。如程式 15-1 DIBHEADS 所示。 

程式 15-1 DIBHEADS 


DIBHEADS.C 




卜 - 




DIBHEADS.C -- 

Displays DIB Header 

工 information 



(c) Charles Petzold, 

1998 

■ 女 


♦include <windows.h> 
♦include "resource.h 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("DibHeads"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance 

PSTR szCmdLine, int iCmdShow) 

{ 


HACCEL 

HWND 

MSG 

WNDCLASS 


hAccel ; 
hwnd ; 

msg 

wndclass 


wndclass 

wndclass 

wndclass 

wndclass 

wndclass 

wndclass 

wndclass 

wndclass 

wndclass 

wndclass 


.style 

.lpfnWndProc 
.cbClsExtra 
.cbWndExtra 
.hlnstance 
.hlcon 
.hCursor 
•hbrBackground 
.IpszMenuName 
.IpszClassName 


=CS_HREDRAW | CS—VREDRAW 
WndProc ; 


hlnstance ; 

Loadlcon (NULL, IDI—APPLICATION); 
LoadCursor (NULL, 工 DC—ARROW); 
(HBRUSH) GetStockObject (WHITE—BRUSH) 
szAppName ; 
szAppName ; 
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if ( ! RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT (" This program requires Windows NT !’’）， 

szAppName, MB_ICONERROR); 

return 0 ; 

} 

hwnd = CreateWindow (szAppName, TEXT ("DIB Headers ”）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

hAccel = LoadAccelerators (hlnstance, s zAppName); 
while (GetMessage (&msg, NULL, 0, 0)) 

{ 

if (!TranslateAccelerator (hwnd, hAccel, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

return msg.wParam ; 

} 

void Printf (HWND hwnd, TCHAR * szFormat,...) 

{ 

TCHAR szBuffer [1024]; 

va_list pArgList ; 

va_start (pArgList, szFormat); 
wvsprintf (szBuffer, szFormat, pArgList); 
va_end (pArgList); 

SendMessage (hwnd, EM—SETSEL, (WPARAM) -1, (LPARAM) -1); 

SendMessage (hwnd, EM—REPLACESEL, FALSE, (LPARAM) szBuffer); 
SendMessage (hwnd, EM—SCROLLCARET, 0, 0); 

} 

void DisplayDibHeaders (HWND hwnd, TCHAR * szFileName) 

{ 

static TCHAR * szInfoName []= { TEXT ( n BITMAPCOREHEADER n ), 

TEXT ( n BITMAPINFOHEADER n ), 

TEXT ( n BITMAPV4HEADER n ), 

TEXT ( n BITMAPV5HEADER n ) }; 

Static TCHAR * szCompression []={TEXT ( n BI RGB ”）， 
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TEXT ( n BI_RLE8 n ) , 

TEXT ( n BI_RLE4 n ) , 

TEXT ( n BI_BITFIELDS n ), 

TEXT ("unknown") }; 

BITMAPCOREHEADER * pbmch ; 

BITMAPFILEHEADER * pbmfh ; 

BITMAPV5HEADER * pbmih ; 

BOOL bSuccess ; 

DWORD dwFileSize, dwHighSize, dwBytesRead ; 

HANDLE hFile ; 

int i ; 

PBYTE pFile ; 

TCHAR * szV ; 

// Display the file name 

Printf (hwnd, TEXT ("File : %s\r\n\r\n n ) , szFileName); 

// Open the file 

hFile = CreateFile (szFileName, GENERIC_READ, FILE_SHARE_READ, NULL, 
OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, NULL); 
if (hFile == INVALID_HANDLE_VALUE) 

{ 

Printf (hwnd, TEXT ("Cannot open file•\r\n\r\n n )); 
return ; 

} 

// Get the size of the file 
dwFileSize = GetFileSize (hFile , &dwHighSize); 
if (dwHighSize) 

{ 

Printf (hwnd, TEXT ("Cannot deal with >4G files.\r\n\r\n")); 
CloseHandle (hFile); 
return ; 

} 

// Allocate memory for the file 
pFile = malloc (dwFileSize); 
if ( !pFile) 

{ 

Printf (hwnd, TEXT ("Cannot allocate memory.\r\n\r\n n )); 
CloseHandle (hFile); 
return ; 

} 

// Read the file 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 

ShowCursor (TRUE); 

bSuccess = ReadFile (hFile, pFile, dwFileSize, &dwBytesRead, NULL); 
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ShowCursor (FALSE) ; 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 

if ( !bSuccess | | (dwBytesRead != dwFileSize)) 

{ 

Printf (hwnd, TEXT ("Could not read file.\r\n\r\n")); 
CloseHandle (hFile); 
free (pFile); 
return ; 

} 

// Close the file 

CloseHandle (hFile); 

// Display file size 

Printf (hwnd, TEXT ("File size = %u bytes\r\n\r\n M ), dwFileSize); 

// Display BITMAPFILEHEADER structure 
pbmfh = (BITMAPFILEHEADER *) pFile ; 

Printf (hwnd, TEXT ( n BITMAPFILEHEADER\r\n n )); 

Printf (hwnd, TEXT ("\t.bfType = Ox%X\r\n"), pbmfh->bfType); 

Printf (hwnd, TEXT ( n \t.bfSize = %u\r\n"), pbmfh->bfSize); 

Printf (hwnd, TEXT ("\t.bfReserved1 = %u\r\n n ), 

pbmfh->bfReservedl); 

Printf (hwnd, TEXT ("\t.bfReserved2 = %u\r\n"), 

pbmfh->bfReserved2); 

Printf (hwnd, TEXT ( n \t.bfOffBits = %u\r\n\r\n n ), 

pbmfh->bfOffBits); 

// Determine which information structure we have 

pbmih = (BITMAPV5HEADER *) (pFile + sizeof (BITMAPFILEHEADER)); 
switch (pbmih->bV5Size) 

{ 

case sizeof (BITMAPCOREHEADER):i= 0 ; break ; 

case sizeof (BITMAPINFOHEADER): i= 1 ; szV= 

TEXT ("i") ; break ; 

case sizeof (BITMAPV4HEADER) : i= 2 ; szV= 

TEXT ( n V4 n ) ; break ; 

case sizeof (BITMAPV5HEADER):i= 3 ; szV= 

TEXT ("V5 n ) ; break ; 

default : 

Printf (hwnd A TEXT ("Unknown header size of %u.\r\n\r\n"), 

pbmih->bV5Size); 
free (pFile); 
return ; 

} 

Printf (hwnd, TEXT ("%s\r\n n ), szlnfoName[i]); 

// Display the BITMAPCOREHEADER fields 
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if (pbmih->bV5Size == sizeof (BITMAPCOREHEADER)) 

{ 

pbmch = (BITMAPCOREHEADER *) pbmih ; 

Printf(hwnd,TEXT( n \t.bcSize = %u\r\n n ), pbmch->bcSize); 

Printf(hwnd, TEXT("\t.bcWidth = %u\r\n n ), pbmch->bcWidth); 

Printf(hwnd,TEXT("\t.bcHeight = %u\r\n n ), pbmch->bcHeight); 

Printf(hwnd,TEXT("\t.bcPlanes = %u\r\n"), pbmch->bcP1anes); 

Printf(hwnd, TEXT("\t.bcBitCount = %u\r\n\r\n n ), pbmch->bcBitCount); 
free (pFile); 
return ; 


// Display the BITMAPINFOHEADER fields 
Printf(hwnd,TEXT( M \t.b%sSize = %u\r\n n ), szV, pbmih->bV5Size); 

Printf(hwnd,TEXT( M \t.b%sWidth = %i\r\n"), szV, pbmih->bV5Width); 
Printf(hwnd,TEXT("\t.b%sHeight = %i\r\n"), szV, pbmih->bV5Height); 
Printf(hwnd,TEXT("\t.b%sPlanes = %u\r\n"), szV, pbmih->bV5PIanes); 
Printf(hwnd,TEXT("\t.b%sBitCount=%u\r\n n ),s zV, pbmih->bV5BitCount); 
Printf(hwnd,TEXT( M \t.b%sCompression = %s\r\n M ), szV, 

szCompression [min (4, pbmih->bV5Compression)]) 
Printf(hwnd A TEXT( n \t.b%sSizeImage= %u\r\n"),szV, 
pbmih->bV5SizeImage); 

Printf(hwnd,TEXT ( M \t.b%sXPelsPerMeter = %i\r\n n ), szV, 


pbmih->bV5XPelsPerMeter); 

Printf(hwnd,TEXT ("\t.b%sYPelsPerMeter = %i\r\n"), szV, 

pbmih->bV5YPelsPerMeter); 

Printf (hwnd, TEXT ("\t.b%sClrUsed = %i\r\n"), szV, 

pbmih->bV5ClrUsed); 

Printf (hwnd, TEXT ( n \t•b%sClrImportant = %i\r\n\r\n"), s zV, 

pbmih—>bV5ClrImportant); 


if (pbmih->bV5Size == sizeof (BITMAPINFOHEADER)) 

{ 


Printf 

Printf 

Printf 



if (pbmih->bV5Compression == BI_BITFIELDS) 

{ 

(hwnd,TEXT("Red Mask = %08X\r\n n ), pbmih - >bV5RedMask); 

(hwnd,TEXT ("Green Mask = %08X\r\n n ), pbmih->bV5GreenMask); 
(hwnd,TEXT ("Blue Mask = %◦8X\r\n\r\n n ), pbmih->bV5BlueMask) 
} 

free (pFile); 
return ; 


Printf (hwnd, 
Printf (hwnd. 


// Display additional BITMAPV4HEADER fields 
TEXT ( n \t.b%sRedMask = %08X\r\n" ) , szV, 

pbmih->bV5RedMask); 

TEXT ( n \t.b%sGreenMask = %0 8X\r\n") , szV, 

pbmih->bV5GreenMask); 
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Printf (hwnd, TEXT ( n \t.b%sBlueMask = %0 8X\r\n") , szV, 

pbmih->bV5BlueMask); 

Printf (hwnd, TEXT ("\t.b%sAlphaMask = %0 8X\r\n") , szV, 

pbmih->bV5AlphaMask); 

Printf (hwnd, TEXT ("\t.b%sCSType = %u\r\n n ), szV, 

pbmih->bV5CSType); 

Printf (hwnd, TEXT ("\t.b%sEndpoints.ciexyzRed.ciexyzX = %08X\r\n"), 

szV, 

pbmih->bV5Endpoints.ciexyzRed.ciexyzX); 

Printf (hwnd, TEXT ("\t.b%sEndpoints.ciexyzRed.ciexyzY = %08X\r\n n ), 

szV, 

pbmih->bV5Endpoints.ciexyzRed.ciexyzY); 

Printf (hwnd, TEXT ( n \t.b%sEndpoints.ciexyzRed.ciexyzZ = %08X\r\n n ), 

szV, 

pbmih->bV5Endpoints.ciexyzRed.ciexyzZ); 

Printf (hwnd, TEXT ("\t.b%sEndpoints.ciexyzGreen.ciexyzX = 

%08X\r\n"), 

szV, 

pbmih->bV5Endpoints.ciexyzGreen.ciexyzX); 

Printf (hwnd A TEXT ("\t.b%sEndpoints.ciexyzGreen.ciexyzY = 

%08X\r\n"), 

szV, 

pbmih->bV5Endpoints.ciexyzGreen.ciexyzY); 

Printf (hwnd, TEXT ("\t.b%sEndpoints.ciexyzGreen.ciexyzZ = 

%08X\r\n n ), 

szV, 

pbmih->bV5Endpoints.ciexyzGreen.ciexyzZ); 

Printf (hwnd, TEXT ( n \t.b%sEndpoints.ciexyzBlue.ciexyzX = %08X\r\n"), 

szV, 

pbmih->bV5Endpoints.ciexyzBlue.ciexyzX); 

Printf (hwnd, TEXT ( n \t.b%sEndpoints.ciexyzBlue.ciexyzY = %08X\r\n n ), 

szV, 

pbmih->bV5Endpoints.ciexyzBlue.ciexyzY); 

Printf (hwnd, TEXT ( n \t.b%sEndpoints.ciexyzBlue.ciexyzZ = %08X\r\n"), 

szV, 

pbmih->bV5Endpoints.ciexyzBlue.ciexyzZ); 

Printf (hwnd, TEXT ("\t.b%sGammaRed = %08X\r\n"), szV, 

pbmih->bV5GammaRed); 

Printf (hwnd, TEXT ("\t.b%sGammaGreen = %08X\r\n"), szV, 

pbmih->bV5GammaGreen); 

Printf (hwnd, TEXT ( n \t.b%sGammaBlue = %08X\r\n\r\n"), szV, 

pbmih->bV5GammaBlue); 

if (pbmih->bV5Size == sizeof (BITMAPV4HEADER)) 

{ 

free (pFile); 
return ; 
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// Display additional BITMAPV5HEADER fields 
Printf (hwnd, TEXT ( n \t•b%slntent = %u\r\n"), szV, 

pbmih->bV5Intent); 


Printf 

(hwnd. 

TEXT 

("\t.b%sProfileData = %u\r\n"), 
pbmih->bV5ProfileData); 

szV, 

Printf 

(hwnd. 

TEXT 

("\t.b%sProfileSize = %u\r\n M ), 
pbmih->bV5ProfileSize); 

szV, 

Printf 

(hwnd. 

TEXT 

( n \t.b%sReserved = %u\r\n\r\n n ) 

,szV, 


pbmih->bV5Reserved); 

free (pFile); 
return ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

static HWND hwndEdit ; 

static OPENFILENAME ofn ; 
static TCHAR 
[MAX_PATH]; 

static TCHAR 
(*.BMP)\0*.bmp\O n ) 


switch (message) 

{ 

case WM—CREATE: 

hwndEdit = CreateWindow (TEXT ("edit"), NULL, 

WS_CHILD I WS—VISIBLE | WS_BORDER | 

WS—VSCROLL I WS_HSCROLL | 

ES_MULTILINE | ES—AUTOVSCROLL | ES_READONLY, 

◦, ◦, ◦, 0, hwnd, (HMENU) 1, 

((LPCREATESTRUCT) IParam)->hlnstance, NULL); 


szFileName 


[MAX PATH], 


szTitleName 


szFilter [] 


TEXT("Bitmap 


Files 


TEXT("All Files (*•*)\◦* • *\◦\◦ n ) 


ofn.lStructSize = 

ofn.hwndOwner = hwnd 

ofn•hlnstance = 

ofn.lpstrFilter = 

ofn.lpstrCustomFilter = 
ofn.nMaxCustFilter = 

ofn.nFiIterIndex 
ofn.IpstrFile 
ofn.nMaxFile 
ofn.lpstrFileTitle 
ofn.nMaxFileTitle 
ofn.lpstrlnitialDir 
ofn.lpstrTitle 


sizeof (OPENFILENAME) 

• 

NULL ; 
szFilter ; 

NULL ; 


szFileName 
MAX_PATH ; 
szTitleName 
MAX_PATH ; 
NULL ; 

NULL ; 
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ofn.Flags 
ofn.nFileOffset 
ofn.nFileExtension 

ofn.lpstrDefExt 
ofn.lCustData 



ofn.lpfnHook = NULL ; 

ofn.lpTemplateName = NULL ; 


return 0 ; 


case 


TRUE); 


WM—SIZE: 

MoveWindow (hwndEdit, 0 , 0 , LOWORD (IParam) , HIWORD (IParam ), 
return 0 ; 


case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case IDM_FILE_OPEN: 

if (GetOpenFileName (&ofn)) 
DisplayDibHeaders (hwndEdit, szFileName); 

return 0 ; 

} 

break ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

DIBHEADS.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h n 
♦include "afxres.h" 

/////////////////////////////////////////////////////////////////////////// 

// Accelerator 

DIBHEADS ACCELERATORS DISCARDABLE 
BEGIN 

"0", IDM_FILE_OPEN, VIRTKEY, CONTROL, NOINVERT 

END 


/////////////////////////////////////////////////////////////////////////// 

// Menu 

DIBHEADS MENU DISCARDABLE 
BEGIN 

POPUP n &File" 
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BEGIN 

MENUITEM n &Open\tCtrl+O n , 工 DM—FILE—OPEN 

END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by DibHeads.rc 

♦define IDM—FILE—OPEN 40001 

此程式有一个简短的 WndProc 函式，它建立了一个唯读的编辑视窗来填满 
它的显示区域，它也处理功能表上的 「File Open 」 命令。它通过呼叫 
GetOpenFileName 函式使用标准的 「 File Open 」对话方块，然後呼叫 
DisplayDibHeaders 函式。此函式把整个 DIB 档案读入记忆体并逐栏地显示所有 
的表头资讯。 

显示和列印 

点阵图是用来看的。在这一节中，我们看一看 Windows 在视讯显示器上或 
列印页面上支援显示 DIB 的两个函式。要得到更好的性能，您可以使用一种兜 
圈子的方法来显示点阵图，我会在本章的後面讨论该方法，但先研究这两个函 
式会好一些。 

这两个函式称为 SetDIBitsToDevice (发音为 「set dee eye bits to device 」) 
和 StretchDIBits (发音为 「 stretch dee eye bits 」） 。每个函式都使用储 
存在记忆体中的 DIB 并能显示整个 DIB 或它的矩形部分。当使用 
SetDIBitsToDevice 时，以图素为单位所显示映射的大小与 DIB 的图素大小相同。 
例如，一个 640 X 480 的 DIB 会占据整个标准的 VGA 萤幕，但在 300 dpi 的雷射 
印表机上它只有约 2. 1 X 1.6 英寸。 StretchDIBits 能延伸和缩小 DIB 尺寸的行 
和列从而在输出设备上显示一个特定的大小。 

了解 DIB 

当呼叫两个函式之一来显示 DIB 时，您需要几个关於图像的资讯。正如我 
前面说过的， DIB 档案包含下列 部分： 
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File Header 
Information Header 
Color Table 

Pixel Bits 


DIB 档案能被载入记忆体。如果除了档案表头外，整个档案被储存在记忆体 
的连续区块中，指向该记忆体块开始处（也就是资讯表头的开头）的指标被称 

为指向 packed DIB 的指标（见下图）。 

Information Header 
Color Table 


Pixel Bits 


这是通过剪贴簿传输 DIB 时所用的格式，并且也是您从 DIB 建立画刷时所 
用的格式。因为整个 DIB 由单个指标（如 pPackedDib ) 引用，所以 packed DIB 
是在记忆体中储存 DIB 的方便方法，您可以把指标定义为指向 BYTE 的指标。使 
用本章前面所示的结构定义，能得到所有储存在 DIB 内的资讯，包括色彩对照 
表和个别图素位元。 

然而，要想得到这么多资讯，还需要一些程式码。例如，您不能通过以下 
叙述简单地取得 DIB 的图素 宽度： 

iWidth = ((PBITMAPINFOHEADER) pPackedDib)->biWidth ; 

DIB 有可能是 OS /2 相容格式的。在那种格式中 ， packed DIB 以 
BITMAP ⑶ REHEADER 结构开始，并且 DIB 的图素宽度和高度以16位元 WORD ， 而 
不是32位元 LONG 储存。因此，首先必须检查 DIB 是否为旧的格式，然後进行 
相对应的操作： 

if (((PBITMAPCOREHEADER) pPackedDib)->bcSize == sizeof (BITMAPCOREHEADER)) 
iWidth = ((PBITMAPCOREHEADER) pPackedDib)->bcWidth ; 

else 

iWidth = ((PBITMAPINFOHEADER) pPackedDib)->biWidth ; 

当然，这不很糟，但它不如我们所喜好的清晰。 

现在有一个很有趣的实验：给定一个指向 packed DIB 的指标，我们要找出 


第699页 







Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


位於座标（5, 27) 的图素值。即使假定 DIB 不是 OS /2 相容的格式，您也需要了 
解 DIB 的宽度、高度和位元数。您需要计算每一列图素的位元组长度，确定色 
彩对照表内的项目数，以及色彩对照表是否包括三个32位元的颜色遮罩。您还 
需检查 DIB 是否被压缩，在这种情况下图素是不能直接由位址得到的。 

如果您需要直接存取所有的 DIB 图素（就像许多图形处理工作一样），这 
可能会增加一点处理时间。由於这个原因，储存一个指向 packed DIB 的指标就 
很方便了，不过这并不是一种有效率的解决方式。另一个漂亮的解决方法是为 
DIB 定义一个包含足够成员资料的 C ++ 类别，从而允许快速随机地存取 DIB 图素。 
然而，我曾经答应读者在本书内无需了解 C ++，我将在下一章说明一个 C 的解决 
方法。 

对於 SetDIBitsToDevice 和 StretchDIBits 函式，需要的资讯包括一个指 
向 DIB 的 BITMAPINFO 结构的指标。您应回想起， BITMAPINFO 结构由 
BITMAPINFOHEADER 结构和色彩对照表组成。因此这仅是一个指向 packed DIB 的 
指标。 

函式也需要一个指向图素位元的指标。尽管程式码写得很不漂亮，但这个 
指标还是可以从资讯表头内的资讯推出。注意，当您存取 BITMAPFILEHEADER 结 
构的 bfOffBits 栏位时，这个指标能很容易地计算出。 bfOffBits 栏位指出了从 
DIB 档案的开头到图素位元的偏移量。您可以简单地把此偏移量加到 BITMAPINFO 
指标中，然後减去 BITMAPFILEHEADER 结构的大小。然而，当您从剪贴簿上得到 
指向 packed DIB 的指标时，这并不起作用，因为没有 BITMAPFILEHEADER 结构。 

此图表显示了两个所需的指标： 

plnfo — ► 

Information Header 
pBits — — Table 

Pixel Bits 


SetDIBitsToDevice 和 StretchDIBits 函式需要两个指向 DIB 的指标，因为 
这两个部分不在连续的记忆体块内。您可能有如下所示的两块记 忆体： 


第700页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


plnfo ― ► 

Information Header 
Color Table 

pBits ― ► 

Pixel Bits 


确实，把 DIB 分成两个记忆体块是很有用的，只是我们更喜欢与整个 DIB 
储存在单个记忆体块的 packed DIB 打交道。 

除了这两个指标， SetDIBitsToDevice 和 StretchDIBits 函式通常也需要 
DIB 的图素宽度和高度。如只想显示 DIB 的一部分，就不必明确地知道这些值， 
但它们会定义您在 DIB 图素位元阵列内定义的矩形的上限。 

点对点图素显示 


SetDIBitsToDevice 函式显示没有延伸和缩小的 DIB 。 DIB 的每个图素对应 
到输出设备的一个图素上，而且 DIB 中的图像一定会被正确显示出来——也就 
是说，图像的顶列在上方。任何会影响装置内容的座标转换都影响了显示 DIB 
的开始位置，但不影响显示出来的图片大小和方向。该函式 如下： 


iLines = SetDIBitsToDevice ( 

hdc, 
xDst, 
yDst, 
cxSrc, 
cySrc, 
xSrc, 
ySrc, 
yScan, 
cyScans, 
pBits, 
plnfo, 
fClrUse) 


// device context handle 
// x destination coordinate 
// y destination coordinate 
// source rectangle width 
// source rectangle height 
// x source coordinate 
// y source coordinate 
// first scan line to draw 
// number of scan lines to draw 
// pointer to DIB pixel bits 
// pointer to DIB information 
// color use flag 


不要对参数的数量感到厌烦，在多数情况下，函式用起来比看起来要简单。 
不过在其他用途上来说，它的用法真的是乱七八糟，不过我们将学会怎么用它。 

和 GDI 显示函式一样， SetDIBitsToDevice 的第一个参数是装置内容代号， 
它指出显示 DIB 的设备。下面两个参数 xDst 和 yDst ， 是输出设备的逻辑座标， 
并指出了显示 DIB 图像左上角的座标 （ 「上端」指的是视觉上的上方，并不是 
DIB 图素的第一行）。注意，这些都是逻辑座标，因此它们附属於实际上起作用 
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的任何座标转换方式或-在 Windows NT 的情况下-设定的任何空间转换。 

在内定的 MM _ TE )( T 映射方式下，可以把这些参数设为0,从显示平面上向左向上 
显示 DIB 图像。 

您可以显示整个 DIB 图像或仅显示其中的一部分，这就是後四个参数的作 
用。但是 DIB 图素资料的由上而下的方向产生了许多误解，待会儿会谈到这些。 
现在应该清楚当显示整个 DIB 时，应把 xSrc 和 ySrc 设定为0，并且 cxSix 和 
cySix 应分别等於 DIB 的图素宽度和高度。注意，因为 BITMAPINFOHEADER 结构 
的 biHeight 栏位对於由上而下的 DIB 来说是负的， cySrc 应设定为 biHeight 栏 
位的绝对值。 

此函式的文件 （/Platform SDK/Graphics and Multimedia 
Services / GDI / Bitmaps/Bitmap Reference/Bitmap 

Functions / SetDIBitsToDevice ) 中说 xSrc 、 ySrc、cxSrc 和 cySrc 参数是逻辑- 
单位。这是不正确的，它们是图素的座标和尺寸。对於 DIB 内的图素，拥有逻 
辑座标和单位是没有什么意义的。而且，不管是什么映射方式，在输出设备上 
显示的 DIB 始终是 cxSrc 图素宽和 cySrc 图素高。 

现在先不详细讨论这两个参数 yScan 和 cyScan 。 这些参数在您从磁片档案 
或通过数据机读取资料时，透过每次显示 DIB 的一小部分减少对记忆体的需求。 
通常， yScan 设定为0， cyScan 设定为 DIB 的高度。 

pBits 参数是指向 DIB 图素位元的指标。 plnfo 参数是指向 DIB 的 BITMAPINF 0 
结构的指标。虽然 BITMAPINF 0 结构的位址与 BITMAPINFOHEADER 结构的位址相 
同，但是 SetDIBitsToDevice 结构被定义为使用 BITMAPINF 0 结构，暗示 著：对 
於1位元、4位元和8位元 DIB ， 点阵图资讯表头後必须跟著色彩对照表。尽管 
plnfo 参数被定义为指向 BITMAPINF 0 结构的指标，它也是指向 BITMAPC 0 REINF 0、 
BITMAPV 4 HEADER 或 BITMAPV 5 HEADER 结构的指标。 

最後一个参数是 DIB _ RGB _ C 0 L 0 RS 或 DIB _ PAL _ C 0 L 0 RS ， 在 WINGDI . H 内分别 
定义为0和1。如果您使用 DIB _ RGB _ C 0 L 0 RS ， 这意味著 DIB 包含了色彩对照表。 
DIB _ PAL _ C 0 L 0 RS 旗标指出， DIB 内的色彩对照表已经被指向在装置内容内选定 

并识别的调色盘的16位元索引代替。在下一章我们将学习这个选项。现在先使 
用 DIB _ RGB _ C 0 L 0 RS ， 或者是0。 

SetDIBitsToDevice 函式传回所显示的扫描行的数目。 

因此，要呼叫 SetDIBitsToDevice 来显示整个 DIB 图像，您需要下列 资讯: 

• hdc 目的表面的装置内容代号 

• xDst 和 yDst 图像左上角的目的座标 

• cxDib 和 cyDib DIB 的图素宽度和高度，在这里， cyDib 是 
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BITMAPINFOHEADER 结构内 biHeight 栏位的绝对值。 

• plnfo 和 pBits 指向点阵图资讯部分和图素位元的指标 
然後用下列方法呼叫 SetDIBitsToDevice ： 


SetDIBitsToDevice 

( 


hdc. 

// 

device context handle 

xDst, 

// 

x destination coordinate 

yDst, 

// 

y destination coordinate 

cxDib, 

// 

source rectangle width 

cyDib, 

// 

source rectangle height 

0, 

// 

x source coordinate 

0, 

// 

y source coordinate 

0, 

// 

first scan line to draw 

cyDib, 

// 

number of scan lines to draw 

pBits, 

// 

pointer to DIB pixel bits 

plnfo, 


// pointer to DIB information 

0) ； 

// 

color use flag 


因此，在 DIB 的12个参数中，四个设定为0, 一 个是重复的。 
程式 15-2 SH 0 WDIB 1 通过使用 SetDIBitsToDevice 函式显示 DIB 。 


程式 15-2 SH0WDIB1 


SHOWDIBl.C 

/* - 

SHOWDIB1.C —— 


Shows a DIB in the client area 
(c) Charles Petzold, 1998 

- 叫 


♦include <windows.h> 
♦include "dibfile.h" 
♦include "resource.h" 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("ShowDibl"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


HACCEL 

HWND 

MSG 

WNDCLASS 


hAccel ; 
hwnd ; 

msg 

wndclass 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 


=CS_HREDRAW | CS_VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, 工 DI—APPLICATION); 
=LoadCursor (NULL, 工 DC ARROW); 
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wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=(HBRUSH) GetStockObject (WHITE_BRUSH); 
=s zAppName ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 


MessageBox (NULL, TEXT ("This program requires Windows NT! n ), 

szAppName, MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow (szAppName, TEXT (’’Show DIB #l n ), 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW_USEDEFAULT, 
CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

hAccel = LoadAccelerators (hlnstance, s zAppName); 
while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

if ( !TranslateAccelerator (hwnd, hAccel, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam,LPARAM IParam) 

{ 

BITMAPFILEHEADER * pbmfh ; 

BITMAPINFO 


static 
static 
static 
static 
static 
[MAX_PATH]; 

BOOL 

HDC 

PAINTSTRUCT 


BYTE 

int 


* pbmi 

* pBits 


TCHAR 


cxClient, cyClient, cxDib, cyDib ; 

szFileName [MAX PATH], szTitleName 


bSuccess 
hdc ; 

ps 


switch (message) 

{ 

case WM—CREATE: 

DibFilelnitialize (hwnd); 
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return 0 ; 


case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 


case WM—INITMENUPOPUP: 

EnableMenuItem ((HMENU) wParam, IDM_FILE_SAVE, 
pbmfh ? MF_ENABLED : MF_GRAYED); 
return 0 ; 


case WM_COMMAND : 

switch (LOWORD (wParam)) 

{ 

case IDM_FILE_OPEN: 

// Show the File Open dialog box 


szTitleName)) 


if (!DibFileOpenDlg (hwnd, szFileName, 


return 0 ; 

// If there's an existing DIB, free the memory 

if (pbmfh) 



free (pbmfh); 
pbmfh = NULL ; 


// Load the entire DIB into memory 


SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 

pbmfh = DibLoadlmage (szFileName); 
ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC ARROW)); 


// Invalidate the client area for later update 


InvalidateRect (hwnd, NULL, TRUE); 


if (pbmfh == NULL) 

{ 

MessageBox ( hwnd, TEXT ("Cannot load DIB file 1 ，）， 

szAppName, 0); 
return 0 ; 
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// Get pointers to the info structure & the bits 

pbmi = (BITMAPINFO *) (pbmfh +1); 
pBits = (BYTE *) pbmfh + 

pbmfh->bfOffBits ; 

// Get the DIB width and height 


if (pbmi->bmiHeader.biSize == sizeof (BITMAPCOREHEADER)) 


cxDib 

cyDib 


cxDib = 
cyDib 


{ 

=((BITMAPCOREHEADER *) pbmi)->bcWidth ; 

=((BITMAPCOREHEADER *) pbmi)->bcHeight ; 

} 

else 

{ 

pbmi->bmiHeader.biWidth ; 

=abs ( pbmi->bmiHeader.biHeight); 

} 

return 0 ; 


case IDM_FILE_SAVE: 

// Show the File Save dialog box 


szTitleName)) 


if ( !DibFileSaveDlg (hwnd. 


szFileName, 


return 0 ; 

// Save the DIB to memory 


SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 


bSuccess = DibSavelmage (szFileName, pbmfh); 
ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC ARROW)); 


if ( !bSuccess) 

MessageBox ( hwnd, TEXT ("Cannot save DIB file ”）， 

szAppName, 0); 
return 0 ; 

} 

break ; 


case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 


if (pbmfh) 

SetDIBitsToDevice (hdc. 
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0 , 

0, 

cxDib, 
cyDib, 

0 , 

0, 

0, 

cyDib, 
pBits, 
pbmi, 

DIB_RGB_COLORS); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

if (pbmfh) 

free (pbmfh); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

DIBFILE.H 

■k _ 

DIBFILE.H -- Header File for DIBFILE.C 


void DibFilelnitialize (HWND hwnd); 

BOOL DibFileOpenDlg (HWND hwnd, PTSTR pstrFileName, PTSTR pstrTitleName); 

BOOL DibFileSaveDlg (HWND hwnd, PTSTR pstrFileName , PTSTR pstrTitleName); 

BITMAPFILEHEADER * DibLoadlmage (PTSTR pstrFileName); 

BOOL DibSavelmage(PTSTR pstrFileName, BITMAPFILEHEADER *); 

DIBFILE.C 

/* - 

DIBFILE.C -- DIB File Functions 


*/ 

♦include <windows.h> 

♦include <commdlg.h> 

♦include "dibfile.h" 

static OPENFILENAME ofn ; 

void DibFilelnitialize (HWND hwnd) 

{ 

static TCHAR szFilter [ ] = TEXT ( "Bitmap Files ( * • BMP)\0 * • bmp\0’’）\ 


// xDst 
// yDst 
// cxSrc 
// cySrc 
// xSrc 
// ySrc 

// first scan line 
// number of scan lines 
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TEXT ("All Files (* • *) \◦ * • *\◦ \◦ ，’ ）; 



ofn.IStructSize 

— 

sizeof (OPENFILENAME); 


ofn.hwndOwner 

=hwnd 

• 

r 



ofn.hlnstance 

— 

NULL ; 



ofn.lpstrFilter 

— 

szFilter ; 



ofn.IpstrCustomFilter = NULL 

參 

f 



ofn.nMaxCustFilter 

=◦; 




ofn.nFiIterIndex 

= 0 ; 




ofn.lpstrFile 

=NULL 

; // Set in Open and Close functions 


ofn.nMaxFile 

=MAX PATH ; 



ofn.lpstrFileTitle 

=NULL 

; // Set in Open and Close functions 


ofn.nMaxFileTitle 

— 

MAX PATH ; 



ofn.lpstrlnitialDir 

— 

NULL ; 



ofn.lpstrTitle 

z=z 

NULL ; 



ofn.Flags 

zzz 

0 ; // Set in Open and Close functions 


ofn.nFileOffset 

— 

0 ; 



ofn.nFileExtension 

— 

0 ; 



ofn.IpstrDefExt 

zz: 

TEXT ("bmp"); 



ofn.lCustData 

z=z 

0 ； 



ofn.lpfnHook 

— 

NULL ; 


\ 

ofn.lpTemplateName 

=NULL 

• 

f 


/ 

BOOL 

DibFileOpenDlg (HWND 

hwnd, PTSTR pstrFileName, 

PTSTR pstrTitleName) 

i 

ofn . hwndOwner 

=hwnd 

• 

f 



ofn.IpstrFile 

— 

pstrFileName ; 



ofn.lpstrFileTitle 

— 

pstrTitleName ; 



ofn.Flags 

— 

0 ; 


} 

return GetOpenFileName (&ofn) 

• 

f 


BOOL 

{ 

DibFileSaveDlg (HWND 

hwnd, PTSTR pstrFileName, 

PTSTR pstrTitleName) 

l 

ofn . hwndOwner 

= hwnd 

参 

f 



ofn . IpstrFile 

— 

pstrFileName ; 



ofn.lpstrFileTitle 

— 

pstrTitleName ; 



ofn . Flags 

— 

OFN OVERWRITEPROMPT ; 

} 

return GetSaveFileName (&ofn) 

參 

f 


BITMAPFILEHEADER * DibLoadlmage (PTSTR pstrFileName) 

f 


1 

BOOL 

bSuccess ; 



DWORD 

dwFileSize, dwHighSize, 

dwBytesRead ; 


HANDLE 

hFile ; 




BITMAPFILEHEADER * 

pbmfh ; 
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hFile = CreateFile ( pstrFileName, GENERIC_READ, FILE_SHARE_READ,NULL, 
OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN,NULL); 

if ( hFile == INVALID_HANDLE_VALUE) 

return NULL ; 

dwFileSize = GetFileSize (hFile, &dwHighSize); 

if (dwHighSize) 

{ 

CloseHandle (hFile); 
return NULL ; 

} 

pbmfh = malloc (dwFileSize); 
if ( !pbmfh) 

{ 

CloseHandle (hFile); 
return NULL ; 

} 

bSuccess = ReadFile (hFile, pbmfh, dwFileSize, &dwBytesRead, NULL); 
CloseHandle (hFile); 

if ( !bSuccess | | (dwBytesRead != dwFileSize) 

|| (pbmfh->bfType != * (WORD *) "BM") 

|| (pbmfh->bfSize != dwFileSize)) 

{ 

free (pbmfh); 
return NULL ; 

} 

return pbmfh ; 

} 

BOOL DibSavelmage (PTSTR pstrFileName, BITMAPFILEHEADER * pbmfh) 

{ 

BOOL bSuccess ; 

DWORD dwBytesWritten ; 

HANDLE hFile ; 

hFile = CreateFile ( pstrFileName, GENERIC—WRITE A ◦, NULL, 

CREATE—ALWAYS, FILE—ATTRIBUTE—NORMAL, NULL); 

if (hFile == INVALID_HANDLE—VALUE) 

return FALSE ; 

bSuccess = WriteFile (hFile, pbmfh, pbmfh->bfSize, &dwBytesWritten, NULL); 
CloseHandle (hFile); 
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if ( ! bSuccess | | (dwBytesWritten != pbmfh->bfSize)) 

{ 

DeleteFile (pstrFileName); 
return FALSE ; 

} 

return TRUE ; 

} 

SHOWDIB1.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

SH0WDIB1 MENU DISCARDABLE 
BEGIN 

POPUP "&File n 
BEGIN 

MENUITEM "&Open... 工 DM—FILE—OPEN 
MENUITEM "&Save... 工 DM—FILE_SAVE 

END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by ShowDibl.rc 

♦define 工 DM—FILE—OPEN 40001 

♦define 工 DM—FILE_SAVE 40002 

DIBFILE . C 档案包含了显示 「File Open 」 和 「File Save 」 对话方块的常式， 
以及把整个 DIB 档案（拥有 BITMAPFILEHEADER 结构）载入单个记忆体块的常式。 
程式也会将这样一个记忆体区写出到档案。 

当在 SH 0 WDIB 1 .C 内执行 「File Open 」 命令载入 DIB 档案後，程式计算记 
忆体块中 BITMAPINF 0 HEADER 结构和图素位元的偏移量，程式也获得 DIB 的图素 
宽度和高度。所有资讯都储存在静态变数中。在处理 WM_PAINT 讯息处理期间， 
程式通过呼叫 SetDIBitsToDevice 显示 DIB 。 

当然， SH 0 WDIB 1 还缺少一些功能。例如，如果 DIB 对显示区域来说太大， 
则没有卷动列可用来移动查看。在下一章的末尾将修改这些缺陷。 

DIB 的颠倒世界 

我们将得到一个重要的教训，它不仅在生活中重要，而且在作业系统的应 
用程式介面的设计中也重要。这个教 训是： 覆水难收。 
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回到 OS /2 Presentation Manager 那由下而上的 DIB 图素位元的定义处， 
这样的定义是有点道理的，因为 PM 内的任何座标系都有一个内定的左下角原点。 
例 如：在 PM 视窗内，内定的（0,0)原点是视窗的左下角。（如果您觉得这很 
古怪，很多人和您的感觉一样。如果您不觉得古怪，那您可能是位数学家。） 
点阵图的绘制函式也根据左下角指定目的地。 

因此，在 OS /2 内如果给点阵图指定了目的座标(0,0)，则图像将从视窗的 
左下角向上向右显示，如图 15-1 所示。 



图 15-1 在 OS /2 中以（0， 0) 为目的点显示的点阵图 


在够慢的机器上，您能实际看到电脑由下而上绘制点阵图。 

尽管 OS /2 座标系统显得很古怪，但它的优点是高度的一致。点阵图的（0, 0) 
原点是点阵图档案中第一行的第一个图素，并且此图素被映射到在点阵图绘制 
函式中指定的目的座标上。 

Windows 存在的问题是不能保持内部的一致性。当您只要显示整个 DIB 图像 
中的一小块矩形时，就要使用参数 xSrc、ySrc、cxSrc 和 cySrc。 这些来源座标 
和大小与 DIB 资料的第一行（图像的最後一行）相关。这方面与 OS/2 相似，与 
OS/2 不同的是， Windows 在目的座标上显示图像的顶列。因此，如果显示整个 
DIB 图像，显示在 （xDst，yDst) 的图素是位於座标 （0，cyDib - 1) 处的图素。 
DIB 资料的最後一列就是图形的顶列。如果仅显示图像的一部分，则在 
(xDst, yDst ) 显示的图素是位於座标 (xSrc, ySrc + cySrc - 1) 处的 DIB 图 
素。 
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图 15-2 显示的图表将帮助您理解这方面的内容。您可以把下面显示的 DIB 
当成是储存在记忆体中的 一一 就是说，上下颠倒。座标的原点与 DIB 图素资料 
的第一个位元是一致的。 SetDIBitsToDevice 的 xSrc 参数是以 DIB 的左边为基 
准，并且 cxSix 是 xSix 右边的图像宽度，这很直观。 ySix 参数以 DIB 资料的首 
列（也就是图像的底部）为基准，并且 cySix 是从 ySix 到资料的末列（图像的 
顶端）的图像高度。 

xSrc xSrc+ cxSrc 



ySrc+ cySrc 


ySrc 


图 15-2 正常 DIB (由下而上）的座标 

如果目的装置内容具有使用 MM _ TEXT 映射方式的内定图素座标，来源矩形 
和目的矩形角落座标之间的关系显示在表 15-3 中。 

表 15-3 


来源矩形 

目的矩形 

(xSrc, ySrc) 

(xDst, yDst + cySrc - 1) 

(xSrc + cxSrc - 1 ， ySrc) 

(xDst + cxSrc - 1 ， yDst + cySrc - 1) 

(xSrc, ySrc + cySrc - 1) 

(xDst, yDst) 

(xSrc + cxSrc - 1， ySrc + cySrc - 1) 

(xDst + cxSrc - 1 ， yDst) 


( xSrc , ySrc ) 不映射到 ( xDst , yDst ) ，使得表格显得很混乱。在其他映射方 
式中，点 ( xSrc，ySrc + cySrc - 1) 总是映射到逻辑点 ( xDst ， yDst ) ，图像也与 
MM _ TE )( T 所显示的一样。 


到目前为止，我们讨论了当 BITMAPINFOHEADER 结构的 biHeight 栏位是正 
值时的正常情况。如果 biHeight 栏位是负值，则 DIB 资料会以合理的由上而下 
的方式排列。您可能会认为这样将解决所有问题，如果您真地这样认为，那您 
就错了。 
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很明显地，有人会认为如果把 DIB 上下倒置，旋转每一行，然後给 biHeight 
设定一个正值，它将像正常的由下而上的 DIB —样操作，所有与 DIB 矩形相关 
的现存程式码就不必修改。我认为这是一个合理的目的，但它忘记了一个事实， 
程式需要修改以处理由上而下的 DIB , 这样就不会使用一个负高度。 

而且，此决定的结果意味著由上而下的 DIB 的来源座标在 DIB 资料的最後 
一列有一个原点，它也是图像的底列。这与我们遇到的情况完全不同。位於(0, 0) 
原点的 DIB 图素不再是 pBits 指标引用的第一个图素，也不是 DIB 档案的最後 
一个图素，它位於两者之间。 

图 15-3 显示的图表说明了在由上而下的 DIB 中指定矩形的方法，也是它储 
存在档案或记忆体中的样子。 



ySrc+ cySrc 


ySrc 


xSrc xSrc+ cxSrc 


图 15-3 指定由上而下的 DIB 的座标 

无论如何，这个方案的实际优点是 SetDIBitsToDevice 函式的参数与 DIB 
资料的方向无关。如果有显示了同一图像的两个 DIB (—个由下而上，另一个由 
上而下。表示在两个 DIB 档案内的列顺序相反），您可以使用相同的参数呼叫 
SetDIBitsToDevice 来选择显示图像的相同部分。 


如程式 15-3 APOLLO 11中所示。 
程式 15-3 APOLLO 11 


AP0LL011.C 




/* - 

AP0LL011.C -- 

Program for 

(c) Charles 

screen captures 

Petzold, 1998 


♦include <windows.h> 



- V 
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♦include "dibfile.h" 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("Apolloll"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

HWND hwnd ; 

MSG msg ; 

WNDCLAS wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 

=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=NULL ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 



NT !"), 


MessageBox (NULL, TEXT ("This program requires Windows 


szAppName, MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow (szAppName, TEXT ("Apollo 11"), 


WS_OVERLAPPEDWINDOW, 
CW_USEDEFAULT, CW_USEDEFAULT, 
CW—USEDEFAULT, CW_USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam,LPARAM IParam) 

{ 
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static BITMAPFILEHEADER * pbmfh [2] 

static BITMAPINFO * pbmi [2]; 


static BYTE 
static int 
HDC 

PAINTSTRUCT 


* pBits [2]; 
cxClient, cyClient, 
hdc ; 
ps ; 


cxDib [ 2 ], cyDib[2] 


switch (message) 

{ 

case WM CREATE : 


pbmfh[0] 
pbmfh[1] 


DibLoadlmage (TEXT ("Apollol1.bmp")) 
DibLoadlmage (TEXT ("ApolloTD.bmp")) 


if (pbmfh[0] == NULL || pbmfh[1]== 

{ 

MessageBox (hwnd, TEXT ("Cannot load DIB file ”）， 
szAppName, 0); 

return 0 ; 


NULL) 


bits 


// Get pointers to the info structure & the 


pbmi 

pbmi 

pBits 

pBits 


[ 0 ] 

[ 1 ] 


(BITMAPINFO *) (pbmfh[0] +1); 
(BITMAPINFO *) (pbmfh[1] +1); 

[◦] = (BYTE*) pbmfh[0] +pbmfh[◦]->bfOffBits 
[1] = (BYTE*) pbmfh[1] +pbmfh[1]->bfOffBits 


value!!! 


// Get the DIB width and height (assume BITMAPINFOHEADER) 
// Note that cyDib is the absolute value of the header 


cxDib 

[0] 

cxDib 

[1] 

cyDib 

[0] 

cyDib 

[1] 

return 

0 


pbmi[0]->bmiHeader.biWidth ; 
pbmi[1]->bmiHeader.biWidth ; 

abs (pbmi[0] 一 >bmiHeader.biHeight) 
abs (pbmi[1] - >bmiHeader.biHeight) 


case WM SIZE: 


cxClient 
cyClient 
return 0 


LOWORD (IParam); 
HIWORD (IParam); 


case WM PAINT : 


hdc = BeginPaint (hwnd, &ps) 


// Bottom-up DIB full size 
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SetDIBitsToDevice (hdc 

r 

0, 



// xDst 

cyClient / . 

4, 


// yDst 

cxDib[◦], 



// cxSrc 

cyDib[◦], 



// cySrc 

0, 



// xSrc 

0, 



// ySrc 

0, 



// first scan line 

cyDib[◦], 



// number of scan lines 

pBits[◦], 




pbmi[◦], 




DIB RGB COLORS) 

• 

f 



// 

Bottom-up DIB 

partial 

SetDIBitsToDevice (hdc. 


240, 



// xDst 

cyClient / 4, 



// yDst 

80, 



// cxSrc 

166, 



// cySrc 

80, 



// xSrc 

60, 



// ySrc 

0, 



// first scan line 

cyDib[0], 



// number of scan lines 

pBits [ ◦], 




pbmi[◦], 




DIB RGB_COLORS) 

參 

f 




II 

Top-down DIB : 

full size 

SetDIBitsToDevice 

(hdc. 

340, 


// xDst 

cyClient 

/ t 

4, // yDst 


cxDib[0] 

r 

// cxSrc 


cyDib[0] 

r 

// cySrc 


0, 


// xSrc 


0, 


// ySrc 


0, 


// first scan line 

cyDib[0] 

r 

// number 

of scan lines 

pBits [ 0] 

r 



pbmi[◦], 




DIB RGB 

COLORS); 



// 

Top-down DIB ] 

partial 

SetDIBitsToDevice 

(hdc. 

580, 


// xDst 

cyClient / . 

4, 

// yDst 
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80 , 

166 , 

80 , 

60 , 

◦, 

cyDib[ 1 ] , 
pBits[1] , 
pbmi[ 1 ] , 

DIB RGB COLORS) 


// cxSrc 
// cySrc 
// xSrc 
// ySrc 

// first scan line 
// number of scan lines 


EndPaint (hwnd, &ps); 
return 0 ; 


case WM—DESTROY: 

if (pbmfh[0]) 


if (pbmfh[1]) 


free (pbmfh[0]); 
free (pbmfh[1]); 


PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 


程式载入了名为 AP 0 LL 011 .BMP (由下而上版本）和 AP 0 LL 0 TD . BMP (由上而 


下版本）的两个 DIB 。 它们都是220图素宽和240图素高。注意，在程式从表头 
资讯结构中确定 DIB 的宽度和高度时，它使用 abs 函式得到 biHeight 栏位的绝 
对值。当以全部大小或范围显示 DIB 时，不管显示点阵图的种类， xSrc 、 ySrc 、 
cxSrc 和 cySrc 座标都是相同的。结果如图 15-4 所示。 
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图 15-4 APOLLO 11的萤幕显示 


注意，「第一条扫描线」和「扫描线数目」参数保持不变，我将在以後简 
短说明。 pBits 参数也不变，不要只为了使它指向您需要显示的区域而试图更改 
pBits 0 

我在这个问题上花了这么多时间，并不是因为要让那些试图跟 API 定义中 
有问题的部分妥协的 Windows 程式写作者难堪，而是想让您不至於因为这个令 
人混淆的问题而紧张起来。这个问题之所以令人困惑，是因为它本身早就被搞 
混了。 

我也想让您留意 Windows 文件中的某些叙述，例如对 SetDIBitsToDevice, 
文件说：「由下而上 DIB 的原点是点阵图的左 下角； 由上而下 DIB 的原点是左 
上角」。这不仅模糊，而且是错误的。我可以用更好的方式来 讲述： 由下而上 
DIB 的原点是点阵图图像的左下角，它是点阵图资料的第一列的第一个图素。由 
上而下 DIB 的原点也是点阵图图像的左下角，但在这种情况下，左下角是点阵 
图资料的最後一列的第一个图素。 

如果要撰写存取 DIB 个别位元的函式，问题会变的更糟。这应该与您为显 
示部分 DIB 映射而指定的座标一致，我的解决方法是（我将在第十六章的 DIB 
程式库中使用）以统一的手法参考 DIB 图素和座标，就像在图像被正确显示时 
(0,0) 原点所指的是 DIB 图像顶行的最左边的图素一样。 
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循序显 TF 

拥有大量记忆体能确保程式更容易地执行。要显示磁片档案内的 DIB ， 可以 
分为两个独立的工作：将 DIB 载入记忆体，然後显示它。 

然而，您也可能在不把整个档案载入记忆体的情况下显示 DIB 。 即使有足够 
的实体记忆体提供给 DIB ， 把 DIB 移入记忆体也会迫使 Windows 的虚拟记忆体系 
统把记忆体中别的资料和程式码移到磁片上。如果 DIB 仅用於显示并立即从记 
忆体中消除，这就非常讨厌。 

还有另一个问题：假设 DIB 位於例如软碟的慢速储存媒体上，或由数据机 
传输过来，或者来自扫描器或视频截取程式取得图素资料的转换常式。您是否 
得等到整个 DIB 被载入记忆体後才显示它？还是从磁片或电话线或扫描器上得 
到 DIB 时，就开始显示它？ 

解决这些问题是 SetDIBitsToDevice 函式中 yScan 和 cyScans 参数的目的。 
要使用这个功能，需要多次呼叫 SetDIBitsToDevice ， 大多数情况下使用同样的 
参数。然而对於每次呼叫， pBits 参数指向点阵图图素总体排列的不同部分。 
yScans 参数指出了 pBits 指向图素资料的行， cyScans 参数是被 pBits 引用的 
行数。这大量地减少了记忆体需求。您仅需要为储存 DIB 的资讯部分 
(BITMAPINFOHEADER 结构和色彩对照表）和至少一行图素资料配置足够的记忆 
体。 

例如，假设 DIB 有23行图素，您希望每次最多5行的分段显示这个 DIB 。 
您可能想配置一个由变数 plnf 0 引用的记忆体块来储存 DIB 的 BITMAPINFO 部分， 
然後从档案中读取该 DIB 。 在检查完此结构的栏位後，能够计算出一行的位元组 
长度。乘以5并配置该大小的另一个记忆体块 （ pBits ) 。现在读取前5行，呼 
叫您正常使用的函式，把 yScan 设定为0，把 cyScans 设定为5。现在从档案中 
读取下5行，这一次将 yScan 设定为5，继续将 yScan 设定为10，然後为15。 
最後，将最後3行读入 pBits 指向的记忆体块，并将 yScan 设定为20,将 cyScans 
设定为3，以呼叫 SetDIBitsToDevice 。 

现在有一个不好的讯息。首先，使用 SetDIBitsToDevice 的这个功能要求 
程式的资料取得和资料显示元素之间结合得相当紧密。这通常是不理想的，因 
为您必须在获得资料和显示资料之间切换。首先，您将延缓整个 程序； 第二， 
SetDIBitsToDevice 是唯一具有这个功能的点阵图显示函式。 StretchDIBits 函 

式不包括这个功能，因此您不能使用它以不同图素大小显示发表的 DIB 。 您必须 
呼叫 StretchDIBits 多次，每次更改 BITMAPINFOHEADER 结构中的资讯，并在萤 

幕的不同区域显示结果。 

程式 15-4 SEQDISP 展示了这个功能的使用方法。 
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程式 15-4 SEQDISP 


SEQDISP.C 
/* - 


SEQDISP.C -- Sequential Display of DIBs 

(c) Charles Petzold, 1998 



♦include <windows.h> 
♦include "resource.h" 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("SeqDisp"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 



HACCEL 

HWND 

MSG 

WNDCLASS 


hAccel ; 
hwnd ; 

msg 

wndclass 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hInstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS_VREDRAW 
WndProc ; 


=hlnstance ; 

Loadlcon (NULL, IDI—APPLICATION); 
LoadCursor (NULL, 工 DC—ARROW); 
(HBRUSH) GetStockObject (WHITE—BRUSH) 
szAppName ; 
szAppName ; 


if 

{ 


(!RegisterClass (&wndclass)) 


NT ! n ), 


MessageBox (NULL, TEXT ("This program requires Windows 


szAppName, MB 工 CONERROR); 


return 


hwnd = CreateWindow (szAppName, TEXT ("DIB Sequential Display ’’）， 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT a CW—USEDEFAULT, 

CW_USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
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UpdateWindow (hwnd); 




hAccel = LoadAccelerators (hlnstance, s zAppName); 


while (GetMessage (&msg, NULL, 0, 

； 

0)) 



l 

if (!TranslateAccelerator 

r 

(hwnd, hAccel, &msg)) 



TranslateMessage (&msg); 


} 

DispatchMessage (&msg); 

} 

} 

return msg.wParam ; 



LRESULT CALLBACK WndProc (HWND hwnd, UINT 

r 

message, 

WPARAM wParam, LPARAM IParam) 


static BITMAPINFO * pbmi 

• 

r 



static BYTE * pBits 

參 

f 



static int 

cxDib, cyDib, cBits ; 


static OPENFILENAME ofn ; 




static TCHAR 

szFileName [MAX PATH], szTitleName 

[MAX PATH]; 




static TCHAR 

szFilter[]= TEXT ("Bitmap Files 


• .BMP)\0*.bmp\0 n ) 




TEXT ("All Files (* • *)\◦*•*\◦\◦ n ) 

• 

f 



BITMAPFILEHEADER bmfh 

參 

r 



BOOL 

bSuccess 

,bTopDown ; 


DWORD 

dwBytesRead ; 


HANDLE 

hFile ; 



HDC 

hdc ; 



HMENU 

hMenu ; 



int 

ilnfoSize, iBitsSize, iRowLength, y ; 


PAINTSTRUCT ps ; 




switch (message) 

； 




i 

case WM CREATE : 




ofn.IStructSize 


=sizeof (OPENFILENAME); 


ofn.hwndOwner 

— 

hwnd ; 


ofn.hlnstance 


=NULL ; 


ofn.lpstrFilter 


=szFilter ; 


ofn.IpstrCustomFilter 

=NULL ; 


ofn.nMaxCustFilter = 



ofn.nFiIterIndex 


=◦; 


ofn.IpstrFile 


=szFileName ; 


ofn.nMaxFile 


=MAX PATH ; 


ofn.lpstrFileTitle 

=szTitleName ; 


ofn.nMaxFileTitle 

=MAX PATH ; 
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ofn.lpstrlnitialDir 

= NULL ; 

ofn.lpstrTitle 


= NULL ; 

ofn.Flags 


= 0 ; 

ofn.nFileOffset 


=◦; 

ofn.nFileExtension 

=◦; 

ofn.IpstrDefExt 


= TEXT ("bmp"); 

ofn.lCustData 


=◦; 

ofn.lpfnHook 


=NULL ; 

ofn.lpTemplateName 

=NULL ; 

return 0 ; 



case WM COMMAND : 



hMenu = GetMenu 

(hwnd) ; 

switch (LOWORD 

f 

(wParam) ) 

X 

case IDM FILE OPEN: 




// Display File Open dialog 


if 

(! GetOpenFileName (&ofn) ) 



return 0 ; 



// Get rid of old DIB 


if 

； 

(pbmi) 


i 

free (pbmi) ; 


} 

pbmi = NULL ; 


if 

: 

(pBits ) 


i 

free (pBits ); 


} 

pBits = NULL ; 

// Generate WM 

PAINT 

message to erase background 


工 nvalidateRect (hwnd, NULL, TRUE) ; 

UpdateWindow (hwnd) ; 



// Open the file 


hFile = CreateFile (szFileName, 

GENERIC READ, 



FILE SHARE READ, 

NULL, OPEN_EXISTING, 

FILE FLAG SEQUENTIAL SCAN, NULL) ; 


if 

(hFile == INVALID HANDLE VALUE) 
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{ 

MessageBox ( hwnd, TEXT ("Cannot open file .’’）， 

szAppName, MB_ICONWARNING | MB_OK); 
return 0 ; 


// Read in the BITMAPFILEHEADER 


(BITMAPFILEHEADER), 


bSuccess = ReadFile 


&dwBytesRead, NULL); 


(hFile,&bmfh, sizeof 


if ( IbSuccess | | dwBytesRead ! = sizeof (BITMAPFILEHEADER)) 

{ 

MessageBox (hwnd, TEXT ("Cannot read file.’ 1 ), 

szAppName, MB_ICONWARNING | MB_OK); 

CloseHandle (hFile); 
return 0 ; 


// Check that it 1 s a bitmap 

if (bmfh.bfType != * (WORD *) "BM") 

{ 

MessageBox (hwnd, TEXT ("File is not a bitmap .’’）， 

szAppName, MB_ICONWARNING | MB_OK); 
CloseHandle (hFile); 
return 0 ; 

} 

// Allocate memory for header and bits 

ilnfoSize = bmfh•bfOffBits 一 sizeof (BITMAPFILEHEADER); 
iBitsSize = bmfh.bfSize - bmfh.bfOffBits ; 

pbmi = malloc (ilnfoSize); 
pBits = malloc (iBitsSize); 

if (pbmi == NULL || pBits == NULL) 

{ 

MessageBox (hwnd, TEXT ("Cannot allocate memory .’，）， 

szAppName, MB_ICONWARNING | MB_OK); 
if (pbmi) 
free (pbmi); 
if (pBits) 
free (pBits); 

CloseHandle (hFile); 

return 0 ; 


第 723 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


// Read in the Information Header 
bSuccess = ReadFile (hFile, pbmi, ilnfoSize, &dwBytesRead, 

NULL); 

if ( !bSuccess | | (int) dwBytesRead != ilnfoSize) 

{ 

MessageBox (hwnd, TEXT ("Cannot read file .’’）， 

szAppName, MB_ICONWARNING | MB_OK); 
if (pbmi) 
free (pbmi); 
if (pBits) 
free (pBits); 

CloseHandle (hFile); 

return 0 ; 

} 

// Get the DIB width and height 

bTopDown = FALSE ; 

if (pbmi->bmiHeader.biSize == sizeof (BITMAPCOREHEADER)) 

{ 

cxDib = ((BITMAPCOREHEADER *) pbmi)->bcWidth ; 
cyDib = ((BITMAPCOREHEADER *) pbmi)->bcHeight ; 
cBits = ((BITMAPCOREHEADER *) pbmi)->bcBitCount ; 

} 

else 

{ 

if (pbmi->bmiHeader.biHeight < 0) 

bTopDown = TRUE ; 

cxDib = pbmi->bmiHeader.biWidth ; 

cyDib = abs (pbmi->bmiHeader.biHeight); 
cBits = pbmi->bmiHeader.biBitCount ; 

if (pbmi->bmiHeader.biCompression != BI—RGB && 

pbmi->bmiHeader.biCompression != BI_BITFIELDS) 

{ 

MessageBox (hwnd, TEXT ("File is compressed .’，）， 

szAppName, MB_ICONWARNING | MB_OK); 
if (pbmi) 
free (pbmi); 
if (pBits) 
free (pBits); 

CloseHandle (hFile); 
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return 0 ; 

} 


1 






/ 

// Get the 

row length 



iRowLength 

=((cxDib * 

cBits + 31) & 〜 31) >> 3 ; 





// Read and 

display 





SetCursor 

(LoadCursor (NULL, 

IDC WAIT)) 

參 









ShowCursor 

(TRUE); 





hdc = GetDC 

(hwnd); 





for (y = ◦ 

;y < cyDib ; y++) 


ReadFile (hFile, pBits 

+ Y 

l 

* iRowLength,iRowLength,&dwBytesRead, 

NULL) ; 






SetDIBitsToDevice (hdc r 






0, 



// xDst 



0, 



// yDst 



cxDib, 


// cxSrc 



cyDib, 


// cySrc 



0, 



// xSrc 



0, 



// ySrc 



bTopDown ? cyDib - 

y - 1 

: y ， 




// first scan line 



1, 



// number of scan lines 


pBits 

+ y * iRowLength, 




pbmi, 






DIB_RGB_COLORS); 

i 






/ 

ReleaseDC (hwnd. 

hdc); 




CloseHandle 

(hFile); 




ShowCursor 

(FALSE); 




SetCursor (LoadCursor (NULL, 

IDC ARROW)); 




return 0 ; 




/ 

break ; 




case 

WM PAINT: 







hdc = BeginPaint 

(hwnd, &ps) 

參 

f 



if (pbmi && 

pBits) 






SetDIBitsToDevice (hdc. 



0, 



// xDst 



0, 



// yDst 
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cxDib, 

// 

cxSrc 

cyDib, 

// 

cySrc 


// 

xSrc 

◦, 

// 

ySrc 

◦, 

// 

first scan line 

cyDib, 

// 

number of scan lines 

pBits, 




DIB_RGB_COLORS) ; 

EndPaint (hwnd, &ps); 
return 0 ; 


case WM—DESTROY: 

if (pbmi) 


free (pbmi); 


if (pBits) 


free (pBits); 


PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

SEQDISP.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h n 
♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Accelerator 

SEQDISP ACCELERATORS DISCARDABLE 
BEGIN 

"0", IDM—FILE_0PEN, VIRTKEY, CONTROL, NOINVERT 

END 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

SEQDISP MENU DISCARDABLE 
BEGIN 

POPUP "&File n 
BEGIN 

MENUITEM "&0pen...\tCtrl+0", IDM—FILE—OPEN 
END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 
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// Used by SeqDisp.rc 

#define 工 DM—FILE—OPEN 40001 

在处理 「File Open 」 功能表命令期间，在 SEQDISP . C 内的所有档案 I / O 都 
会发生。在处理 WM _ C 0 MMAND 的最後，程式进入读取单行图素并用 
SetDIBitsToDevice 显示该行图素的回圈。整个 DIB 储存在记忆体中以便在处理 
WM _ PAINT 期间也能显示它。 

缩放到合适尺寸 


SetDIBitsToDevice 完成了将 DIB 的图素对点送入输出设备的显示程序。这 
对於列印 DIB 用处不大。印表机的解析度越高，得到的图像就越小，您最终会 
得到如邮票大小的图像。 

要通过缩小或放大 DIB , 在输出设备上以特定的大小显示它，可以使用 


StretchDIBits ： 

iLines = StretchDIBits ( 

hdc, 
xDst, 
yDst, 
cxDst, 
cyDst, 
xSrc, 
ySrc, 
cxSrc, 
cySrc, 
pBits, 
plnfo, 
fClrUse, 
dwRop); 


// device context handle 
// x destination coordinate 
// y destination coordinate 
// destination rectangle width 
// destination rectangle height 
// x source coordinate 
// y source coordinate 
// source rectangle width 
// source rectangle height 
// pointer to DIB pixel bits 
// pointer to DIB information 
// color use flag 
// raster operation 


• 函式参数除了下列三个方面，均与 SetDIBitsToDevice 相同。 

• 目的座标包括逻辑宽度 ( cxDst ) 和高度 ( cyDst )， 以及开始点。 

• 不能通过持续显示 DIB 来减少记忆体需求。 

最後一个参数是位元映射操作方式，它指出了 DIB 图素与输出设备图素结 
合的方式，在最後一章将学到这些内容。现在我们为此参数设定为 SRCC 0 PY 。 

还有另一个更细微的差别。如果查看 SetDIBitsToDevice 的宣告，您会发 
现 cxSix 和 cySix 是 DWORD ， 这是32位元无正负号长整数型态。在 StretchDIBits 
中， cxSrc 和 cySrc (以及 cxDst 和 cyDst ) 定义为带正负号的整数型态，这意 
味著它们可以为负数，实际上等一下就会看到，它们确实能为负数。如果您已 
经开始检查是否别的参数也可以为负数，就让我声明一下：在两个函式中 ， xSrc 
和 ySix 均定义为 int ， 但这是错的，这些值始终是非负数。 


第 727 页 






Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

DIB 内的来源矩形被映射到目的矩形的座标显示如表 15-4 所示。 


表 15-4 


来源矩形 

目的矩形 

(xSrc, ySrc) 

(xDst, yDst + cyDst - 1) 

(xSrc + cxSrc - 1 ， ySrc) 

(xDst + cxDst - 1, yDst + cyDst - 1) 

(xSrc, ySrc + cySrc - 1) 

(xDst, yDst) 

(xSrc + cxSrc - 1, ySrc + cySrc - 1) 

(xDst + cxDst - 1, yDst) 


右列中的 -1 项是不精确的，因为放大的程度（以及映射方式和其他变换) 
能产生略微不同的结果。 


例如，考虑一个 2 X 2 的 DIB ， 这里 StretchDIBits 的 xSrc 和 ySrc 参数均 
为0， cxSix 和 cySrc 均为2。假定我们显示到的装置内容具有 MM _ TEXT 映射方 
式并且不进行变换。如果 xDst 和 yDst 均为0， cxDst 和 cyDst 均为4，那么我 
们将以倍数2放大 DIB 。 每个来源图素 （ x ， y ) 将映射到下面所示的四个目的图 
素上： 


(0,0) 

--> 

(0,2) 

and 

(1,2) 

and 

(0,3) 

and 

(1,3) 

(1,0) 

--> 

(2,2) 

and 

(3,2) 

and 

(2,3) 

and 

(3,3) 

(0,1) 

--> 

(0,0) 

and 

(1,0) 

and 

(0,1) 

and 

(1,1) 

(1,1) 

--> 

(2,0) 

and 

(3,0) 

and 

(2,1) 

and 

(3,1) 


上表正确地指出了目的的角，（0,3)、（3, 3)、（0,0)和（3,0)。在其他情况 


下，座标可能是个大概值。 

目的装置内容的映射方式对 SetDIBitsToDevice 的影响仅是由於 xDst 和 
yDst 是逻辑座标。 StretchDIBits 完全受映射方式的影响。例如，如果您设定 
了 y 值向上递增的一种度量映射方式， DIB 就会颠倒显示。 

您可以通过把 cyDst 设定为负数来弥补这种情况。实际上，您可以将任何 
参数的宽度和高度变为负值来水平或垂直 • 转 DIB 。 在 MM _ TE )( T 映射方式下，如 
果 cySrc 和 cyDst 符号相反， DIB 会沿著水平轴 • 转并颠倒显示。如果 cxSrc 和 
cxDst 符号相反， DIB 会沿著垂直轴 • 转并显示它的镜面图像。 

下面是总结这些内容的运算式， x 丽和 y 丽指出映射方式的方向，如果 x 值 
向右增长，贝 1 Jx 丽值为 1; 如果 x 值向左增长，则值为 -1。 同样，如果 y 值向下 
增长，则 y 丽值为 1; 如果 y 值向上增长，则值为 -1。 Sign 函式对於正值传回 
TURE ， 对於负值传回 FALSE 。 

if ( ! Sign (xMM X cxSrc X cxDst)) 

DIB is flipped on its vertical axis (mirror image) 
if ( ! Sign (yMM X cySrc X cyDst)) 

DIB is flipped on its horizontal axis (upside down) 

若有疑问，请查阅表15-4。 
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程式 15-5 SH 0 WDIB 以实际尺寸显示 DIB 、 放大至显示区域视窗的大小、列 
印 DIB 以及把 DIB 传输到剪贴簿。 


程式 15-5 SH 0 WDIB 


SHOWDIB2.C 

/* - 

SHOWDIB2.C -- Shows a DIB in the client area 

(c) Charles Petzold, 1998 



♦include <windows.h> 
♦include "dibfile.h" 
♦include "resource.h" 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("ShowDib2"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


HACCEL 
HWND 
MSG 

WNDCLASS 
wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


hAccel ; 
hwnd ; 

msg ; 
wndclass ; 

=CS_HREDRAW | CS—VREDRAW 
=WndProc ; 


hlnstance ; 

Loadlcon (NULL, IDI—APPLICATION); 
LoadCursor (NULL, 工 DC—ARROW); 
(HBRUSH) GetStockObject (WHITE—BRUSH) 
szAppName ; 
szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 


NT ! n ), 


MessageBox (NULL, TEXT ("This program requires Windows 


return 0 ; 


szAppName, MB ICONERROR); 



hwnd = CreateWindow (szAppName, TEXT ( n Show DIB #2 n ), 

WS_OVERLAPPEDWINDOW a 
CW—USEDEFAULT, CW_USEDEFAULT, 
CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 
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ShowWindow (hwnd, iCmdShow) ; 

UpdateWindow (hwnd); 

hAccel = LoadAccelerators (hlnstance, s zAppName); 
while (GetMessage (&msg, NULL, 0, 0)) 

{ 

if (!TranslateAccelerator (hwnd, hAccel, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

return msg.wParam ; 

} 

int ShowDib (HDC hdc, BITMAPINFO * pbmi, BYTE * pBits, int cxDib, int cyDib, 

int cxClient, int cyClient, WORD wShow) 

{ 

switch (wShow) 

{ 

case IDM_SHOW—NORMAL: 

return SetDIBitsToDevice (hdc, 0, 0, cxDib, cyDib, ◦, ◦, 
◦, cyDib, pBits, pbmi, DIB_RGB_COLORS); 

case 工 DM—SHOW—CENTER: 

return SetDIBitsToDevice (hdc, (cxClient - cxDib) / 2, 
(cyClient - cyDib) / 2, 

cxDib, cyDib, 0, ◦, 0, cyDib, pBits, pbmi , DIB—RGB—COLORS); 

case 工 DM—SHOW—STRETCH: 

SetStretchBltMode (hdc, COLORONCOLOR); 
return StretchDIBits(hdc,◦, ◦, cxClient, cyClient, ◦, 0, cxDib, cyDib, 

pBits, pbmi, DIB_RGB_COLORS, SRCCOPY); 

case IDM—SHOW—ISOSTRETCH: 

SetStretchBltMode (hdc, COLORONCOLOR); 

SetMapMode (hdc, MM_ISOTROPIC); 

SetWindowExtEx (hdc, cxDib, cyDib, NULL); 
SetViewportExtEx (hdc, cxClient , cyClient, NULL); 
SetWindowOrgEx (hdc, cxDib / 2, cyDib / 2, NULL); 
SetViewportOrgEx (hdc, cxClient / 2, cyClient / 2, NULL); 

return StretchDIBits(hdc, ◦, ◦, cxDib, cyDib, ◦, ◦, cxDib, cyDib, 

pBits, pbmi, DIB RGB COLORS, SRCCOPY); 
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LRESULT CALLBACK WndProc (HWND hwnd, UINT 

r 

message, WPARAM wParam,LPARAM IParam) 


static BITMAPFILEHEADER * 

pbmfh ; 





static BITMAPINFO 

* pbmi ; 






static BYTE 

* pBits 

參 

r 





static DOCINFO 

di = {sizeof (DOCINFO), 





TEXT ("ShowDib2 : Printing") }; 



static 

int 

cxClient, cyClient, 

cxDib, 

cyDib ; 


static 

PRINTDLG printdlg = { 

sizeof (PRINTDLG) }; 


static 

TCHAR 


szFileName 

[MAX PATH], szTitleName 

[MAX 

PATH]; 








static 

WORD 

wShow = 

=IDM SHOW 

NORMAL ; 



BOOL 


bSuccess ; 






HDC 


hdc, hdcPrn 

• 

f 





HGLOBAL 


hGlobal ; 






HMENU 


hMenu ; 






int 


cxPage, cyPage, iEnable 

參 

f 



PAINTSTRUCT 

ps ; 






BYTE 


* pGlobal ; 






switch (message) 

； 







i 

case WM 

CREATE : 









DibFileInitialize 

(hwnd); 







return 0 ; 






case WM 

SIZE : 









cxClient = LOWORD 

(IParam) 

參 

f 






cyClient = HIWORD 

(IParam) 

• 

f 






return 0 ; 






case WM 

INITMENUPOPUP: 








hMenu = GetMenu (hwnd); 







if (pbmfh) 









iEnable = 

MF 

ENABLED 

• 

f 




else 









iEnable = 

MF 

GRAYED 

參 

f 




EnableMenuItem 

(hMenu, 



IDM FILE SAVE, 


iEnable) 

參 

r 









EnableMenuItem 

(hMenu, 



工 DM FILE PRINT, 


iEnable) 

• 

f 









EnableMenuItem 

(hMenu, 



IDM EDIT CUT, 


iEnable) 

參 

f 









EnableMenuItem 

(hMenu, 



IDM EDIT COPY, 


iEnable) 

參 

f 









EnableMenuItem 

(hMenu, IDM EDIT DELETE, iEnable); 
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case WM 


szTitleName)) 


return 0 ; 


COMMAND : 

hMenu = GetMenu (hwnd); 

switch (LOWORD (wParam)) 

{ 

case 工 DM_FILE_OPEN: 

// Show the File Open dialog box 

if ( !DibFileOpenDlg (hwnd, szFileName, 

return 0 ; 

//If there's an existing DIB, free the memory 
if (pbmfh) 

{ 

free (pbmfh); 
pbmfh = NULL ; 

} 

// Load the entire DIB into memory 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 

ShowCursor (TRUE); 

pbmfh = DibLoadlmage (szFileName); 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 

// Invalidate the client area for later update 

工 nvalidateRect (hwnd, NULL, TRUE); 

if (pbmfh == NULL) 

{ 

MessageBox ( hwnd, TEXT ("Cannot load DIB file ”）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 
return 0 ; 

} 

// Get pointers to the info structure & the bits 

pbmi = (BITMAPINFO *) (pbmfh +1); 

pBits = (BYTE *) pbmfh + pbmfh->bfOffBits ; 

// Get the DIB width and height 

if (pbmi->bmiHeader•biSize == sizeof (BITMAPCOREHEADER)) 
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{ 

cxDib = ((BITMAPCOREHEADER *) pbmi)->bcWidth ; 
cyDib = ((BITMAPCOREHEADER *) pbmi)->bcHeight ; 
} 

else 

{ 

cxDib = pbmi->bmiHeader.biWidth ; 
cyDib = abs (pbmi->bmiHeader.biHeight); 

} 

return 0 ; 


case I DM FILE SAVE: 


// Show the File Save dialog box 


if (!DibFileSaveDlg 


(hwnd. 


szFileName 


szTitleName)) 


MB OK); 


return 


// Save the DIB to a disk file 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 

bSuccess = DibSavelmage (szFileName, pbmfh) 
ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)) 
if ( !bSuccess) 

MessageBox ( hwnd, TEXT ("Cannot save DIB file 1 ’）， 

szAppName, MB_ICONEXCLAMATION 

return 0 ; 

case IDM_FILE_PRINT: 

if (!pbmfh) 

return 0 ; 

// Get printer DC 

printdlg.Flags = PD_RETURNDC | PD—NOPAGENUMS | PD—NOSELECTION ; 

if ( !PrintDlg ( &printdlg)) 

return 0 ; 


MessageBox ( 


if 

{ 


(NULL 


(hdcPrn = printdlg.hDC)) 


hwnd, TEXT ("Cannot obtain Printer DC n ), 

szAppName, MB ICONEXCLAMATION | MB OK) 
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return 0 ; 

} 

// Check whether the printer can print bitmaps 

if (!(RC_BITBLT & GetDeviceCaps (hdcPrn, RASTERCAPS))) 

{ 

DeleteDC (hdcPrn); 

MessageBox (hwnd, TEXT ("Printer cannot print bitmaps 1 ’）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 

return 0 ; 

} 

// Get size of printable area of page 

cxPage = GetDeviceCaps (hdcPrn, HORZRES); 
cyPage = GetDeviceCaps (hdcPrn, VERTRES); 

bSuccess = FALSE ; 

// Send the DIB to the printer 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 

if ((StartDoc (hdcPrn, &di) > 0) && (StartPage (hdcPrn) > 0)) 

{ 

ShowDib ( hdcPrn, pbmi, pBits, cxDib, cyDib, 
cxPage, cyPage, wShow); 

if (EndPage (hdcPrn) > 0) 

{ 

bSuccess = TRUE ; 

EndDoc (hdcPrn); 

} 

} 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 
DeleteDC (hdcPrn); 
if ( !bSuccess) 

MessageBox (hwnd, TEXT ("Could not print bitmap ’’）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 
return 0 ; 

case 工 DM_EDIT_COPY: 
case IDM_EDIT_CUT: 

if ( !pbmfh) 

return 0 ; 
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// Make a copy of the packed DIB 

hGlobal = GlobalAlloc (GHND | GMEM—SHARE, pbmfh->bfSize 一 

sizeof (BITMAPFILEHEADER)); 

pGlobal = GlobalLock (hGlobal); 

CopyMemory ( pGlobal, (BYTE *) pbmfh + sizeof (BITMAPFILEHEADER), 
pbmfh->bfSize - sizeof (BITMAPFILEHEADER)); 

GlobalUnlock (hGlobal); 

// Transfer it to the clipboard 

OpenClipboard (hwnd); 

EmptyClipboard (); 

SetClipboardData (CF_DIB, hGlobal); 
CloseClipboard (); 

if (LOWORD (wParam) == IDM—EDIT_COPY) 
return 0 ; 

// fall through if 工 DM—EDIT_CUT 
case IDM_EDIT_DELETE: 

if (pbmfh) 

{ 

free (pbmfh); 
pbmfh = NULL ; 

InvalidateRect (hwnd, NULL, TRUE); 

} 

return 0 ; 

case 工 DM_SHOW—NORMAL: 
case 工 DM—SHOW—CENTER: 
case 工 DM—SHOW—STRETCH: 
case 工 DM_SHOW_ISOSTRETCH: 

CheckMenuItem (hMenu, wShow, MF_UNCHECKED); 
wShow = LOWORD (wParam); 

CheckMenuItem (hMenu, wShow, MF_CHECKED); 
InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

} 

break ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 
if (pbmfh) 
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ShowDib ( hdc, pbmi, pBits, cxDib, cyDib, 
cxClient, cyClient, wShow); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

if (pbmfh) 

free (pbmfh); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

SH0WDIB2.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h n 
♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 


SH0WDIB2 MENU DISCARDABLE 
BEGIN 


POPUP "&File n 
BEGIN 

MENUITEM M &Open...\tCtrl+0", 
MENUITEM "&Save. . . \tCtrl-fS", 
MENUITEM SEPARATOR 
MENUITEM "&Print\tCtrl+P n , 
END 


工 DM—FILE—OPEN 
IDM_FILE_SAVE 

IDM FILE PRINT 


POPUP "&Edit 


BEGIN 

MENUITEM 

MENUITEM 

MENUITEM 

END 

POPUP "&Show n 
BEGIN 
MENUITEM 
MENUITEM 
MENUITEM 
MENUITEM 
END 


n Cu&t\tCtrl+X n , 工 DM_EDIT_CUT 
"&Copy\tCtrl+C M , IDM—EDIT_COPY 
"&Delete\tDelete", 工 DM EDIT DELETE 


"^Actual Size", IDM_SHOW_NORMAL, CHECKED 
"&Center", IDM—SHOW—CENTER 

"&Stretch to Window" A 工 DM—SHOW—STRETCH 
"Stretch ^Isotropically", IDM SHOW ISOSTRETCH 


END 


//////////////////////////////////////////////////////////////////////////// 


第 736 页 




Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


/ 

// Accelerator 




SH0WDIB2 

ACCELERATORS DISCARDABLE 


BEGIN 







"C", 工 DM EDIT_COPY, VIRTKEY, CONTROL, NOINVERT 

，，( 

0", 

工 DM 

FILE OPEN, 

VIRTKEY, 

CONTROL, NOINVERT 

"P 

»f 

f 

IDM 

FILE PRINT, 

VIRTKEY, 

CONTROL, NOINVERT 

"S 

vv 

r 

IDM 

FILE—SAVE, 

VIRTKEY, 

CONTROL, NOINVERT 

VK 

DELETE, 

IDM EDIT DELETE, 

VIRTKEY, NOINVERT 

n X n , 

IDM 

EDIT_CUT, 

VIRTKEY, 

CONTROL, NOINVERT 

END 






RESOURCE.H 

( 摘录） 



// Microsoft 

.Developer Studio generated include file. 

// Used 

by ShowDib2.rc 



#define 

I DM 

FILE 

OPEN 

40001 


#define 

I DM 

SHOW 

—NORMAL 

40002 


♦define 

工 DM 

SHOW 

_CENTER 

40003 


♦define 

IDM 

SHOW 

—STRETCH 

40004 


#define 

I DM 

SHOW 

ISOSTRETCH 

40005 


#define 

IDM 

FILE 

PRINT 

40006 


♦define 

IDM 

EDIT 

_C0PY 

40007 


♦define 

工 DM 

EDIT 

_CUT 

40008 


#define 

IDM 

EDIT 

DELETE 

40009 


#define 

IDM 

FILE 

_SAVE 

40010 



有意思的是 ShowDib 函式，它依赖於功能表选择以四种不同的方式之一在 
程式的显示区域显示 DIB 。 可以使用 SetDIBitsToDevice 从显示区域的左上角或 
在显示区域的中心显示 DIB 。 程式也有两个使用 StretchDIBits 的选项， DIB 能 
放大填充整个显示区域。在此情况下它可能会变形，或它能等比例显示，也就 
是说不会变形。 

把 DIB 复制到剪贴簿 包括： 在整体共用记忆体中制作 packed DIB 记忆体块 
的副本。剪贴簿资料型态为 CF _ DIB 。 程式没有列出从剪贴簿复制 DIB 的方法， 
因为在仅有指向 packed DIB 的指标的情况下这样做需要更多步骤来确定图素位 
元的偏移量。我将在下一章的末尾示范如何做到这点的方法。 

您可能注意到了 SH 0 WDIB 2 中的一些不足之处。如果您以256色显示模式执 
行 Windows ， 就会看到显示除了单色或4位元 DIB 以外的其他图形出现的问题， 
您看不到真正的颜色。存取那些颜色需要使用调色盘，在下一章会做这些工作。 
您也可能注意到速度问题，尤其在 Windows NT 下执行 SH 0 WDIB 2 时。在下一章 
packed DIB 和点阵图时，我会展示处理的方法。我也给 DIB 显示添加卷动列， 
这样也能以实际尺寸查看大於萤幕的 DIB 。 
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色彩转换、调色盘和显示效能 

记得在虎豹小霸王编剧 William Goldman 的另一出电影剧本 《All the 
President’s Men 》 中 ， Deep Throat 告诉 Bob Woodward 揭开水门秘密的关键是 
「跟著钱走」。那么在点阵图显示中获得高级性能的关键就是「跟著图素位元 
走」以及理解色彩转换发生的时机。 DIB 是装置无关的格式，视讯显示器记忆体 
几乎总是与图素格式不同。在 SetDIBitsToDevice 或 StretchDIBits 函式呼叫 

期间，每个图素（可能有几百万个）必须从装置无关的格式转换成设备相关格 
式。 

在许多情况下，这种转换是很繁琐的。例如，在24位元视讯显示器上显示 
24位元 DIB ， 显示驱动程式最多是切换红、绿、蓝的位元组顺序而已。在24位 
元设备上显示16位元 DIB 就需要位元的搬移和修剪了。在24位元设备上显示4 
位元或8位元 DIB 要求在 DIB 色彩对照表内查找 DIB 图素位元，然後对位元组 
重新排列。 

但是要在4位元或8位元视讯显示器上显示16位元、24位元或32位元 DIB 
时，会发生什么事情呢？ 一 种完全不一样的颜色转换发生了。对於 DIB 内的每 
个图素，装置驱动程式必须在图素和显示器上可用的颜色之间「找寻最接近的 
色彩」，这包括回圈和计算。 （ GDI 函式 GetNearestColor 进行「最接近色彩搜 
寻」。 ） 

整个 RGB 色彩的三维阵列可用立方体表示。曲线内任意两点之间的距离是: 



在这里两个颜色是 R 1 G 1 B 1 和 R 2 G 2 B 2。 执行最接近色彩搜寻包括从一种颜色 
到其他颜色集合中找寻最短距离。幸运的是，在 RGB 颜色立方体中「比较」距 
离时，并不需要计算平方根部分。但是需转换的每个图素必须与设备的所有颜 
色相比较以发现最接近的颜色。这是个工作量相当大的工作。（尽管在8位元 
设备上显示8位元 DIB 也得进行最接近色彩搜寻，但它不必对每个图素都进行， 
它仅需对 DIB 色彩对照表中的每种颜色进行寻找。） 

正是由於以上原因，应该避免使用 SetDIBitsToDevice 或 StretchDIBits 
在8位元视讯显示卡上显示16位元、24位元或32位元 DIB 。 DIB 应转换为8位 
元 DIB ， 或者8位元 DDB ， 以求得更好的显示效能。实际上，您可以经由将 DIB 
转换为 DDB 并使用 BitBlt 和 StretchBlt 显示图像，来加快显示任何 DIB 的速 
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度。 

如果在8位元视讯显示器上执行 Windows (或仅仅切换到8位元模式来观察 
在显示 True - ColorDIB 时的效能变化），您可能会注意到另一个问题： DIB 不会 
使用所有颜色来显示。任何在8位元视讯显示器上的 DIB 刚好限制在以20种颜 
色显示。如何获得多於20种颜色是「调色盘管理器」的任务，这将在下一章提 
到。 

最後，如果在同一台机器上执行 Windows 98和 Windows NT ，您可能会注意 
到：对於同样的显示模式 ， Windows NT 显示大型 DIB 花费的时间较长。这是 
Windows NT 的客户/伺服器体系结构的结果，它使大量资料在传输给 API 函式时 
耗费更多时间。解决方法是将 DIB 转换为 DDB 。 而我等一下将谈到的 
CreateDIBSection 函式对这种情况特别有用。 

DIB 和 DDB 的结合 

您可以做许多事情去发掘 DIB 的格式，并呼叫两个 DIB 绘图 函式： 
SetDIBitsToDevice 和 StretchDIBits 。 您可以直接存取 DIB 中的各个位元、位 

元组和图素，且一旦您有了一堆能让您以结构化的方式检查和更改资料的函式， 
您要怎么处理 DIB 就没人管了。 

实际上，我们发现还是有一些限制。在上一章，我们了解了使用 GDI 函式 
在 DDB 上绘制图像的方法。到目前为止，还没有在 DIB 上绘图的方法。另一个 
问题是 SetDIBitsToDevice 和 StretchDIBits 没有 BitBlt 和 StretchBlt 速度 
快，尤其在 Windows NT 环境下以及执行许多最接近颜色搜寻（例如，在8位元 
视频卡上显示24位元 DIB) 时。 

因此，在 DIB 和 DDB 之间进行转换是有好处的。例如，如果我们有一个需 
要在萤幕上显示许多次的 DIB ， 那么把 DIB 转换为 DDB 就很有意义，这样我们就 
能够使用快速的 BitBlt 和 StretchBlt 函式来显示它了。 

从 DIB 建立 DDB 

从 DIB 中建立 GDI 点阵图物件可能吗？基本上我们已经知道了 方法： 如果 
有 DIB , 您就能够使用 CreateCompatibleBitmap 来建立与 DIB 大小相同并与视 

讯显示器相容的 GDI 点阵图物件。然後将该点阵图物件选入记忆体装置内容并 
呼叫 SetDIBitsToDevice 在那个记忆体 DC 上绘图。结果就是 DDB 具有与 DIB 相 

同的图像，但具有与视讯显示器相容的颜色组织。 

您也可以通过呼叫 CreateDIBitmap 用几个步骤完成上述工作。函式的语法 


为: 
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hBitmap = CreateDIBitmap ( 

hdc. 

// device context handle 


plnfoHdr, 

/ / pointer to DIB 

information header 

flnit. 

// 0 or CBM INIT 


pBits, 

// pointer to DIB 

pixel bits 

plnfo. 

// pointer to DIB 

information 

fClrUse) 

; / / color use flag 


请注意 plnfoHdr 和 

plnfo 这两个参数， 

它们分别定义为指向 


BITMAPINFOHEADER 结构和 BITMAPINFO 结构的指标。正如我们所知 ， BITMAPINFO 
结构是後面紧跟色彩对照表的 BITMAPINFOHEADER 结构。我们一会儿会看到这种 
区别所起的作用。最後一个参数是 DIB _ RGB _ COLORS (等於 0) 或 DIB _ PAL _ C 0 L 0 RS ， 
它们在 SetDIBitsToDevice 函式中使用。下一章我将讨论更多这方面的内容。 

理解 Windows 中点阵图函式的作用是很重要的。不要考虑 CreateDIBitmap 
函式的名称，它不建立与「装置无关的点阵图」，它从装置无关的规格中建立 
「设备相关的点阵图」。注意该函式传回 GDI 点阵图物件的代号， CreateBitmap 、 
CreateBitmapIndirect 和 CreateCompatib 1 eBitmap 也与它一'样。 

呼叫 CreateDIBitmap 函式最简单的方法是： 

hBitmap = CreateDIBitmap (NULL, pbmih, ◦, NULL, NULL, 0); 

唯一的参数是指向 MTMAPINFOHEADER 结构（不带色彩对照表）的指标。在 
这个形式中，函式建立单色 GDI 点阵图物件。第二种简单的方 法是： 

hBitmap = CreateDIBitmap (hdc, pbmih, 0, NULL, NULL, 0); 

在这个形式中，函式建立了与装置内容相容的 DDB ， 该装置内容由 hdc 参数 
指出。到目前为止，我们都是透过 CreateBitmap (建立单色点阵图）或 
CreateCompatibleBitmap (建立与视讯显示器相容的点阵图）来完成一些工作。 

在 CreateDIBitmap 的这两个简化模式中，图素还未被初始化。如果 
CreateDIBitmap 的第三个参数是 CBM _ INIT ， Windows 就会建立 DDB 并使用最後 
三个参数初始化点阵图位元。 plnfo 参数是指向包括色彩对照表的 BITMAPINFO 
结构的指标。 pBits 参数是指向由 BITMAPINFO 结构指出的色彩格式中的位元阵 
列的指标，根据色彩对照表这些位元被转换为设备的颜色格式，这与 
SetDIBitsToDevice 的情况相同。实际上，整个 CreateDIBitmap 函式可以用下 

列程式码来 实作： 

HBITMAP CreateDIBitmap ( HDC hdc, CONST BITMAPINFOHEADER * pbmih, 

DWORD flnit, CONST VOID * pBits, 

CONST BITMAPINFO * pbmi, UINT fUsage) 

{ 

HBITMAP hBitmap ; 

HDC hdc ; 
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int 


cx, cy, iBitCount ; 


if (pbmih->biSize == sizeof (BITMAPCOREHEADER)) 


} 

else 


if (hdc) 


else 


cx = ((PBITMAPCOREHEADER) pbmih)->bcWidth ; 
cy = ((PBITMAPCOREHEADER) pbmih)->bcHeight ; 
iBitCount = ((PBITMAPCOREHEADER) pbmih)->bcBitCount ; 


cx = pbmih->biWidth ; 
cy = pbmih->biHeight ; 
iBitCount = pbmih->biBitCount ; 

hBitmap = CreateCompatibleBitmap (hdc, cx, cy); 


hBitmap = CreateBitmap (cx, cy, 1, 1, NULL); 
if (flnit == CBM—INIT) 

{ 

hdcMem = CreateCompatibleDC (hdc); 

SelectObj ect (hdcMem, hBitmap); 

SetDIBitsToDevice ( hdcMem, ◦, 0 , cx, cy, 0 , 0 , 0 cy, 
pBits, pbmi, fUsage); 

DeleteDC (hdcMem); 


return hBitmap ; 


如果仅需显示 DIB —次，并担心 SetDIBitsToDevice 显示太慢，则呼叫 
CreateDIBitmap 并使用 BitBlt 或 StretchBlt 来显示 DDB 就没有什么意义。因 
为 SetDIBitsToDevice 和 CreateDIBitmap 都执行颜色转换，这两个工作会占用 
同样长的时间。只有在多次显示 DIB 时（例如在处理 WM+PAINT 讯息时）进行这 


种转换才有意义。 

程式 15-6 DIBC0NV 展示了利用 SetDIBitsToDevice 把 DIB 档案转换为 DDB 
的方法。 


程式 15-6 DIBC0NV 


DIBCONV.C 

/* - 




DIBCONV.C -- 

Converts a 

DIB to a 

DDB 


(c) Charles 

Petzold, 

1998 

V 

♦include <windows.h> 
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♦include <commdlg.h> 
#include "resource.h" 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 
TCHAR szAppName[] = TEXT ("DibConv"); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 


HWND 

MSG 

WNDCLASS 


hwnd ; 

msg 

wndclass 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW 
WndProc ; 


hlnstance ; 

Loadlcon (NULL, IDI—APPLICATION); 
LoadCursor (NULL, IDC—ARROW); 
(HBRUSH) GetStockObject (WHITE_BRUSH) 
szAppName ; 
szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 


NT ! n ), 


MessageBox (NULL, TEXT ("This program requires Windows 


szAppName, MB_ICONERROR); 
return 0 ; 



hwnd = CreateWindow (szAppName, TEXT ( n DIB to DDB Conversion"), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 


return msg.wParam ; 
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HBITMAP CreateBitmapObj ectFromDibFile (HDC hdc, PTSTR szFileName) 

{ 

BITMAPFILEHEADER * pbmfh ; 

BOOL bSuccess ; 

DWORD dwFileSize, dwHighSize, dwBytesRead ; 

HANDLE hFile ; 

HBITMAP hBitmap ; 

// Open the file : read access, prohibit write access 

hFile = CreateFile (szFileName, GENERIC_READ, FILE_SHARE_READ, NULL, 
OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, NULL); 
if (hFile == INVALID_HANDLE_VALUE) 

return NULL ; 

// Read in the whole file 

dwFileSize = GetFileSize (hFile, &dwHighSize); 

if (dwHighSize) 

{ 

CloseHandle (hFile); 
return NULL ; 

} 

pbmfh = malloc (dwFileSize); 

if ( !pbmfh) 

{ 

CloseHandle (hFile); 
return NULL ; 

} 

bSuccess = ReadFile (hFile, pbmfh, dwFileSize, &dwBytesRead, NULL); 
CloseHandle (hFile); 

// Verify the file 

if ( !bSuccess | | (dwBytesRead != dwFileSize) 

|| (pbmfh->bfType != * (WORD *) "BM") 

|| (pbmfh->bfSize != dwFileSize)) 

{ 

free (pbmfh); 
return NULL ; 

} 

// Create the DDB 
hBitmap = CreateDIBitmap (hdc, 

(BITMAPINFOHEADER *) (pbmfh +1), 
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CBM INIT, 





(BYTE *) pbmfh + pbmfh->bfOffBits, 




(BITMAPINFO 

*) (pbmfh + 1), 




DIB RGB_COLORS); 


free (pbmfh); 



} 

return 

hBitmap ; 



LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam,LPARAM IParam) 

r 


static 

HBITMAP 

hBitmap ; 



static 

int 

cxClient, cyClient ; 



static 

OPENFILENAME ofn ; 



static 

TCHAR szFileName [MAX PATH], szTitleName [MAX PATH]; 


static 

TCHAR szFilter[]=TEXT("Bitmap Files(*.BMP)\0*.bmp\0") 


TEXT 

("All Files 

(*•*)\0*.*\0\0 n ); 



BITMAP 


bitmap ; 



HDC 


hdc, hdcMem ; 



PAINTSTRUCT 

ps ; 



switch 

(message) 




l 

case WM CREATE : 






ofn.lStructSize = 

sizeof (OPENFILENAME); 




ofn.hwndOwner = hwnd 

• 

r 




ofn•hlnstance = 

NULL ; 




ofn.lpstrFilter = 

szFilter ; 




ofn.lpstrCustomFilter = NULL 

ofn.nMaxCustFilter = 0 ; 

• 

r 




ofn•nFilterIndex = 

0 ; 




ofn.IpstrFile = 

szFileName ; 




ofn.nMaxFile = 

MAX PATH ; 




ofn.lpstrFileTitle = 

szTitleName ; 




ofn.nMaxFileTitle = 

MAX PATH ; 




ofn.lpstrlnitialDir 

=NULL ; 




ofn.lpstrTitle = 

NULL ; 




ofn.Flags = 

0 ； 




ofn • nFileOffset = 

0 ； 




ofn.nFileExtension = 

0 ； 




ofn . IpstrDefExt = 

TEXT ("bmp") ; 




ofn . lCustData = 

0 ； 




ofn.lpfnHook = 

NULL ; 




ofn . lpTemplateName = NULL 

• 

f 




return 0 ; 



case WM SIZE: 






cxClient = LOWORD (IParam) ; 
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case 


IDC WAIT)) 


szFileName) 


IDC ARROW)) 


cyClient = HIWORD (IParam); 
return 0 ; 


WM_COMMAND : 

switch (LOWORD (wParam)) 

{ 

case 工 DM_FILE_OPEN: 

// Show the File Open dialog box 

if (!GetOpenFileName (&ofn)) 
return 0 ; 

// If there 1 s an existing DIB, delete it 

if (hBitmap) 

{ 

DeleteObj ect (hBitmap); 
hBitmap = NULL ; 

} 

// Create the DDB from the DIB 
SetCursor (LoadCursor (NULL, 

r 

ShowCursor (TRUE); 
hdc = GetDC (hwnd); 

hBitmap = CreateBitmapObj ectFromDibFile (hdc, 

f 

ReleaseDC (hwnd, hdc); 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, 

參 

f 

// Invalidate the client area for later update 

工 nvalidateRect (hwnd, NULL, TRUE); 
if (hBitmap == NULL) 

{ 

MessageBox (hwnd, TEXT ("Cannot load DIB file ’，）， 

szAppName, MB_OK | MB_ICONEXCLAMATION); 

} 

return 0 ; 

} 

break ; 

case WM PAINT : 
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hdc = BeginPaint (hwnd, &ps); 

if (hBitmap) 

{ 

GetObject (hBitmap, sizeof (BITMAP), ^bitmap); 

hdcMem = CreateCompatibleDC (hdc); 

SelectObj ect (hdcMem, hBitmap); 

BitBlt (hdc , 0 , 0, bitmap•bmWidth, bitmap•bmHeight, 
hdcMem, ◦, ◦, SRCCOPY); 

DeleteDC (hdcMem); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

if (hBitmap) 

DeleteObj ect (hBitmap); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

DIBCONV.RC (摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h n 
♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

DIBCONV MENU DISCARDABLE 
BEGIN 

POPUP "&File n 
BEGIN 

MENUITEM n &Open n , 工 DM_FILE_OPEN 

END 

END 

RESOURCE. H (摘录） 

// Microsoft Developer Studio generated include file. 

// Used by DibConv.rc 

♦define 工 DM—FILE—OPEN 40001 

DIBCONV. C 本身就是完整的，并不需要前面的档案。在对它仅有的功能表命 
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令 （ 「 File Open 」 ) 的回应中 ， WndProc 呼叫程式的 
CreateBitmapObjectFromDibFile 函式。此函式将整个档案读入记忆体并将指向 
记忆体块的指标传递给 CreateDIBitmap 函式，函式传回点阵图的代号，然後包 
含 DIB 的记忆体块被释放。在 WM _ PAINT 讯息处理期间， WndProc 将点阵图选入 
相容的记忆体装置内容并使用 BitBlt (不是 SetDIBitsToDevice ) 在显示区域 
显示点阵图。它通过使用点阵图代号呼叫带有 BITMAP 结构的 GetObject 函式来 
取得点阵图的宽度和高度。 


在从 CreateDIBitmap 建立点阵图时不必初始化 DDB 图素位元，之後您可以 
呼叫 SetDIBits 初始化图素位元。该函式的语法 如下： 


iLines = 

= SetDIBits ( 






hdc. 

// 

device context handle 



hBitmap, 

// 

bitmap handle 



yScan, 

// 

first scan line to convert 



cyScans, 

// number of scan lines to convert 



pBits, 

II 

pointer to pixel bits 



plnfo. 

II 

pointer to DIB information 



fClrUse) 

；// 

color use flag 


函式使用了 BITMAPINFO 结构中的色彩对照表把位元转换为设备相关的格 


式。只有在最後一个参数设定为 DIB _ PAL _ C 0 L 0 RS 时，才需要装置内容代号。 


从 DDB 到 DIB 


与 SetDIBits 函式相似的函式是 GetDIBits ， 您可以使用此函式把 DDB 转化 
为 DIB : 


int WINAPI GetDIBits ( 

hdc, 


// device context handle 

hBitmap, 

// 

bitmap handle 

yScan, 

// 

first scan line to convert 

cyScans, 

// 

number of scan lines to convert 

pBits, 


// pointer to pixel bits (out) 

plnfo. 


// pointer to DIB information (out) 

fClrUse); 


// color use flag 


然而，此函式产生的恐怕不是 SetDIBits 的反运算结果。在一般情况下， 


如果使用 CreateDIBitmap 和 SetDIBits 将 DIB 转换为 DDB ， 然後使用 GetDIBits 
把 DDB 转换回 DIB ， 您就不会得到原来的图像。这是因为在 DIB 被转换为设备相 
关的格式时，有一些资讯遗失了。遗失的资讯数量取决於进行转换时 Windows 
所执行的显示模式。 

您可能会发现没有使用 GetDIBits 的必要性。考虑 一下： 在什么环境下您 
的程式发现自身带有点阵图代号，但没有用於在起始的位置建立点阵图的资 
料？剪贴簿？但是剪贴簿为 DIB 提供了自动的转换。 GetDIBits 函式的一个例子 
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是在捕捉萤幕显示内容的情况下，例如第十四章中 BLOWUP 程式所做的。我不示 
范这个函式，但在 Microsoft 网站的 Knowledge Base 文章 Q 80080 中有一些资 
讯。 


DIB 区块 

我希望您已经对设备相关和装置无关点阵图的区别有了清晰的概念。 DIB 能 
拥有几种色彩组织中的一种， DDB 必须是单色的或是与真实输出设备相同的格 
式。 DIB 是一个档案或记忆 体块； DDB 是 GDI 点阵图物件并由点阵图代号表示。 
DIB 能被显示或转换为 DDB 并转换回 DIB , 但是这里包含了装置无关位元和设备 
相关位元之间的转换程序。 

现在您将遇到一个函式，它打破了这些规则。该函式在32位元 Windows 版 
本中发表，称为 CreateDIBSection ， 语法为： 

hBitmap = CreateDIBSection ( 

hdc, // device context handle 

plnfo, // pointer to DIB information 

fClrUse, // color use flag 

ppBits, // pointer to pointer variable 

hSection, // file-mapping object handle 

dwOffset) ; // offset to bits in file-mapping object 

CreateDIBSection 是 Windows API 中最重要的函式之一（至少在使用点阵 
图时），然而您会发现它很深奥并难以理解。 

让我们从它的名称开始，我们知道 DIB 是什么，但 「DIB section ] 到底是 
什么呢？当您第一次检查 CreateDIBSection 时，可能会寻找该函式与 DIB 区块 
工作的方式。这是正确的， CreateDIBSection 所做的就是建立了 DIB 的一部分 
(点阵图图素位元的记忆体块）。 

现在我们看一下传回值，它是 GDI 点阵图物件的代号，这个传回值可能是 
该函式呼叫最会拐人的部分。传回值似乎暗示著 CreateDIBSection 在功能上与 
CreateDIBitmap 相同。事实上，它只是相似但完全不同。实际上，从 
CreateDIBSection 传回的点阵图代号与我们在本章和上一章遇到的所有点阵图 
建立函式传回的点阵图代号在本质上不同。 

一旦理解了 CreateDIBSection 的真实特性，您可能觉得奇怪为什么不把传 
回值定义得有所区别。您也可能得出结论： CreateDIBSection 应该称之为 
CreateDIBitmap , 并且如同我前面所指出的 CreateDIBitmap 应该称之为 
CreateDDBitmap 。 

首先让我们检查一下如何简化 CreateDIBSection ， 并正确地使用它。首先， 
把最後两个参数 hSection 和 dwOffset , 分别设定为 NULL 和0，我将在本章最 
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後讨论这些参数的用法。第二，仅在 fColorUse 参数设定为 DIB _ PAL _ C 0 L 0 RS 
时，才使用 hdc 参数，如果 fColorUse 为 DIB _ RGB _ C 0 L 0 RS (或 0) ， hdc 将被忽 
略（这与 CreateDIBitmap 不同， hdc 参数用於取得与 DDB 相容的设备的色彩格 
式）。 

因此， CreateDIBSection 最简单的形式仅需要第二和第四个参数。第二个 
参数是指向 BFTMAPINFO 结构的指标，我们以前曾使用过。我希望指向第四个参 
数的指标定义的指标不会使您困惑，它实际上很简单。 

假设要建立每图素24位元的 384 X 256 位元 DIB , 24位元格式不需要色彩 
对照表，因此它是最简单的，所以我们可以为 BITMAPINF 0 参数使用 
BITMAPINFOHEADER 结构。 

您需要定义三个变数： BITMAPINFOHEADER 结构、 BYTE 指标和点阵图 代号： 

BITMAPINFOHEADER bmih ; 

BYTE * pBits ; 


HBITMAP 

hBitmap ; 

现在初始化 BITMAPINFOHEADER 结构的 栏位： 

bmih->biSize 

=sizeof (BITMAPINFOHEADER); 

bmih->biWidth 

= 384 ; 

bmih->biHeight 

= 2 5 6 ; 

bmih->biPlanes 

=1 ; 

bmih->biBitCount 

= 24 ; 

bmih->biCompression 

=BI RGB ; 

bmih->biSizeImage 

= 0 ; 

bmih->biXPelsPerMeter 

= 0 ; 

bmih->biYPelsPerMeter 

= 0 ; 

bmih->biClrUsed 

=◦; 

bmih—>biClrImportant 

=◦; 


在基本准备後，我彳 I ] 呼叫该函式: 


hBitmap = CreateDIBSection (NULL, (BITMAPINFO *) &bmih, 0, &pBits, NULL, 0); 

注意，我们为第二个参数赋予 BITMAPINFOHEADER 结构的位址。这是常见的， 
但一个 BYIE 指标 pBits 的位址，就不常见了。这样，第四个参数是函式需要的 
指向指标的指标。 

这是函式呼叫所做的： CreateDIBSection 检查 BITMAPINFOHEADER 结构并配 
置足够的记忆体块来载入 DIB 图素位元。（在这个例子里，记忆体块的大小为 
384 X 256 X 3 位元组。）它在您提供的 pBits 参数中储存了指向此记忆体块的指 
标。函式传回点阵图代号，正如我说的，它与 CreateDIBitmap 和其他点阵图建 
立函式传回的代号不一样。 

然而，我们还没有做完，点阵图图素是未初始化的。如果正在读取 DIB 档 
案，可以简单地把 pBits 参数传递给 ReadFile 函式并读取它们。或者可以使用 
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一些程式码「人工」设定。 

程式 15-7 DIBSECT 除了呼叫 CreateDIBSection 而不是 CreateDIBitmap 之 
外，与 DIBC 0 NV 程式相似。 


程式 15-7 DIBSECT 


DIBSECT.C 
/* - 


DIBSECT.C 一一 Displays a DIB Section in the client area 

(c) Charles Petzold, 1998 



♦include <windows.h> 

♦include <commdlg.h> 

♦include "resource.h n 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


TCHAR szAppName[] = TEXT ( n DIBsect n ); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 



HWND 

MSG 

WNDCLASS 


hwnd ; 

msg 

wndclass 


wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc = WndProc ; 


wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 



=hlnstance ; 

=Loadlcon (NULL, 工 DI—APPLICATION); 
=LoadCursor (NULL, IDC ARROW); 


wndclass.hbrBackground = (HBRUSH) GetStockObject (WHITE BRUSH) 


wndclass.IpszMenuName = szAppName ; 


wndclass.IpszClassName = szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("This program requires Windows 


NT ! n ), 


return 0 ; 


szAppName, MB ICONERROR); 



hwnd = CreateWindow (szAppName, TEXT (’’DIB Section Display "), 

WS_OVERLAPPEDWINDOW a 
CW USEDEFAULT, CW USEDEFAULT, 
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CW—USEDEFAULT, CW—USEDEFAULT , 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 


return msg.wParam ; 

} 

HBITMAP CreateDIBsectionFromDibFile (PTSTR szFileName) 

{ 


BITMAPFILEHEADER bmfh ; 

BITMAPINFO * pbmi ; 


BYTE 

* pBits ; 


BOOL 

bSuccess ; 


DWORD 

dwInfoSize, dwBytesRead ; 


HANDLE 

hFile ; 


HBITMAP 

hBitmap ; 



// Open the file : read access, prohibit 

write access 

hFile = 

CreateFile (szFileName, GENERIC READ, FILE 

SHARE READ, 


NULL, OPEN_EXISTING, ◦, NULL); 
if (hFile == INVALID_HANDLE_VALUE) 

return NULL ; 

// Read in the BITMAPFILEHEADER 
bSuccess = ReadFile (hFile, &bmfh, sizeof (BITMAPFILEHEADER), 

&dwBytesRead, NULL); 

if (!bSuccess || (dwBytesRead != sizeof (BITMAPFILEHEADER)) 

|| (bmfh.bfType != * (WORD *) "BM")) 

{ 

CloseHandle (hFile); 
return NULL ; 



// Allocate memory for the BITMAPINFO structure & 


dwInfoSize = bmfh•bfOffBits — sizeof (BITMAPFILEHEADER); 


pbmi = malloc (dwInfoSize); 

bSuccess = ReadFile (hFile, pbmi, dwInfoSize, &dwBytesRead, NULL) 
if (!bSuccess || (dwBytesRead != dwInfoSize)) 

{ 


read 
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free (pbmi); 

CloseHandle (hFile); 




return NULL ; 



； 

// Create the DIB Section 



hBitmap = CreateDIBSection (NULL, pbmi, DIB RGB COLORS, &pBits, NULL, 0); 


if (hBitmap == NULL) 

f 



1 

free (pbmi) 

參 

f 



CloseHandle 

(hFile); 



return NULL 

} 

參 

r 




// Read in the bitmap bits 



ReadFile (hFile, pBits, bmfh.bfSize - bmfh.bfOffBits, &dwBytesRead, NULL); 


free (pbmi); 




CloseHandle (hFile); 


} 

return hBitmap ; 



LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam,LPARAM IParam) 

f 


static HBITMAP 

hBitmap ; 



static int 

cxClient, cyClient 

參 

f 


static OPENFILENAME ofn ; 



static TCHAR 

szFileName [MAX PATH], szTitleName [MAX PATH]; 


static TCHAR 

szFilter [ ] = TEXT ( "Bitmap Files ( * • BMP)\0 * • bmp\0 ’， ） 


TEXT ("All Files 

(*•*)\0*.*\0\0 n ); 



BITMAP 

bitmap ; 



HDC 

hdc , hdcMem ; 



PAINTSTRUCT 

ps ; 



switch (message) 

{ 

case WM CREATE : 

ofn.lStructSize = 

sizeof (OPENFILENAME); 



ofn.hwndOwner = hwnd 

參 

f 



ofn•hlnstance = 

NULL ; 



ofn.lpstrFilter = 

szFilter ; 



ofn.lpstrCustomFilter = NULL 

ofn.nMaxCustFilter = 0 ; 

參 



ofn • nFilterIndex = 

0 ; 



ofn.IpstrFile = 

szFileName ; 



ofn.nMaxFile = 

MAX PATH ; 



ofn.lpstrFileTitle = 

szTitleName ; 



ofn.nMaxFileTitle = 

MAX PATH ; 



ofn • lpstrlnitialDir = 

NULL ; 
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ofn.lpstrTitle 
ofn.Flags 
ofn.nFileOffset 
ofn.nFileExtension 
ofn.lpstrDefExt 
ofn.lCustData 
ofn.lpfnHook 
ofn.lpTemplateName 


=NULL ; 



=TEXT ("bmp") 

=◦; 

=NULL ; 

=NULL ; 


return 0 ; 


case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case IDM_FILE_OPEN: 

// Show the File Open dialog box 

if ( !GetOpenFileName ( &ofn)) 

return 0 ; 

// If there's an existing bitmap, delete it 

if (hBitmap) 

{ 

DeleteObj ect (hBitmap); 
hBitmap = NULL ; 

} 

// Create the DIB Section from the DIB file 


IDC WAIT)); 


SetCursor (LoadCursor (NULL, 

ShowCursor (TRUE); 


(szFileName) 


hBitmap = CreateDIBsectionFromDibFile 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC ARROW)); 


// Invalidate the client area for later update 


InvalidateRect (hwnd, NULL, TRUE); 
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if (hBitmap == NULL) 

{ 

MessageBox ( hwnd, TEXT ("Cannot load DIB file ”）， 

szAppName, MB_OK | MB_ICONEXCLAMATION); 

} 

return 0 ; 

} 

break ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

if (hBitmap) 

{ 

GetObject (hBitmap, sizeof (BITMAP), ^bitmap); 

hdcMem = CreateCompatibleDC (hdc); 
SelectObj ect (hdcMem, hBitmap); 

BitBlt ( hdc, ◦, ◦, bitmap.bmWidth, bitmap.bmHeight, 

hdcMem, ◦, ◦, SRCCOPY); 

DeleteDC (hdcMem); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

if (hBitmap) 

DeleteObj ect (hBitmap); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

DIBSECT.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

DIBSECT MENU DISCARDABLE 
BEGIN 

POPUP n &File" 


第 754 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

BEGIN 

MENUITEM ，， &Open n , IDM_FILE_OPEN 

END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by DIBsect.rc 

♦define IDM—FILE—OPEN 40001 

注意 DIBCONV 中的 CreateBitmapObjectFromDibFile 函式和 DIBSECT 中的 
CreateDIbsectionFromDibFile 函式之间的区别。 DIBCONV 读入整个档案，然後 
把指向 DIB 记忆体块的指标传递给 CreateDIBitmap 函式。 DIBSECT 首先读取 
BITMAPFILEHEADER 结构中的资讯，然後确定 BITMAPINF 0 结构的大小，为此配置 
记忆体，并在第二个 ReadFile 呼叫中将它读入记忆体。然後，函式把指向 
BITMAPINF 0 结构和指标变数 pBits 的指标传递给 CreateDIBSection 。 函式传回 
点阵图代号并设定 pBits 指向函式将要读取 DIB 图素位元的记忆体块。 

pBits 指向的记忆体块归系统所有。当通过呼叫 DeleteObject 删除点阵图 
时，记忆体会被自动释放。然而，程式能利用该指标直接改变 DIB 位元。当应 
用程式透过 API 传递大量记忆体块时，只要系统拥有这些记忆体块，在 WINDOWS 
NT 下就不会影响速度。 

我之前曾说过，当在视讯显示器上显示 DIB 时，某些时候必须进行从装置 
无关图素到设备相关图素的转换，有时这些格式转换可能相当费时。来看一看 
三种用於显示 DIB 的 方法： 

• 当使用 SetDIBitsToDevice 或 StretchDIBits 来把 DIB 直接显示在萤幕 
上，格式转换在 SetDIBitsToDevice 或 StretchDIBits 呼叫期间发生。 
• 当使用 CreateDIBitmap 和（可能是） SetDIBits 把 DIB 转换为 DDB ， 然 
後使用 BitBlt 或 StretchBlt 来显示它时，如果设定了 CBM _ INIT 旗标， 
格式转换在 CreateDIBitmap 或 SetDIBits 期间发生。 

• 当使用 CreateDIBSection 建立 DIB 区块，然後使用 BitBlt 或 StretchBlt 
显示它时，格式转换在 BitBlt 对 StretchBlt 的呼叫期间发生。 

再读一下上面这些叙述，确定您不会误解它的意思。这是从 
CreateDIBSection 传回的点阵图代号不同於我们所遇到的其他点阵图代号的一 
个地方。此点阵图代号实际上指向储存在记忆体中由系统维护但应用程式能存 
取的 DIB 。 在需要的时候， DIB 会转化为特定的色彩格式，通常是在用 BitBlt 
或 StretchBlt 显示点阵图时。 

您也可以将点阵图代号选入记忆体装置内容并使用 GDI 函式来绘制。在 
pBits 变数指向的 DIB 图素内将反映出结果。因为 Windows NT 下的 GDI 函式分 
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批呼叫，在记忆体设备背景上绘制之後和「人为」的存取位元之前会呼叫 
GdiFlusho 

在 DIBSECT ， 我们清除 pBits 变数，因为程式不再需要这个变数了。您会使 
用 CreateDIBSection 的主要原因在於您有需要直接更改位元值。在 
CreateDIBSection 呼叫之後似乎就没有别的方法来取得位元指标了。 

DIB 区块的其他区别 


从 CreateDIBitmap 传回的点阵图代号与函式的 hdc 参数引用的设备有相同 
的平面和图素位元组织。您能通过具有 BITMAP 结构的 GetObject 呼叫来检验这 
一点。 

CreateDIBSection 就不同了。如果以该函式传回的点阵图代号的 BITMAP 结 
构呼叫 GetObject , 您会发现点阵图具有的色彩组织与 BITMAPINFOHEADER 结构 
的栏位指出的色彩组织相同。您能将这个代号选入与视讯显示器相容的记忆体 
装置内容。这与上一章关於 DDB 的内容相矛盾，但这也就是我说此 DIB 区块点 
阵图代号不同的原因。 

另一个奇妙之 处是： 你可能还记得， DIB 中图素资料行的位元组长度始终是 
4的倍数。 GDI 点阵图物件中行的位元组长度，就是使用 GetObject 从 BITMAP 
结构的 bmWidthBytes 栏位中得到的长度，始终是2的倍数。如果用每图素24 
位元和宽度2图素设定 BITMAPINFOHEADER 结构并随後呼叫 GetObject , 您就会 
发现 bmWidthBytes 栏位是8而不是6。 

使用从 CreateDIBSection 传回的点阵图代号，也可以使用 DIBSECTION 结 
构呼叫 GetObject ： 

GetObject (hBitmap, sizeof (DIBSECTION), &dibsection); 

此函式不能处理其他点阵图建立函式传回的点阵图代号。 DIBSECTION 结构 
定义如下： 

typedef struct tagDIBSECTION // ds 
{ 

BITMAP dsBm ; // BITMAP structure 

BITMAPINFOHEADER dsBmih ; // DIB information header 

DWORD dsBitfields [3] ;// color masks 

HANDLE dshSection ; // file-mapping object 

handle 

DWORD dsOffset ; // offset to bitmap bits 

} 

DIBSECTION, * PDIBSECTION ; 

此结构包含 BITMAP 结构和 BITMAPINFOHEADER 结构。最後两个栏位是传递 
给 CreateDIBSection 的最後两个参数，等一下将会讨论它们。 
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DIBSECTION 结构中包含除了色彩对照表以外有关点阵图的许多内容。当把 
DIB 区块点阵图代号选入记忆体装置内容时，可以通过呼叫 GetDIBColorTable 
来得到色彩对 照表： 

hdcMem = CreateCompatibleDC (NULL); 

SelectObj ect (hdcMem, hBitmap); 

GetDIBColorTable (hdcMem, uFirstlndex, uNumEntries, &rgb); 

DeleteDC (hdcMem); 

同样，您可以通过呼叫 SetDIBColoiTable 来设定色彩对照表中的项目。 

档案映射选项 


我们还没有讨论 CreateDIBSection 的最後两个参数，它们是档案映射物件 
的代号和档案中点阵图位元开始的偏移量。档案映射物件使您能够像档案位於 
记忆体中一样处理档案。也就是说，可以通过使用记忆体指标来存取档案，但 
档案不需要整个载入记忆体中。 

在大型 DIB 的情况下，此技术对於减少记忆体需求是很有帮助的。 DIB 图素 
位元能够储存在磁片上，但仍然可以当作位於记忆体中一样进行存取，虽然会 
影响程式执行效能。问题是，当图素位元实际上储存在磁片上时，它们不可能 
是实际 DIB 档案的一部分。它们必须位於其他的档案内。 

为了展示这个程序，下面显示的函式除了不把图素位元读入记忆体以外， 
与 DIBSECT 中建立 DIB 区块的函式很相似。然而，它提供了档案映射物件和传 
递给 CreateDIBSection 函式的偏 移量： 


HBITMAP CreateDIBsectionMappingFromFile (PTSTR szFileName) 


{ 

BITMAPFILEHEADER 

BITMAPINFO 

BYTE 

BOOL 

DWORD 

HANDLE 

HBITMAP 


bmfh ; 

* pbmi ; 

* pBits ; 
bSuccess ; 

dwInfoSize, dwBytesRead ; 
hFile, hFileMap ; 
hBitmap ; 


hFile = CreateFile (szFileName, GENERIC_READ | GENERIC_WRITE, 

◦, // No sharing! 

NULL, OPEN EXISTING, 0, NULL); 


if (hFile == INVALID_HANDLE—VALUE) 

return NULL ; 

bSuccess = ReadFile ( hFile, &bmfh, sizeof (BITMAPFILEHEADER), 

&dwBytesRead, NULL); 

if (!bSuccess | | (dwBytesRead != sizeof (BITMAPFILEHEADER)) 
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|| (bmf h. bf Type != * (WORD *) n BM ’’）） 

{ 

CloseHandle (hFile); 
return NULL ; 

} 

dwInfoSize = bmfh•bfOffBits - sizeof (BITMAPFILEHEADER); 
pbmi = malloc (dwInfoSize); 

bSuccess = ReadFile (hFile, pbmi, dwInfoSize, &dwBytesRead, NULL); 

if ( !bSuccess | | (dwBytesRead != dwInfoSize)) 

{ 

free (pbmi); 

CloseHandle (hFile); 
return NULL ; 

} 

hFileMap = CreateFileMapping (hFile, NULL, PAGE_READWRITE, 0, 0, NULL); 
hBitmap = CreateDIBSection ( NULL, pbmi, DIB_RGB_COLORS, &pBits,hFileMap, 
bmfh•bfOffBits); 

free (pbmi); 
return hBitmap ; 

} 

啊哈！这个程式不会动。 CreateDIBSection 的文件指出 「dwOffset [函式 
的最後一个参数]必须是 DWORD 大小的倍数」。尽管资讯表头的大小始终是4的 
倍数并且色彩对照表的大小也始终是4的倍数，但点阵图档案表头却不是，它 
是14位元组。因此 bmfh . bfOffBits 永远不会是4的倍数。 

总结 

如果您有小型的 DIB 并且需要频繁地操作图素位元，您可以使用 
SetDIBitsToDevice 和 StretchDIBits 来显示它们。然而，对於大型的 DIB ， 此 

技术会遇到显示效能的问题，尤其在8位元视讯显示器上和 Windows NT 环境下。 

您可以使用 CreateDIBitmap 和 SetDIBits 把 DIB 转化为 DDB 。 现在，显示 
点阵图可以使用快速的 BitBlt 和 StretchBlt 函式来进行了。然而，您不能直 
接存取这些与装置无关的图素位元。 

CreateDIBSection 是一个很好的折衷方案。在 Windows NT 下通过 BitBlt 
和 StretchBlt 使用点阵图代号比使用 SetDIBitsToDevice 和 StretchDIBits (但 
没有 DDB 的缺陷）会得到更好的效能。您仍然可以存取 DIB 图素位元。 

下一章，在讨论 「 Windows 调色盘管理器」之後会进入点阵图的探索。 


第758页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


第十六章调色盘管理器 


如果硬体允许，本章就没有存在的必要。尽管许多现代的显示卡提供24位 
元颜色（也称 「true color 」 或「数百万色」）或16位元颜色 （ 「增强色」或 
「数万种颜色」），一些显示卡 一一 尤其是在携带型电脑上或高解析度模式中 

-每个图素只允许8位元。这意味著仅有256种颜色。 

我们用256种颜色能做什么呢？很明显，要显示真实世界的图像，仅16种 
颜色是不够的，至少要使用数千或数百万种颜色，256种颜色位於中间状态。是 
的，用256种颜色来显示真实世界的图像足够了，但需要根据特定的图像来指 
定这些颜色。这意味著作业系统不能简单地选择「标准」系列的256种颜色， 
就希望它们对每个应用程式都是理想的颜色。 

这就是 Windows 调色盘管理器所要涉及的全部内容。它用於指定程式在8 
位元显示模式下执行时所需要的颜色。如果知道程式肯定不会在8位元显示模 
式下执行，那么您也不需要使用调色盘管理器。不过，由於补充了点阵图的一 
些细节，所以本章还是包含重要资讯的。 

使用调色盘 

传统上讲，调色盘是画家用来混合颜色的板子。这个词也可以指画家在绘 
画过程中使用的所有颜色。在电脑图形中，调色盘是在图形输出设备（例如视 
讯显示器）上可用的颜色范围。这个名词也可以指支援256色模式的显示卡上 
的对照表。 

视频硬体 


显示卡上的调色盘对照表运作过程如下图所示: 


8-Bit 

Pixel 


Pallet 

Lookup 

Table 


6-8 Bit 


Bit 


6-8 Bits 


DAC 


DAC 


DAC 


Red 


Blue 


Green 


在 8 位元显示模式中，每个图素占8位元。图素值查询包含 256 RGB 值的对 
照表的位址。这些 RGB 值可以正好24位元宽，或者小一点，通常是18位元宽 
(即主要的红、绿和蓝各6位元）。每种颜色的值都输入到数位类比转换器， 
以得到发送给监视器的红、绿和蓝三个类比信号。 
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通常，软体可以用任意值来载入调色盘对照表，但这对装置无关的视窗介 
面，例如 Microsoft Windows ， 会有一些干扰。首先， Windows 必须提供软体介 
面，以便在不直接干扰硬体的情况下，应用程式就可以存取调色盘管理器。第 
二个问题更严重：因为所有的应用程式都共用同一个视讯显示器，而且同时执 
行，所以一个应用程式使用了调色盘对照表可能会影响其他程式的使用。 

这时就需要使用 Windows 调色盘管理器(在 Windows 3. 0 中提出）了 oWindows 
保留了 256 种颜色中的 20 种，而允许应用程式修改其余的 236 种。（在某些情 
况下，应用程式最多可以改变 256 种颜色中的 254 种——只有黑色和白色除外 
但这有一 '点麻 烦）。 Windows 为系统保留的 20 种颜色（有时称为 20 种「静 
态」颜色）如表 16-1 所示。 

表 16-1 256 种颜色显示模式中的 20 种保留的颜色 


图素位元 

RGB 值 

颜色名称 

图素位元 

RGB 值 

颜色名称 

00000000 

00 00 00 

里 

11111111 

FF FF FF 


00000001 

80 00 00 

暗红 

11111110 

00 FF FF 

青 

00000010 

00 80 00 

暗绿 

11111101 

FF 00 FF 

洋红 

00000011 

80 80 00 

暗黄 

11111100 

00 00 FF 

蓝 

00000100 

00 00 80 

暗蓝 

11111011 

FF FF 00 

黄 

00000101 

80 00 80 

暗洋红 

11111010 

00 FF 00 

绿 

00000110 

00 80 80 

暗青 

11111001 

FF 00 00 

红 

00000111 

CO CO C0 

亮灰 

11111000 

80 80 80 

暗灰 

00001000 

CO DC C0 

美元绿 

11110111 

A0 A0 A4 

中性灰 

00001001 

A6 CA F0 

天蓝 

11110110 

FF FB F0 

乳白色 


在256种颜色显示模式下执行时，由 Windows 维护系统调色盘，此调色盘 
与显示卡上的硬体调色盘对照表相同。内定的系统调色盘如表 16-1 所示。应用 
程式可以通过指定「逻辑调色盘 (logical palettes ) 」来修改其余236种颜 
色。如果有多个应用程式使用逻辑调色盘，那么 Windows 就给活动视窗最高优 
先权（我们知道，活动视窗有高亮显示标题列，并且显示在其他所有视窗的前 
面）。我们将用一些简单的范例程式来检查它是如何工作的。 

要执行本章其他部分的程式，您可能需要将显示卡切换成256色模式。在 
桌面上单擎滑鼠右键，从功能表中选择「属性」，然後选择「设定」页面标签。 


显示灰阶 


程式 16-1 所示的 GRAYS 1程式没有使用 Windows 调色盘管理器，而尝试用 
正常显示的65级种阶作为从黑到白的多种彩色的「来源」。 
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程式 16-1 GRAYS 1 


GRAYSl.C 
/* - 


GRAYS1.C 一一 Gray Shades 


(c) Charles Petzold, 1998 



♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


static TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName[] = TEXT ("Graysl"); 

hwnd ; 

msg ; 

wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
IDI—APPLICATION); 

wndclass.hCursor 
wndclass.hbrBackground 
(WHITE_BRUSH); 

wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 
=WndProc ; 



= hlnstance ; 

= Loadlcon (NULL r 

= LoadCursor (NULL, IDC—ARROW); 

(HBRUSH) GetStockObject 

NULL ; 
szAppName ; 


if (!RegisterClass (&wndclass)) 


MessageBox ( 


Windows NT!"), 


NULL, TEXT ("This program requires 


szAppName, MB 工 CONERROR) 


return 


hwnd = CreateWindow ( szAppName, TEXT ("Shades of Gray #1 "), 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW—USEDEFAULT, 
CW_USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 
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while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static int cxClient, cyClient ; 


HBRUSH 

hBrush ; 

HDC 

hdc ; 

int 

i ； 

PAINTSTRUCT 

ps ; 

RECT 

rect ; 


switch (message) 


case WM SIZE: 



cxClient = 

LOWORD 

(IParam) 

cyClient = 

HIWORD 

(IParam) 

return 0 ; 




case WM PAINT: 


hdc = BeginPaint (hwnd, &ps); 


// Draw the fountain of grays 


/ 65 ; 


cxClient / 65 ; 


for (i = 0 ; i < 65 ; i++) 

{ 

rect.left = i * cxClient 


rect.top 
rect.right 

rect.bottom 


=(i + 1) * 

=cyClient ; 


hBrush = CreateSolidBrush (RGB(min (255, 4 * i). 


min (255, 4 * i), 
min (255, 4 * i))); 
FillRect (hdc, &rect, hBrush); 
DeleteObj ect (hBrush); 

} 

EndPaint (hwnd, &ps); 
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return 0 ; 


case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

在 WM _ PAINT 讯息处理期间，程式呼叫了 65 次 FillRect 函式，每次都使用 
不同灰阶建立的画刷。灰阶值是 RGB 值（0, 0, 0) 、（4, 4, 4) 、（8, 8, 8) 等等， 
直到最後一个值 （255,255,255) 。最後一个值来自 CreateSolidBrush 函式中 
的 min 巨集。 

如果在256色显示模式下执行该程式，您将看到从黑到白的65种灰阶，而 
且它们几乎都用混色著色。纯颜色只有黑色、暗灰色 （128,128,128) 、亮灰色 
(192, 192, 192) 和白色。其他颜色是混合了这些纯颜色的多位元模式。如果我 
们在显示行或文字，而不是用这65种灰阶填充区域， Windows 将不使用混色而 
只使用这四种纯色。如果我们正在显示点阵图，则图像将用20种标准 Windows 
颜色近似。这时正如同您在执行最後一章中的程式的同时又载入了彩色或灰阶 
DIB 所见到的一样。通常， Windows 在点阵图中不使用混色。 

程式 16-2 所示的 GRAYS 2 程式用较少的外部程式码验证了调色盘管理器中 
最重要的函式和讯息。 


程式 16-2 GRAYS2 


GRAYS2.C 






/* - 






GRAYS2.C -- Gray Shades 

Using 

Palette Manager 






(c) Charles 

Petzold, 1998 


-v 

♦include <windows.h> 






LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, 

LPARAM); 



int WINAPI WinMain (HINSTANCE hlnstance, 

HINSTANCE hPrevInstance, 





PSTR 

szCmdLine, 

int 

iCmdShow) 






\ 

static TCHAR szAppName[] 

=TEXT 

("Grays2"); 



HWND 

hwnd ; 





MSG msg ; 






WNDCLASS 

wndclass ; 




wndclass.style 

— 

: cs — 

HREDRAW | CS_ 

VREDRAW ; 


wndclass.lpfnWndProc 

— 

: WndProc ; 




第 763 页 









Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 



wndclass . cbClsExtra 

=◦; 



wndclass . cbWndExtra 

= 0 ; 



wndclass.hlnstance 

=hlnstance ; 



wndclass • hicon 

=Loadlcon (NULL, IDI APPLICATION); 


wndclass . hCursor 

=LoadCursor (NULL, 

IDC ARROW); 


wndclass . hbrBackground 

=(HBRUSH) GetStockObject 

(WHITE BRUSH); 


wndclass . IpszMenuName 

=NULL ; 



wndclass . IpszClassName 

=s zAppName ; 



if ( ! RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This 

program requires 

Windows NT ! ▼▼) , 





szAppName, MB 工 CONERROR) 

參 

f 


return 0 ; 

} 




hwnd = CreateWindow ( 

szAppName, TEXT ("Shades of Gray #2") , 



WS OVERLAPPEDWINDOW, 

CW USEDEFAULT, CW USEDEFAULT, 

CW USEDEFAULT, CW USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 



ShowWindow (hwnd, iCmdShow); 



UpdateWindow (hwnd); 




while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 


} 

J 

return msg . wParam ; 



LRESULT CALLBACK WndProc ( 

HWND hwnd, UINT message , WPARAM wParam,LPARAM 

IParam) 

f 




static HPALETTE 

hPalette ; 



static int 

cxClient, cyClient ; 



HBRUSH 

hBrush ; 



HDC 

hdc ; 



int 

■ 

i ； 



LOGPALETTE 

* pip ； 



PAINTSTRUCT 

ps ; 



RECT 

rect ; 



switch (message) 

{ 

case WM CREATE : 
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a palette 


(PALETTEENTRY)) ; 



// Set up a LOGPALETTE structure and create 


pip 


malloc (sizeof (LOGPALETTE) + 64 * sizeof 


plp->palVersion = 0x0300 ; 
pip->palNumEntries = 65 

for (i = 0 ; i < 65 ; i++) 

plp->palPalEntry[i].peRed 
pip—>palPalEntry[i].peGreen 
plp->palPalEntry[i].peBlue 
plp->palPalEntry[i].peFlags 


=(BYTE) 

min 

(255, 

4 

* i) 

=(BYTE) 

min 

(255, 

4 

* i) 

=(BYTE) 

- n • 

min 

(255, 

4 

* i) 


hPalette = CreatePalette (pip); 
free (pip); 
return 0 ; 


case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 


context 


// Select and realize the palette in the device 


SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 


/ 64 ; 


// Draw the fountain of grays 

for (i = 0 ; i < 65 ; i++) 

{ 

rect. left = i * cxClient / 64 ; 


rect.top 
rect.right 

rect.bottom 


=(i + 1) * cxClient 
=cyClient ; 


(255, 4 * i). 


hBrush = CreatesolidBrush (PALETTERGB( min 

min (255, 4 * i), 

min (255, 4 * i))); 

FillRect (hdc, &rect, hBrush); 
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DeleteObj ect (hBrush) ; 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—QUERYNEWPALETTE: 

if ( !hPalette) 

return FALSE ; 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

工 nvalidateRect (hwnd, NULL, TRUE); 

ReleaseDC (hwnd, hdc); 
return TRUE ; 

case WM_PALETTECHANGED : 

if ( !hPalette | | (HWND) wParam == hwnd) 

break ; 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

UpdateColors (hdc); 

ReleaseDC (hwnd, hdc); 
break ; 

case WM—DESTROY: 

DeleteObj ect (hPalette); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

通常，使用调色盘管理器的第一步就是呼叫 CreatePalette 函式来建立逻 
辑调色盘。逻辑调色盘包含程式所需要的全部颜色——即 236 种颜色。 GRAYS 1 
程式在 WM_CREATE 讯息处理期间处理此作业。它初始化 L0GPALETTE ( 「logical 
palette ： 逻辑调色盘」 ） 结构的栏位，并将这个结构的指标传递给 CreatePalette 
函式。 CreatePalette 传回逻辑调色盘的代号，并将此代号储存在静态变数 
hPalette 中。 

L0GPALETTE 结构定义 如下： 

typedef struct 
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WORD palVersion ; 

WORD palNumEntries ; 

PALETTEENTRY palPalEntry[1]; 

} 

LOGPALETTE, * PLOGPALETTE ; 

第一个栏位通常设为 0 x 0300， 表示相容 Windows 3.0。第二个栏位设定为 
调色盘表中的项目数。 L 0 GPALETTE 结构中的第三个栏位是一个 PALETTEENTRY 结 
构的阵列，此结构也是一个调色盘项目。 PALETTEENTRY 结构定义 如下： 

typedef struct 
{ 

BYTE peRed ; 

BYTE peGreen ; 

BYTE peBlue ; 

BYTE peFlags ; 

} 

PALETTEENTRY, * PPALETTEENTRY ; 

每个 PALETTEENTRY 结构都定义了一个我们要在调色盘中使用的 RGB 颜色 
值。 

注意， L 0 GPALETTE 中只能定义一个 PALETTEENTRY 结构的阵列。您需要为 
L 0 GPALETTE 结构和附加的 PALETTEENTRY 结构配置足够大的记忆体空间。 GRAYS 2 
需要65种灰阶，因此它为 L 0 GPALETTE 结构和64个附加的 PALETTEENTRY 结构 
配置了足够大的记忆体空间。 GRAYS 2 将 palNumEntries 栏位设定为65,然後从 
0到64回圈，计算灰阶等级（一般是回圈索引的4倍，但不超过 255) ，将结 
构中的 peRed 、 peGreen 和 peBlue 栏位设定为此灰阶等级。 peFlags 栏位设为0。 
程式将指向这个记忆体块的指标传递给 CreatePalette , 在一个静态变数中储存 
该调色盘代号，然後释放记忆体。 

逻辑调色盘是 GDI 物件。程式应该删除它们建立的所有逻辑调色盘 。 WndProc 
透过在 WM _ DESTR 0 Y 讯息处理期间呼叫 DeleteObject ， 仔细地删除了逻辑调色盘。 

注意逻辑调色盘是独立的装置内容。在真正使用之前，必须确保将其选进 
装置内容。在 WM _ PAINT 讯息处理期间， SelectPalette 将逻辑调色盘选进装置 
内容。除了含有第三个参数以外，此函式与 SelectObject 函式相似。通常，第 
三个参数设为 FALSEo 如果 SelectPalette 的第三个参数设为 TRUE ， 那么调色 
盘将始终是「背景调色盘」，这意味著当其他所有程式都显现了各自的调色盘 
之後，该调色盘才可以获得仍位於系统调色盘中的一个未使用项目。 

在任何时候都只有一个逻辑调色盘能选进装置内容。函式将传回前一个选 
进装置内容的逻辑调色盘代号。如果您希望将此逻辑调色盘重新选进装置内容， 
则可以储存此代号。 

通过将颜色映射到系统调色盘， RealizePalette 函式使 Windows 在装置内 
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容中「显现」逻辑调色盘，而系统调色盘是与显示卡实际的实际调色盘相对应。 
实际工作在此函式呼叫期间进行。 Windows 必须决定呼叫函式的视窗是活动的还 
是非活动的，并尽可能将系统调色盘已改变通知给其他视窗（我们将简要说明 
一下通知的程序）。 

回忆一下 GRAYS 1，它用 RGB 巨集来指定纯色画刷的颜色。 RGB 巨集建构一 
个32位元长整数（记作⑶ L 0 RREF 值），其中高位元组是0, 3个低位元组是红、 
绿和蓝的亮度。 

使用 Windows 调色盘管理器的程式可以继续使用 RGB 颜色值来指定颜色。 
不过，这些 RGB 颜色值将不能存取逻辑调色盘中的附加颜色。它们的作用与没 
有使用调色盘管理器相同。要在逻辑调色盘中使用附加的颜色，就要用到 
PALETTERGB 巨集。除了⑶ L 0 RREF 值的高位元组设为2而不是0以外，「调色盘 
RGB 」 颜色与 RGB 颜色很相似。 

下面是重要的规则： 

• 为了使用逻辑调色盘中的颜色，请用调色盘 RGB 值或调色盘索引来指定 
(我将简要讨论调色盘索引）。不要使用常规的 RGB 值。如果使用了常 
规的 RGB 值，您将得到一种标准颜色，而不是逻辑调色盘中的颜色。 

• 没有将调色盘选进装置内容时，不要使用调色盘 RGB 值或调色盘索引。 
• 尽管可以使用调色盘 RGB 值来指定逻辑调色盘中没有的颜色，但您还是 
要从逻辑调色盘获得颜色。 

例如，在 GRAYS 2 中处理 WM _ PAINT 期间，当您选择并显现了逻辑调色盘之 
後，如果试图显示红色，则将显示灰阶。您必须用 RGB 颜色值来选择不在逻辑 
调色盘中的颜色。 

注意， GRAYS 2 从不检查视讯显示驱动程式是否支援调色盘管理程式。在不 
支援调色盘管理程式的显示模式（即所有非256种颜色的显示模式）下执行 
GRAYS 2 时， GRAYS 2 的功能与 GRASY 1 相同。 

调色盘资讯 

如果程式在逻辑调色盘中指定一种颜色，该颜色又是20种保留颜色之一， 
那么 Windows 将把逻辑调色盘项目映射给该颜色。另外，如果两个或多个应用 
程式都在它们的逻辑调色盘中指定了同一种颜色，那么这些应用程式将共用系 
统调色盘项目。程式可以通过将 PALETTEENTRY 结构的 peFlags 栏位指定为常数 
PC _ N 0 C 0 LLAPSE 来忽略该内定状态（其余两个可能的标记是 PC_EXPLICIT (用於 
显示系统调色盘）和 PC _ RESERVm ) (用於调色盘动画），我将在本章的後面展示 
这两个标记）。 
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要帮助组织系统调色盘， Windows 调色盘管理器含有两个发送给主视窗的讯 
息。 

第一个是 QM _ QUERYNEWPALETTE 。 当主视窗活动时，该讯息发送给主视窗。 
如果程式在您的视窗上绘画时使用了调色盘管理器，则它必须处理该讯息。 
GRAYS 2 展示具体的作法。程式获得装置内容代号，并选进调色盘，呼叫 
RealizePalette , 然後使视窗失效以产生 WM _ PAINT 讯息。如果显现了逻辑调色 
盘，则视窗讯息处理程式从该讯息传回 TRUE ， 否则传回 FALSE 。 

当系统调色盘改成与 WM _ QUERYNEWPALETTE 讯息的结果相同时， Windows 将 
WM _ PALETTECHANGED 讯息发送给由目前活动的视窗来启动并终止处理视窗链的 
所有主视窗。这允许前台视窗有优先权。传递给视窗讯息处理程式的 wParam 值 
是活动视窗的代号。只有当 wParam 不等於程式的视窗代号时，使用调色盘管理 
器的程式才会处理该讯息。 

通常，在处理 WM _ PALETTECHANGm ) 时，使用自订调色盘的任何程式都呼叫 
SelectPalette 和 RealizePalette 。後续的视窗在讯息处理期间呼叫 
RealizePalette 时， Windows 首先检查逻辑调色盘中的 RGB 颜色是否与已载入 
到系统调色盘中的 RGB 颜色相匹配。如果两个程式需要相同的颜色，那么这两 
个程式就共同使用一个系统调色盘项目。接下来， Windows 检查未使用的系统调 
色盘项目。如果都已使用，则逻辑调色盘中的颜色从20种保留项目映射到最近 
的颜色。 

如果不关心程式非活动时显示区域的外观，那么您不必处理 
WM _ PALETTECHANGED 讯息。否则，您有两个选择。 GRAYS 2显示其中 之一： 在处 
理 WM _ QUERYNEWPALETTE 讯息时，它获得装置内容，选进调色盘，然後呼叫 
RealizePalette 。 这时就可以在处理 WM _ QUERYNEWPALETTE 时呼叫 
InvalidateRect 了。相反地， GRAYS 2 呼叫 UpdateColors 。 这个函式通常比重新 

绘制视窗更有效，同时它改变视窗中图素的值来帮助保护以前的颜色。 

使用调色盘管理器的许多程式都将让 WM _ QUERYNEWPALETTE 和 
WM _ PALETTECHANGED 讯息用 GRAYS 2 所显示的方法来处理。 

调色盘索引方法 

程式 16-3 所示的 GRAYS 3 程式与 GRAYS 2 非常相似，只是在处理 WM_PAINT 
期间使用了呼叫 PALETTEINDEX 的巨集，而不是 PALETTERGB 。 

程式 16-3 GRAYS3 

GRAYS3.C 

/* - 
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GRAYS 3 .C -- Gray Shades Using Palette Manager 

(c) Charles Petzold, 1998 

-*/ 

♦include <windows.h> 



LRESULT CALLBACK WndProc (HWND, 

UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance 

,HINSTANCE hPrevInstance, 



PSTR szCmdLine, int 

iCmdShow) 

! 



X 

static TCHAR szAppName[] 

=TEXT ("Grays3 n ); 

HWND 


hwnd ; 

MSG 

msg ; 


WNDCLASS 


wndclass ; 

wndclass.style 


=CS HREDRAW | CS VREDRAW ; 

wndclass.lpfnWndProc 


=WndProc ; 

wndclass.cbClsExtra 


=◦; 

wndclass.cbWndExtra 


=◦; 

wndclass.hlnstance 


=hlnstance ; 

wndclass•hicon 


=Loadlcon (NULL, IDI APPLICATION); 

wndclass.hCursor 


=LoadCursor (NULL, 工 DC ARROW); 

wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 

wndclass.IpszMenuName 

=NULL ; 

wndclass.IpszClassName 

=szAppName ; 

if (!RegisterClass (&wndclass)) 

； 


MessageBox ( 

NULL, TEXT ("This program requires 

Windows NT 丨 ， ’）， 





szAppName, MB 工 CONERROR); 

return 0 ; 

} 



hwnd = CreateWindow ( szAppName, 

TEXT ("Shades of Gray #3 n ), 

WS_ 

OVERLAPPEDWINDOW, 

CW 

USEDEFAULT, CW USEDEFAULT, 

CW 

USEDEFAULT, CW USEDEFAULT, 

NULL, NULL, 

hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 


UpdateWindow (hwnd); 



while (GetMessage (&msg ,.. 

； 

NULL, 0, 

0)) 

i 

TranslateMessage 

(&msg); 

DispatchMessage 

} 

(&msg); 
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return msg.wParam ; 


LRESULT CALLBACK WndProc ( 
IParam) 

{ 

static HPALETTE 

static int 

HBRUSH 

HDC 

int 

LOGPALETTE 

PAINTSTRUCT 

RECT 

switch (message) 

{ 

case WM—CREATE: 

// 


HWND hwnd, UINT message, WPARAM wParam,LPARAM 


hPalette ; 

cxClient, cyClient ; 

hBrush ; 

hdc ; 

■ 

i ； 

* pip ； 

ps ; 
rect ; 


Set up a LOGPALETTE structure and create a palette 


pip = malloc (sizeof (LOGPALETTE) + 64 * sizeof (PALETTEENTRY)); 


plp->palVersion = 0x0300 ; 

pip->palNumEntries = 65 ; 

for (i = 0 ; i < 65 ; i++) 

{ 

plp->palPalEntry [i] .peRed = (BYTE) min (255, 4 * i); 

plp->palPalEntry [i] .peGreen = (BYTE) min (255, 4 * i); 

plp->palPalEntry [i] .peBlue = (BYTE) min (255, 4 * i); 

plp->palPalEntry[i].peFlags = 0 ; 

} 

hPalette = CreatePalette (pip); 
free (pip); 
return 0 ; 


case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 


case WM_PAINT : 

hdc = BeginPaint (hwnd, &ps); 

// Select and realize the palette in the device context 


SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 
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// Draw the fountain of grays 

for (i = 0 ; i < 65 ; i++) 

{ 

rect.left = i * cxClient / 64 ; 

rect. top = 0 ; 

rect.right = (i + 1) * cxClient / 64 ; 

rect.bottom = cyClient ; 

hBrush = CreateSolidBrush (PALETTEINDEX (i)); 

FillRect (hdc, &rect, hBrush); 

DeleteObj ect (hBrush); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—QUERYNEWPALETTE: 

if ( !hPalette) 

return FALSE ; 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

InvalidateRect (hwnd, NULL, FALSE); 

ReleaseDC (hwnd, hdc); 
return TRUE ; 

case WM_PALETTECHANGED : 

if ( !hPalette | | (HWND) wParam == hwnd) 

break ; 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

UpdateColors (hdc); 

ReleaseDC (hwnd, hdc); 
break ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 
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「调色盘」索引的颜色不同於调色盘 RGB 颜色，其高位元组是1，而低位元 
组的值是目前在装置内容中选择的、逻辑调色盘中的索引。在 GRAYS 3 中，逻辑 
调色盘有65个项目，用於这些项目的索引从0到64。值 
PALETTEINDEX (0) 

指黑色， 

PALETTEINDEX (32) 

指灰色，而 
PALETTEINDEX (64) 

指白色。 

因为 Windows 不需要执行最近颜色的搜索，所以使用调色盘索引比使用 RGB 
值更有效。 

查询调色盘支援 

您可以容易地验证：当 Windows 在16位元或24位元显示模式下执行时， 
GRAYS 2 和 GRAYS 3 程式执行良好。但是在某些情况下，要使用调色盘管理器的 
Windows 应用程式可能要先确定装置驱动程式是否支援它。这时，您可以呼叫 
GetDeviceCaps ， 并以视讯显示的装置内容代号和 PASTERCAPS 作为参数。函式 
将传回由一系列旗标组成的整数。通过在传回值和常数 RC _ PALETTE 之间执行位 
元操作来检验支援的调 色盘： 

RC_PALETTE & GetDeviceCaps (hdc, RASTERCAPS) 

_ 如果此值非零，则视讯显示器装置驱动程式将支援调色盘操作。在这种情 
况之下，来自 GetDeviceCaps 的其他三个重要项目也是可用的。函式呼叫 

GetDeviceCaps (hdc, SIZEPALETTE) 

将传回在显示卡上调色盘表的总尺寸。这与同时显示的颜色总数相同。因 
为调色盘管理器只用於每图素8位元的视讯显示模式，所以此值将是256。 

函式呼叫 

GetDeviceCaps (hdc, NUMRESERVED) 

传回在调色盘表中的颜色数，该表是装置驱动程式为系统保留的，此值是 
20。不呼叫调色盘管理器，这些只是 Windows 应用程式在256色显示模式下使 
用的纯色。要使用其余的236种颜色，程式必须使用调色盘管理器函式。 

一 个附加项目也可用： 

GetDeviceCaps (hdc, COLORRES) 

此值告诉您载入到硬体调色盘表的 RGB 颜色值解析度（以位元计）。这些 
是进入数位类比转换器的位元。某些视讯显示卡只使用6位元 ADC ， 所以该值是 
18。其余使用8位元的 ADC ， 所以值是24。 
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Windows 程式注意颜色解析度并因此采取一些动作是很有用的。例如，如果 
该颜色解析度是18,那么程式将不可能要求到128种灰阶，因为只有64个离散 
的灰阶可用。要求到128种灰阶就不必用多余的项目来填充硬体调色盘表。 

系统调色盘 

我在前面提过， Windows 系统调色盘直接与显示卡上的硬体调色盘查询表相 
符（然而，硬体调色盘查询表可能比系统调色盘的颜色解析度低）。程式可以 
通过呼叫下面的函式来获得系统调色盘中的某些或全部的 RGB 项目： 

GetSystemPaletteEntries (hdc, uStart, uNum, &pe); 

只有显示卡模式支援调色盘操作时，该函式才能执行。第二个和第三个参 
数是无正负号整数，显示第一个调色盘项目的索引和调色盘项目数。最後一个 
参数是指向 PALETTEENTRY 型态的指标。 

您可以在几种情况下使用该函式。程式可以定义 PALETTEENTRY 结构 如下： 

PALETTEENTRY pe ; 

然後可按下面的方法多次呼叫 GetSystemPaletteEntries ： 

GetSystemPaletteEntries (hdc, i, 1, &pe); 

其中的 i 从 0 到某个值，该值小於从 GetDeviceCaps (带有 SIZEPALETTE 索 
引 255) 传回的值。或者，程式要获得所有的系统调色盘项目，可以通过定义指 
向 PALETTEENTRY 结构的指标，然後重新配置足够的记忆体块，以储存与调色盘 
大小指定同样多的 PALETTEENTRY 结构。 

GetSystemPaletteEntries 函式确实允许您检验硬体调色盘表。系统调色盘 
中的项目按图素值增加的顺序排列，这些值用於表示视讯显示缓冲区中的颜色。 
我将简单地讨论一下具体作法。 

其他调色盘函式 

我们在前面看过， Windows 程式能够改变系统调色盘，但只是间接改 变：第 
一步建立逻辑调色盘，它基本上是程式要使用的 RGB 颜色值阵列。 CreatePalette 
函式不会导致系统调色盘或者显示卡调色盘表的任何变化。逻辑调色盘必须在 
任何事情发生之前就选进装置内容并显现。 

程式可以通过呼叫 

GetPaletteEntries (hPalette , uStart, uNum, &pe); 

来查询逻辑调色盘中的 RGB 颜色值。您可以按使用 
GetSystemPaletteEntries 的方法来使用此函式。但是要注意，第一个参数是逻 
辑调色盘的代号，而不是装置内容的代号。 

建立逻辑调色盘以後，让您改变其中的值的相应函 式是： 
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SetPaletteEntries (hPalette, uStart, uNum, &pe); 

另外，记住呼叫此函式不引起系统调色盘的任何变化-即使目前调色盘 

选进了装置内容。此函式也不改变逻辑调色盘的尺寸。要改变逻辑调色盘的尺 
寸，请使用 ResizePalette 。 

下面的函式接受 RGB 颜色引用值作为最後的参数，并将索引传回给逻辑调 
色盘，该逻辑调色盘与和它最接近的 RGB 颜色值相 对应： 

ilndex = GetNearestPalettelndex (hPalette, cr); 

第二个参数是 COLORREF 值。如果希望的话，呼叫 GetPaletteEntries 就可 
以获得逻辑调色盘中实际的 RGB 颜色值。 

如果程式在8位元显示模式下需要多於236种自订颜色，则可以呼叫 
GetSystemPaletteUse 。 这允许程式设定254种自订 颜色； 系统仅保留黑色和白 
色。不过，程式仅在最大化充满全萤幕时才允许这样，而且它还将一些系统颜 
色设为黑色和白色，以便标题列和功能表等仍然可见。 


位元映射操作问题 


从第五章可以了解到， GDI 允许使用不同的「绘画模式」或「位元映射操作」 
来画线并填充区域。用 SetR 0 P 2 设定绘画模式，其中的「2」表示两个物件之间 
的二元 ( binary ) 位元映射操作。三元位元映射操作用於处理 BitBlt 和类似功 
能。这些位元映射操作决定了正在画的物件图素与表面图素的结合方式。例如， 
您可以画一条直线，以便线上的图素与显示的图素按位元异或的方式相结合。 

位元映射操作就是在图素位元上照著各个位元的顺序进行操作。改变调色 
盘会影响到这些位元映射操作。位元映射操作的操作物件是图素位元，而这些 
图素位元可能与实际颜色没有关联。 

透过执行 GRAYS 2 或 GRAYS 3 程式，您自己就可以得出这个结论。调整尺寸 
时，拖动顶部或底部的边界穿过视窗， Windows 利用反转背景图素位元的位元映 
射操作来显示拖动尺寸的边界，其目的是使拖动尺寸边界总是可见的。但在 
GRAYS 2 和 GRAYS 3 程式中，您将看到各种随机变换的颜色，这些颜色恰好与对应 
於调色盘表中未使用的项目，那是反转显示图素位元的结果。可视颜色没有反 
转-只有图素位元反转了。 

正如您在表 16-1 中所看到的一样，20种标准保留颜色位於系统调色盘的顶 
部和底部，以便位元映射操作的结果仍然正常。然而， 一 旦您开始修改调色盘 
一一 尤其是替换了保留颜色 一一 那么颜色物件的位元映射操作就变得没有意义 
了。 

唯一保证的是位元映射操作将用黑色和白色运作。黑色是系统调色盘中的 
第一个项目（所有的图素位元都设为 0) ，而白色是最後的项目（所有的图素位 
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元都设为 1) 。这两个项目不能改变。如果需要预知在颜色物件上进行位元映射 
操作的结果，则可以先获得系统调色盘表，然後查看不同图素位元值的 RGB 颜 
色值。 

查看系统调色盘 

在 Windows 下执行的程式将处理逻辑调色盘，为使逻辑调色盘更好地服务 
於所有使用逻辑调色盘的程式， Windows 将在系统调色盘中设定颜色。该系统调 
色盘复制了显示卡的硬体对照表内容。这样，查看系统调色盘有助於调适调色 
盘应用程式。 

因为对於这个问题有三种截然不同的处理方式，所以我将向您展示三个程 
式，以显示系统调色盘的内容。 

SYSPAL 1 程式，如程式 16-4 所示，使用了前面所讲的 


GetSystemPaletteEntries 函式。 

程式 16-4 SYSPAL1 


SYSPAL1.C 

/* - 

SYSPAL1.C -- Displays 

system palette 

(c) Charles Petzold, 1998 

-V 

♦include <windows.h> 




LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


TCHAR szAppName [] = TEXT 

("SysPall"); 



int WINAPI WinMain (HINSTANCE hlnstance, 

HINSTANCE hPrevInstance, 



PSTR 

szCmdLine, int 

iCmdShow) 

/ 




i 

HWND 

hwnd ; 



MSG 

msg ; 



WNDCLASS 

wndclass ; 



wndclass.style 


=CS HREDRAW | CS_ 

VREDRAW ; 

wndclass.lpfnWndProc 


=WndProc ; 


wndclass.cbClsExtra 


=◦; 


wndclass.cbWndExtra 


=◦; 


wndclass.hinstance 


=hlnstance ; 


wndclass.hicon 


=Loadlcon (NULL, 

IDI APPLICATION); 

wndclass.hCursor 


=LoadCursor (NULL, 工 DC—ARROW); 
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wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=NULL ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows 


NT! n ), 


return 0 ; 


szAppName, MB ICONERROR); 



hwnd = CreateWindow ( szAppName, TEXT ("System Palette #1"), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


if ( !hwnd) 

return 0 ; 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

BOOL CheckDisplay (HWND hwnd) 

{ 

HDC hdc ; 
int iPalSize ; 

hdc = GetDC (hwnd); 

iPalSize = GetDeviceCaps (hdc, SIZEPALETTE); 

ReleaseDC (hwnd, hdc); 

if (iPalSize != 256) 

{ 

MessageBox (hwnd,TEXT ("This program requires that the video n ) 

TEXT ("display mode have a 25 6-color palette .’’）， 
szAppName, MB_ICONERROR); 
return FALSE ; 

} 

return TRUE ; 
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LRESULT CALLBACK WndProc ( 
IParam) 

{ 

static int 

static SIZE 

HDC hdc 

HPALETTE 


HWND hwnd, UINT message, WPARAM wParam,LPARAM 


cxClient, cyClient ; 
sizeChar ; 

hPalette ; 


int 

i, x, y ; 

PAINTSTRUCT 

ps ; 

PALETTEENTRY 

pe [256] 

TCHAR 



szBuffer [16]; 


switch (message) 

{ 

case WM—CREATE: 

if ( !CheckDisplay (hwnd)) 

return -1 ; 
hdc = GetDC (hwnd); 

SelectObject (hdc, GetStockObject (SYSTEM_FIXED_FONT)); 
GetTextExtentPoint32 (hdc, TEXT ("FF-FF-FF"), 10, 

&sizeChar); 

ReleaseDC (hwnd, hdc); 
return 0 ; 


case WM—DISPLAYCHANGE: 

if ( !CheckDisplay (hwnd)) 

DestroyWindow (hwnd); 


return 0 ; 


case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 


case WM_PAINT : 

hdc = BeginPaint (hwnd, &ps); 

SelectObject (hdc, GetStockObject (SYSTEM FIXED FONT)); 


GetSystemPaletteEntries (hdc, ◦, 256, pe); 


for (i=0, x=0, y=0 ; i < 256 ; i++) 

{ 

wsprintf ( szBuffer, TEXT ( M %02X-%02X-%02X"), 
pe[i].peRed, pe[i]•peGreen, pe[i].peBlue); 
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TextOut (hdc, x, y, szBuffer, lstrlen (szBuffer)); 

if ((x += sizeChar.cx) + sizeChar.cx > cxClient) 

{ 

x = 0 ; 

if ( ( y += sizeChar.cy) > cyClient) 

break ; 

} 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM_PALETTECHANGED : 

InvalidateRect (hwnd, NULL, FALSE); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

与 SYSPAL 系列中的其他程式一样，除非带有 SIZEPALETTE 参数的 
GetDeviceCaps 传回值为256，否则 SYSPAL 1不会执行。 

注意无论 SYSPAL 1的显示区域什么时候收到 WM _ PALETTECHANGED 讯息，它 
都是无效的。在合并 WM _ PAINT 讯息处理期间， SYSPAL 1 呼叫 
GetSystemPaletteEntries ， 并用一个含256个 PALETTEENTRY 结构的阵列作为 
参数。 RGB 值作为文字字串显示在显示区域。程式执行时，注意20种保留颜色 
是 RGB 值列表中的前10个和後10个，这与表 16-1 所示相同。 

当 SYSPAL 1显示有用的资讯时，它与实际看到的256种颜色不同。那就是 
SYSPAL 2 的作业，如程式 16-5 所示。 

程式 16-5 SYSPAL2 

SYSPAL2.C 

/* - 

SYSPAL2.C -- Displays system palette 

(c) Charles Petzold, 1998 

V 

♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 
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TCHAR szAppName [] = TEXT ("SysPal2 n ) ; 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 



HWND 

MSG 

WNDCLASS 


hwnd ; 
msg ; 
wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
IDI—APPLICATION); 

wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 
=WndProc ; 



=hlnstance ; 

= Loadlcon (NULL, 


=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=NULL ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires 

Windows NT!"), 

szAppName, 

MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow ( szAppName, TEXT ("System Palette #2 ’’）， 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW_USEDEFAULT A 
CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

if (!hwnd) 

return 0 ; 


ShowWindow (hwnd, iCmdShow); 


UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 
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BOOL CheckDisplay (HWND hwnd) 

{ 

HDC hdc ; 
int iPalSize ; 


hdc = GetDC (hwnd); 

iPalSize = GetDeviceCaps (hdc, SIZEPALETTE); 
ReleaseDC (hwnd, hdc); 


if (iPalSize != 256) 

{ 

MessageBox (hwnd, TEXT ("This program requires that the video ") 

TEXT ("display mode have a 25 6-color palette •▼，）， 

szAppName, MB_ICONERROR); 
return FALSE ; 

} 

return TRUE ; 


LRESULT CALLBACK WndProc 
IParam) 

{ 

static HPALETTE 

static int 

HBRUSH 

HDC 

int 

LOGPALETTE 

PAINTSTRUCT 

RECT 


HWND hwnd, UINT message, WPARAM wParam,LPARAM 


hPalette ; 

cxClient, cyClient ; 
hBrush ; 
hdc ; 
i, x, y ; 

* pip ； 

ps ; 
rect ; 


switch (message) 

{ 

case WM—CREATE: 

if ( !CheckDisplay (hwnd)) 

return -1 ; 


plp = malloc (sizeof (LOGPALETTE) + 255 * sizeof (PALETTEENTRY)); 


plp->palVersion = 0x0300 ; 

pip->palNumEntries = 256 ; 


for (i = 0 ; i < 256 ; i++) 

{ 


plp->palPalEntry[i].peRed 



plp->palPalEntry[i].peGreen 



plp->palPalEntry[i].peBlue 
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PC_EXPLICIT 

case 

case 

case 


* y + x)); 
cyClient / 
cyClient / 

case 

case 


plp->palPalEntry[i] .peFlags = 


hPalette = CreatePalette (pip); 
free (pip); 
return 0 ; 

WM—DISPLAYCHANGE: 

if ( !CheckDisplay (hwnd)) 

DestroyWindow (hwnd); 

return 0 ; 


WM SIZE : 


WM PAINT: 


cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 


hdc = BeginPaint (hwnd, &ps); 

SelectPalette (hdc, hPalette, FALSE) 
RealizePalette (hdc); 


for 

for 

{ 


(y = 0 ; y < 16 ; y++) 

(x = ◦ ; x < 16 ; x++) 

hBrush = CreateSolidBrush (PALETTEINDEX (16 


16, 


16); 


(x + 1 ) 、 


SetRect (&rect, x 


-k 


cxClient 


* cxClient /16, y 


-k 


16,(y+1) 


-k 


FillRect (hdc, &rect, hBrush) 
DeleteObj ect (hBrush); 


EndPaint 
return 0 


(hwnd, &ps); 


WM_PALETTECHANGED : 

if ( (HWND) 


wParam != hwnd) 

工 nvalidateRect (hwnd, NULL, FALSE) 


return 


WM DESTROY: 


DeleteObj ect (hPalette); 
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PostQuitMessage ( 0 ) ; 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

SYSPAL 2 在 WM _ CREATE 讯息处理期间建立了逻辑调色盘。但是请 注意： 逻辑 
调色盘中所有的256个值都是从0到255的调色盘索引，并且 peFlags 栏位是 
PC _ EXPLICIT 。 该旗标是这样定义的：「逻辑调色盘项目的较低字组指定了一个 
硬体调色盘索引。此旗标允许应用程式显示硬体调色盘的内容。」该旗标就是 
专为我们要做的这件事情而设计的。 

在 WM _ PAINT 讯息处理期间， SYSPAL 2 将该调色盘选进装置内容并显现它。 
这不会引起系统调色盘的任何重组，而是允许程式使用 PALETTEINDEX 巨集来指 
定系统调色盘中的颜色。按此方法， SYSPAL 2 显示了 256个矩形。另外，当您执 
行该程式时，注意顶行和底行的前10种和後10种颜色是20种保留颜色，如表 
16-1所示。当您执行使用自己逻辑调色盘的程式时，显示就改变了。 

如果您既喜欢看 SYSPAL 2 中的颜色，又喜欢 RGB 的值，那么请与第八章的 
WHATCLR 程式同时执行。 

SYSPAL 系列中的第三版使用的技术对我来说是最近才出现的 一一 从我开始 
研究 Windows 调色盘管理器七年多後，才出现了那些技术。 

事实上，所有的 GDI 函式都直接或间接地指定颜色作为 RGB 值。在 GDI 内 
部，这将转换成与那个颜色相关的图素位元。在某些显示模式中（例如，16位 
元或24位元颜色模式），这些转换是相当直接的。在其他显示模式中 （4 位元 
或8位元颜色），这可能涉及最接近颜色的搜索。 

然而，有两个 GDI 函式让您直接指定图素位元中的颜色。当然在这种方式 
中使用的这两个函式都与设备高度相关。它们太依赖设备了，以至於它们可以 
直接显示视讯显示卡上实际的调色盘对照表。这两个函式是 BitBlt 和 
StretchBlt 。 

程式 16-6 所示的 SYSPAL 3 程式显示了使用 StretchBlt 显示系统调色盘中 


颜色的方法。 

程式 16-6 SYSPAL3 


SYSPAL3.C 


/* - 


SYSPAL3.C -- 

Displays system palette 


(c) Charles Petzold, 1998 

V 
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♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName [] = TEXT ( n SysPal3 n ); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int 

iCmdShow) 

{ 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE_BRUSH); 
=NULL ; 


wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 

{ 


Windows NT 丨 ， ’）， 


MessageBox ( NULL, TEXT 


("This program requires 


MB_ICONERROR); 

return 0 ; 


szAppName, 



hwnd = CreateWindow ( szAppName, TEXT ("System Palette #3 n ), 

WS_OVERLAPPEDWINDOW a 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


if (!hwnd) 

return 0 ; 

ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 
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BOOL CheckDisplay (HWND hwnd) 

{ 

HDC hdc ; 
int iPalSize ; 

hdc = GetDC (hwnd); 

iPalSize = GetDeviceCaps (hdc, SIZEPALETTE); 

ReleaseDC (hwnd, hdc); 

if (iPalSize != 256) 

{ 

MessageBox (hwnd, TEXT ("This program requires that the video ’’） 

TEXT("display mode have a 25 6-color palette. n ), 

szAppName, MB_ICONERROR); 
return FALSE ; 

} 

return TRUE ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static HBITMAP hBitmap ; 

static int cxClient, cyClient ; 

BYTE bits [256]; 

HDC hdc, hdcMem ; 

int i ; 

PAINTSTRUCT ps ; 

switch (message) 

{ 

case WM—CREATE: 

if ( ! CheckDisplay (hwnd)) 

return -1 ; 

for ( i = 0 ; i < 256 ; i++) 

bits [i] = i ; 

hBitmap = CreateBitmap (16, 16, 1, 8, &bits); 
return 0 ; 

case WM—DISPLAYCHANGE: 

if ( !CheckDisplay (hwnd)) 

DestroyWindow (hwnd); 

return 0 ; 
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case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

hdcMem = CreateCompatibleDC (hdc); 

SelectObject (hdcMem, hBitmap); 

StretchBlt (hdc, 0, 0, cxClient, cyClient, 

hdcMem, 0, ◦, 16, 16, SRCCOPY); 

DeleteDC (hdcMem); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

DeleteObj ect (hBitmap); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

在 WM_CREATE 讯息处理期间， SYSPAL 3 使用 CreateBitmap 来建立 16 16的 
每图素8位元的点阵图。该函式的最後一个参数是包括数值0到255的256位 
元组阵列。这些是256种可能的图素位元值。在处理 WM_PAINT 讯息的程序中， 
程式将这个点阵图选进记忆体装置内容，用 StretchBlt 来显示并填充该显示区 
域。 Windows 仅将点阵图中的图素位元传输到视讯显示器硬体，从而允许这些图 
素位元存取调色盘对照表中的256个项目。程式的显示区域甚至不必使接收 
WM_PALETTECHANGED 讯息无效——对於对照表的任何修改都会立即影响到 
SYSPAL 3 的显示。 

调色盘动画 

在本节的标题中看到「动画」一词，并开始考虑萤幕周围执行的「电脑宠 
物」时，您的眼前可能会为之一亮。是的，您可以使用 Windows 调色盘管理器 
作一些动画，而且是有一定专业水平的动画。 

通常， Windows 下的动画就是快速连续地显示一系列点阵图。调色盘动画与 
这种方法有很大的区别。您透过在萤幕上绘制您所需要的每件东西开始，然後 
您处理调色盘来改变这些物件的颜色，可能是画一些相对於萤幕背景来说是不 
可见的图像。您用这种方法就可以获得动画效果，而不必重画任何东西。调色 
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盘动画的速度是相当快的。 

对於调色盘动画，最初的建立工作与我们前面看见的有些 不同： 对於动画 
期间要修改的每种 RGB 颜色值， PALETTEENTRY 结构的 peFlags 栏位必须设定为 
PC _ RESERVED 。 

通常，就像我们所看到的一样，在建立逻辑调色盘时，您将 peFlags 标记 
设为0。这允许 GDI 将多个逻辑调色盘中同样的颜色映射到相同的系统调色盘项 
目。例如，假设两个 Windows 程式都建立了包含 RGB 项目 KM 0-10 的逻辑调色 
盘，那么在系统调色盘表中， Windows 只需要一个 10-10-10 项目。但如果这两 
个程式中的一个使用调色盘动画，那您就不要再让 GDI 使用调色盘了。调色盘 
动画意味著速度非常快 一一 而且如果不重画，它也只可能提高速度。当使用调 
色盘动画的程式修改调色盘时，它不会影响其他程式，或者迫使 GDI 重组系统 
调色盘表。 PC _ RESERVm ) 的 peFlags 值为单个逻辑调色盘储存系统调色盘项目。 

使用调色盘动画时，通常您可以在 WM _ PAINT 讯息处理期间呼叫 
SelectPalette 和 RealizePalette ， 使用 PALETTEINDEX 巨集来指定颜色。该巨 
集将一个索引带进逻辑调色盘表。 

对於动画，您可能要通过改变调色盘来回应 WM _ TIMER 讯息。要改变逻辑调 
色盘中的 RGB 颜色值，请使用一个 PALETTEENTRY 结构的阵列来呼叫函式 
AnimatePalette 。 此函式速度很快，因为它只需要改变系统调色盘以及显示卡 
硬体调色盘表中的项目。 

跳动的球 

程式 16-7 显示了 BOUNCE 程式的元件，但还有一个程式可显示跳动的球。 
为了简单起见，根据显示区域的大小将球画成了椭圆形。因为本章有几个调色 
盘动画程式，所以 PALANIM.C ( 「调色盘动画」）档案包含一些通用内容。 


程式 16-7 BOUNCE 


PALANIM.C 





/* - 





PALANIM.C -• 

- Palette Animation 

Shell Program 


/ 

♦include 〈windows 

. h> 

s (c) 

Charles Petzold, 1998 

ic 

extern HPALETTE 

CreateRoutine 

(HWND); 



extern void 

PaintRoutine 

(HDC, int, 

int); 


extern void 

TimerRoutine 

(HDC, HPALETTE); 


extern void 

DestroyRoutine 

(HWND, HPALETTE); 
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LRESULT 


CALLBA CK WndProc (HWND, UINT, WPARAM, LPARAM) ; 


extern TCHAR szAppName [] 
extern TCHAR szTitle []; 


int WINAPI WinMain (HINSTANCE 

iCmdShow) 

{ 


hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, 


int 


HWND 

MSG 

WNDCLASS 
wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


hwnd 

msg 

wndclass ; 


CS_HREDRAW | CS—VREDRAW 
=WndProc ; 


=hlnstance ; 

=Loadlcon (NULL, 工 DI—APPLICATION) 
=LoadCursor (NULL, IDC—ARROW); 
(HBRUSH) GetStockObject (WHITE—BRUSH) 
NULL ; 
szAppName ; 


if (!RegisterClass (&wndclass)) 




Windows NT ! ▼’）， 


MB ICONERROR) 


MessageBox ( 


NULL, TEXT ("This program requires 


szAppName, 


return 


hwnd = CreateWindow ( szAppName, szTitle, 

WS_OVERLAPPEDWINDOW, 
CW_USEDEFAULT, CW_USEDEFAULT A 
CW_USEDEFAULT, CW_USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 

if ( !hwnd) 

return 0 ; 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 


TranslateMessage (&msg) 
DispatchMessage (&msg) 


第 788 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 
return msg.wParam ; 

} 

BOOL CheckDisplay (HWND hwnd) 

{ 

HDC hdc ; 
int iPalSize ; 

hdc = GetDC (hwnd); 

iPalSize = GetDeviceCaps (hdc, SIZEPALETTE); 

ReleaseDC (hwnd, hdc); 

if (iPalSize != 256) 

{ 

MessageBox (hwnd, TEXT ("This program requires that the video ") 

TEXT ("display mode have a 25 6-color palette .’’）， 

szAppName, MB_ICONERROR); 
return FALSE ; 

} 

return TRUE ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static HPALETTE hPalette ; 

static int cxClient, cyClient ; 

HDC hdc ; 

PAINTSTRUCT ps ; 

switch (message) 

{ 

case WM—CREATE: 

if (!CheckDisplay (hwnd)) 

return -1 ; 

hPalette = CreateRoutine (hwnd); 
return 0 ; 

case WM_DISPLAYCHANGE : 

if ( !CheckDisplay (hwnd)) 

DestroyWindow (hwnd); 

return 0 ; 
case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
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return 0 ; 

case WM_PAINT : 

hdc = BeginPaint (hwnd, &ps); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

PaintRoutine (hdc, cxClient, cyClient); 

EndPaint (hwnd, &ps); 
return 0 ; 
case WM—TIMER: 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

TimerRoutine (hdc, hPalette); 

ReleaseDC (hwnd, hdc); 
return 0 ; 

case WM—QUERYNEWPALETTE: 

if ( !hPalette) 

return FALSE ; 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

工 nvalidateRect (hwnd, NULL, TRUE); 

ReleaseDC (hwnd, hdc); 
return TRUE ; 

case WM_PALETTECHANGED : 

if ( !hPalette | | (HWND) wParam == hwnd) 

break ; 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 

UpdateColors (hdc); 

ReleaseDC (hwnd, hdc); 
break ; 

case WM—DESTROY: 

DestroyRoutine (hwnd, hPalette); 
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PostQuitMessage ( 0 ) ; 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

BOUNCE.C 

/* - 

BOUNCE.C -- Palette Animation Demo 

(c) Charles Petzold, 1998 



♦include <windows.h> 

♦define ID_TIMER 1 

TCHAR szAppName [] = TEXT ("Bounce"); 

TCHAR szTitle [] = TEXT ("Bounce : Palette Animation Demo"); 

static LOGPALETTE * pip ; 

HPALETTE CreateRoutine (HWND hwnd) 

{ 

HPALETTE hPalette ; 

int i ; 


pip = malloc (sizeof (LOGPALETTE) + 33 * sizeof (PALETTEENTRY)); 
plp->palVersion = 0x0300 ; 

pip->palNumEntries = 34 ; 



for (i = ◦ ; i < 34 ; i++) 

{ 

plp->palPalEntry[i].peRed 
plp->palPalEntry[i].peGreen 
plp->palPalEntry[i].peBlue 
plp->palPalEntry[i].peFlags 


hPalette = CreatePalette (pip); 
SetTimer (hwnd, ID_TIMER, 50, NULL); 
return hPalette ; 


= 255 ; 

=(i == ◦ ? ◦: 255); 

=(i == ◦ ? ◦: 255); 

= (i==33? ◦: PC RESERVED); 


void PaintRoutine (HDC hdc, 

{ 


HBRUSH 

int 

RECT 


hBrush ; 
i , xl , x2 , 
rect ; 


int cxClient, int cyClient) 


yi. y2 ; 


// Draw window background using palette index 33 


SetRect (&rect, 0 , 0 , cxClient, cyClient); 
hBrush = CreateSolidBrush (PALETTEINDEX (33)); 
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FillRect (hdc, &rect, hBrush); 
DeleteObj ect (hBrush); 


// Draw the 33 balls 

SelectObj ect (hdc, GetStockObj ect (NULL—PEN)); 
for (i = ◦ ; i < 33 ; i++) 

{ 

xl = i * cxClient / 33 ; 
x2 = (i + 1)* cxClient / 33 ; 


if (i < 9) 

{ 

yl = i * cyClient / 9 ; 

y2 = (i + 1) * cyClient / 9 ; 

} 

else if (i < 17) 

{ 

yl = (16 - i) * cyClient / 9 ; 
y2 = (17 - i) * cyClient / 9 ; 

} 

else if (i < 25) 


yl = (i - 16) * cyClient / 9 ; 
y2 = (i - 15) * cyClient / 9 ; 


else 


yl = (32 - i) * cyClient / 9 ; 
y2 = (33 - i) * cyClient / 9 ; 


hBrush = CreateSolidBrush (PALETTEINDEX (i)); 

SelectObj ect (hdc, hBrush); 

Ellipse (hdc, xl, yl, x2, y2); 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect 

(WHITE_BRUSH))); 

} 

return ; 

} 

void TimerRoutine (HDC hdc, HPALETTE hPalette) 

{ 

static BOOL bLeftToRight = TRUE ; 
static int iBall ; 

// Set old ball to white 
plp->palPalEntry[iBall].peGreen = 255 ; 
plp->palPalEntry[iBall].peBlue = 255 ; 
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iBall += (bLeftToRight ? 1 : -1) ; 

if ( iBall == (bLeftToRight ? 33 : -1)) 

{ 

iBall = (bLeftToRight ? 31 : 1); 
bLeftToRight A = TRUE ; 

} 

// Set new ball to red 

pip—>palPalEntry[iBall].peGreen = 0 ; 
plp->palPalEntry[iBall].peBlue = 0 ; 

// Animate the palette 

AnimatePalette (hPalette, ◦, 33, plp->palPalEntry); 
return ; 

} 

void DestroyRoutine (HWND hwnd, HPALETTE hPalette) 

{ 

KillTimer (hwnd, ID_TIMER); 

DeleteObj ect (hPalette); 
free (pip); 
return ; 

} 

除非 Windows 处於支援调色盘的显示模式下，否则调色盘动画将不能工作。 
因此， PALANIM . C 通过呼叫 CheckDisplay 函式（与 SYSPAL 程式中的函式相同） 
来开始处理 WM _ CREATE 。 

PALANIM . C 呼叫 BOUNCE . C 中的四个函 式：在 WM _ CREATE 讯息处理期间呼叫 
CreateRoutine (在 BOUNCE 中用於建立逻辑调色 盘）； 在 WM _ PAINT 讯息处理期 
间呼叫 PaintRoutine ; 在 WM — TIMER 讯息处理期间呼叫 TimerRoutine ; 在 
WM _ DESTROY 讯息处理期间呼叫 DestroyRoutine (在 BOUNCE 中用於清除）。在 
呼叫 PaintRoutine 和 TimerRoutine 之前， PALANIM . C 获得装置内容，并将其选 
进逻辑调色盘。在呼叫 PaintRoutine 之前，它也显现调色盘。 PALANIM . C 期望 
TimerRoutine 呼叫 AnimatePalette 。 尽管 AnimatePalette 需要从装置内容中 
选择调色盘，但它不需要呼叫 RealizePalette 。 

BOUNCE 中的球按 「 W 」 路线在显示区域中来回跳动。显示区域背景是白色， 
球是红色。任何时候，都可以在33个不重叠的位置之一看见球。这需要34个 
调色盘项目： 一 个用於背景，其他33个用於不同位置的球。在 CreateRoutine 
中， BOUNCE 初始化 PALETTEENTRY 结构的一个阵列，将第一个调色盘项目（与球 
在左上角的位置对应）设定为红色，其他的设定为白色。注意，对於除背景以 
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外的所有项目， peFlags 栏位都设定为 PC_RESERVED (背景是最後的一个调色盘 
项目）。 BOUNCE 通过将 Windows 计时器的间隔设定为50毫秒来终止 
CreateRoutine 。 

BOUNCE 在 PaintRoutine 完成所有的绘画工作。视窗背景用一个实心画刷和 
调色盘索引33所指定的颜色来绘制。33个球的颜色是依据从0到32的调色盘 
索引的颜色。当 BOUNCE 第一次在显示区域内绘画时，0的调色盘索引映射成红 
色，其他调色盘索引映射到白色。这导致球出现在左上角。 

当 WndProc 处理 WM — TIMER 讯息并呼叫 TimerRoutine 时，动画就发生了。 
TimerRoutine 通过呼叫 AnimatePalette 来结束，语法如下： 

AnimatePalette (hPalette, uStart, uNum, &pe); 

其中，第一个参数是调色盘代号，最後一个参数是指向阵列的指标，该阵 
列由一个或多个 PALETTEENTRY 结构组成。该函式改变逻辑调色盘中从 uStart 
项目到 uNum 项目之间的若干项目。逻辑调色盘中新的 uStart 项目是 
PALETTEENTRY 结构中的第一个成员。当心！ uStart 参数是进入原始逻辑调色盘 
表的索引，而不是进入 PALETTEENTRY 阵列的索引。 

为了方便起见， BOUNCE 使用 PALETTEENTRY 结构的阵列，该结构是建立逻辑 
调色盘时使用的 L 0 GPALETTE 结构的一部分。球的目前位置（从0到 32) 储存在 
静态变数 iBall 中。在 TimerRoutine 期间， BOUNCE 将 PALETTEENTRY 成员设为 
白色。然後计算球的下一个位置，并将该元素设为红色。用下面的呼叫来改变 
调 色盘： 

AnimatePalette (hPalette, 0 , 33, plp->palPalEntry); 

GDI 改变 33 逻辑调色盘项目中的第一个（尽管实际上只改变了两个），使 
它与系统调色盘表中的变化相对应，然後修改显示卡上的硬体调色盘表。这样， 
不用重画球就开始移动了。 

BOUNCE 执行时，您会发现同时执行 SYSPAL 2 或 SYSPAL 3 效果会更好。 

尽管 AnimatePalette 执行得非常快，但是当只有一两个项目改变时，您还 
应该尽量避免改变所有的逻辑调色盘项目。这在 BOUNCE 中有点复杂，因为球要 
来回地 S 兆—— iBall 要先增加，然後再减少。一种方法是使用两个 变数： 分别称 
为 iBallOld (设定球的目前位置）和 iBallMin ( iBall 和 iBallOld 中较小的）。 
然後您就可以像下面这样呼叫 AnimatePalette 来改变两个项目了： 

iBallMin = min (iBall, iBallOld); 

AnimatePalette (hPal, iBallMin, 2, plp->palPalEntry + iBallMin); 

还有另一种方法：我们先假定您定义了一个 PALETTEENTRY 结构： 

PALETTEENTRY pe ; 

在 TimerRoutine 期间，您将 PALETTEENTRY 栏位设为白色，并呼叫 
AnimatePalette 来改变逻辑调色盘中 iBall 位置的一个项目： 
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pe.peRed : 

= 255 ; 

pe.peGreen 

= 255 ; 

pe.peBlue 

= 255 ; 

pe.peFlags 

=PC_RESERVED ; 

AnimatePalette (hPalette, iBall, 1, &pe); 


然後计算显示在 BOUNCE 中的 iBall 的新值，将 PALETTEENTRY 结构的栏位 
定义为红色，然後再次呼叫 AnimatePalette ： 


pe.peRed : 

= 255 ; 

pe.peGreen 

=◦; 

pe.peBlue 

= 0 ; 

pe.peFlags 

= PC_RESERVED ; 

AnimatePalette (hPalette, iBall, 1, &pe); 


尽管跳动的球是对动画的一个传统的简单说明，但它实际上并不适合调色 


盘动画，因为必须先画出球的所有可能位置。调色盘动画更适合於显示运动的 
重复图案。 

一 个项目的调色盘动画 

调色盘动画中一个更有趣的方面就是，可以只使用一个调色盘项目来完成 
一些有趣的技术。例如程式 16-8 所示的 FADER 程式。这个程式也需要前面的 


PALANIM . C 档案。 

程式 16-8 FADER 


FADER.C 

/* - 

FADER.C -- Palette Animation Demo 

(c) Charles Petzold, 1998 


♦include <windows.h> 

♦define ID TIMER 1 


- v 

TCHAR szAppName [ ] = TEXT ("Fader") 

• 

r 


TCHAR szTitle [ ] = TEXT ("Fader: 

static LOGPALETTE lp ; 

HPALETTE CreateRoutine (HWND hwnd) 

Palette Animation Demo’’）; 


HPALETTE hPalette ; 

lp.palVersion 

= 0x0300 ; 


lp.palNumEntries 

=1 ; 


lp.palPalEntry[0].peRed 

= 2 55 ; 


lp.palPalEntry[0].peGreen 

= 255 ; 


lp.palPalEntry[0].peBlue 

= 255 ; 


lp.palPalEntry[0].peFlags 

=PC_RESERVED ; 
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hPalette = CreatePalette (&lp) ; 

SetTimer (hwnd, ID_TIMER, 50, NULL); 
return hPalette ; 

} 

void PaintRoutine (HDC hdc, int cxClient, int cyClient) 

{ 

static TCHAR szText [] = TEXT (" Fade In and Out n ); 

int x, y ; 

SIZE sizeText ; 

SetTextColor (hdc, PALETTEINDEX (◦)); 

GetTextExtentPoint32 (hdc, szText, lstrlen (szText), &sizeText); 

for (x = ◦ ; x < cxClient ; x += sizeText.cx) 
for (y = 0 ; y < cyClient ; y += sizeText.cy) 

{ 

TextOut (hdc, x, y, szText, lstrlen (szText)); 

} 

return ; 

} 

void TimerRoutine (HDC hdc, HPALETTE hPalette) 

{ 

static BOOL bFadeln = TRUE ; 
if (bFadeln) 

{ 

lp.palPalEntry[0].peRed -= 4 ; 
lp.palPalEntry[0].peGreen -= 4 ; 

if ( lp.palPalEntry[0].peRed == 3) 

bFadeln = FALSE ; 

} 

else 

{ 

lp.palPalEntry[0].peRed += 4 ; 
lp.palPalEntry[0].peGreen += 4 ; 

if (lp.palPalEntry[0] .peRed == 255) 

bFadeln = TRUE ; 

} 

AnimatePalette (hPalette, ◦, 1, lp.palPalEntry); 
return ; 

} 

void DestroyRoutine (HWND hwnd, HPALETTE hPalette) 
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KillTimer (hwnd, ID_TIMER) ; 

DeleteObj ect (hPalette); 
return ; 

} 

FADER 在显示区域上显示满了文字字串 「Fade In And Out 」 。文字首先显 
示为白色，这对於白色背景的视窗来说是看不出来的。通过使用调色盘动画， 
FADER 慢慢地将文字的颜色改为蓝色，然後再改回白色，这样一遍一遍地重复。 
文字就有渐现渐隐的显示效果了。 

FADER 用 CreateRoutine 函式建立了逻辑调色盘，它只需要一个调色盘项目， 
并将颜色初始化为白色——红色、绿色和蓝色值都设为255。在 PaintRoutine 
中（您可能想起，当逻辑调色盘选进装置内容并显现以後， PALANIM 呼叫过此函 
式）， FADER 呼叫 SetTextColor 将文字颜色设定为 PALETTEINDEX ( O )。 这意味 
著文字颜色设定为调色盘表格中的第一个项目，此项目初始为白色。然後 FADER 
用 「Fade In And Out 」 文字字串填充显示区域。这时，视窗背景是白色，文字 
也是白色，所以文字不可见。 

在 TimerRoutine 函式中， FADER 通过改变 PALETTEENTRY 结构并将其传递给 
AnimatePalette 来完成调色盘动画。最初，对每一个 WM _ TIMER 讯息，程式都将 
红色和绿色值减4，直到等於3;然後将这些值加4，直到等於255。这将使文 
字颜色逐渐从白色变到蓝色，然後又回到白色。 

程式 16-9 所示的 ALLC 0 L 0 R 程式只用了逻辑调色盘的一个项目来显示显示 
卡可以著色的所有颜色。当然，程式不是同时显示这些颜色，而是连续显示。 
如果显示卡有18位元的解析度（这时能有262144种不同的颜色），那么在两 
种颜色间隔55毫秒的速度下，只需要4小时就可以在萤幕上看到所有的颜色。 


程式 16-9 ALLC0L0R 


ALLCOLOR.C 

卜 



ALLCOLOR.C -- 

Palette Animation 

Demo 

(c) Charles Petzold, 1998 

-*/ 



♦include <windows.h> 

♦define ID TIMER 1 



TCHAR szAppName [] = TEXT 

TCHAR szTitle [] = TEXT 

("AllColor n ); 

("AllColor : Palette 

Animation Demo’’）; 

static int 

ilncr 

• 

f 
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static PALETTEENTRY pe ; 

HPALETTE CreateRoutine (HWND hwnd) 

{ 

HDC hdc ; 

HPALETTE hPalette ; 

LOGPALETTE lp ; 

// Determine the color resolution and set ilncr 
hdc = GetDC (hwnd); 

ilncr = 1 << (8 - GetDeviceCaps (hdc, COLORRES) / 3); 

ReleaseDC (hwnd, hdc); 

// Create the logical palette 
lp.palVersion = 0x0300 ; 

lp.palNumEntries = 1 ; 

lp.palPalEntry[0].peRed = 0 ; 

lp.palPalEntry[0].peGreen = 0 ; 

lp.palPalEntry[0].peBlue = 0 ; 

lp.palPalEntry[0].peFlags = PC_RESERVED ; 

hPalette = CreatePalette (&lp); 

// Save global for less typing 
pe = lp.palPalEntry[0]; 

SetTimer (hwnd, ID_TIMER, 10, NULL); 
return hPalette ; 

} 

void DisplayRGB (HDC hdc, PALETTEENTRY * ppe) 

{ 

TCHAR szBuffer [16]; 

wsprintf (szBuffer, TEXT (" %02X-%02X-%02X n ), 

ppe->peRed, ppe->peGreen, 

ppe->peBlue); 

TextOut (hdc, 0, ◦, szBuffer, lstrlen (szBuffer)); 


void PaintRoutine (HDC hdc, int cxClient, int cyClient) 

{ 

HBRUSH hBrush ; 

RECT rect ; 

// Draw Palette Index 0 on entire window 

hBrush = CreateSolidBrush (PALETTEINDEX (0)); 

SetRect (&rect, ◦, 0, cxClient, cyClient); 

FillRect (hdc, &rect, hBrush); 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect (WHITE BRUSH))); 
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// Display the RGB value 
DisplayRGB (hdc, &pe); 
return ; 


void TimerRoutine (HDC hdc, HPALETTE hPalette) 

{ 


256 


static BOOL bRedUp = TRUE, bGreenUp = TRUE, bBlueUp = TRUE ; 

// Define new color value 
pe.peBlue += (bBlueUp ? ilncr : -ilncr); 
if ( pe.peBlue == (BYTE) (bBlueUp ? 0 : 256 - ilncr)) 




pe.peBlue = (bBlueUp ? 256 - ilncr : 0); 
bBlueUp A = TRUE ; 

pe.peGreen += (bGreenUp ? ilncr : -ilncr); 

if ( pe.peGreen == (BYTE) (bGreenUp ? 0 : 256 - ilncr)) 

pe.peGreen = (bGreenUp ? 256 - ilncr : 0); 

bGreenUp A = TRUE ; 

pe.peRed += (bRedUp ? ilncr : —ilncr); 


if ( pe.peRed == (BYTE) (bRedUp ? 


ilncr)) 



pe • peRed = (bRedUp ? 256 - ilncr : 0); 
bRedUp A = TRUE ; 


// Animate the palette 
AnimatePalette (hPalette, ◦, 1, &pe); 

DisplayRGB (hdc, &pe); 
return ; 


void DestroyRoutine (HWND hwnd, HPALETTE hPalette) 

{ 

KillTimer (hwnd, ID_TIMER); 

DeleteObj ect (hPalette); 
return ; 


在结构上 ， ALLCOLOR 与 FADER 非常相似。在 CreateRoutine 中 ， ALLCOLOR 
只用一个设为黑色的调色盘项目 （ PALETTEENTRY 结构的 red 、 green 和 blue 栏 
位设为 0) 来建立调色盘。在 PaintRoutine 中， ALLC 0 L 0 R 用 PALETTEINDEX (0) 
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建立实心画刷，并呼叫 FillRect 来用此画刷为整个显示区域著色。 

在 TimerRoutine 中， ALLC 0 L 0 R 通过改变 PALETTEENTRY 颜色并呼叫 
AnimatePalette 来启动调色盘。我编写 ALLC 0 L 0 R 程式，以便颜色变化顺畅。首 
先，蓝色值渐渐增加。达到最大时，绿色值增加，而蓝色值渐渐减少。红色、 
绿色和蓝色值的增加和减少取决於 ilncr 变数。在 CreateRoutine 期间，这将 
根据用 C 0 L 0 RRES 参数从 GetDeviceCaps 传回的值来计算。例如，如果 

GetDeviceCaps 传回18，那么 ilncr 设为4-获得所有颜色所需要的最小值。 

ALLC 0 L 0 R 还在显示区域的左上角显示目前的 RGB 颜色值。我最初添加这个 
程式码是出於测试目的，但是现在证明它是有用的，所以我保留了它。 

工程应用程式 

在工程应用程式中，动画对於显示机械或电的作用过程很有用。在电脑萤 
幕上显示内燃引擎虽然简单，但是动画可以使它变得更加生动，且更清楚地显 
示其工作程序。 

使用调色盘动画的一个好范例就是显示流体通过管子的过程。这是一个例 
子，图像不必十分精确 一一 实际上，如果图像很精确（就像看透明的管子）， 
则很难说明管子里的流体是如何运动的。这时用符号会更好一些。程式16-10 
所示的 PIPES 程式是此技术的简单 示范： 在显示区域有两个水平的管子，流体 
在上面的管子里从左向右流动，而在下面的管子里从右向左移动。 

程式 16-10 PIPES 
PIPES. C 

/* - 

PIPES.C -- Palette Animation Demo 

(c) Charles Petzold, 1998 


♦include <windows.h> 

♦define ID_TIMER 1 

TCHAR szAppName [] = TEXT ("Pipes"); 

TCHAR szTitle [ ] = TEXT ("Pipes : Palette Animation Demo’，）; 

static LOGPALETTE * pip ; 

HPALETTE CreateRoutine (HWND hwnd) 

{ 

HPALETTE hPalette ; 

int i ; 


第 800 页 














































Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 



pip = malloc (sizeof (LOGPALETTE) + 

32 * sizeof (PALETTEENTRY)); 





// Initialize the fields of the LOGPALETTE structure 


plp->palVersion 

= 0x300 ; 




pip->palNumEntries = 16 ; 




for (i = 

0 ; i 

<= 8 ; i++) 




\ 


plp->palPalEntry[i ] 

.peRed = (BYTE) min (255 , 0x20 ^ 

i )； 




pip->palPalEntry[i ] 

.peGreen = 0 ; 





plp->palPalEntry[i] .peBlue = (BYTE) min (255, 0x20 ^ 

i )； 




plp->palPalEntry[i] 

.peFlags = PC RESERVED ; 





plp->palPalEntry[16 

- i ] = plp->palPalEntry[i] 

參 

f 




plp->palPalEntry[16 

+ i] = plp->palPalEntry[i] 

參 

r 


} 


plp->palPalEntry[32 

- i ] = pip—>palPalEntry[i] 

參 

f 


hPalette 

=CreatePalette (pip); 




SetTimer 

(hwnd, 

ID TIMER, 100, NULL) 

參 

f 


} 

return hPalette 

• 

f 



void 

( 

PaintRoutine (HDC hdc, int cxClient, 

int cyClient) 


1 

HBRUSH 

hBrush ; 




int 


i ； 




RECT 


rect ; 






// Draw 

window background 



SetRect 

(&rect , 

◦, ◦, cxClient, cyClient) ; 



hBrush = 

SelectObj ect (hdc, GetStockObj ect (WHITE BRUSH)) ; 



FillRect 

(hdc. 

&rect, hBrush) ; 






// Draw 

the interiors of the pipes 



for (i = 

0 ; i 

< 128 ; i++) 




l 


hBrush = CreateSolidBrush (PALETTEINDEX (i % 16)) 

參 

f 




SelectObj ect (hdc, 

hBrush) ; 





rect . left 

= (127 - i) * cxClient / 128 ; 




zrect . right 

=(128 - i) * cxClient / 12 8 ; 




rect . top = 

4 * cyClient / 14 ; 





rect . bottom 

= 5 * cyClient / 14 ; 





FillRect (hdc, &rect, hBrush) ; 





rect . left 

= i * cxClient / 128 ; 
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rect . right 

=(i + 1) 

* cxClient / 

128 

參 

r 







rect . top 


= 9 * cyClient 

/ 14 ; 



rect . bottom 

= 10 * cyClient / 14 ; 



FillRect 

(hdc, &rect, hBrush) ; 



DeleteObject 


(SelectObj ect (hdc. 

GetStockObject 

(WHITE BRUSH))) ; 

} 









// Draw the edges of the pipes 


MoveToEx 

(hdc, ◦, 

4 

* cyClient / 14, NULL) ; 



LineTo 

(hdc, cxClient, 4 * cyClient / 14) 

• 

f 


MoveToEx 

(hdc, 0, 

5 

* cyClient / 14, NULL) ; 



LineTo 

(hdc, cxClient, 5 * cyClient / 14) 

參 

f 


MoveToEx 

(hdc, ◦, 

9 

* cyClient / 14, NULL) ; 



LineTo 

(hdc, cxClient, 9 * cyClient / 14) ; 



MoveToEx 

(hdc, 0, 

1C 

) * cyClient / 14, NULL) ; 



LineTo (hdc, cxClient, 


10 * cyClient / 14) ; 


} 

return ; 





void 

r 

TimerRoutine (HDC 

hdc, HPALETTE hPalette) 


i 

static int ilndex 

• 

f 





AnimatePalette (hPalette, 

◦, 

16, plp->palPalEntry + ilndex) ; 


ilndex = (ilndex 

+ 1) % 16 

參 

f 



} 

return ; 





void 

； 

DestroyRoutine (HWND hwnd. 

HPALETTE hPalette) 


i 

KillTimer (hwnd. 

ID TIMER) 

• 

f 




DeleteObj ect (hPalette); 





free (pip); 





} 

return ; 






PIPES 为动画使用了 16个调色盘项目，而您可能会使用更少的项目。最小 
化时，真正需要的是有足够的项目来显示流动的方向。用三个调色盘项目要比 
用一个静态箭头好。 


程式 16-11 所不的 TUNNEL 程式是这组程式中最贪心的程式，它为动画使用 
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了 128个调色盘项目，但是从效果来看，值得这样做。 


程式 16-11 TUNNEL 


TUNNEL.C 
/* - 


TUNNEL.C -- Palette Animation Demo 

(c) Charles Petzold, 1998 



♦include <windows.h> 

♦define ID_TIMER 1 

TCHAR szAppName [] = TEXT ("Tunnel"); 

TCHAR szTitle [ ] = TEXT ("Tunnel : Palette Animation Demo’’）; 

static LOGPALETTE * pip ; 

HPALETTE CreateRoutine (HWND hwnd) 

{ 

BYTE byGrayLevel ; 

HPALETTE hPalette ; 

int i ; 


pip = malloc (sizeof (LOGPALETTE) + 255 * sizeof (PALETTEENTRY)); 

// 工 initialize the fields of the LOGPALETTE structure 
plp->palVersion = 0x0300 ; 

plp->palNumEntries = 128 ; 

for (i = ◦ ; i < 128 ; i++) 

{ 


if (i < 64) 

byGrayLevel = (BYTE) (4 * i); 

else 

byGrayLevel = (BYTE) min (255, 4 * (128 

- i ))； 


plp->palPalEntry[i].peRed = byGrayLevel ; 
plp->palPalEntry[i].peGreen = byGrayLevel ; 
plp->palPalEntry[i].peBlue = byGrayLevel ; 
plp->palPalEntry[i].peFlags = PC RESERVED ; 



plp->palPalEntry[i + 
plp->palPalEntry[i + 
plp->palPalEntry[i + 
plp->palPalEntry[i + 


128].peRed = byGrayLevel ; 
128].peGreen = byGrayLevel ; 
128].peBlue = byGrayLevel ; 
128].peFlags = PC RESERVED ; 


hPalette = CreatePalette (pip); 
SetTimer (hwnd, ID TIMER, 50, NULL); 
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return hPalette ; 


void PaintRoutine (HDC hdc, int cxClient, int cyClient) 

{ 

HBRUSH hBrush ; 

int i ; 

RECT rect ; 


for (i = ◦ ; i < 127 ; i++) 

/ / Use a RECT structure for each of 128 


rectangles 


rect.left = i * cxClient / 255 ; 

rect.top = i * cyClient / 255 ; 

rect.right = cxClient - i * cxClient / 255 ; 

rect.bottom = cyClient - i * cyClient / 255 ; 


hBrush = CreateSolidBrush (PALETTEINDEX (i)); 

// Fill the rectangle and delete the brush 


FillRect (hdc, &rect, hBrush); 
DeleteObj ect (hBrush); 

} 

return ; 


void TimerRoutine (HDC hdc, HPALETTE hPalette) 

{ 

static int iLevel ; 

iLevel = (iLevel + 1) % 128 ; 

AnimatePalette (hPalette, ◦, 128, plp->palPalEntry + iLevel); 
return ; 


void DestroyRoutine (HWND hwnd, HPALETTE hPalette) 

{ 

KillTimer (hwnd, ID_TIMER); 

DeleteObj ect (hPalette); 
free (pip); 
return ; 


TUNNEL 在 128 个调色盘项目中使用 64 种移动的灰阶——从黑到白，再从白 
到黑 一一 表现在隧道旅行的效果。 
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调色盘和真实世界图像 


当然，尽管我们已经完成了许多有趣 的事： 连续显示色彩的网底、做了调 
色盘动画，但调色盘管理器的真正目的是允许在8位元显示模式下显示真实世 
界中的图像。对於本章的其余部分，我们正好研究一下。正如您所期望的，在 
使用 packed DIB 、 GDI 点阵图物件和 DIB 区块时，必须按照不同的方法来使用 
调色盘。下面的六个程式阐明了用调色盘来处理点阵图的各种技术。 

调色盘和 packed DIB 


下面三个程式，有助於我们建立处理 packed DIB 记忆体块的一系列函式。 
这些函式都在程式 16-12 所示的 PACKEDIB 档案中。 

程式 16-12 PACKEDIB 档案 

PACKEDIB.H 

/* - 

PACKEDIB.H -- Header file for PACKEDIB.C 

(c) Charles Petzold, 1998 

- -k / 

♦include <windows.h> 

BITMAPINFO * PackedDibLoad (PTSTR szFileName); 

int PackedDibGetWidth (BITMAPINFO * pPackedDib); 

int PackedDibGetHeight (BITMAPINFO * pPackedDib); 

int PackedDibGetBitCount (BITMAPINFO * pPackedDib); 

int PackedDibGetRowLength (BITMAPINFO * pPackedDib); 

int PackedDibGetlnfoHeaderSize (BITMAPINFO * pPackedDib); 

int PackedDibGetColorsUsed (BITMAPINFO * pPackedDib); 

int PackedDibGetNumColors (BITMAPINFO * pPackedDib); 

int PackedDibGetColorTableSize (BITMAPINFO * pPackedDib); 

RGBQUAD * PackedDibGetColorTablePtr (BITMAPINFO * pPackedDib); 

RGBQUAD * PackedDibGetColorTableEntry (BITMAPINFO * pPackedDib, int i); 

BYTE * PackedDibGetBitsPtr (BITMAPINFO * pPackedDib); 
int PackedDibGetBitsSize (BITMAPINFO * pPackedDib); 

HPALETTE PackedDibCreatePalette (BITMAPINFO * pPackedDib); 

PACKEDIB.C 

/* - 

PACKEDIB.C -- Routines for using packed DIBs 

(c) Charles Petzold, 1998 


♦include <windows.h> 

/■k - 


第 805 页 














Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 



PackedDibLoad : Load DIB File as Packed-Dib Memory Block 



BITMAPINFO * PackedDibLoad (PTSTR szFileName) 



BITMAPFILEHEADER 

BITMAPINFO 

BOOL 

DWORD 

HANDLE 


bmfh ; 

* pbmi ; 

bSuccess ; 

dwPackedDibSize, dwBytesRead ; 
hFile ; 


// Open the file : read access, prohibit write access 


hFile = CreateFile (szFileName, GENERIC_READ, FILE_SHARE_READ, NULL, 
OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, NULL); 
if (hFile == 工 NVALID_HANDLE_VALUE) 

return NULL ; 

// Read in the BITMAPFILEHEADER 

bSuccess = ReadFile ( hFile, &bmfh, sizeof (BITMAPFILEHEADER), 

&dwBytesRead, NULL); 


if (!bSuccess || (dwBytesRead != sizeof (BITMAPFILEHEADER)) 

|| (bmfh.bfType != * (WORD *) "BM")) 


CloseHandle (hFile); 
return NULL ; 


// Allocate memory for the packed DIB & read it in 
dwPackedDibSize = bmfh.bfSize - sizeof (BITMAPFILEHEADER); 
pbmi = malloc (dwPackedDibSize); 

bSuccess = ReadFile (hFile, pbmi, dwPackedDibSize, &dwBytesRead, NULL); 
CloseHandle (hFile); 


if ( !bSuccess | | (dwBytesRead != dwPackedDibSize)) 

{ 

free (pbmi); 
return NULL ; 


return pbmi ; 

} 

/* - 

Functions to get information from packed DIB 
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int PackedDibGetWidth (BITMAPINFO * pPackedDib) 

{ 

if (pPackedDib->bmiHeader.biSize == sizeof (BITMAPCOREHEADER)) 

return 

((PBITMAPCOREINFO)pPackedDib)->bmciHeader•bcWidth ; 
else 


return pPackedDib->bmiHeader.biWidth ; 


int PackedDibGetHeight (BITMAPINFO * pPackedDib) 

{ 

if (pPackedDib->bmiHeader.biSize == sizeof (BITMAPCOREHEADER)) 

return 

((PBITMAPCOREINFO)pPackedDib)->bmciHeader•bcHeight ; 
else 


return abs (pPackedDib->bmiHeader.biHeight); 


int PackedDibGetBitCount (BITMAPINFO * pPackedDib) 

{ 

if (pPackedDib->bmiHeader.biSize == sizeof (BITMAPCOREHEADER)) 

return 

((PBITMAPCOREINFO)pPackedDib)->bmciHeader•bcBitCount ; 
else 


return pPackedDib->bmiHeader.biBitCount ; 


int PackedDibGetRowLength (BITMAPINFO * pPackedDib) 

{ 

return ( ( PackedDibGetWidth (pPackedDib) * 

PackedDibGetBitCount (pPackedDib) +31) 

& 〜 31) >> 3 ; 


/* 


PackedDibGetlnfoHeaderSize includes possible color masks! 


*/ 

int PackedDibGetlnfoHeaderSize (BITMAPINFO * pPackedDib) 

{ 

if ( pPackedDib->bmiHeader.biSize == sizeof (BITMAPCOREHEADER)) 

return 

((PBITMAPCOREINFO)pPackedDib) - >bmciHeader.bcSize ; 

else if (pPackedDib->bmiHeader.biSize == sizeof (BITMAPINFOHEADER)) 
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return pPackedDib->bmiHeader.biSize + 
(pPackedDib->bmiHeader.biCompression == 

BI_BITFIELDS ? 12 : 0); 
else return pPackedDib->bmiHeader.biSize ; 

} 

/* - 

PackedDibGetColorsUsed returns value in information header; 

could be 0 to indicate non-truncated color table! 

*/ 

int PackedDibGetColorsUsed (BITMAPINFO * pPackedDib) 

{ 

if (pPackedDib->bmiHeader.biSize == sizeof (BITMAPCOREHEADER)) 

return 0 ; 

else 

return pPackedDib->bmiHeader.biClrUsed ; 



PackedDibGetNumColors is actual number of entries in color table 



int PackedDibGetNumColors (BITMAPINFO * pPackedDib) 

{ 

int iNumColors ; 

iNumColors = PackedDibGetColorsUsed (pPackedDib); 

if ( iNumColors == 0 && PackedDibGetBitCount (pPackedDib) < 16) 

iNumColors =1 << PackedDibGetBitCount (pPackedDib); 

return iNumColors ; 


int PackedDibGetColorTableSize (BITMAPINFO * pPackedDib) 

{ 

if (pPackedDib->bmiHeader.biSize == sizeof (BITMAPCOREHEADER)) 

return PackedDibGetNumColors (pPackedDib) * sizeof 

(RGBTRIPLE); 
else 

return PackedDibGetNumColors (pPackedDib) * sizeof 

(RGBQUAD); 


RGBQUAD * PackedDibGetColorTablePtr (BITMAPINFO * pPackedDib) 

{ 
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if (PackedDibGetNumColors (pPackedDib) == 0 ) 

return 0 ; 

return (RGBQUAD *) (((BYTE *) pPackedDib) + 

PackedDibGetlnfoHeaderSize (pPackedDib)); 

} 

RGBQUAD * PackedDibGetColorTableEntry (BITMAPINFO * pPackedDib, int i) 

{ 

if ( PackedDibGetNumColors (pPackedDib) == 0) 

return 0 ; 


if ( pPackedDib->bmiHeader.biSize == sizeof (BITMAPCOREHEADER)) 

return (RGBQUAD *) 

(((RGBTRIPLE *) PackedDibGetColorTablePtr 


(pPackedDib)) + i); 
else 


return PackedDibGetColorTablePtr (pPackedDib) + i ; 


/* - 

PackedDibGetBitsPtr finally! 


V 

BYTE * PackedDibGetBitsPtr (BITMAPINFO * pPackedDib) 

{ 

return ( (BYTE *) pPackedDib)+ PackedDibGetlnfoHeaderSize 

(pPackedDib) + 

PackedDibGetColorTablesize (pPackedDib); 

} 

/* - 

PackedDibGetBitsSize can be calculated from the height and row length 

if it's not explicitly in the biSizelmage field 



int PackedDibGetBitsSize (BITMAPINFO * pPackedDib) 

{ 

if ( (pPackedDib->bmiHeader.biSize != sizeof (BITMAPCOREHEADER) ) && 

(pPackedDib—>bmiHeader•biSizelmage != 0)) 
return pPackedDib->bmiHeader.biSizelmage ; 

return PackedDibGetHeight (pPackedDib) * 

PackedDibGetRowLength (pPackedDib); 
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PackedDibCreatePalette creates logical palette from PackedDib 



HPALETTE PackedDibCreatePalette (BITMAPINFO * pPackedDib) 

{ 

HPALETTE hPalette ; 
int i, iNumColors ; 

LOGPALETTE * pip ; 

RGBQUAD * prgb ; 


if (0 == ( iNumColors = PackedDibGetNumColors (pPackedDib))) 

return NULL ; 

pip = malloc (sizeof (LOGPALETTE) * 

(iNumColors 一 1) * sizeof (PALETTEENTRY)); 


plp->palVersion = 0x0300 ; 
pip->palNumEntries = iNumColors ; 
for (i = ◦ ; i < iNumColors ; i++) 
{ 



prgb = PackedDibGetColorTableEntry (pPackedDib, i) 


plp->palPalEntry[i ] 
pip->palPalEntry[i ] 
plp->palPalEntry[i ] 
plp->palPalEntry[i ] 


• peRed 

• peGreen 

• peBlue 

• peFlags 


prgb->rgbRed ; 
prgb->rgbGreen ; 
prgb->rgbBlue ; 


hPalette = CreatePalette (pip); 
free (pip); 


return hPalette ; 


第一个函式是 PackedDibLoad ， 它将唯一的参数作为档案名，并传回指向记 
忆体中 packed DIB 的指标。其他所有函式都将这个 packed DIB 指标作为它们 
的第一个参数并传回有关 DIB 的资讯。这些函式按「由下而上」顺序排列到档 
案中。每个函式都使用从前面函式获得的资讯。 

我不倾向於说这是在处理 packed DIB 时有用的「完整」函式集。而且，我 
也不想汇编一个真正的扩展集，因为我不认为这是处理 packed DIB 的一个好方 
法。在写类似下面的函式时，您会很明显地发现这 一点： 

dwPixel = PackedDibGetPixel (pPackedDib, x, y); 

这种函式包括太多的巢状函式呼叫，以致於效率非常低而且很慢。本章的 
後面将讨论一种我认为更好的方法。 

另外，您将注意到，其中许多函式都需要对 OS /2 相容的 DIB 采取不同的处 
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理 程序； 这样，函式将频繁地检查 BITMAPINFO 结构的第一个栏位是否与 
BITMAPCOREHEADER 结构的大小相同。 

特别注意最後一个函式 PackedDibCreatePalette 。 这个函式用 DIB 中的颜 
色表来建立调色盘。如果 DIB 中没有颜色表（这意味著 DIB 的每图素有16、24 
或32位元），那么就不建立调色盘。我们有时会将从 DIB 颜色表建立的调色盘 
称为 DIB 自己的 调色盘。 

PACKEDIB 档案都放在 SH 0 WDIB 3， 如程式 16-13 所示。 


程式 16-13 SH0WDIB3 


SH0WDIB3.C 

/* - 

SH0WDIB3.C -- Displays DIB with native palette 

(c) Charles Petzold, 1998 



♦include <windows.h> 
♦include "PackeDib.h" 
♦include "resource.h n 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("ShowDib3"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 


=CS_HREDRAW | CS_VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION) 
=LoadCursor (NULL, 工 DC—ARROW); 

=(HBRUSH) GetStockObject (WHITE_BRUSH) 
=szAppName ; 


wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 



Windows NT 丨 ， ’）， 



MessageBox 


NULL, TEXT ("This program requires 


return 0 ; 


szAppName, MB 工 CONERROR); 


第 811 页 






Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 



hwnd = CreateWindow ( szAppName, TEXT 

("Show 

DIB #3 : Native Palette"), 



WS OVERLAPPEDWINDOW, 






CW USEDEFAULT, CW USEDEFAULT, 





CW USEDEFAULT, CW USEDEFAULT, 





NULL, NULL, hlnstance. 

NULL) 

參 

f 



ShowWindow (hwnd. 

iCmdShow); 





UpdateWindow (hwnd); 





while (GetMessage 

(&msg, NULL, ◦, 0)) 





TranslateMessage (&msg); 






DispatchMessage (&msg) 

• 

f 



} 

/ 

return msg.wParam 

參 

f 




LRESULT CALLBACK WndProc ( HWND hwnd, UINT 

message, WPARAM wParam,LPARAM 

IParam) 

! 






static BITMAPINFO 

* pPackedDib ; 





static HPALETTE 

hPalette ; 




static int 

cxClient, cyClient ; 



static OPENFILENAME ofn ; 





static TCHAR 

szFileName [MAX 

PATH], 

szTitleName [MAX 

PATH]; 


static TCHAR 

szFilter[]= 

TEXT 

("Bitmap 

Files 


• .BMP)\0*.bmp\O n ) 






TEXT ("All Files 

(*•*) \0*.*\0\0 n ); 





HDC 



hdc ; 



PAINTSTRUCT 



ps ; 



switch (message) 






i 

case WM CREATE : 







ofn.lStructSize 


=sizeof (OPENFILENAME); 



ofn.hwndOwner 


=hwnd ; 




ofn.hlnstance 


=NULL ; 




ofn.lpstrFilter 


=szFilter ; 




ofn.lpstrCustomFilter 


=NULL ; 




ofn.nMaxCustFilter 


=◦; 




ofn.nFiIterIndex 


=◦; 




ofn.IpstrFile 


=szFileName ; 




ofn.nMaxFile 


=MAX PATH ; 




ofn.lpstrFileTitle 


=szTitleName ; 




ofn.nMaxFileTitle 


=MAX PATH ; 




ofn.lpstrlnitialDir 


=NULL ; 




ofn.lpstrTitle 


=NULL ; 
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ofn.Flags 

ofn.nFileOffset 

ofn.nFileExtension 

ofn.IpstrDefExt 

ofn.lCustData 

ofn.lpfnHook 

ofn.lpTemplateName 



=TEXT ("bmp"); 
=◦; 

=NULL ; 

=NULL ; 


return 0 ; 


case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM_COMMAND : 

switch (LOWORD (wParam)) 

{ 

case IDM FILE OPEN: 


// Show the File Open dialog box 


if ( !GetOpenFileName (&ofn)) 

return 0 ; 

// If there's an existing packed DIB, free the memory 

if (pPackedDib) 

{ 

free (pPackedDib); 
pPackedDib = NULL ; 


// If there's an existing logical palette, delete it 

if (hPalette) 

{ 

DeleteObj ect (hPalette); 
hPalette = NULL ; 

} 

// Load the packed DIB into memory 

SetCursor (LoadCursor (NULL, 工 DC—WAIT)); 
ShowCursor (TRUE); 

pPackedDib = PackedDibLoad (szFileName); 
ShowCursor (FALSE); 
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SetCursor (LoadCursor (NULL, IDC—ARROW)); 

if (pPackedDib) 

{ 

// Create the palette from the DIB color table 


hPalette = PackedDibCreatePalette (pPackedDib); 

} 

else 

{ 

MessageBox ( hwnd, TEXT ("Cannot load DIB file ”）， 

szAppName, 0); 

} 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

} 

break ; 


case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

if (hPalette) 

{ 

SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 


(pPackedDib), 
(pPackedDib), 


if (pPackedDib) 

SetDIBitsToDevice (hdc, 0,0,PackedDibGetWidth 


PackedDibGetHeight 



0,0,0,PackedDibGetHeight 

(pPackedDib), 


PackedDibGetBitsPtr 

pPackedDib, 

(pPackedDib), 

DIB RGB COLORS) 

參 

r 


EndPaint 

(hwnd, &ps); 


return 0 

• 

f 



case WM—QUERYNEWPALETTE: 

if (!hPalette) 

return FALSE ; 


hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 

InvalidateRect (hwnd, NULL, TRUE); 
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ReleaseDC (hwnd, hdc) ; 
return TRUE ; 

case WM_PALETTECHANGED : 

if ( !hPalette | | (HWND) wParam == hwnd) 

break ; 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

UpdateColors (hdc); 

ReleaseDC (hwnd, hdc); 
break ; 

case WM—DESTROY: 

if (pPackedDib) 

free (pPackedDib); 

if (hPalette) 

DeleteObj ect (hPalette); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

SH0WDIB3.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h n 
♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

SH0WDIB3 MENU DISCARDABLE 
BEGIN 

POPUP "&File n 
BEGIN 

MENUITEM "&Open", IDM_FILE_OPEN 

END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by ShowDib3.rc 

♦define 工 DM FILE OPEN 40001 
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SH 0 WDIB 3 中的视窗讯息处理程式将 packed DIB 指标作为静态变数来维护， 
视窗讯息处理程式在 「File Open 」 命令期间呼叫 PACKEDIB . C 中的 PackedDibLoad 
函式时获得了此指标。在处理此命令的过程中， SH 0 WDIB 3 也呼叫 
PackedDibCreatePalette 来获得可能用於 DIB 的调色盘。注意，无论 SH 0 WDIB 3 
什么时候准备载入新的 DIB ， 都应先释放前一个 DIB 的记忆体，并删除前一个 
DIB 的调色盘。在处理 WM _ DESTROY 讯息的程序中，最後的 DIB 最後释放，最後 
的调色盘最後删除。 

处理 WM _ PAINT 讯息很 简单： 如果存在调色盘，则 SH 0 WDIB 3 将它选进装置 
内容并显现它。然後它呼叫 SetDIBitsToDevice , 并传递有关 DIB 的函式资讯（例 
如宽、高和指向 DIB 图素位元的指标），这些资讯从 PACKEDIB 中的函式获得。 

另外，请记住 SH 0 WDIB 3 依据 DIB 中的颜色表建立了调色盘。如果在 DIB 中 
没有颜色表——通常是16位元、24位元和32位元 DIB 的情况——就不建立调 
色盘。在8位元显示模式下显示 DIB 时，它只能用标准保留的20种颜色显示。 

对这个问题有两种解决方法：第一种是简单地使用「通用」调色盘，这种 
调色盘适用於许多图形。您也可以自己建立调色盘。第二种解决方法是分析 DIB 
的图素位元，并决定要显示图像的最佳颜色。很明显，第二种方法将涉及更多 
的工作（对於程式写作者和处理器都是如此），但是我将在本章结束之前告诉 
您如何使用第二种方法。 


r 通用』调色盘 


程式 16-14 所示的 SH 0 WDIB 4 程式建立了一个通用的调色盘，它用於显示载 
入到程式中的所有 DIB 。 另外， SH 0 WDIB 4 与 SH 0 WDIB 3 非常相似。 

程式 16-14 SH0WDIB4 

SHOWDIB4.C 

/* - 

SHOWDIB4.C -- Displays DIB with "all-purpose" palette 

(c) Charles Petzold, 1998 


♦include <windows.h> 

♦include "..\\ShowDib3\\PackeDib.h" 

♦include "resource.h" 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("ShowDib4"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 
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HWND 

MSG 

WNDCLASS 


hwnd ; 
msg ; 
wndclass ; 


wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc = WndProc ; 


wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 



=hlnstance ; 

=Loadlcon (NULL, 工 DI—APPLICATION); 
=LoadCursor (NULL, IDC ARROW); 


wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = szAppName ; 

wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 



Windows NT 丨 ， ’）， 
MB ICONERROR); 



MessageBox ( NULL, TEXT ("This program requires 

szAppName, 

return 0 ; 


hwnd = CreateWindow ( szAppName A TEXT ("Show 

Palette"), 


WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 
CW_USEDEFAULT a CW—USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 


DIB 


#4 : All-Purpose 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 





CreateAllPurposePalette : Creates a palette suitable for a wide variety 

of images; the palette has 247 entries, but 15 of them are 
duplicates or match the standard 20 colors. 
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HPALETTE CreateAllPurposePalette (void) 

{ 

HPALETTE hPalette ; 

int i, incr, R, G, B ; 

LOGPALETTE * pip ; 

pip = malloc (sizeof (LOGPALETTE) + 246 * sizeof (PALETTEENTRY)); 
plp->palVersion = 0x0300 ; 
pip->palNumEntries = 247 ; 


// The following loop calculates 31 gray shades, but 3 of them 
// will match the standard 20 colors 


for (i = 0, G = 0, incr =8 ; G <= OxFF ; i++, G += incr) 

{ 

plp->palPalEntry[i].peRed = (BYTE) G ; 
plp->palPalEntry[i].peGreen = (BYTE) G ; 
pip->palPalEntry[i].peBlue = (BYTE) G ; 
plp->palPalEntry[i].peFlags = 0 ; 

incr = (incr == 9 ? 8 : 9); 


// The following loop is responsible for 216 entries, but 8 of 
// them will match the standard 20 colors, and another 
// 4 of them will match the gray shades above. 


for (R = ◦ ; R <= OxFF ; R += 0x33) 

for (G = ◦ ; G <= OxFF ; G += 0x33) 

for (B = ◦ ; B <= OxFF ; B += 0x33) 

{ 

plp->palPalEntry [ i] .peRed 
plp->palPalEntry [ i] .peGreen 
plp->palPalEntry [ i] .peBlue 
plp->palPalEntry [ i] .peFlags 


=(BYTE) R ; 
=(BYTE) G ; 
=(BYTE) B ; 


i++ ； 

} 

hPalette = CreatePalette (pip); 
free (pip); 
return hPalette ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 
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static 

BITMAPINFO * pPackedDib 

參 

f 



static 

HPALETTE 

hPalette ; 


static 

int 


cxClient, cyClient ; 


static 

OPENFILENAME ofn ; 




static 

TCHAR 

szFileName [MAX 

PATH] 

,szTitleName [MAX 

PATH]; 

static 

TCHAR 

szFilter[]= 

TEXT 

("Bitmap 

Files 

(* .BMP) \0* .bmp\0 ，'） 





TEXT ("All Files 

(*•*) \0*.*\0\0 ，'）； 




HDC 




hdc ; 


PAINTSTRUCT 



ps ; 


switch (message) 

； 





i 

case WM 

_CREATE : 







ofn.IStructSize 


=sizeof (OPENFILENAME); 



ofn.hwndOwner 


=hwnd ; 




ofn.hlnstance 


=NULL ; 




ofn.lpstrFilter 


=szFilter ; 




ofn.IpstrCustomFilter 


=NULL ; 




ofn.nMaxCustFilter 


=◦; 




ofn.nFiIterIndex 


=◦; 




ofn.IpstrFile 


=szFileName ; 




ofn.nMaxFile 


=MAX PATH ; 




ofn.lpstrFileTitle 


=szTitleName ; 




ofn.nMaxFileTitle 


=MAX PATH ; 




ofn.lpstrlnitialDir 


=NULL ; 




ofn.lpstrTitle 


=NULL ; 




ofn.Flags 


= 0 ; 




ofn.nFileOffset 


=◦; 




ofn.nFileExtension 


=◦; 




ofn.IpstrDefExt 


=TEXT ("bmp"); 




ofn.lCustData 


=◦; 




ofn.lpfnHook 


=NULL ; 




ofn.lpTemplateName 


=NULL ; 




// Create 

the All-Purpose Palette 



hPalette = CreateAllPurposePalette (); 




return 0 ; 




case WM 

SIZE : 







cxClient = LOWORD (IParam) 

• 

f 




cyClient = HIWORD (IParam) 

參 

f 



return 0 ; 




case WM 

_COMMAND: 







switch (LOWORD (wParam)) 





l 

case IDM_FILE_OPEN: 
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// Show the File Open dialog box 


if ( !GetOpenFileName (&ofn)) 

return 0 ; 


IDC WAIT)); 


(szFileName); 


IDC ARROW)); 


// If there's an existing packed DIB, free the memory 

if (pPackedDib) 

{ 

free (pPackedDib); 
pPackedDib = NULL ; 

} 

// Load the packed DIB into memory 
SetCursor (LoadCursor (NULL, 

ShowCursor (TRUE); 

pPackedDib = PackedDibLoad 


ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, 


if (!pPackedDib) 

{ 

MessageBox ( hwnd, TEXT ("Cannot load DIB file ”）， 

szAppName, 0); 

} 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

} 

break ; 


case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

if (pPackedDib) 

{ 

SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 


SetDIBitsToDevice (hdc,0,0,PackedDibGetWidth 

(pPackedDib), 

PackedDibGetHeight (pPackedDib), 
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0,0,0, PackedDibGetHeight (pPackedDib) , 

PackedDibGetBitsPtr (pPackedDib ), 
pPackedDib, 

DIB_RGB_COLORS); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM_QUERYNEWPALETTE : 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

InvalidateRect (hwnd, NULL, TRUE); 

ReleaseDC (hwnd, hdc); 
return TRUE ; 

case WM_PALETTECHANGED : 

if ( (HWND) wParam != hwnd) 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

UpdateColors (hdc); 

ReleaseDC (hwnd, hdc); 
break ; 

case WM—DESTROY: 

if (pPackedDib) 

free (pPackedDib); 

DeleteObj ect (hPalette); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

SHOWDIB4.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

SHOWDIB4 MENU DISCARDABLE 
BEGIN 
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POPUP 

"&Open n 



BEGIN 


MENUITEM "&File n A 

IDM FILE OPEN 

END 




END 




RESOURCE.H 

( 摘录） 



// Microsoft 

Developer 

Studio generated include file. 


// Used by ShowDib4.rc 



♦define IDM 

FILE OPEN 

40001 



在处理 WM_CREATE 讯息时， SH 0 WDIB 4 将呼叫 CreateAllPurposePalette , 


并在程式中保留该调色盘，而在 WM _ DESTROY 讯息处理期间删除它。因为程式知 
道调色盘一定存在，所以在处理 WM _ PAINT 、 WM _ QUERYNEWPALETTE 或 
WM _ PALETTECHANGED 讯息时，不必检查调色盘的存在。 

CreateAllPurposePalette 函式似乎是用247个项目来建立逻辑调色盘，它 
超出了系统调色盘中允许程式正常存取的236个项目。的确如此，不过这样做 
很方便。这些项目中有15个被复制或者映射到20种标准的保留颜色中。 

CreateAllPurposePalette 从建立31 种灰阶开始，即0 x 00、0 x 09、0 x 11、 
OxlA 、 0 x 22、 0 x 2 B 、 0 x 33、 0 x 3 C 、 0 x 44、 0 x 4 D 、 0 x 55、 0 x 5 E 、 0 x 66、 0 x 6 F 、 0 x 77、 
0 x 80、 0 x 88、 0 x 91、 0 x 99、 0 xA 2、 OxAA 、 0 xB 3、 OxBB 、 0 xC 4、 OxCC 、 0 xD 5、 OxDD 、 
0 xE 6、 OxEE 、0 xF 9 和 OxFF 的红色、绿色和蓝色值。注意，第一个、最後一个和 
中间的项目都在标准的20种保留颜色中。下一个函式用红色、绿色和蓝色值的 
所有组合建立了颜色0 x 00、0 x 33、0 x 66、0 x 99、 OxCC 和 OxFF 。 这样就共有216 

种颜色，但是其中8种颜色复制了标准的20种保留颜色，而另外4个复制了前 
面计算的灰阶。如果将 PALETTEENTRY 结构的 peFlags 栏位设为0，则 Windows 
将不把复制的项目放进系统调色盘。 

显然地，实际的程式不希望计算16位元、24位元或者32位元 DIB 的最佳 
调色盘，程式将继续使用 DIB 颜色表来显示8位元 DIB 。 SH 0 WDIB 4 不完成这项 
工作，它只对每件事都使用通用调色盘。因为 SH 0 WDIB 4 是一个展示程式，而且 
您可以与 SH 0 WDIB 3 显示的8位元 DIB 进行比较。如果看一些人像的彩色 DIB , 
那么您可能会得出这样的 结论： SH 0 WDIB 4 没有足够的颜色来精确地表示鲜艳的 
色调。 

如果用 SH 0 WDIB 4 中的 CreateAllPurposePalette 函式来试验（可能是通过 
将逻辑调色盘的大小减少到只有几个项目的方法），您将发现当调色盘选进装 
置内容时， Windows 将只使用调色盘中的颜色，而不使用标准的20种颜色调色 
盘的颜色。 
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中间色调色盘 


Windows API 包括一个通用调色盘，程式可以通过呼叫 
CreateHalftonePalette 来获得该调色盘。使用此调色盘的方法与使用从 
SH 0 WDIB 4 中的 CreateAllPurposePalette 获得调色盘的方法相同，或者您也可 
以与点阵图缩放模式中的 HALFTONE 设定——用 SetStretchBItMode 设定—— 一 
起使用。程式 16-15 所示的 SH 0 WDIB 5 程式展示了使用中间色调色盘的方法。 


程式 16-15 SH0WDIB5 


SH0WDIB5.C 

" - 

SH0WDIB5.C -- Displays DIB with halftone palette 

(c) Charles Petzold, 1998 

- */ 


♦include <windows.h> 

♦include "..\\ShowDib3\\PackeDib.h" 
♦include "resource.h" 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("ShowDib5"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 


iCmdShow) 

{ 

HWND 

MSG 

WNDCLASS 


hwnd ; 
msg ; 
wndclass ; 


PSTR szCmdLine, 


int 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS_VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, 工 DC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=szAppName ; 

=szAppName ; 


if ( !RegisterClass (&wndclass)) 

{ 

MessageBox ( 

Windows NT ! ’’）， 

MB ICONERROR); 


NULL, TEXT ("This program requires 


szAppName A 
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return 0 ; 


hwnd = CreateWindow ( szAppName, TEXT ("Show DIB #5 : Halftone Palette"), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT, 

CW_USEDEFAULT, CW_USEDEFAULT A 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK 

IParam) 

WndProc ( HWND 

hwnd, UINT message , 

i 

static 

BITMAPINFO * 

pPackedDib ; 

static 

HPALETTE 

hPalette ; 


WPARAM wParam,LPARAM 


static 
static 
static 
[MAX_PATH]; 
static 


int cxClient, cyClient ; 

OPENFILENAME ofn ; 

TCHAR szFileName [MAX_PATH], szTitleName 

TCHAR szFilter[] = TEXT ("Bitmap Files 


(*.BMP)\0*.bmp\O n ) 

TEXT ("All Files (*•*)\◦*•*\◦\◦ n ); 

HDC hdc ; 

PAINTSTRUCT ps ; 


switch (message) 
case WM—CREATE: 

ofn.IStructSize 

ofn.hwndOwner 

ofn.hlnstance 

ofn.lpstrFilter 

ofn.IpstrCustomFilter 

ofn.nMaxCustFilter 

ofn.nFiIterIndex 

ofn.IpstrFile 

ofn.nMaxFile 

ofn.lpstrFileTitle 


=sizeof (OPENFILENAME); 
=hwnd ; 

=NULL ; 

=szFilter ; 

=NULL ; 

=◦; 

=◦; 

=szFileName ; 

=MAX_PATH ; 

=szTitleName ; 
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ofn.nMaxFileTitle 
ofn.lpstrlnitialDir 
ofn.lpstrTitle 
ofn.Flags 
ofn.nFileOffset 
ofn.nFileExtension 
ofn.IpstrDefExt 
ofn.lCustData 


=MAX_PATH ; 
=NULL ; 

=NULL ; 



=TEXT ("bmp"); 


ofn.lpfnHook = NULL ; 

ofn.lpTemplateName = NULL ; 


// Create the All-Purpose Palette 


hdc = GetDC (hwnd); 

hPalette = CreateHalftonePalette (hdc); 
ReleaseDC (hwnd, hdc); 
return 0 ; 


case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM_COMMAND : 

switch (LOWORD (wParam)) 

{ 

case 工 DM_FILE_OPEN: 

// Show the File Open dialog box 

if (!GetOpenFileName (&ofn)) 

return 0 ; 

// If there's an existing packed DIB, free the memory 

if (pPackedDib) 

{ 

free (pPackedDib); 
pPackedDib = NULL ; 


// Load the packed DIB into memory 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 

pPackedDib = PackedDibLoad (szFileName); 
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ShowCursor (FALSE) ; 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 

if (!pPackedDib) 

{ 

MessageBox ( hwnd, TEXT ("Cannot load DIB file ”）， 

szAppName, 0); 

} 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

} 

break ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

if (pPackedDib) 

{ 

// Set halftone stretch mode 

SetStretchBltMode (hdc, HALFTONE); 
SetBrushOrgEx (hdc, 0, ◦, NULL); 

// Select and realize halftone palette 

SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 

// StretchDIBits rather than SetDIBitsToDevice 
StretchDIBits ( hdc,0,0,PackedDibGetWidth (pPackedDib), 

PackedDibGetHeight (pPackedDib), 

0,0,PackedDibGetWidth (pPackedDib), 

PackedDibGetHeight (pPackedDib), 
PackedDibGetBitsPtr (pPackedDib), 
pPackedDib, 

DIB_RGB_COLORS, 

SRCCOPY); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—QUERYNEWPALETTE: 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

InvalidateRect (hwnd, NULL, TRUE); 

ReleaseDC (hwnd, hdc); 
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return TRUE ; 

case WM_PALETTECHANGED : 

if ( (HWND) wParam != hwnd) 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

UpdateColors (hdc); 

ReleaseDC (hwnd, hdc); 
break ; 

case WM—DESTROY: 

if (pPackedDib) 

free (pPackedDib); 

DeleteObj ect (hPalette); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

SH0WDIB5.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

SH0WDIB5 MENU DISCARDABLE 
BEGIN 

POPUP "&Open n 
BEGIN 

MENUITEM "&File n , IDM_FILE_OPEN 

END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by ShowDib5.rc 

♦define 工 DM—FILE—OPEN 40001 

SH 0 WDIB 5 程式类似於 SH 0 WDIB 4, SH 0 WDIB 4 中不使用 DIB 中的颜色表，而使 
用适用於图像范围更大的调色盘。为此， SH 0 WDIB 5 使用了由 Windows 支援的逻 
辑调色盘，其代号可以从 CreateHalftonePalette 函式获得。 
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中间色调色盘并不比 SH 0 WDIB 4 中的 CreateAllPurposePalette 函式所建立 
的调色盘更复杂。的确，如果只是拿来自用，结果是相似的。然而，如果您呼 
叫下面两个函式： 

SetStretchBltMode (hdc, HALFTONE); 

SetBrushOrgEx (hdc, x, y, NULL); 

其中， x 和 y 是 DIB 左上角的装置座标，并且如果您用 StretchDIBits 而不 
是 SetDIBitsToDevice 来显示 DIB ， 那么结果会让您 吃惊： 颜色色调要比不设定 
点阵图缩放模式来使用 CreateAllPurposePalette 或者 CreateHalftonePalette 
更精确。 Windows 使用一种混色图案来处理中间色调色盘上的颜色，以使其更接 
近8位元显示卡上原始图像的颜色。与您所想像的一样，这样做的缺点是需要 
更多的处理时间。 


索引调色盘颜色 

现在开始处理 SetDIBitsToDevice > StretchDIBits 、 CreateDIBitmap 、 
SetDIBits、GetDIBits 和 CreateDIBSection 的 fClrUse 参数。通常，您将这个 
参数设定为 DIB _ RGB _ C 0 L 0 RS (等於0)。不过，您也能将它设定为 DIB _ PAL _ C 0 L 0 RS 。 
在这种情况下，假定 BITMAPINF 0 结构中的颜色表不包括 RGB 颜色值，而是包括 
逻辑调色盘中颜色项目的16位元索引。逻辑调色盘是作为第一个参数传递给函 
式的装置内容中目前选择的那个。实际上，在 CreateDIBSection 中，之所以需 

要指定一个非 NULL 的装置内容代号作为第一个参数，只是因为使用了 
DIB _ PAL _ C 0 L 0 RSc 

DIB _ PAL _ C 0 L 0 RS 能为您做些什么呢？它可能提高一些性能。考虑一下在8 
位元显示模式下呼叫 SetDIBitsToDevice 显示的8位元 DIB 。 Windows 首先必须 
在 DIB 颜色表的所有颜色中搜索与设备可用颜色最接近的颜色。然後设定一个 
小表，以便将 DIB 图素值映射到设备图素。也就是说，最多需要搜索256次最 
接近的颜色。但是如果 DIB 颜色表中含有从装置内容中选择颜色的逻辑调色盘 
项目索引，那么就可能跳过搜索。 

除了使用调色盘索引以外，程式 16-16 所示的 SH 0 WDIB 6 程式与 SH 0 WDIB 3 
相似。 


程式 16-16 SH0WDIB6 


SH0WDIB6.C 

/* - 


SH0WDIB6.C -- 

Display DIB with palette indices 

(c) Charles Petzold, 1998 

V 


第 828 页 








Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


#include <windows.h> 

♦include "..\\ShowDib3\\PackeDib.h" 

♦include "resource.h" 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("ShowDib6"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int 

iCmdShow) 

{ 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 

if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires 

Windows NT ! ▼’）， 

szAppName, 

MB_ICONERROR); 

return 0 ; 

} 

hwnd = CreateWindow ( szAppName, TEXT ("Show DIB #6 : Palette Indices 1 ，）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW_USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, 工 DI_APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=szAppName ; 

=szAppName ; 
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return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 


{ 

static 
static 
static 
static 
static 
[MAX_PATH]; 
static 


BITMAPINFO * 
HPALETTE 


pPackedDib ; 
hPalette ; 


int cxClient, cyClient 

OPENFILENAME ofn ; 

TCHAR szFileName 


TCHAR szFilter[] 

• BMP)\•bmp\0 M ) 

TEXT ("All Files (*•*)\◦*•*\◦\◦ n ); 


HDC 

int 

PAINTSTRUCT 

WORD 


hdc ; 

i, iNumColors ; 
ps ; 

pwlndex 


-k 


[MAX PATH], 


szTitleName 


TEXT 


("Bitmap 


Files 


switch (message) 

{ 

case WM—CREATE: 

ofn.lStructSize 

ofn.hwndOwner 

ofn.hlnstance 

ofn.lpstrFilter 

ofn.lpstrCustomFilter 

ofn.nMaxCustFilter 

ofn.nFiIterIndex 

ofn.lpstrFile 

ofn.nMaxFile 

ofn.lpstrFileTitle 

ofn.nMaxFileTitle 

ofn.lpstrlnitialDir 

ofn.lpstrTitle 

ofn.Flags 

ofn.nFileOffset 

ofn.nFileExtension 

ofn.IpstrDefExt 

ofn.lCustData 

ofn.lpfnHook 

ofn.lpTemplateName 


=sizeof (OPENFILENAME); 
=hwnd ; 

=NULL ; 

=szFilter ; 

=NULL ; 

=◦; 

=◦; 

=szFileName ; 

=MAX_PATH ; 

=szTitleName ; 


=MAX_PATH ; 
=NULL ; 

=NULL ; 



=TEXT ("bmp"); 


=NULL ; 
=NULL ; 


return 0 ; 


case WM SIZE: 
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cxClient = LOWORD (IParam) ; 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM_COMMAND : 

switch (LOWORD (wParam)) 

{ 

case IDM_FILE_OPEN: 

// Show the File Open dialog box 
if (!GetOpenFileName (&ofn)) 

return 0 ; 

// If there 1 s an existing packed DIB, free the memory 

if (pPackedDib) 

{ 

free (pPackedDib); 
pPackedDib = NULL ; 


// If there's an existing logical palette, delete it 

if (hPalette) 

{ 

DeleteObj ect (hPalette); 
hPalette = NULL ; 


// Load the packed DIB into memory 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 

pPackedDib = PackedDibLoad (szFileName); 
ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, 工 DC—ARROW)); 

if (pPackedDib) 

{ 

// Create the palette from the DIB color table 
hPalette = PackedDibCreatePalette (pPackedDib); 

// Replace DIB color table with indices 

if (hPalette) 
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iNumColors = PackedDibGetNumColors (pPackedDib) ; 

pwlndex = (WORD *) 

PackedDibGetColorTablePtr (pPackedDib); 

for (i = 0 ; i < iNumColors ; i++) 

pwlndex[i] = (WORD) i ; 

} 

} 

else 

{ 

MessageBox ( hwnd, TEXT ("Cannot load DIB file' 1 ), 

szAppName, 0); 

} 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

} 

break ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

if (hPalette) 

{ 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

} 

if (pPackedDib) 

SetDIBitsToDevice (hdc,0,0, 

PackedDibGetWidth (pPackedDib), 

PackedDibGetHeight (pPackedDib), 

0,0,0,PackedDibGetHeight (pPackedDib), 
PackedDibGetBitsPtr (pPackedDib), 
pPackedDib, 

DIB_PAL_COLORS); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—QUERYNEWPALETTE: 

if (!hPalette) 

return FALSE ; 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

InvalidateRect (hwnd, NULL, TRUE); 
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ReleaseDC (hwnd, hdc) ; 
return TRUE ; 

case WM_PALETTECHANGED : 

if ( !hPalette | | (HWND) wParam == hwnd) 

break ; 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

UpdateColors (hdc); 

ReleaseDC (hwnd, hdc); 
break ; 

case WM—DESTROY: 

if (pPackedDib) 

free (pPackedDib); 

if (hPalette) 

DeleteObj ect (hPalette); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

SH0WDIB6.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h n 
♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

SH0WDIB6 MENU DISCARDABLE 
BEGIN 

POPUP "&File n 
BEGIN 

MENUITEM n &Open", 工 DM_FILE_OPEN 

END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by ShowDib6.rc 

// 

♦define 工 DM FILE OPEN 40001 
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SH 0 WDIB 6 将 DIB 载入到记忆体并由此建立了调色盘以後， SH 0 WDIB 6 简单地 
用以0开始的 WORD 索引替换了 DIB 颜色表中的颜色 。 PackedDibGetNumColors 
函式将表示有多少种颜色，而 PackedDibGetColorTablePtr 函式传回指向 DIB 
颜色表起始位置的指标。 

注意，只有直接从 DIB 颜色表来建立调色盘时，此技术才可行。如果使用 
通用调色盘，则必须搜索最接近的颜色，以获得放入 DIB 的索引。 

如果要使用调色盘索引，那么请在将 DIB 储存到磁片之前，确实替换掉 DIB 
中的颜色表。另外，不要将包含调色盘索引的 DIB 放入剪贴簿。实际上，在显 
示之前，将调色盘索引放入 DIB ， 然後将 RGB 颜色值放回，会更安全一些。 

调色盘和点阵图物件 


程式 16-17 中的 SH 0 WDIB 7 程式显示了如何使用与 DIB 相关联的调色盘，这 
些 DIB 是使用 CreateDIBitmap 函式转换成 GDI 点阵图物件的。 


程式 16-17 SH0WDIB7 


SH0WDIB7.C 

/* - 

SH0WDIB7.C -- Shows DIB converted to DDB 

(c) Charles Petzold, 1998 



♦include <windows.h> 

♦include "..\\ShowDib3\\PackeDib.h" 

♦include "resource.h" 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("ShowDib7"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 


iCmdShow) 

{ 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 


PSTR szCmdLine, int 


=CS_HREDRAW | CS_VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, 工 DC ARROW); 
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wndclass . hbrBackground 

= (HBRUSH) GetStockObject 

(WHITE BRUSH); 


wndclass . IpszMenuName 

= s zAppName ; 




wndclass . IpszClassName 

= s zAppName ; 




if (!RegisterClass (&wndclass)) 

； 




l 

MessageBox 

( NULL, TEXT ("This 

program 

requires 

Windows NT 丨 ’▼) , 







szAppName, 

MB 

ICONERROR); 





return 0 ; 

} 





hwnd = CreateWindow ( szAppName, TEXT ("Show DIB #7 : Converted 

to DDB") , 


WS OVERLAPPEDWINDOW, 




CW USEDEFAULT, CW USEDEFAULT, 




CW USEDEFAULT, CW USEDEFAULT, 




NULL, NULL, 

hlnstance, NULL); 




ShowWindow (hwnd, iCmdShow) 

• 

f 




UpdateWindow (hwnd); 





while (GetMessage (&msg, NULL, 0, 0)) 

f 




TranslateMessage 

( &msg); 




DispatchMessage 

(&msg); 



} 

； 

return msg . wParam ; 




LRESULT CALLBACK WndProc (HWND hwnd 

f 

[ r UINT message, WPARAM wParam, LPARAM IParam) 


static HBITMAP 

hBitmap ; 




static HPALETTE 

hPalette ; 




static int 

cxClient, cyClient ; 




static OPENFILENAME ofn ; 




static TCHAR 

szFileName [MAX PATH] 

, szTitleName 

[MAX PATH]; 





static TCHAR 

szFilter[] = TEXT 

("Bitmap 

Files 


. BMP)\ • bmp\0") 





TEXT ("All Files (*.*)\0*.* 

\0\0"); 




BITMAP 

bitmap ; 




BITMAPINFO * 

pPackedDib ; 




HDC 

hdc, hdcMem ; 




PAINTSTRUCT 

ps ; 




switch (message) 

{ 
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case 

WM 

CREATE : 






ofn.IStructSize 

=sizeof (OPENFILENAME); 




ofn.hwndOwner 

=hwnd ; 




ofn.hlnstance 

=NULL ; 




ofn.lpstrFilter 

=szFilter ; 




ofn.IpstrCustomFilter = NULL ; 




ofn.nMaxCustFilter 

=◦; 




ofn.nFiIterIndex 

=◦; 




ofn.IpstrFile 

=szFileName ; 




ofn.nMaxFile 

=MAX PATH ; 




ofn.lpstrFileTitle 

=szTitleName ; 




ofn.nMaxFileTitle 

=MAX PATH ; 




ofn.lpstrlnitialDir 

=NULL ; 




ofn.lpstrTitle 

=NULL ; 




ofn.Flags 

= 0 ; 




ofn.nFileOffset 

=◦; 




ofn.nFileExtension 

=◦; 




ofn.IpstrDefExt 

=TEXT ("bmp"); 




ofn.lCustData 

=◦; 




ofn.lpfnHook 

=NULL ; 




ofn.lpTemplateName 

=NULL ; 




return 0 ; 


case 

WM 

SIZE : 






cxClient = LOWORD (IParam); 




cyClient = HIWORD (IParam); 




return 0 ; 


case 

WM 

COMMAND : 






switch (LOWORD (wParam)) 

f 




X 

case IDM FILE OPEN: 





// Show 

the File Open dialog box 




if ( !GetOpenFileName (&ofn)) 




return 0 ; 




"If 

there 1 s an existing 

packed DIB, free the memory 



if (hBitmap) 

/ 





l 

DeleteObj ect (hBitmap); 




hBitmap = NULL ; 

} 



//If 

there 1 s an existing 

logical palette, delete it 
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if (hPalette) 

{ 

DeleteObj ect (hPalette); 
hPalette = NULL ; 


// Load the packed DIB into memory 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 

ShowCursor (TRUE); 

pPackedDib = PackedDibLoad (szFileName); 
ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, 工 DC—ARROW)); 

if (pPackedDib) 

{ 

// Create palette from the DIB and select it into DC 

hPalette = PackedDibCreatePalette (pPackedDib); 

hdc = GetDC (hwnd); 

if (hPalette) 

{ 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

} 

// Create the DDB from the DIB 
hBitmap = CreateDIBitmap(hdc,(PBITMAPINFOHEADER) pPackedDib, 
CBM—INIT,PackedDibGetBitsPtr (pPackedDib), 
pPackedDib, DIB_RGB_COLORS); 

ReleaseDC (hwnd, hdc); 

// Free the packed-DIB memory 

free (pPackedDib); 

} 

else 

{ 

MessageBox ( hwnd, TEXT ("Cannot load DIB file ”）， 

szAppName, 0); 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 
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break ; 

case WM—PAINT : 

hdc = BeginPaint (hwnd, &ps); 

if (hPalette) 

{ 

SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 

} 

if (hBitmap) 

{ 

GetObject (hBitmap, sizeof (BITMAP), &bitmap); 
hdcMem = CreateCompatibleDC (hdc); 

SelectObject (hdcMem, hBitmap); 

BitBlt (hdcbitmap•bmWidth, bitmap.bmHeight , 

hdcMem, ◦, 0, SRCCOPY); 

DeleteDC (hdcMem); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—QUERYNEWPALETTE: 

if (!hPalette) 

return FALSE ; 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

InvalidateRect (hwnd, NULL, TRUE); 

ReleaseDC (hwnd, hdc); 
return TRUE ; 

case WM_PALETTECHANGED : 

if ( !hPalette | | (HWND) wParam == hwnd) 

break ; 

hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

UpdateColors (hdc); 

ReleaseDC (hwnd, hdc); 
break ; 

case WM DESTROY: 
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if (hBitmap) 

DeleteObj ect (hBitmap); 

if (hPalette) 

DeleteObj ect (hPalette); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

SH0WDIB7.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

SH0WDIB7 MENU DISCARDABLE 
BEGIN 

POPUP "&File n 
BEGIN 

MENUITEM "&Open n , IDM_FILE_OPEN 

END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by ShowDib7.rc 

♦define IDM—FILE—OPEN 40001 

与前面的程式一样， SH0WDIB7 获得了一个指向 packed DIB 的指标，该 DIB 
回应功能表的 「File」 、 「Open」 命令。程式从 packed DIB 建立了调色盘，然 
後——还是在 WM_C0MMAND 讯息的处理过程中——获得了用於视讯显示的装置内 
容，并选进调色盘，显现调色盘。然後 SH0WDIB7 呼叫 CreateDIBitmap 以便从 
DIB 建立 DDBo 如果调色盘没有选进装置内容并显现，那么 CreateDIBitmap 建 
立的 DDB 将不使用逻辑调色盘中的附加颜色。 

呼叫 CreateDIBitmap 以後，该程式将释放 packed DIB 占用的记忆体空间。 
pPackedDib 变数不是静态变数。相反的， SH0WDIB7 按静态变数保留了点阵图代 
号 (hBitmap) 和逻辑调色盘代号 （hPalette) 。 

在 WM_PAINT 讯息处理期间，调色盘再次选进装置内容并显现。 GetObject 
函式可获得点阵图的宽度和高度。然後，程式通过建立相容的记忆体装置内容 
在显示区域显示点阵图，选进点阵图，并执行 BitBlt。 显示 DDB 时所用的调色 
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盘，必须与从 CreateDIBitmap 呼叫建立时所用的一样。 

如果将点阵图复制到剪贴簿，则最好使用 packed DIB 格式。然後 Windows 
可以将点阵图物件提供给希望使用这些点阵图的程式。然而，如果需要将点阵 
图物件复制到剪贴簿，则首先要获得视讯装置内容并显现调色盘。这允许 
Windows 依据目前的系统调色盘将 DDB 转换为 DIB 。 

调色盘和 DIB 区块 


最後，程式 16-18 所示的 SH 0 WDIB 8 说明了如何使用带有 DIB 区块的调色盘。 


程式 16-18 SH0WDIB8 


SH0WDIB8.C 

/* - 

SH0WDIB8.C -- Shows DIB converted to DIB section 

(c) Charles Petzold, 1998 



♦include <windows.h> 

♦include ”. .\\ShowDib3\\PackeDib.h" 
♦include "resource.h" 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("ShowDib8"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int 


iCmdShow) 

{ 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 

wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hInstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS_VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, 工 DC—ARROW); 
(HBRUSH) GetStockObject (WHITE—BRUSH); 
szAppName ; 
szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT! n ), 
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szAppName, MB_ICONERROR) ; 

return 0 ; 

} 

hwnd = CreateWindow ( szAppName, TEXT ("Show DIB #8 : DIB Section"), 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT a CW—USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc (HWND hwnd, UINT message, WPARAM wParam, LPARAM IParam) 


static HBITMAP 
static HPALETTE 


hBitmap ; 
hPalette ; 


static 

int 

cxClient, 

cyClient ; 

static 

OPENFILENAME ofn ; 



static 

PBYTE 

pBits ; 



static 

TCHAR 

szFileName 

[MAX 

PATH], szTitleName [MAX PATH]; 

static 

TCHAR 

szFilter[]= 

TEXT 

("Bitmap Files (* • BMP) \ 0* • bmp\0’’) 

TEXT 

("All Files 

(*•*)\0*.*\0\0 n ); 


BITMAP 


bitmap ; 


BITMAPINFO 

★ 

pPackedDib ; 

HDC 


hdc. 

hdcMem ; 

PAINTSTRUCT 

ps ; 




switch (message) 

{ 

case WM—CREATE: 

ofn.lStructSize 

ofn.hwndOwner 

ofn.hlnstance 

ofn.lpstrFilter 

ofn.IpstrCustomFilter 

ofn.nMaxCustFilter 

ofn.nFiIterIndex 

ofn.IpstrFile 

ofn.nMaxFile 


=sizeof (OPENFILENAME); 
=hwnd ; 

=NULL ; 

=szFilter ; 

=NULL ; 



=szFileName ; 
=MAX PATH ; 
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case 


case 


ofn.lpstrFileTitle 

ofn.nMaxFileTitle 

ofn.lpstrlnitialDir 

ofn.lpstrTitle 

ofn.Flags 

ofn.nFileOffset 

ofn.nFileExtension 

ofn.lpstrDefExt 

ofn.lCustData 

ofn.lpfnHook 

ofn.lpTemplateName 


s zTitleName 
MAX_PATH ; 
NULL ; 

NULL ; 


TEXT ("bmp") 
0 ； 

NULL ; 

NULL ; 


return 


WM SIZE : 


cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 


WM COMMAND : 


switch (LOWORD (wParam)) 

{ 

case IDM_FILE_OPEN: 

// Show the File Open dialog box 

if ( !GetOpenFileName (&ofn)) 

return 0 ; 

// If there 1 s an existing packed DIB, free the memory 


if 

{ 


(hBitmap) 


DeleteObj ect (hBitmap) 
hBitmap = NULL ; 


// If there 1 s an existing logical palette, delete it 


if (hPalette) 




DeleteObj ect (hPalette); 
hPalette = NULL ; 


// Load the packed DIB into memory 


SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 
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hBitmap = 


case 


&bitmap) ; 


pPackedDib = PackedDibLoad (szFileName); 
ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 

if (pPackedDib) 

{ 

// Create the DIB section from the DIB 
CreateDIBSection (NULL,pPackedDib,DIB_RGB_COLORS,&pBits,NULL, 0); 
// Copy the bits 

CopyMemory (pBits, PackedDibGetBitsPtr (pPackedDib), 

PackedDibGetBitsSize (pPackedDib)); 

// Create palette from the DIB 

hPalette = PackedDibCreatePalette (pPackedDib); 

// Free the packed-DIB memory 

free (pPackedDib); 

} 

else 

{ 

MessageBox ( hwnd A TEXT ("Cannot load DIB file ”）， 

szAppName A 0); 

} 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

} 

break ; 

WM_PAINT : 

hdc = BeginPaint (hwnd, &ps); 

if (hPalette) 

{ 

SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 

} 

if (hBitmap) 

{ 

GetObject (hBitmap, sizeof (BITMAP), 

hdcMem = CreateCompatibleDC (hdc); 
SelectObj ect (hdcMem, hBitmap); 
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BitBlt ( hdc , 0 , 0 , bitmap•bmWidth, bitmap•bmHeight, 

hdcMem, ◦, ◦, SRCCOPY); 

DeleteDC (hdcMem); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—QUERYNEWPALETTE: 

if ( !hPalette) 

return FALSE ; 


hdc = GetDC 
SelectPalette 
RealizePalette 
工 nvalidateRect 


(hwnd); 

(hdc, hPalette, FALSE) 
(hdc); 

(hwnd, NULL, TRUE); 


ReleaseDC (hwnd, hdc); 
return TRUE ; 


case WM_PALETTECHANGED : 

if ( !hPalette | | 


(HWND) wParam 
break ; 


hwnd) 


hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 

UpdateColors (hdc); 

ReleaseDC (hwnd, hdc); 
break ; 


case WM—DESTROY: 

if (hBitmap) 

DeleteObj ect (hBitmap); 

if (hPalette) 

DeleteObj ect (hPalette); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

SH0WDIB8.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
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♦include "resource.h" 

♦include "afxres.h M 

1111111111111111111111111111111111111111111111111111111111111111111111111111 
/ 

// Menu 

SH0WDIB8 MENU DISCARDABLE 
BEGIN 

POPUP M &File" 

BEGIN 

MENUITEM ，， &Open n , IDM_FILE_OPEN 

END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by ShowDib8.rc 

♦define 工 DM—FILE—OPEN 40001 

在 SH 0 WDIB 7 和 SH 0 WDIB 8 中的 WM _ PAINT 处理是一 样的： 两个程式都将点阵 
图代号 ( hBitmap ) 和逻辑调色盘代号 （ hPalette ) 作为静态变数。调色盘被选 
进装置内容并显现，点阵图的宽度和高度从 GetObject 函式获得，程式建立记 
忆体装置内容并选进点阵图，然後通过呼叫 BitBlt 将点阵图显示到显示区域。 

两个程式之间最大的差别在於处理 「 File 」 、 「 Open 」 功能表命令的程序。 
在获得指向 packed DIB 的指标并建立了调色盘以後， SH 0 WDIB 7 必须将调色盘选 
进视讯装置内容，并在呼叫 CreateDIBitmap 之前显现。 SH 0 WDIB 8 在获得 packed 
DIB 指标以後呼叫 CreateDIBSectiono 不必将调色盘选进装置内容，这是因为 
CreateDIBSection 不将 DIB 转换成设备相关的格式。的确 ， CreateDIBSection 
的第一个参数（即装置内容代号）的唯一用途在於您是否使用 DIB _ PAL _ C 0 L 0 RS 
旗标。 

呼叫 CreateDIBSection 以後， SH 0 WDIB 8 将图素位元从 packed DIB 复制到 
从 CreateDIBSection 函式传回的记忆体位置，然後呼叫 
PackedDibCreatePalette 。 尽管此函式便於程式使用，但是 SH 0 WDIB 8 将依据从 
GetDIBColorTable 函式传回的资讯建立调色盘。 

DIB 处理程式库 

就是现在——经过我们长时间地学习 GDI 点阵图物件、装置无关点阵图、 
DIB 区块和 Windows 调色盘管理器之後——我们才做好了开发一套有助於处理点 
阵图的函式的准备。 

前面的 PACKEDIB 档案展示了一种可能的 方法： 记忆体中的 packed DIB 只 
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用指向它的指标表示。程式所的有关 DIB 的全部资讯都可以从存取表头资讯结 
构的函式获得。然而，实际上到 rget pixel 」 和 rset pixel 」 常式时，这种 
方法就会产生严重的执行问题。图像处理任务当然需要存取点阵图位元，并且 
这些函式也应该尽可能地快。 

可能的 C ++ 的解决方式中包括建立 DIB 类别，这时指向 packed DIB 的指标 
正好是一个成员变数。其他成员变数和成员函式有助於更快地执行获得和设定 
DIB 中的图素的常式。不过，因为我在第一章已经指出，对於本书您只需要了解 
C ， 使用 C ++ 将是其他书的范围。 

当然，用 C ++ 能做的事情用 C 也能做。 一 个好的例子就是许多 Windows 函式 
都使用代号。除了将代号当作数值以外，应用程式对它还了解什么呢？程式知 
道代号引用特殊的函式物件，还知道函式用於处理现存的物件。显然，作业系 
统按某种方式用代号来引用物件的内部资讯。代号可以与结构指标一样简单。 

例如，假设有一个函式集，这些函式都使用一个称为 HDIB 的代号。 HDIB 是 
什么呢？它可能在某个表头档案中定义 如下： 

typedef void * HDIB ; 

此定义用「不关您的事」回答了 「 HDIB 是什么」这个问题。 

然而，实际上 HDIB 可能是结构指标，该结构不仅包括指向 packed DIB 的 


指标，还包括其他 资讯: 


typedef struct 

! 



X 

BITMAPINFO 

女 

pPackedDib ; 

int 


cx, cy, cBitsPerPixel, cBytesPerRow ; 

BYTE 


* pBits ; 

I 

DIBSTRUCTURE, * 

PDIBSTRUCTURE ; 


此结构的其他五个栏位包括从 packed DIB 中引出的资讯。当然，结构中这 
些值允许更快速地存取它们。不同的 DIB 程式库函式都可以处理这个结构，而 
不是 pPackedDib 指标。可以按下面的方法来执行 DibGetPixelPointer 函式： 


BYTE 

r 

* DibGetPixelPointer 

(HDIB 

hdib. 

int x, int y) 


i 

PDIBSTRUCTURE pdib = 

hdib 

參 




return pdib—>pBits + 

y ★ 

pdib- 

■>cBytesPerRow + 


} 



x ★ 

pdib->cBitsPerPixel / ^ 



当然，这种方法可能要比 PACKH 3 IB . C 中执行 「get pixel 」 常式快。 


由於这种方法非常合理，所以我决定放弃 packed DIB ， 并改用处理 DIB 区 
块的 DIB 程式库。这实际上使我们对 packed DIB 的处理有更大的弹性（也就是 
说，能够在装置无关的方式下操纵 DIB 图素位元），而且在 Windows NT 下执行 
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时将更有效。 

DIBSTRUCT 结构 

DIBHELP . C 档案——如此命名是因为对处理 DIB 提供帮助——有上千行，并 


在几个小部分中显示。但是首先让我们看一下 DIBHELP 函式所处理的结构，该 
结构在 DIBHELP . C 中定义 如下： 


typedef struct 

； 




i 

PBYTE 

* ppRow ; 

// array of row pointers 

int 

iSignature ; 

// 

="Dib " 

HBITMAP 

hBitmap ; 

// 

handle returned from CreateDIBSection 

BYTE 

* pBits ; 

// 

pointer to bitmap bits 

DIBSECTION 

ds ; 

// 

DIBSECTION structure 

int 

iRShift[3]; 

// 

right-shift values for color masks 

int 

1 

iLShift[3]; 

// 

left-shift values for color masks 

f 

DIBSTRUCT, ^ PDIBSTRUCT ; 




现在跳过第一个栏位。它之所以为第一个栏位是因为它使某些巨集更易於 


使用——在讨论完其他栏位以後再来理解第一个栏位就更容易了。 

在 DIBHELP . C 中，当 DIB 建立的函式首先设定了此结构时，第二个栏位就 
设定为文字字串 「 Dib 」 的二进位值。通过一些 DIBHELP 函式，第二个栏位将用 
於结构有效指标的一个标记。 

第三个栏位，即 hBitmap ， 是从 CreateDIBSection 函式传回的点阵图代号。 
您将想起该代号可有多种使用方式，它与我们在第十四章遇到的 GDI 点阵图物 
件的代号用法一样。不过，从 CreateDIBSection 传回的代号将涉及按装置无关 
格式储存的点阵图，该点阵图格式一直储存到通过呼叫 BitBlt 和 StretchBlt 
来将位元图画到输出设备。 

DIBSTRUCT 的第四个栏位是指向点阵图位元的指标。此值也可由 
CreateDIBSection 函式设定。您将想起，作业系统将控制这个记忆体块，但应 

用程式有存取它的许可权。在删除点阵图代号时，记忆体块将自动释放。 

DIBSTRUCT 的第五个栏位是 DIBSECTION 结构。如果您有从 
CreateDIBSection 传回的点阵图代号，那么您可以将代号传递给 GetObject 函 
式以获得有关 DIBSECTION 结构中的点阵图 资讯： 

GetObject (hBitmap, sizeof (DIBSECTION), &ds); 

作为提示， DIBSECTION 结构在 WINGDI . H 中定义 如下： 

typedef struct tagDIBSECTION { 

BITMAP dsBm ; 

BITMAPINFOHEADER dsBmih ; 

DWORD dsBitfields[3] ; // Color masks 
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HANDLE dshSection ; 

DWORD dsOffset ; 

} 

DIBSECTION, * PDIBSECTION ; 

第一个栏位是 BITMAP 结构，它与 CreateBitmapIndirect 一 起建立点阵图 
物件，与 GetObject 一起传回关於 DDB 的资讯。第二个栏位是 BITMAPINFOHEADER 
结构。不管点阵图资讯结构是否传递给 CreateDIBSection 函式， DIBSECTION 结 
构总有 BITMAPINFOHEADER 结构而不是其他结构，例如 BITMAPCOREHEADER 结构。 
这意味著在存取此结构时， DIBHELP . C 中的许多函式都不必检查与 OS /2 相容的 
DIB 。 

对於16位元和32位元的 DIB , 如果 BITMAPINFOHEADER 结构的 
biCompression 栏位是 BI _ BITFIELDS ， 那么在资讯表头结构後面通常有三个遮 
罩值。这些遮罩值决定如何将16位元和32位图素值转换成 RGB 颜色。遮罩储 
存在 DIBSECTION 结构的第三个栏位中。 

DIBSECTION 结构的最後两个栏位指的是 DIB 区块，此区块由档案映射建立。 
DIBHELP 不使用 CreateDIBSection 的这个特性，因此可以忽略这些栏位。 

DIBSTRUCT 的最後两个栏位储存左右移位值，这些值用於处理16位元和32 
位元 DIB 的颜色遮罩。我们将在第十五章讨论这些移位值。 

让我们再回来看一下 DIBSTRUCT 的第一个栏位。正如我们所看到的一样， 
在开始建立 DIB 时，此栏位设定为指向一个指标阵列的指标，该阵列中的每个 
指标都指向 DIB 中的一行图素。这些指标允许以更快的方式来获得 DIB 图素位 
元，同时也被定义，以便顶行可以首先引用 DIB 图素位元。此阵列的最後一个 
元素——引用 DIB 图像的最底行——通常等於 DIBSTRUCT 的 pBits 栏位。 


资讯函式 

DIBHELP . C 以定义 DIBSTRUCT 结构开始，然後提供一个函式集，此函式集允 
许应用程式获得有关 DIB 区块的资讯。程式 16-19 显示了 DIBHELP . C 的第一部 
分。 

程式 16-19 DIBHELP. C 档案的第一部分 

DIBHELP. C ( 第一部分） 

/* - 

DIBHELP.C -- DIB Section Helper Routines 

(c) Charles Petzold, 1998 


V 

♦include <windows.h> 
♦include "dibhelp.h" 
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#define HDIB SIGNATURE 

(* (int *) "Dib ，， ） 

typedef struct 

/ 



PBYTE 

* ppRow ; // must be first field for macros ! 


int 

iSignature ; 


HBITMAP 

hBitmap ; 


BYTE 

* pBits ; 


DIBSECTION 

ds ; 


int 

iRShift[3]; 

1 

int 

iLShift[3]; 

f 

DIBSTRUCT, ★ PDIBSTRUCT ; 

j 'k _ 

— 



DiblsValid : Returns TRUE if hdib points to a valid DIBSTRUCT 

-V 



BOOL 

f 

DiblsValid (HDIB 

hdib) 

i 

PDIBSTRUCT pdib : 

=hdib ; 


if (pdib == NULL) 



return FALSE ; 


if (IsBadReadPtr 

(pdib, sizeof (DIBSTRUCT))) 



return FALSE ; 


if (pdib->iSignature != HDIB SIGNATURE) 



return FALSE ; 

} 

return TRUE ; 


/ 'k _ 

— 



DibBitmapHandle : 

Returns the handle to the DIB section bitmap object 

-V 



HBITMAP DibBitmapHandle (HDIB hdib) 

f 

1 

if (!DiblsValid 

(hdib)) 



return NULL ; 

} 

return ((PDIBSTRUCT) hdib)->hBitmap ; 

j 'k _ 

— 



DibWidth : Returns the bitmap pixel width 
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int DibWidth (HDIB hdib) 

{ 

if (!DibIsValid (hdib)) 

return 0 ; 

return ((PDIBSTRUCT) hdib)->ds.dsBm.bmWidth ; 


/* - 

DibHeight : Returns the bitmap pixel height 


*/ 

int DibHeight (HDIB hdib) 

{ 

if (!DibIsValid (hdib)) 

return 0 ; 

return ((PDIBSTRUCT) hdib)->ds.dsBm.bmHeight ; 


/* - 

DibBitCount : Returns the number of bits per pixel 


*/ 

int DibBitCount (HDIB hdib) 

{ 

if (!DibIsValid (hdib)) 

return 0 ; 

return ((PDIBSTRUCT) hdib)->ds.dsBm.bmBitsPixel ; 


/* - 

DibRowLength : Returns the number of bytes per row of pixels 


int DibRowLength (HDIB hdib) 

{ 

if (!DibIsValid (hdib)) 

return 0 ; 

return 4 * ((DibWidth (hdib) * DibBitCount (hdib) + 31) / 32); 
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/* - 

DibNumColors : Returns the number of colors in the color table 

*/ 

int DibNumColors (HDIB hdib) 

{ 

PDIBSTRUCT pdib = hdib ; 

if (!DibIsValid (hdib)) 

return 0 ; 

if (pdib->ds.dsBmih.biClrUsed != 0) 

{ 

return pdib->ds.dsBmih.biClrUsed ; 

} 

else if (DibBitCount (hdib) <= 8) 

{ 

return 1 << DibBitCount (hdib); 

} 

return 0 ; 

} 

/* - 

DibMask : Returns one of the color masks 


DWORD DibMask (HDIB hdib, int i) 

{ 

PDIBSTRUCT pdib = hdib ; 

if (!DibIsValid (hdib) || i < 0 || i > 2) 

return 0 ; 

return pdib->ds•dsBitfields[i]; 

} 

/* - 

DibRShift : Returns one of the right-shift values 



int DibRShift (HDIB hdib, int i) 
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{ 

PDIBSTRUCT pdib = hdib ; 

if (!DibIsValid (hdib) || i < 0 || i > 2) 

return 0 ; 

return pdib->iRShift[i]; 

} 

/* - 

DibLShift : Returns one of the left-shift values 

V 

int DibLShift (HDIB hdib, int i) 

{ 

PDIBSTRUCT pdib = hdib ; 

if (!DibIsValid (hdib) || i < 0 || i > 2) 

return 0 ; 

return pdib->iLShift[i]; 

} 

/* - 

DibCompression : Returns the value of the biCompression field 

V 

int DibCompression (HDIB hdib) 

{ 

if (!DiblsValid (hdib)) 

return 0 ; 

return ((PDIBSTRUCT) hdib)->ds.dsBmih.biCompression ; 

} 

/* - 

DiblsAddressable: Returns TRUE if the DIB is not compressed 

V 

BOOL DiblsAddressable (HDIB hdib) 

{ 

int iCompression ; 
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if (!DibIsValid (hdib)) 

return FALSE ; 

iCompression = DibCompression (hdib); 

if ( iCompression == BI_RGB || iCompression == BI_BITFIELDS) 

return TRUE ; 

return FALSE ; 

} 

/* - 

These functions return the sizes of various components of the DIB section 
AS THEY WOULD APPEAR in a packed DIB. These functions aid in converting 
the DIB section to a packed DIB and in saving DIB files. 



DWORD DiblnfoHeaderSize (HDIB hdib) 

{ 

if (!DibIsValid (hdib)) 

return 0 ; 

return ((PDIBSTRUCT) hdib)->ds.dsBmih.biSize ; 


DWORD DibMaskSize (HDIB hdib) 

{ 

PDIBSTRUCT pdib = hdib ; 
if (!DibIsValid (hdib)) 

return 0 ; 

if (pdib->ds.dsBmih.biCompression == BI_BITFIELDS) 

return 3 * sizeof (DWORD); 

return 0 ; 


DWORD DibColorSize (HDIB hdib) 

{ 

return DibNumColors (hdib) * sizeof (RGBQUAD); 


DWORD DiblnfoSize (HDIB hdib) 

{ 

return DiblnfoHeaderSize(hdib) + DibMaskSize(hdib) + DibColorSize(hdib); 
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DWORD DibBitsSize (HDIB hdib) 

{ 

PDIBSTRUCT pdib = hdib ; 

if (!DibIsValid (hdib)) 

return 0 ; 


if (pdib->ds•dsBmih•biSizelmage != 0) 

{ 


return pdib—>ds•dsBmih•biSizelmage ; 


return DibHeight (hdib) * DibRowLength (hdib); 


DWORD DibTotalSize (HDIB hdib) 

{ 

return DiblnfoSize (hdib) + DibBitsSize (hdib); 



These functions return pointers to the various components of the DIB 
section. 


BITMAPINFOHEADER * DiblnfoHeaderPtr (HDIB hdib) 

{ 

if ( !DiblsValid (hdib)) 

return NULL ; 

return & (((PDIBSTRUCT) hdib)->ds.dsBmih); 


DWORD * DibMaskPtr (HDIB hdib) 

{ 

PDIBSTRUCT pdib = hdib ; 
if (!DiblsValid (hdib)) 

return 0 ; 

return pdib->ds.dsBitfields ; 


void * DibBitsPtr (HDIB hdib) 

{ 

if (!DiblsValid (hdib)) 

return NULL ; 

return ((PDIBSTRUCT) hdib)->pBits ; 


/* 
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DibSetColor : Obtains entry from the DIB color table 



BOOL DibGetColor (HDIB hdib, int index, RGBQUAD 

{ 


PDIBSTRUCT pdib = hdib ; 
HDC 


hdcMem ; 


int 


iReturn ; 


prgb) 


if (!DibIsValid (hdib)) 

return 0 ; 

hdcMem = CreateCompatibleDC (NULL); 

SelectObject (hdcMem, pdib->hBitmap); 

iReturn = GetDIBColorTable (hdcMem, index, 1, prgb); 

DeleteDC (hdcMem); 

return iReturn ? TRUE : FALSE ; 



DibGetColor : Sets an entry in the DIB color table 


V 

BOOL DibSetColor (HDIB hdib, int index, RGBQUAD * prgb) 

{ 

PDIBSTRUCT pdib = hdib ; 

HDC hdcMem ; 

int iReturn ; 

if ( !DiblsValid (hdib)) 

return 0 ; 

hdcMem = CreateCompatibleDC (NULL); 

SelectObj ect (hdcMem, pdib->hBitmap); 

iReturn = SetDIBColorTable (hdcMem, index, 1, prgb); 

DeleteDC (hdcMem); 

return iReturn ? TRUE : FALSE ; 


DIBHELP . C 中的大部分函式是不用解释的。 DiblsValid 函式能有助於保护 
整个系统。在试图引用 DIBSTRUCT 中的资讯之前，其他函式都呼叫 DiblsValid 。 
所有这些函式都有（而且通常是只有） HDIB 型态的第一个参数， （ 我们将立即 
看到）该参数在 DIBHELP . H 中定义为空指标。这些函式可以将此参数储存到 
PDIBSTRUCT ， 然後再存取结构中的栏位。 
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注意传回 B 00 L 值的 DiblsAddressable 函式 。 DiblsNotCompressed 函式也 
可以呼叫此函式。传回值表示独立的 DIB 图素能否定址。 

以 DiblnfoHeaderSize 开始的函式集将取得 DIB 区块中不同元件出现在 
packed DIB 中的大小。与我们所看到的一样，这些函式有助於将 DIB 区块转换 
成 packed DIB ， 并储存 DIB 档案。这些函式的後面是获得指向不同 DIB 元件的 
指标的函式集。 

尽管 DIBHELP . C 包括名称为 DiblnfoHeaderPtr 的函式，而且该函式将获得 
指向 BITMAPINFOHEADER 结构的指标，但还是没有函式可以获得 BHMAPINFO 结 
构指标——即接在 DIB 颜色表後面的资讯结构。这是因为在处理 DIB 区块时， 
应用程式并不直接存取这种型态的结构。 BITMAPINFOHEADER 结构和颜色遮罩都 
在 DIBSECTION 结构中有效，而且从 CreateDIBSection 函式传回指向图素位元 
的指标，这时通过呼叫 GetDIBColorTable 和 SetDIBColorTable ， 就只能间接存 
取 DIB 颜色表。这些功能都封装到 DIBHELP 的 DibGetColor 和 DibSetColor 函 
式里头了。 

在 DIBHELP . C 的後面，档案 DibCopyToInfo 配置一个指向 BITMAPINFO 结构 
的指标，并填充资讯，但是那与获得指向记忆体中现存结构的指标不完全相同。 

读、写图素 

应用程式维护 packed DIB 或 DIB 区块的一个引人注目的优点是能够直接操 
作 DIB 图素位元。程式 16-20 所示的 DIBHELP . C 第二部分列出了提供此功能的 
函式。 

程式 16-20 DIBHELP. C 档案的第二部分 

DIBHELP .C ( 第二部分） 

/* - 

DibPixelPtr : Returns a pointer to the pixel at position (x, y) 


BYTE * DibPixelPtr (HDIB hdib, int x, int y) 

{ 

if ( 丨 DiblsAddressable (hdib)) 

return NULL ; 

if (x < 0 || x >= DibWidth (hdib) || y < 0 || y >= DibHeight (hdib)) 

return NULL ; 

return ( ((PDIBSTRUCT) hdib)->ppRow) [y] + (x * DibBitCount (hdib) >> 3); 

} 

/* - 
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DibGetPixel : 

Obtains a pixel value at (x. 

Y) 


一 " 

DWORD 

DibGetPixel (HDIB hdib, int x, int y) 



1 

PBYTE pPixel ; 






if ( ! (pPixel = DibPixelPtr (hdib. 

x, y))) 




return 0 ; 





switch (DibBitCount (hdib)) 

f 





case 1 : 

return 0x01 & (* pPixel >> 

(7 - 

(x & 7))); 


case 4 : 

return OxOF & (* pPixel >> 

(X Sc 

1 ? 0 : 4)); 


case 8 : 

return * pPixel ; 





case 16 

: return * (WORD *) 

pPixel ; 




case 24 

: return OxOOFFFFFF 

& * (DWORD *) 

pPixel ; 


case 32 

I 

: return * (DWORD *) pPixel ; 



} 

/ 

return 0 ; 





/ * _ 




__ __ __ __ _ 


/ 

DibSetPixel : 

Sets a pixel value 

at (x, y) 

— 

■ 女 

/ 

BOOL 

DibSetPixel (HDIB hdib, int x, int y, DWORD 

dwPixel) 

I 

PBYTE pPixel 






if ( ! (pPixel = 

=DibPixelPtr (hdib, 

x, y))) 





return FALSE ; 




/ 

switch (DibBitCount (hdib) ) 




1 

case 1 : * 

pPixel &= 〜 （1 

« (7 - 

(X Sc 

7 )))； 



* pPixel |= 

dwPixel 


« (7 - (x & 7)); 




break ; 




case 4 : * pPixel &= OxOF << (x & 1 ? 4 

: 0) 

參 

f 



* pPixel |= 

dwPixel 


« (x & 1 ? 0 : 4); 




break ; 




case 8 : ★ 

pPixel = (BYTE) 

dwPixel ; 






break ; 




case 16: * 

(WORD *) pPixel 

= (WORD) 

dwPixel ; 




break ; 




case 24 : * 

(RGBTRIPLE *) pPixel = * 

(RGBTRIPLE *) &dwPixel ; 




break ; 
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case 32: * 

default : 

} 

return TRUE ; 


(DWORD *) pPixel = dwPixel ; 

break ; 


return FALSE ; 



DibGetPixelColor: Obtains the pixel color at (x, y) 



BOOL DibGetPixelColor (HDIB hdib, int x, int y, RGBQUAD * prgb) 

{ 

DWORD dwPixel ; 

int iBitCount ; 

PDIBSTRUCT pdib = hdib ; 

// Get bit count; also use this as a validity check 

if (0 == (iBitCount = DibBitCount (hdib))) 

return FALSE ; 

// Get the pixel value 
dwPixel = DibGetPixel (hdib, x, y); 

// If the bit-count is 8 or less, index the color table 
if (iBitCount <= 8) 

return DibGetColor (hdib, (int) dwPixel, prgb); 

// If the bit-count is 24, just use the pixel 
else if (iBitCount == 24) 

{ 

* (RGBTRIPLE *) prgb = * (RGBTRIPLE *) & dwPixel ; 
prgb->rgbReserved = 0 ; 

} 

//If the bit-count is 32 and the biCompression field is BI_RGB, 
// just use the pixel 

else if (iBitCount == 32 && 

pdib->ds.dsBmih.biCompression == BI_RGB) 

{ 

* prgb = * (RGBQUAD *) & dwPixel ; 


// Otherwise, use the mask and shift values 

// (for best performance , don't use DibMask and DibShift 
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functions) 
else 
{ 

prgb->rgbRed = (BYTE)(((pdib->ds.dsBitfields[0] & dwPixel) 
>> pdib->iRShift[0]) << pdib->iLShift[0]); 

prgb->rgbGreen=(BYTE((pdib->ds•dsBitfields[1] & dwPixel) 

>> pdib->iRShift[1]) << pdib->iLShift[1]); 

prgb->rgbBlue=(BYTE)(((pdib->ds.dsBitfields[2] & dwPixel) 
>> pdib->iRShift[2]) << pdib->iLShift[2]); 

} 

return TRUE ; 


DibSetPixelColor: Sets the pixel color at (x, y) 



BOOL DibSetPixelColor (HDIB hdib, int x, int y, RGBQUAD * prgb) 

{ 

DWORD dwPixel ; 

int iBitCount ; 

PDIBSTRUCT pdib = hdib ; 

// Don't do this function for DIBs with color tables 


iBitCount = DibBitCount (hdib); 
if (iBitCount <= 8) 

return FALSE ; 

// The rest is just the opposite of DibGetPixelColor 
else if (iBitCount == 24) 

{ 

* (RGBTRIPLE *) & dwPixel = * (RGBTRIPLE *) prgb ; 

dwPixel &= OxOOFFFFFF ; 


else if (iBitCount == 32 && 

pdib->ds.dsBmih.biCompression == BI RGB) 


* (RGBQUAD *) & dwPixel = * prgb ; 


else 

{ 

dwPixel = (((DWORD) prgb->rgbRed >> pdib->iLShift[0]) 

<< pdib->iRShift[0 ]); 
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dwPixel |= (((DWORD) prgb->rgbGreen >> pdib->iLShift[1]) 

<< pdib->iRShift[1]); 

dwPixel |= (((DWORD) prgb->rgbBlue >> pdib->iLShift[2]) 

<< pdib->iRShift[2]); 

} 

DibSetPixel (hdib, x, y, dwPixel); 
return TRUE ; 

} 

这部分 DIBHELP . C 从 DibPixelPtr 函式开始，该函式获得指向储存（或部 
分储存）有特殊图素的位元组的指标。回想一下 DIBSTRUCT 结构的 ppRow 栏位， 
那是个指向 DIB 中由顶行开始排列的图素行位址的指标。这样， 

((PDIBSTRUCT) hdib)->pprow) [0] 

就是指向 DIB 顶行最左端图素的指标，而 

(((PDIBSTRUCT) hdib)->ppRow)[y] + (x * DibBitCount (hdib) >> 3) 

是指向位於 ( x ， y ) 的图素的指标。注意，如果 DIB 中的图素不可被定址（即 
如果已压缩），或者如果函式的 x 和 y 参数是负数或相对位於 DIB 外面的区域， 
则函式将传回 NULL 。 此检查降低了函式（和所有依赖於 DibPixelPtr 的函式） 
的执行速度，下面我将讲述一些更快的常式。 

档案後面的 DibGetPixel 和 DibSetPixel 函式利用了 DibPixelPtr 。 对於8 
位元、16位元和32位元 DIB ， 这些函式只记录指向合适资料尺寸的指标，并存 
取图素值。对於1位元和4位元的 DIB , 则需要遮罩和移位角度。 

DibGetColor 函式按 RGBQUAD 结构获得图素颜色。对於1位元、4位元和8 
位元 DIB ， 这包括使用图素值来从 DIB 颜色表获得颜色。对於16位元、24位元 
和32位元 DIB , 通常必须将图素值遮罩和移位以得到 RGB 颜色 。 DibSetPixel 
函式则相反，它允许从 RGBQUAD 结构设定图素值。该函式只为16位元、24位元 
和32位元 DIB 定义。 


建立和转换 

程式 16-21 所示的 DIBHELP 第三部分和最後部分展示了如何建立 DIB 区块， 
以及如何将 DIB 区块与 packed DIB 相互转换。 

程式 16-21 DIBHELP . C 档案的第三部分和最後部分 

DIBHELP.C ( 第三部分） 

" - 

Calculating shift values from color masks is required by the 
DibCreateFromlnfo function. 
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*/ 

static int MaskToRShift (DWORD dwMask) 

{ 

int iShift ; 
if (dwMask == 0) 

return 0 ; 

for (iShift = ◦ ; ! (dwMask & 1) ; iShift++) 

dwMask >>= 1 ; 

return iShift ; 

} 

static int MaskToLShift (DWORD dwMask) 

{ 

int iShift ; 
if (dwMask == 0) 

return 0 ; 

while (!(dwMask & 1)) 

dwMask >>= 1 ; 

for (iShift = 0 ; dwMask & 1 ; iShift++) 

dwMask >>= 1 ; 
return 8 一 iShift ; 


DibCreateFromlnfo: All DIB creation functions ultimately call this one. 
This function is responsible for calling CreateDIBSection, allocating 
memory for DIBSTRUCT, and setting up the row pointer. 


HDIB DibCreateFromlnfo (BITMAPINFO * pbmi) 

{ 

BYTE * pBits ; 

DIBSTRUCT * pdib ; 

HBITMAP hBitmap ; 

int i, iRowLength, cy, y ; 

hBitmap = CreateDIBSection (NULL, pbmi, DIB_RGB_COLORS, &pBits, NULL, 0); 
if (hBitmap == NULL) 

return NULL ; 

if (NULL == (pdib = malloc (sizeof (DIBSTRUCT)))) 

{ 

DeleteObj ect (hBitmap); 
return NULL ; 

} 

pdib->iSignature = HDIB SIGNATURE ; 
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pdib->hBitmap 

=hBitmap ; 




pdib->pBits = 

pBits ; 




GetObject (hBitmap, 

sizeof (DIBSECTION), &pdib- 

->ds); 


// Notice that we can now use the DIE 

> information 

functions 

// defined above. 




// If the compression is BI BITFIELDS 

, calculate shifts from 

masks 





if (DibCompression 

/ 

(pdib) == BI BITFIELDS) 




for (i = 0 ; i < 3 ; i++) 

r 





pdib->iLShift[i ] 


= MaskToLShift 

(pdib->ds.dsBitfields[i]) 

• 

r 





pdib->iRShift[i ] 


= MaskToRShift 

(pdib->ds.dsBitfields[i]) 

} 

參 

f 




/ 

// If the compression is BI RGB, but 

bit-count is 

16 or 32, 

/ / set 

the bitfields and the masks 



else if (DibCompression (pdib) == BI RGB) 

； 




1 

if (DibBitCount (pdib) == 16) 

/ 





pdib->ds.dsBitfields[0] 

— 

0x00007C00 ; 



pdib->ds.dsBitfields[1] 

— 

0x000003E0 ; 



pdib->ds.dsBitfields[2] 

— 

OxOOOOOOlF ; 



pdib->iRShift [0] = 

= 

10 

• 

r 


pdib->iRShift [1] = 

= 

5 

• 

r 


pdib->iRShift [2] = 

= 

0 

• 

f 


pdib->iLShift [0] = 

= 

3 

• 

f 


pdib->iLShift [1] = 

= 

3 

m 

f 


pdib->iLShift [2] = 

= 

3 

參 

f 

j 

else if 

(DibBitCount (pdib) ==24 || 

DibBitCount (pdib) == 32) 

i 

pdib->ds.dsBitfields[0 ] 

— 

OxOOFFOOOO ; 



pdib->ds.dsBitfields[1] 

— 

OxOOOOFFOO ; 



pdib->ds.dsBitfields[2] 

— 

OxOOOOOOFF ; 



pdib->iRShift [0] = 

= 

16 

參 

f 


pdib->iRShift [1] = 

= 

8 

• 

f 


pdib->iRShift [2] = 

= 

0 

m 

r 
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pdib->iLShift 

[0] = 


0 

• 

f 



pdib->iLShift 

[1] = 


0 

• 

f 



pdib->iLShift 

} 

[2] = 


0 

• 

f 


} 

// Allocate an array of pointers to 

each 

row in 

the DIB 


cy = DibHeight (pdib); 






if (NULL == 

{ 

(pdib->ppRow = malloc (cy * 

sizeof 

(BYTE ”））） 



\ 

free (pdib); 

DeleteObj ect (hBitmap) 

參 





} 

return NULL ; 







// Initialize them. 






iRowLength 

=DibRowLength (pdib); 






if (pbmi->bmiHeader.biHeight > 0) 

； 



// ie, : 

bottom up 


i 

for (y = ◦ ; y < cy ; 

Y++) 





\ 

pdib—>ppRow[y]= 

pBits + 

(cy - 

y - 1) * 

iRowLength ; 


/ 

else 






// 

top down 

! 







X 

for (y = ◦ ; y < cy ; 

Y++) 





X 

pdib->ppRow[y]= 

pBits + 

y * 

iRowLength ; 

} 

; 

return pdib 

參 

f 





/*- 








DibDelete : 

Frees all memory for the DIB section 



*/ 







BOOL DibDelete (HDIB hdib) 

f 






DIBSTRUCT ★ 

pdib = hdib ; 






if ( !DiblsValid (hdib)) 







return FALSE ; 






free (pdib- 

>ppRow) ; 






DeleteObj ect (pdib->hBitmap ) ; 






free (pdib) 

參 

f 





} 

return TRUE 

參 

f 
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DibCreate : Creates an HDIB from explicit arguments 

-*/ 

HDIB DibCreate (int cx, int cy, int cBits, int cColors) 

{ 

BITMAPINFO * pbmi ; 

DWORD dwInfoSize ; 

HDIB hDib ; 

int cEntries ; 

if (cx <= ◦ || cy <= ◦ || 

((cBits != 1) && (cBits != 4) && (cBits != 8) && 

(cBits != 16) && (cBits != 24) && (cBits != 32))) 

{ 

return NULL ; 

} 

if ( cColors != 0) 

cEntries = cColors ; 
else if (cBits <= 8) 

cEntries = 1 << cBits ; 

dwInfoSize = sizeof (BITMAPINFOHEADER) + (cEntries - 1) * sizeof (RGBQUAD); 

if (NULL == (pbmi = malloc (dwInfoSize))) 

{ 

return NULL ; 


ZeroMemory (pbmi, dwInfoSize); 


pbmi->bmiHeader.biSize 
pbmi->bmiHeader.biWidth 
pbmi->bmiHeader.biHeight 
pbmi->bmiHeader.biPlanes 
pbmi->bmiHeader.biBitCount 
pbmi->bmiHeader.biCompression 
pbmi->bmiHeader.biSizeImage 
pbmi->bmiHeader.biXPelsPerMeter 
pbmi->bmiHeader.biYPelsPerMeter 
pbmi->bmiHeader.biClrUsed 
pbmi->bmiHeader.biClrImportant 


=sizeof (BITMAPINFOHEADER); 
=cx ; 

=cy ; 

=1 ; 

=cBits ; 

=BI RGB ; 


=cColors ; 


hDib = DibCreateFromlnfo (pbmi); 
free (pbmi); 


第 864 页 






Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


} 

return hDib ; 



! 'k _ 

DibCopyToInfo: 

Builds BITMAPINFO structure. 




Used 

by DibCopy and 

DibCopyToDdb 



-*/ 

static BITMAPINFO * DibCopyToInfo (HDIB hdib) 

f 



BITMAPINFO 

* pbmi ; 



int 

i , iNumColors ; 



RGBQUAD 

* prgb ; 



if (!DibIsValid 

(hdib)) 




return NULL ; 

// Allocate the memory 



if (NULL == (pbmi = malloc (DiblnfoSize (hdib)))) 




return NULL ; 

// Copy the information header 



CopyMemory (pbmi 

,DiblnfoHeaderPtr (hdib), sizeof (BITMAPINFOHEADER)); 



// Copy the possible color masks 



prgb = (RGBQUAD 

*) ((BYTE *) pbmi + sizeof (BITMAPINFOHEADER)); 


if (DibMaskSize 

f 

(hdib)) 



1 

CopyMemory (prgb, DibMaskPtr (hdib), 

3 * sizeof (DWORD)); 



prgb = (RGBQUAD *) ( (BYTE *) prgb + 3 

* sizeof (DWORD)); 


； 

// Copy the color table 



iNumColors = DibNumColors (hdib); 



for (i = ◦ ; i < 

iNumColors ; i++) 

DibGetColor (hdib, i, prgb + i); 


} 

return pbmi ; 



! 'k _ 





DibCopy : Creates a new DIB section from an existing 

DIB section, 

/ 

possibly swapping the DIB width and height. 

■ 女 

HDIB 

{ 

DibCopy (HDIB hdibSrc, BOOL fRotate) 
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BITMAPINFO 

* pbmi ; 

BYTE 

* pBitsSrc, * pBitsDst ; 

HDIB 

hdibDst ; 

if (!DibIsValid 

(hdibSrc)) 


return NULL ; 

if (NULL == (pbmi = DibCopyToInfo (hdibSrc))) 


return NULL ; 

if (fRotate) 

{ 

pbmi->bmiHeader.biWidth = DibHeight (hdibSrc); 

} 

pbmi->bmiHeader.biHeight = DibWidth (hdibSrc); 

hdibDst = DibCreateFromlnfo (pbmi); 

free (pbmi); 


if ( hdibDst == 

NULL) 


return NULL ; 


// Copy the bits 

if (!fRotate) 

{ 

pBitsSrc = DibBitsPtr (hdibSrc); 
pBitsDst = DibBitsPtr (hdibDst); 


CopyMemory (pBitsDst, pBitsSrc, DibBitsSize 

(hdibSrc)); 

} 

return hdibDst ; 

} 


/* - 

— 

DibCopyToPackedDib is generally used for saving DIBs and for 
transferring DIBs to the clipboard. In the second case, the second 

argument should 

be set to TRUE so that the memory is allocated 

with the GMEM SHARE flag. 

-*/ 

BITMAPINFO * DibCopyToPackedDib (HDIB hdib, BOOL fUseGlobal) 

f 

1 

BITMAPINFO 

* pPackedDib ; 

BYTE 

* pBits ; 

DWORD 

dwDibSize ; 

HDC 

hdcMem ; 
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HGLOBAL 

hGlobal ; 

int 

iNumColors ; 

PDIBSTRUCT 

pdib = hdib ; 

RGBQUAD 

* prgb ; 

if (!DibIsValid 

(hdib)) 


return NULL ; 


// Allocate memory for packed DIB 

dwDibSize = DibTotalSize (hdib); 

if (fUseGlobal) 

{ 

hGlobal = GlobalAlloc (GHND | GMEM SHARE, dwDibSize); 

\ 

pPackedDib = GlobalLock (hGlobal); 

/ 

else 

r 


i 

} 

pPackedDib = malloc (dwDibSize); 

if (pPackedDib = 

=NULL) 


return NULL ; 

// Copy the information header 

CopyMemory (pPackedDib, &pdib->ds•dsBmih, sizeof (BITMAPINFOHEADER)); 

prgb = (RGBQUAD 

*) ( (BYTE *) pPackedDib + sizeof (BITMAPINFOHEADER)); 


// Copy the possible color masks 

if (pdib->ds.dsBmih.biCompression == BI BITFIELDS) 

{ 

CopyMemory (prgb, pdib->ds•dsBitfields, 3 * sizeof (DWORD)); 

prgb 

\ 

=(RGBQUAD *) ( (BYTE *) prgb + 3 * sizeof (DWORD)); 

/ 

// Copy the color table 

if (iNumColors = 

: DibNumColors (hdib)) 

I 

hdcMem = CreateCompatibleDC (NULL); 

SelectObject (hdcMem, pdib->hBitmap); 

GetDIBColorTable (hdcMem, 0, iNumColors, prgb); 

} 

DeleteDC (hdcMem); 

pBits = (BYTE *) 

(prgb + iNumColors); 

// Copy the bits 

CopyMemory (pBits, pdib->pBits, DibBitsSize (pdib)); 

// If last argument is TRUE, unlock global memory block and 

// 

cast it to pointer in preparation for return 

if (fUseGlobal) 

{ 

GlobalUnlock (hGlobal); 
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pPackedDib = (BITMAPINFO *) hGlobal ; 

} 

return pPackedDib ; 

} 

/* - 

DibCopyFromPackedDib is generally used for pasting DIBs from the 
clipboard. 



HDIB DibCopyFromPackedDib (BITMAPINFO * pPackedDib) 

{ 


BYTE 

DWORD 

int 

PDIBSTRUCT 


* pBits ; 

dwInfoSize, dwMaskSize, dwColorSize ; 
iBitCount ; 

pdib ; 


check 


// Get the size of the information header and do validity 


dwInfoSize = pPackedDib->bmiHeader.biSize ; 


if 



dwInfoSize != sizeof (BITMAPCOREHEADER) && 

dwInfoSize != sizeof (BITMAPINFOHEADER) && 
dwInfoSize != sizeof (BITMAPV4HEADER) && 
dwInfoSize != sizeof (BITMAPV5HEADER)) 

return NULL ; 


// Get the possible size of the color masks 


if (dwInfoSize 


sizeof (BITMAPINFOHEADER) && 
pPackedDib->bmiHeader.biCompression == BI BITFIELDS) 


else 


dwMaskSize = 3 * sizeof (DWORD); 


dwMaskSize = 0 ; 

} 

// Get the size of the color table 
if (dwInfoSize == sizeof (BITMAPCOREHEADER)) 



iBitCount = ((BITMAPCOREHEADER *) pPackedDib)->bcBitCount ; 


if (iBitCount <= 8) 

{ 

dwColorSize = (1 << iBitCount) * sizeof (RGBTRIPLE); 
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else 


dwColorSize = 0 ; 


// all non-OS/2 compatible DIBs 

if (pPackedDib->bmiHeader.biClrUsed > 0) 

{ 

dwColorSize = pPackedDib->bmiHeader.biClrUsed * sizeof (RGBQUAD); 


else if (pPackedDib—>bmiHeader•biBitCount <= 8) 

{ 

dwColorSize = (1 << 

pPackedDib->bmiHeader.biBitCount) * sizeof (RGBQUAD); 

} 

else 

{ 

dwColorSize = 0 ; 

} 

} 

// Finally, get the pointer to the bits in the packed DIB 
pBits = (BYTE *) pPackedDib + dwInfoSize + dwMaskSize + dwColorSize ; 

// Create the HDIB from the packed-DIB pointer 
pdib = DibCreateFromlnfo (pPackedDib); 

// Copy the pixel bits 

CopyMemory (pdib->pBits, pBits, DibBitsSize (pdib)); 
return pdib ; 




DibFileLoad : Creates a DIB section from a DIB file 



HDIB DibFileLoad (const TCHAR * szFileName) 


{ 

BITMAPFILEHEADER 

BITMAPINFO 

BOOL 

DWORD 

dwBytesRead ; 

HANDLE 

HDIB 


bmfh ; 

-k 


pbmi 


bSuccess ; 
dwInfoSize, 


hFile ; 

hDib ; 


dwBitsSize, 


// Open the file : read access, prohibit write access 


hFile = CreateFile (szFileName, GENERIC_READ, FILE_SHARE_READ, NULL, 

OPEN_EXISTING, FILE_FLAG_SEQUENTIAL_SCAN, NULL); 
if (hFile == INVALID HANDLE VALUE) 
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return NULL ; 

// Read in the BITMAPFILEHEADER 

bSuccess = ReadFile ( hFile, &bmfh, sizeof (BITMAPFILEHEADER), 

&dwBytesRead, NULL); 

if (!bSuccess || (dwBytesRead != sizeof (BITMAPFILEHEADER)) 

|| (bmfh.bfType != * (WORD *) "BM")) 

{ 

CloseHandle (hFile); 
return NULL ; 

// Allocate memory for the information structure & read it in 
dwlnfoSize = bmfh•bfOffBits — sizeof (BITMAPFILEHEADER); 
if (NULL == (pbmi = malloc (dwlnfoSize))) 

{ 

CloseHandle (hFile); 
return NULL ; 

} 

bSuccess = ReadFile (hFile, pbmi, dwInfoSize, &dwBytesRead, NULL); 
if (!bSuccess || (dwBytesRead != dwInfoSize)) 

CloseHandle (hFile); 
free (pbmi); 
return NULL ; 

} 

// Create the DIB 
hDib = DibCreateFromlnfo (pbmi); 
free (pbmi); 

if (hDib == NULL) 

{ 

CloseHandle (hFile); 
return NULL ; 

} 

// Read in the bits 

dwBitsSize = bmfh.bfSize - bmfh.bfOffBits ; 

bSuccess = ReadFile ( hFile, ((PDIBSTRUCT) hDib)->pBits, 

dwBitsSize, &dwBytesRead, NULL); 

CloseHandle (hFile); 

if (!bSuccess || (dwBytesRead != dwBitsSize)) 

{ 

DibDelete (hDib); 
return NULL ; 

} 

return hDib ; 
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DibFileSave : Saves a DIB section to a file 



BOOL DibFileSave (HDIB hdib, const TCHAR * szFileName) 

{ 


BITMAPFILEHEADER 

BITMAPINFO 

BOOL 

DWORD 

HANDLE 


bmfh ; 

* pbmi ; 

bSuccess ; 

dwTotalSize, dwBytesWritten ; 
hFile ; 


hFile = CreateFile (szFileName, GENERIC—WRITE, ◦, NULL, 

CREATE_ALWAYS, FILE—ATTRIBUTE—NORMAL, NULL); 
if (hFile == INVALID_HANDLE_VALUE) 

return FALSE ; 

dwTotalSize = DibTotalSize (hdib); 


bmfh.bfType 
bmfh.bfSize 
bmfh.bfReservedl 
bmfh.bfReserved2 
bmfh.bfOffBits 


=* (WORD *) "BM"; 

=sizeof (BITMAPFILEHEADER) + dwTotalSize ; 

=◦; 

=◦; 

=bmfh.bfSize 一 DibBitsSize (hdib); 


// Write the BITMAPFILEHEADER 


bSuccess = WriteFile ( hFile, &bmfh, sizeof (BITMAPFILEHEADER), 

&dwBytesWritten, NULL); 

if ( !bSuccess | | (dwBytesWritten != sizeof (BITMAPFILEHEADER))) 

{ 

CloseHandle (hFile); 

DeleteFile (szFileName); 
return FALSE ; 

} 

// Get entire DIB in packed-DIB format 
if (NULL == (pbmi = DibCopyToPackedDib (hdib, FALSE))) 

{ 

CloseHandle (hFile); 

DeleteFile (szFileName); 
return FALSE ; 

} 

// Write out the packed DIB 

bSuccess = WriteFile (hFile, pbmi , dwTotalSize, &dwBytesWritten, NULL); 
CloseHandle (hFile); 
free (pbmi); 

if (!bSuccess | | (dwBytesWritten != dwTotalSize)) 
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{ 

DeleteFile (szFileName); 




return FALSE ; 


} 

; 

return TRUE ; 



/ ★ _ 

— 

— 



DibCopyToDdb : For more efficient screen displays 

/ 




HBITMAP DibCopyToDdb 

/ 

(HDIB hdib, HWND hwnd, HPALETTE 

hPalette) 


BITMAPINFO 

* pbmi ; 



HBITMAP 

hBitmap ; 



HDC 

hdc ; 



if (!DibIsValid 

(hdib)) 




return NULL ; 



if (NULL == (pbmi = DibCopyToInfo (hdib))) 




return NULL ; 



hdc = GetDC (hwnd); 



if (hPalette) 

{ 

SelectPalette (hdc, hPalette, 

FALSE); 


} 

RealizePalette (hdc); 



hBitmap = CreateDIBitmap (hdc, DiblnfoHeaderPtr 

(hdib), CBM 工 NIT, 




DibBitsPtr (hdib), pbmi, 

DIB 

RGB COLORS); 




ReleaseDC (hwnd, 

free (pbmi); 

hdc); 


} 

return hBitmap ; 




这部分的 DIBHELP . C 档案从两个小函式开始，这两个函式根据16位元和32 
位元 DIB 的颜色遮罩得到左、右移位值。这些函式在第十五章「颜色遮罩」 一 


节说明。 

DibCreateFromlnfo 函式是 DIBHELP 中唯一呼叫 CreateDIBSection 并为 
DIBSTRUCT 结构配置记忆体的函式。其他所有建立和复制函式都重复此函式。 
DibCreateFromlnfo 唯一的参数是指向 BITMAPINFO 结构的指标。此结构的颜色 
表必须存在，但是它不必用有效的值填充。呼叫 CreateDIBSection 之後，该函 
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式将初始化 DIBSTRUCT 结构的所有栏位。注意，在设定 DIBSTRUCT 结构的 ppRow 
栏位的值时（指向 DIB 行位址的指标）， DIB 有由下而上和由上而下的不同储存 
方式。 ppRow 开头的元素就是 DIB 的顶行。 

DibDelete 删除 DibCreateFromlnfo 中建立的点阵图，同时释放在该函式中 
配置的记忆体。 

DibCreate 可能比 DibCreateFromlnfo 更像一个从应用程式呼叫的函式。前 
三个参数提供图素的宽度、高度和每图素的位数。最後一个参数可以设定为0 
(用於颜色表的内定尺寸），或者设定为非0 ( 表示比每图素位元数所需要的颜 
色表更小的颜色表）。 

DibCopy 函式根据现存的 DIB 区块建立新的 DIB 区块，并用 DibCreatelnfo 
函式为 MTMAPINFO 结构配置了记忆体，还填了所有的资料。 DibCopy 函式的一 
个 B 00 L 参数指出是否在建立新的 DIB 时交换了 DIB 的宽度和高度。我们将在後 
面看到此函式的用法。 

DibCopyToPackedDib 和 DibCopyFromPackedDib 函式的使用通常与透过剪贴 
簿传递 DIB 相关。 DibFileLoad 函式从 DIB 档案建立 DIB 区块； DibFileSave 函 
式将资料储存到 DIB 档案。 

最後， DibCopyToDdb 函式根据 DIB 建立 GDI 点阵图物件。注意，该函式需 
要目前调色盘的代号和程式视窗的代号。程式视窗代号用於获得选进并显现调 
色盘的装置内容。只有这样，函式才可以呼叫 CreateDIBitmapo 这曾在本章前 
面的 SH 0 WDIB 7 中展示。 

DIBHELP 表头档案和巨集 

DIBHELP . H 表头档案如程式 16-22 所示。 

程式 16-22 DIBHELP. H 档案 

DIBHELP.H 

/* - 

DIBHELP.H header file for DIBHELP.C 


V 

typedef void * HDIB ; 

// Functions in DIBHELP.C 
BOOL DiblsValid (HDIB hdib); 

HBITMAP DibBitmapHandle (HDIB hdib); 
int DibWidth (HDIB hdib); 
int DibHeight (HDIB hdib); 
int DibBitCount (HDIB hdib); 
int DibRowLength (HDIB hdib); 
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int DibNumColors (HDIB hdib); 

DWORD DibMask (HDIB hdib, int i); 
int DibRShift (HDIB hdib, int i); 
int DibLShift (HDIB hdib, int i); 
int DibCompression (HDIB hdib); 

BOOL DiblsAddressable (HDIB hdib); 

DWORD DiblnfoHeaderSize (HDIB hdib); 

DWORD DibMaskSize (HDIB hdib); 

DWORD DibColorSize (HDIB hdib); 

DWORD DiblnfoSize (HDIB hdib); 

DWORD DibBitsSize (HDIB hdib); 

DWORD DibTotalSize (HDIB hdib); 

BITMAPINFOHEADER * DiblnfoHeaderPtr (HDIB hdib); 

DWORD * DibMaskPtr (HDIB hdib); 
void * DibBitsPtr (HDIB hdib); 

BOOL DibGetColor (HDIB hdib, int index, RGBQUAD * prgb); 

BOOL DibSetColor (HDIB hdib, int index, RGBQUAD * prgb); 

BYTE * DibPixelPtr (HDIB hdib, int x, int y); 

DWORD DibGetPixel (HDIB hdib, int x, int y); 

BOOL DibSetPixel (HDIB hdib, int x, int y, DWORD dwPixel); 

BOOL DibGetPixelColor (HDIB hdib, int x, int y, RGBQUAD * prgb); 

BOOL DibSetPixelColor (HDIB hdib, int x, int y, RGBQUAD * prgb); 

HDIB DibCreateFromlnfo (BITMAPINFO * pbmi); 

BOOL DibDelete (HDIB hdib); 

HDIB DibCreate (int cx, int cy, int cBits, int cColors); 

HDIB DibCopy (HDIB hdibSrc, BOOL fRotate); 

BITMAPINFO * DibCopyToPackedDib (HDIB hdib, BOOL fUseGlobal); 
HDIB DibCopyFromPackedDib (BITMAPINFO * pPackedDib); 

HDIB DibFileLoad (const TCHAR * szFileName); 

BOOL DibFileSave (HDIB hdib, const TCHAR * szFileName); 

HBITMAP DibCopyToDdb (HDIB hdib, HWND hwnd, HPALETTE hPalette); 
HDIB DibCreateFromDdb (HBITMAP hBitmap); 


Quickie no-bounds-checked pixel gets and sets 



#define DibPixelPtr1(hdib, x, y) 

#define DibPixelPtr4(hdib, x, y) 

#define DibPixelPtr8(hdib, x, y) 

) 

#define DibPixelPtr16(hdib, x, y) 

+ (x) * 2)) 


(( (- k (PBYTE hdib) [y] ) + ( (x) » 3)) 

(((* (PBYTE hdib) [y] ) + ( (x) » 1)) 

(((* (PBYTE **) hdib) [y]) + (x) 


((WORD *) (((* (PBYTE **) hdib) [y]) 


#define DibPixelPtr24(hdib, x, y) \ 
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hdib) [y]) + (x) ^ 3)) 

#define DibPixelPtr32(hdib, x, y) 

hdib) [y]) + (x) * 4)) 


((RGBTRIPLE *) (((* (PBYTE **) 


((DWORD *) (((* (PBYTE **) 


#define DibGetPixell(hdib, x, y) 


((x) & 7)))) 



(0x01 & (* DibPixelPtr1 (hdib, x, y) >> (7 - 


#define DibGetPixel4(hdib, x, y) 


& 1 ? 0 : 4))) 


\ 

(OxOF & (* DibPixelPtr4 (hdib, x, y) >> ( (x) 


#define DibGetPixel8(hdib, x, y) 
(hdib, x A y)) 

#define DibGetPixell6(hdib, x, y) 
#define DibGetPixel24(hdib, x, y) 
#define DibGetPixel32(hdib, x, y) 


(* DibPixelPtr8 

(* DibPixelPtrl6 (hdib, x, y)) 
(* DibPixelPtr24 (hdib, x, y)) 
(* DibPixelPtr32 (hdib, x, y)) 


#define DibSetPixel1(hdib, x, y, p) 


((* DibPixelPtrl (hdib, x, y) &= ~( 1 « (7 - ((x) & 7)))), 


(* DibPixelPtrl (hdib, x, y) 


((p) << (7 - ((x) & 7))))) 


#define DibSetPixel4(hdib, x, y, p) 


((* DibPixelPtr4 (hdib, x, y) &= (OxOF << 


◦))) , 


4)))) 


((x) & 1 ? 4 


(* DibPixelPtr4 (hdib, x, y) |= ((p) « ( (x) & 


#define DibSetPixel8(hdib, x, y, p) (* DibPixelPtr8 (hdib, x, y) = p) 

#define DibSetPixell6(hdib, x, y, p) (* DibPixelPtr16 (hdib, x, y) = p) 

#define DibSetPixel24(hdib, x, y, p) (* DibPixelPtr24 (hdib, x, y) = p) 

#define DibSetPixel32(hdib, x, y, p) (* DibPixelPtr32 (hdib, x, y) = p) 


这个表头档案将 HDIB 定义为空指标 ( void * )。应用程式的确不需要了解 
HDIB 所指结构的内部结构。此表头档案还包括 DIKffiLP . C 中所有函式的说明， 
还有一些巨集 一一 非常特殊的巨集。 

如果再看一看 DIBHELP . C 中的 DibPixelPtr、DibGetPixel 和 DibSetPixel 
函式，并试图提高它们的执行速度表现，那么您将看到两种可能的解决方法。 
第一种，可以删除所有的检查保护，并相信应用程式不会使用无效参数呼叫函 
式。还可以删除一些函式呼叫，例如 DibBitCoimt ， 并使用指向 DIBSTRUCT 结构 
内部的指标来直接获得资讯。 
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提高执行速度表现另一项较不明显的方法是删除所有对每图素位元数的处 
理方式，同时分离出处理不同 DIB 函式——例如 DibGetPixell 、 DibGetPixel 4、 
DibGetPixel 8 等等。下一个最佳化步骤是删除整个函式呼叫，将其处理动作透 
过 inline function 或巨集中进行合并。 

DIBHELP . H 采用巨集的方法。它依据 DibPixelPtr 、 DibGetPixel 和 
DibSetPixel 函式提出了三套巨集。这些巨集都明确对应於特殊的图素位元数。 

DIBBLE 程式 

DIBBLE 程式，如程式 16-23 所示，使用 DIBHELP 函式和巨集工作。尽管 DIBBLE 
是本书中最长的程式，它确实只是一些作业的粗略范例，这些作业可以在简单 
的数位影像处理程式中找到。对 DIBBLE 的明显改进是转换成了多重文件介面 
( MDI ： multiple document interface ) ,我们将在第十九章学习有关多重文 
件介面的知识。 


程式 16-23 DIBBLE 


DIBBLE.C 


/* - 


DIBBLE.C -- 

Bitmap and Palette Program 

(c) Charles Petzold, 1998 


♦include <windows.h> 

♦include "dibhelp.h" 

♦include "dibpal.h n 
♦include "dibconv.h" 

♦include "resource.h M 

♦define WM_USER_SETSCROLLS 
♦define WM—USER—DELETEDIB 
♦define WM—USER—DELETEPAL 
♦define WM_USER_CREATEPAL 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("Dibble"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int 

iCmdShow) 

{ 

HACCEL hAccel ; 

HWND hwnd ; 

MSG msg ; 


(WM_USER + 1) 
(WM_USER + 2) 
(WM_USER + 3) 
(WM USER + 4) 
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WNDCLASS wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=s zAppName ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires 

Windows NT!"), 

szAppName, 

MB_ICONERROR); 

return 0 ; 


hwnd = CreateWindow ( szAppName, szAppName, 

WS_OVERLAPPEDWINDOW | WM—VSCROLL | WM—HSCROLL, 
CW_USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

hAccel = LoadAccelerators (hlnstance, s zAppName); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

if (!TranslateAccelerator (hwnd, hAccel, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

return msg.wParam ; 



DisplayDib : Displays or prints DIB actual size or stretched 

depending on menu selection 
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int DisplayDib ( HDC hdc, HBITMAP hBitmap, int x, int y, 

int cxClient, int cyClient, 

WORD wShow, BOOL 

fHalftonePalette) 

{ 

BITMAP 
HDC 
int 

GetObj ect 
cxBitmap 
cyBitmap 


bitmap ; 

hdcMem ; 

cxBitmap, cyBitmap, iReturn ; 
(hBitmap, sizeof (BITMAP), &bitmap); 

= bitmap.bmWidth ; 

= bitmap.bmHeight ; 


SaveDC (hdc); 

if (fHalftonePalette) 

SetStretchBltMode (hdc, HALFTONE) 


else 


SetStretchBltMode (hdc, COLORONCOLOR); 
hdcMem = CreateCompatibleDC (hdc); 

SelectObj ect (hdcMem, hBitmap); 


switch (wShow) 

{ 

case 工 DM_SHOW—NORMAL: 

if (fHalftonePalette) 

iReturn = StretchBlt (hdc, ◦, ◦, 

min (cxClient, cxBitmap - x), 

min (cyClient, cyBitmap - y), 

hdcMem, x, y, min (cxClient, cxBitmap 一 x), 

min (cyClient, cyBitmap — y), 

SRCCOPY); 

else 

iReturn = BitBlt (hdc,0, 0, min (cxClient, 

cxBitmap - x), 

min (cyClient, cyBitmap — y), 
hdcMem, x, y, SRCCOPY); 
break ; 


case 工 DM—SHOW—CENTER: 

if (fHalftonePalette) 

iReturn = StretchBlt ( hdc, (cxClient - cxBitmap) / 2, 
(cyClient - cyBitmap) / 2, 
cxBitmap, cyBitmap, 

hdcMem, ◦, 0, cxBitmap, cyBitmap, SRCCOPY); 

else 

iReturn = BitBlt (hdc, (cxClient - cxBitmap) / 2, 
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cyClient - cyBitmap) / 2, 
cxBitmap, cyBitmap, 
hdcMem, 0, ◦, SRCCOPY); 
break ; 

case IDM—SHOW—STRETCH: 

iReturn = StretchBlt (hdc, ◦, 0, cxClient, cyClient, 

hdcMem, ◦, 0, cxBitmap, cyBitmap, SRCCOPY); 

break ; 

case 工 DM—SHOW—ISOSTRETCH: 

SetMapMode (hdc, MM_ISOTROPIC); 

SetWindowExtEx (hdc, cxBitmap, cyBitmap, NULL); 
SetViewportExtEx (hdc, cxClient, cyClient, NULL); 
SetWindowOrgEx (hdc, cxBitmap / 2, cyBitmap / 2, NULL); 
SetViewportOrgEx (hdc, cxClient / 2, cyClient / 2, NULL); 

iReturn = StretchBlt (hdc, ◦, 0, cxBitmap, cyBitmap, 

hdcMem, 0 , 0, cxBitmap, cyBitmap, SRCCOPY); 

break ; 

} 

DeleteDC (hdcMem); 

RestoreDC (hdc, -1); 
return iReturn ; 



DibFlipHorizontal : Calls non-optimized DibSetPixel and DibGetPixel 



HDIB DibFlipHorizontal (HDIB hdibSrc) 

{ 

HDIB hdibDst ; 
int cx, cy, x, y ; 


if (!DiblsAddressable (hdibSrc)) 

return NULL ; 

if (NULL == (hdibDst = DibCopy (hdibSrc, FALSE))) 

return NULL ; 

cx = DibWidth (hdibSrc); 

cy = DibHeight (hdibSrc); 


for (x = ◦ ; x < cx ; x++) 
for (y = ◦ ; y < cy ; y++) 

{ 

DibSetPixel (hdibDst, x, cy - 1 - y, DibGetPixel (hdibSrc, x, y)); 
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case 8 : 

for ( x = ◦ ; x < cx ; x++) 
for ( y = ◦ ; y < cy ; y++) 
DibSetPixel8 (hdibDst, 
DibGetPixel8 (hdibSrc, 
break ; 

case 16: 

for (x = 0 ; x < cx ; x++) 


一" 

HDIB DibRotateRight (HDIB hdibSrc) 

{ 

HDIB hdibDst ; 
int cx, cy, x, y ; 

if (!DiblsAddressable (hdibSrc)) 

return NULL ; 

if (NULL == (hdibDst = DibCopy (hdibSrc, TRUE))) 

return NULL ; 

cx = DibWidth (hdibSrc); 
cy = DibHeight (hdibSrc); 

switch (DibBitCount (hdibSrc)) 

{ 

case 1: 

for ( x = ◦ ; x < cx ; x++) 

for ( y = 0 ; y < cy ; y++) 

DibSetPixell (hdibDst, 
DibGetPixel1 (hdibSrc, 

break ; 

case 4 : 

for ( x = ◦ ; x < cx ; x++) 

for ( y = ◦ ; y < cy ; y++) 

DibSetPixel4 (hdibDst, 
DibGetPixel4 (hdibSrc, 

break ; 
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return hdibDst ; 


DibRotateRight : Calls optimized DibSetPixelx and DibGetPixel] 
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for (y = 

0 

； Y < cy ; y++) 









DibSetPixell6 (hdibDst, 

cy 

-y - 1, 

x. 






DibGetPixell6 (hdibSrc, 

x. 

Y)) ； 





break ; 







case 

24: 










for (x = 

0 

； X < CX ； X++) 







for (y = 

0 

；y < cy ; y++) 









DibSetPixel24 (hdibDst, 

cy 

- y - 1, 

X, 






DibGetPixel24 (hdibSrc, 

x. 

Y)) ； 





break ; 







case 

32: 










for (x = 

0 

； X < CX ； X++) 







for (y = 

0 

；y < cy ; y++) 









DibSetPixel32 (hdibDst, 

cy 

-y - 1, 

X, 






DibGetPixel32 (hdibSrc, 

x. 

y)); 





break ; 






} 

i 

return 

hdibDst ; 







! 'k _ 




_ __ _ 






PaletteMenu : Uncheck 

and check menu item on palette menu 




— 

— 

— 

— 

— 

— 

— 


V 

void 

PaletteMenu (HMENU hMenu, WORD wltemNew) 




1 

static 

WORD wltem = 工 DM PAL—NONE 

1 • 

J f 






CheckMenuItem (hMenu, 

wltem, MF 

UNCHECKED); 





wltem = 

=wltemNew ; 







} 

CheckMenuItem (hMenu, 

wltem, MF 

CHECKED); 




LRESULT CALLBACK WndProc ( 

HWND hwnd. 

UINT message, WPARAM 

wParam,LPARAM 

IParam) 

； 








l 

static 

BOOL 



fHalftonePalette ; 





static 

DOCINFO 


di 



— 

{sizeof(DOCINFO) , TEXT ( "Dibble : Printing" ) } ; 





static 

HBITMAP 



hBitmap ; 





static 

HDIB 



hdib ; 





static 

HMENU 



hMenu ; 





static 

HPALETTE 



hPalette ; 





static 

int 



cxClient, cyClient, 

iVscroll , 

iHscroll ; 









static 

OPENFILENAME ofn 

參 

r 






static 

PRINTDLG 



printdlg = { sizeof 

(PRINTDLG) 

}; 
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static TCHAR szFileName [MAX_PATH] , 

szTitleName [MAX_PATH]; 

static TCHAR szFilter[ ] = TEXT ("Bitmap 

Files (*•BMP)\0*.bmp\O n ) 

TEXT ("All Files ( * • *) \ ◦ * • * \ ◦ \ ◦，'）; 
static TCHAR * szCompression[] = { 

TEXT ( ， 'BI_RGB n ) , TEXT ( n BI_RLE8 n ) , TEXT ( n BI_RLE4 n ), 

TEXT( n BI_BITFIELDS n ),TEXT("Unknown")}; 
static WORD 
BOOL 
BYTE 
HDC 

HGLOBAL 
HDIB 
int 

PAINTSTRUCT 
SCROLLINFO 
TCHAR 

switch (message) 

{ 

case WM—CREATE: 

// Save the menu handle in a static variable 
hMenu = GetMenu (hwnd); 

// Initialize the OPENFILENAME structure for the File Open 
// and File Save dialog boxes. 


ofn.IStructSize 

=sizeof (OPENFILENAME); 

ofn.hwndOwner 

=hwnd ; 

ofn.hlnstance 

=NULL ; 

ofn.lpstrFilter 

=szFilter ; 

ofn.IpstrCustomFilter 

=NULL ; 

ofn.nMaxCustFilter 

=◦; 

ofn.nFiIterIndex 

=◦; 

ofn.IpstrFile 

=szFileName ; 

ofn.nMaxFile 

=MAX PATH ; 

ofn.lpstrFileTitle 

=szTitleName ; 

ofn.nMaxFileTitle 

=MAX PATH ; 

ofn.lpstrlnitialDir 

=NULL ; 

ofn.lpstrTitle 

=NULL ; 

ofn.Flags 

= OFN OVERWRITEPROMPT ; 

ofn.nFileOffset 

=◦; 

ofn.nFileExtension 

=◦; 

ofn.IpstrDefExt 

=TEXT ("bmp"); 

ofn.lCustData 

=◦; 


wShow = IDM_SHOW_NORMAL ; 
fSuccess ; 

* pGlobal ; 

hdc, hdcPrn ; 
hGlobal ; 
hdibNew ; 

iEnable, cxPage, cyPage, iConvert ; 
ps ; 
si ; 

szBuffer [256]; 
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ofn.lpfnHook = NULL ; 
ofn.lpTemplateName = NULL ; 
return 0 ; 


case WM_DISPLAYCHANGE : 

SendMessage (hwnd, WM—USER—DELETEPAL, ◦, 0); 
SendMessage (hwnd, WM—USER—CREATEPAL, TRUE, 0); 
return 0 ; 


case WM—SIZE: 
variables. 


// Save the client area width and height in static 


cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 

wParam = FALSE ; 

// fall through 

// WM—USER—SETSCROLLS: Programmer-defined Message! 

// Set the scroll bars. If the display mode is not normal , 
// make them invisible. If wParam is TRUE, reset the 
// scroll bar position. 


case WM_USER_SETSCROLLS : 

if (hdib == NULL || wShow != IDM—SHOW—NORMAL) 

{ 

si.cbSize = sizeof 


(SCROLLINFO); 

si.fMask = SIF_RANGE ; 

si . nMin = 0 ; 

si . nMax = 0 ; 

SetScrollInfo (hwnd, SB—VERT, &si, TRUE); 
SetScrollInfo (hwnd, SB—HORZ, &si, TRUE); 

} 

else 


// First the vertical scroll 


si.cbSize 
si.fMask 
GetScrollInfo 
si.nMin 
si.nMax 
si.nPage 

if ( (BOOL) wParam) 


=sizeof (SCROLLINFO); 

=SIF—ALL ; 

(hwnd, SB—VERT, &si); 

=◦; 

=DibHeight (hdib); 
=cyClient ; 


si.nPos = 0 ; 


SetScrollInfo (hwnd, SB—VERT, &si, TRUE); 
GetScrollInfo (hwnd, SB VERT, &si); 
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iVscroll = si.nPos ; 

// Then the horizontal scroll 

GetScrollInfo (hwnd, SB_HORZ, &si); 
si . nMin = 0 ; 

si.nMax = DibWidth (hdib); 

si.nPage = cxClient ; 

if ( (BOOL) wParam) 
si.nPos = 0 ; 

SetScrollInfo (hwnd, SB—HORZ, &si, TRUE); 
GetScrollInfo (hwnd, SB_HORZ, &si); 
iHscroll = si.nPos ; 

} 

return 0 ; 

// WM—VSCROLL: Vertically scroll the DIB 

case WM—VSCROLL: 

si.cbSize = sizeof (SCROLLINFO); 
si.fMask = SIF—ALL ; 

GetScrollInfo (hwnd, SB—VERT, &si); 

iVscroll = si.nPos ; 

switch (LOWORD (wParam)) 

{ 

case SB_LINEUP: si.nPos - = 1 ; break ; 

case SB_LINEDOWN: si. nPos + = 1 ; break ; 

case SB_PAGEUP : si.nPos — = si.nPage ;break ; 

case SB_PAGEDOWN : si.nPos + = si.nPage ;break ; 

case SB_THUMBTRACK : si.nPos = si.nTrackPos ;break ; 

default : 

break ; 

} 

si.fMask = SIF_POS ; 

SetScrollInfo (hwnd, SB—VERT, &si, TRUE); 

GetScrollInfo (hwnd, SB—VERT, &si); 
if (si.nPos != iVscroll) 

{ 

ScrollWindow (hwnd, 0, iVscroll - si.nPos, NULL, NULL); 
iVscroll = si.nPos ; 

UpdateWindow (hwnd); 

} 

return 0 ; 


第 884 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 




// WM HSCROLL: 

Horizontally 

scroll the DIB 

case WM 

HSCROLL: 






si.cbSize = sizeof (SCROLLINFO); 



si. fMask = SIF ALL ; 





GetScrollInfo 

(hwnd, SB HORZ, 

&si); 



iHscroll = si. 

nPos ; 





switch (LOWORD 

(wParam)) 





i 

case SB LINELEFT: si.nPos 

- =1 

; break ; 



case SB LINERIGHT: si.nPos 

+=1 

; break ; 



case SB PAGELEFT : si.nPos 

- =si.nPage ;break ; 



case SB PAGERIGHT: si.nPos 

+=si.nPage ;break ; 



case SB THUMBTRACK:si.nPos 

=si•nTrackPos ;break ; 



default : break 

} 

參 





si.fMask = SIF 

—POS ; 





SetScrollInfo 

(hwnd, SB HORZ, 

&si, TRUE); 



GetScrollInfo 

(hwnd, SB HORZ, 

&si); 


if 

/ 

(si.nPos != iHscroll) 




i 

ScrollWindow (hwnd, iHscroll - 

si.nPos, ◦, NULL, NULL); 



iHscroll = si. 

nPos ; 





UpdateWindow (hwnd); 




J 

return 0 ; 





// 

WM INITMENUPOPUP: 

Enable or Gray 

menu items 

case WM 

INITMENUPOPUP: 






if (hdib) 







iEnable = 

MF 

ENABLED ; 



else 







iEnable = 

MF 

GRAYED ; 

EnableMenuItem 

(hMenu, 工 DM FILE 

SAVE, 


iEnable); 

EnableMenuItem 

(hMenu, 工 DM FILE 

PRINT, 


iEnable); 

EnableMenuItem 

(hMenu, IDM FILE 

PROPERTIES, 


iEnable); 

EnableMenuItem 

(hMenu, 工 DM EDIT 

_CUT a 


iEnable); 

EnableMenuItem 

(hMenu, IDM EDIT 

—COPY, 


iEnable); 

EnableMenuItem 

(hMenu, IDM EDIT 

DELETE, 


iEnable); 



if (DiblsAddressable (hdib)) 





iEnable = 

MF 

ENABLED ; 



else 
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iEnable 

— 

MF GRAYED 

參 

r 



EnableMenuItem (hMenu, 

IDM 

EDIT ROTATE, 


iEnable) 

• 

r 



EnableMenuItem (hMenu, 

IDM 

EDIT FLIP, 


iEnable) 

• 

r 



EnableMenuItem (hMenu, 

IDM 

CONVERT 01, 


iEnable) 

參 

/ 



EnableMenuItem (hMenu, 

IDM 

CONVERT 04, 


iEnable) 

参 

f 



EnableMenuItem (hMenu, 

IDM 

—CONVERT 08, 


iEnable) 

• 

f 



EnableMenuItem (hMenu, 

IDM 

CONVERT 16, 


iEnable) 

參 

f 



EnableMenuItem (hMenu, 

IDM 

—CONVERT 24, 


iEnable) 

• 

r 



EnableMenuItem (hMenu, 

IDM 

—CONVERT 32, 


iEnable) 

• 

f 



switch 

； 

(DibBitCount (hdib)) 






i 

case 

1: 

EnableMenuItem (hMenu, 工 DM 

CONVERT 01 

, MF 

GRAYED) ; 



break ; 








case 

4 : 

EnableMenuItem (hMenu, IDM 

CONVERT 04 

, MF 

GRAYED) ; 



break ; 








case 

8: 

EnableMenuItem (hMenu, 工 DM 

CONVERT 08 

, MF 

GRAYED) ; 



break ; 








case 

16: 

EnableMenuItem (hMenu, IDM 

CONVERT 16, 

MF 

GRAYED) ; 



break ; 








case 

24: 

EnableMenuItem (hMenu, IDM 

_CONVERT 24, 

MF 

GRAYED) ; 



break ; 








case 

32: 

EnableMenuItem (hMenu, IDM 

_CONVERT—32, 

MF 

GRAYED) ; 

} 


break ; 










if (hdib 


DibColorSize 

(hdib) > 0) 








iEnable 

= 

MF ENABLED 

• 

f 





else 


iEnable 

— 

MF GRAYED 

參 

r 





EnableMenuItem (hMenu, 工 DM 

PAL DIBTABLE, 


iEnable); 


if 

(DiblsAddressable (hdib) && 

DibBitCount 

(hdib) > 8) 





iEnable 

— 

MF ENABLED 

參 

f 





else 


iEnable 

— 

MF GRAYED 

參 

f 



EnableMenuItem 


(hMenu, IDM PAL 

OPT POP4, 




iEnable); 










EnableMenuItem 


(hMenu, IDM PAL 

OPT POP5, 




iEnable); 










EnableMenuItem 


(hMenu, IDM PAL 

OPT POP6, 




iEnable); 










EnableMenuItem 


(hMenu, IDM PAL 

OPT MEDCUT, 



iEnable); 










EnableMenuItem 


(hMenu, IDM EDIT PASTE, 





IsClipboardFormatAvailable (CF 

DIB) ? MF ENABLED : 

MF GRAYED); 
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return 0 ; 

// WM—COMMAND: Process all menu commands. 

case WM—COMMAND: 

iConvert = 0 ; 

switch (LOWORD (wParam)) 

{ 

case IDM_FILE_OPEN: 

// Show the File Open dialog box 

if (!GetOpenFileName (&ofn)) 

return 0 ; 

// If there 1 s an existing DIB and palette, delete them 

SendMessage (hwnd, WM—USER—DELETEDIB, 0,0); 

// Load the DIB into memory 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 

hdib = DibFileLoad (szFileName); 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 

// Reset the scroll bars 

SendMessage (hwnd, WM—USER—SETSCROLLS, TRUE, 0); 

// Create the palette and DDB 

SendMessage (hwnd, WM—USER—CREATEPAL, TRUE, 0); 

if ( !hdib) 

{ 

MessageBox (hwnd, TEXT ("Cannot load DIB file !’’）， 

szAppName, MB_OK | MB_ICONEXCLAMATION); 

} 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 


case 工 DM FILE SAVE: 
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// Show the File Save dialog box 

if ( ! GetSaveFileName (&ofn)) 

return 0 ; 

// Save the DIB to memory 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 

fSuccess = DibFileSave (hdib, szFileName); 
ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 
if ( !fSuccess) 

MessageBox ( hwnd, TEXT ("Cannot save DIB file !’’）， 

szAppName, MB_OK | MB_ICONEXCLAMATION); 

return 0 ; 

case IDM_FILE_PRINT: 

if ( !hdib) 

return 0 ; 

// Get printer DC 

printdlg.Flags = PD—RETURNDC | PD—NOPAGENUMS | 

PD_NOSELECTION ; 

if ( !PrintDlg ( &printdlg)) 

return 0 ; 

if (NULL == (hdcPrn = printdlg.hDC)) 

{ 

MessageBox( hwnd, TEXT ("Cannot obtain Printer DC ”）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 

return 0 ; 

} 

// Check if the printer can print bitmaps 

if (!(RC_BITBLT & GetDeviceCaps (hdcPrn, RASTERCAPS))) 

{ 

DeleteDC (hdcPrn); 

MessageBox ( hwnd, TEXT ("Printer cannot print bitmaps ’’）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 

return 0 ; 
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// Get size of printable area of page 

cxPage = GetDeviceCaps (hdcPrn, HORZRES); 
cyPage = GetDeviceCaps (hdcPrn, VERTRES); 

fSuccess = FALSE ; 

// Send the DIB to the printer 

SetCursor (LoadCursor (NULL, 工 DC—WAIT)); 
ShowCursor (TRUE); 

if ( (StartDoc (hdcPrn, &di) > 0) && (StartPage (hdcPrn) > 0)) 
{ 

DisplayDib (hdcPrn, DibBitmapHandle (hdib), ◦, 0, 

cxPage, cyPage, wShow, FALSE); 

if (EndPage (hdcPrn) > 0) 

{ 

fSuccess = TRUE ; 
EndDoc (hdcPrn); 

} 

} 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, 工 DC—ARROW)); 
DeleteDC (hdcPrn); 
if ( !fSuccess) 

MessageBox ( hwnd, TEXT ("Could not print bitmap ’'）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 
return 0 ; 

case IDM_FILE_PROPERTIES: 

if ( !hdib) 

return 0 ; 

wsprintf (szBuffer, TEXT ("Pixel width : \t%i\n n ) 

TEXT ("Pixel height:\t%i\n") 

TEXT ( "Bits per pixel : \t%i\n") 

TEXT ("Number of colors : \t%i\n n ) 

TEXT ("Compression:\t%s\n"), 

DibWidth (hdib), DibHeight (hdib), 

DibBitCount (hdib), DibNumColors (hdib), 
szCompression [min (3, DibCompression (hdib))]); 

MessageBox ( hwnd, szBuffer, szAppName, 

MB 工 CONEXCLAMATION | MB OK); 
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return 0 ; 

case 

IDM APP EXIT: 

SendMessage (hwnd A WM CLOSE, ◦, 0); 

return 0 ; 

case 

case 

工 DM EDIT COPY: 

工 DM EDIT CUT: 

if ( ! (hGlobal = DibCopyToPackedDib (hdib, TRUE))) 

return 0 ; 


OpenClipboard (hwnd); 

EmptyClipboard (); 

SetClipboardData (CF DIB, hGlobal); 

Closedipboard (); 

case 

if (LOWORD (wParam) == IDM EDIT COPY) 

return 0 ; 

// fall through for IDM EDIT CUT 

IDM EDIT DELETE : 

SendMessage (hwnd, WM USER DELETEDIB, 0,0); 

工 nvalidateRect (hwnd, NULL, TRUE); 

return 0 ; 

case 

IDM EDIT PASTE: 

OpenClipboard (hwnd); 


hGlobal = GetClipboardData (CF DIB); 

pGlobal = GlobalLock (hGlobal); 


// If there’s an existing DIB and palette,delete them. 

// Then convert the packed DIB to an HDIB. 


if (pGlobal) 

/ 


l 

SendMessage (hwnd, WM USER DELETEDIB, ◦, 0); 

hdib = DibCopyFromPackedDib ((BITMAPINFO *) pGlobal); 

SendMessage (hwnd, WM USER CREATEPAL, TRUE, 0); 

} 


GlobalUnlock (hGlobal); 

Closed ipboard (); 

// Reset the scroll bars 


SendMessage (hwnd, WM USER SETSCROLLS, TRUE, 0); 

工 nvalidateRect (hwnd, NULL, TRUE); 

return 0 ; 
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case 工 DM_EDIT_ROTATE : 

if (hdibNew = DibRotateRight (hdib)) 

{ 

DibDelete (hdib); 

DeleteObj ect (hBitmap); 
hdib = hdibNew ; 

hBitmap = DibCopyToDdb (hdib, hwnd, hPalette); 
SendMessage (hwnd, WM—USER—SETSCROLLS, TRUE, 0); 
InvalidateRect (hwnd, NULL, TRUE); 

} 

else 

{ 

MessageBox ( hwnd, TEXT ("Not enough memory 1 ，）， 

szAppName, MB_OK | MB_ICONEXCLAMATION); 

} 

return 0 ; 

case IDM_EDIT_FLIP: 

if (hdibNew = DibFlipHorizontal (hdib)) 

{ 

DibDelete (hdib); 

DeleteObj ect (hBitmap); 
hdib = hdibNew ; 

hBitmap = DibCopyToDdb (hdib, hwnd, hPalette); 
InvalidateRect (hwnd, NULL, TRUE); 

} 

else 

{ 

MessageBox ( hwnd, TEXT ("Not enough memory 1 ，）， 

szAppName, MB_OK | MB_ICONEXCLAMATION); 

} 

return 0 ; 

case 工 DM_SHOW—NORMAL: 
case 工 DM—SHOW—CENTER: 
case 工 DM—SHOW—STRETCH: 
case 工 DM—SHOW_ISOSTRETCH: 

CheckMenuItem (hMenu, wShow, MF_UNCHECKED); 
wShow = LOWORD (wParam); 

CheckMenuItem (hMenu, wShow, MF_CHECKED); 
SendMessage (hwnd, WM—USER_SETSCROLLS, FALSE, 0); 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case 工 DM_CONVERT_32: iConvert += 8 ; 

case 工 DM_CONVERT_24: iConvert += 8 ; 

case 工 DM CONVERT 16: iConvert += 8 ; 
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case 工 DM_CONVERT_08 : iConvert += 4 ; 

case 工 DM_CONVERT_04 : iConvert += 3 ; 

case IDM_CONVERT_01 : iConvert += 1 ; 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 

hdibNew = DibConvert (hdib, iConvert); 
ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 

if (hdibNew) 

{ 

SendMessage (hwnd, WM—USER—DELETEDIB, 0, 0); 

hdib = hdibNew ; 

SendMessage (hwnd, WM—USER—CREATEPAL, TRUE, 0); 
InvalidateRect (hwnd, NULL, TRUE); 

} 

else 

{ 

MessageBox ( hwnd, TEXT ("Not enough memory ”）， 

szAppName, MB_OK | MB_ICONEXCLAMATION); 

} 

return 0 ; 

case IDM—APP—ABOUT: 

MessageBox ( hwnd, TEXT ("Dibble (c) Charles Petzold, 1998 ”）， 

szAppName, MB_OK | MB_ICONEXCLAMATION); 

return 0 ; 

} 

// All the other WM_COMMAND messages are from the palette 
// items. Any existing palette is deleted, and the cursor 

// is set to the hourglass. 

SendMessage (hwnd, WM—USER—DELETEPAL, ◦, 0); 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 

ShowCursor (TRUE); 

// Notice that all messages for palette items are ended 
// with break rather than return. This is to allow 
// additional processing later on. 

switch (LOWORD (wParam)) 

{ 

case IDM_PAL_DIBTABLE: 

hPalette = DibPalDibTable (hdib); 
break ; 
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case IDM_PAL_HALFTONE : 

hdc = GetDC (hwnd); 

if (hPalette = CreateHalftonePalette (hdc)) 

fHalftonePalette = TRUE ; 

ReleaseDC (hwnd, hdc); 
break ; 

case IDM_PAL_ALLPURPOSE: 

hPalette = DibPalAllPurpose (); 
break ; 

case IDM—PAL_GRAY2:hPalette = DibPalUniformGrays (2) ; 

break; 

case IDM—PAL_GRAY3:hPalette = DibPalUniformGrays (3) ; 

break; 

case IDM—PAL_GRAY4:hPalette = DibPalUniformGrays (4) ; 

break; 

case IDM—PAL_GRAY8:hPalette = DibPalUniformGrays (8) ; 

break; 

case IDM_PAL_GRAY16:hPalette = DibPalUniformGrays (16) ; 

break; 

case IDM_PAL_GRAY32:hPalette = DibPalUniformGrays (32) ; 

break; 

case IDM—PAL_GRAY64:hPalette = DibPalUniformGrays (64) ; 

break; 

case IDM—PAL_GRAY128:hPalette = DibPalUniformGrays (128) ; 

break; 

case IDM—PAL_GRAY256:hPalette = DibPalUniformGrays (256) ; 

break; 

case IDM—PAL_RGB222:hPalette = DibPalUniformColors (2,2,2); 

break; 

case 工 DM—PAL_RGB333:hPalette = DibPalUniformColors (3,3,3); 

break; 

case IDM—PAL_RGB444:hPalette = DibPalUniformColors (4,4,4); 

break; 

case IDM—PAL_RGB555:hPalette = DibPalUniformColors (5,5,5); 

break; 

case IDM—PAL—RGB666:hPalette = DibPalUniformColors (6,6,6); 

break; 

case IDM—PAL_RGB775:hPalette = DibPalUniformColors (7,7,5); 

break; 

case IDM—PAL—RGB757:hPalette = DibPalUniformColors (7,5,7); 

break; 

case IDM—PAL_RGB577:hPalette = DibPalUniformColors (5,7,7); 

break; 

case IDM PAL RGB884 : hPalette = DibPalUniformColors (8,8,4); 
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break; 

case 工 DM—PAL_RGB84 8: hPalette = DibPalUniformColors (8,4,8); 

break; 

case IDM—PAL_RGB488:hPalette = DibPalUniformColors (4,8,8); 

break; 

case 工 DM_PAL_0PT_P0P4:hPalette = DibPalPopularity (hdib, 4) ; break ; 

case 工 DM_PAL_0PT_P0P5:hPalette = DibPalPopularity (hdib, 5) ; break ; 

case IDM_PAL_0PT_P0P6 : hPalette = DibPalPopularity (hdib, 6) ; break ; 

case IDM—PAL_OPT—MEDCUT:hPalette = DibPalMedianCut (hdib, 6) ; break ; 

} 

// After processing Palette items from the menu, the cursor 
// is restored to an arrow, the menu item is checked, and 
// the window is invalidated. 

hBitmap = DibCopyToDdb (hdib, hwnd, hPalette); 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 
if (hPalette) 

PaletteMenu (hMenu, (LOWORD (wParam))); 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

// This programmer-defined message deletes an existing DIB 
// in preparation for getting a new one. Invoked during 
// File Open command. Edit Paste command, and others. 

case WM—USER_DELETEDIB: 

if (hdib) 

{ 

DibDelete (hdib); 
hdib = NULL ; 

} 

SendMessage (hwnd, WM—USER—DELETEPAL, 0, 0); 
return 0 ; 

// This programmer-defined message deletes an existing palette 
// in preparation for defining a new one. 

case WM_USER_DELETEPAL : 

if (hPalette) 

{ 

DeleteObj ect (hPalette); 
hPalette = NULL ; 
fHalftonePalette = FALSE ; 
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PaletteMenu (hMenu, IDM_PAL—NONE); 

} 

if (hBitmap) 

DeleteObj ect (hBitmap); 

return 0 ; 

// Programmer-defined message to create a new palette based on 
// a new DIB. If wParam == TRUE, create a DDB as well. 

case WM_USER_CREATEPAL : 

if (hdib) 

{ 

hdc = GetDC (hwnd); 


if (!(RC_PALETTE & GetDeviceCaps (hdc, RASTERCAPS))) 

{ 

PaletteMenu (hMenu, 工 DM_PAL—NONE); 

} 

else if (hPalette = DibPalDibTable (hdib)) 

{ 

PaletteMenu (hMenu, IDM_PAL_DIBTABLE); 

} 

else if (hPalette = CreateHalftonePalette (hdc)) 

{ 

fHalftonePalette = TRUE ; 
PaletteMenu (hMenu, IDM_PAL_HALFTONE); 

} 

ReleaseDC (hwnd, hdc); 
if ( (BOOL) wParam) 

hBitmap = DibCopyToDdb (hdib, hwnd, hPalette); 

} 

return 0 ; 


case WM PAINT : 


hdc = BeginPaint (hwnd, &ps); 



if (hPalette) 

{ 

SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 

} 

if (hBitmap) 

DisplayDib ( hdc, 

fHalftonePalette ? DibBitmapHandle (hdib) : hBitmap, 
iHscroll, iVscroll, 
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cxClient, cyClient, 

wShow A fHalftonePalette); 



f 

EndPaint (hwnd, 

return 0 ; 

&ps); 

case 

WM QUERYNEWPALETTE : 

if ( !hPalette) 

return FALSE ; 



hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

工 nvalidateRect (hwnd, NULL, TRUE); 



ReleaseDC (hwnd, hdc); 

return TRUE ; 

case 

WM PALETTECHANGED: 

if ( !hPalette | 

| (HWND) wParam == hwnd) 

break ; 



hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 

RealizePalette (hdc); 

UpdateColors (hdc); 



ReleaseDC (hwnd, hdc); 

break ; 

case 

WM DESTROY 

• 

• 

if (hdib) 

DibDelete (hdib); 



if (hBitmap) 

DeleteObj ect (hBitmap); 



if (hPalette) 

DeleteObj ect (hPalette); 



PostQuitMessage 

return 0 ; 

(0); 

return DefWindowProc (hwnd, message, wParam, IParam); 

i 

DIBBLE .RC ( 摘录） 

/ /Microsoft Developer 

♦include "resource.h" 

Studio generated 

resource script. 
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♦include "afxres.h n 

1111111111111111111111111111111111111111111111111111111111111111111111111111 
/ 

// Menu 

DIBBLE MENU DISCARDABLE BEGIN POPUP "&File" 

BEGIN 

MENUITEM "&Open...\tCtrl+O n , 

MENUITEM，'&Save … \tCtrl + S n , 

MENUITEM SEPARATOR 
MENUITEM "&Print...\tCtrl+P n , 

MENUITEM SEPARATOR 


工 DM_FILE_OPEN 
工 DM_FILE_SAVE 

IDM FILE PRINT 


If 


MENUITEM "Propert&ies.. 

MENUITEM SEPARATOR 
MENUITEM "E&xit", 

END 

POPUP n &Edit" 

BEGIN 

MENUITEM "Cu&t\tCtrl+X" 

MENUITEM "&Copy\tCtrl+C 
MENUITEM "&Paste\tCtrl+V", 

MENUITEM "&Delete\tDelete 
MENUITEM SEPARATOR 
MENUITEM n &Flip n , 

MENUITEM "^Rotate", 

END 

POPUP "&Show n 
BEGIN 

MENUITEM "^Actual Size", 

MENUITEM "^Center", IDM—SHOW—CENTER 
MENUITEM "&Stretch to Window", 
MENUITEM "Stretch & Isotropically ”， 

END 

POPUP n &Palette" 

BEGIN 

MENUITEM "&None", 

MENUITEM "&Dib ColorTable", 

MENUITEM "^Halftone", 

MENUITEM "&All-Purpose n , 

POPUP n &Gray Shades n 
BEGIN 


工 DM FILE PROPERTIES 


工 DM APP EXIT 


工 DM—EDIT—CUT 
工 DM—EDIT—COPY 
IDM—EDIT—PASTE 

r IDM—EDIT—DELETE 

IDM—EDIT—FLIP 
工 DM EDIT ROTATE 


工 DM SHOW NORMAL, CHECKED 


工 DM—S HOW—S TRETCH 
工 DM SHOW ISOSTRETCH 


IDM_PAL_NONE, CHECKED 
工 DM—PAL—DIBTABLE 
工 DM_PAL_HALFTONE 
IDM PAL ALLPURPOSE 


MENUITEM 

"&1. 2 Grays", 


IDM 

PAL GRAY2 

MENUITEM 

"& 2. 3 Grays", 

IDM 

PAL 

GRAY 3 

MENUITEM 

"& 3 . 4 Grays ’’， 

工 DM 

PAL 

GRAY 4 

MENUITEM 

n & 4. 8 Grays", 

IDM 

PAL 

GRAY 8 

MENUITEM 

"& 5 . 16 Grays ’’， 

IDM 

PAL 

GRAY16 

MENUITEM 

"&6 . 32 Grays ’’， 

IDM 

PAL 

GRAY32 

MENUITEM 

"& 7 . 64 Grays ’’， 

IDM PAL GRAY64 

MENUITEM 

"&8. 128 Grays", 

IDM PAL GRAY128 
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MENUITEM "&9 . 256 Grays", IDM_PAL_GRAY25 6 

END 

POPUP n &Unif orm Colors’’ 

BEGIN 

MENUITEM "&1. 2R x 2G x 2B (8) n , IDM_PAL_RGB222 

MENUITEM "& 2. 3R x 3G x 3B (27)", 工 DM_PAL_RGB333 

MENUITEM "&3. 4R x 4G x 4B (64) ", IDM_PAL_RGB444 

MENUITEM "& 4. 5R x 5G x 5B (125)", IDM_PAL_RGB555 

MENUITEM "& 5. 6R x 6G x 6B (216)", 工 DM_PAL_RGB666 

MENUITEM "&6. 7R x 7G x 5B (245)", 工 DM_PAL_RGB775 

MENUITEM "&7. 7R x 5B x 7B (245)", 工 DM_PAL_RGB757 

MENUITEM "&8. 5R x 7G x 7B (245)", 工 DM_PAL_RGB577 

MENUITEM "& 9. 8R x 8G x 4B (256)", 工 DM_PAL_RGB884 

MENUITEM "&A. 8R x 4G x 8B (256)", 工 DM_PAL_RGB848 

MENUITEM "&B. 4R x 8G x 8B (256)", IDM—PAL_RGB488 

END 

POPUP "&Optimized n 
BEGIN 

MENUITEM "&1. Popularity Algorithm (4 bits) n 工 DM_PAL_OPT_POP4 
MENUITEM "& 2. Popularity Algorithm (5 bits) n 工 DM_PAL_0PT_P0P5 
MENUITEM "& 3. Popularity Algorithm (6 bits) n 工 DM_PAL_0PT_P0P6 
MENUITEM "& 4. Median Cut Algorithm ", IDM_PAL_OPT—MEDCUT 
END 

END 

POPUP "Con&vert" 

BEGIN 

MENUITEM "&1. to 1 bit per pixel", 工 DM_CONVERT_01 

MENUITEM "& 2. to 4 bits per pixel", IDM_CONVERT_04 

MENUITEM "& 3. to 8 bits per pixel", IDM_CONVERT_08 

MENUITEM "& 4. to 16 bits per pixel", 工 DM_C0NVERT_16 

MENUITEM "& 5. to 24 bits per pixel", IDM_CONVERT_24 

MENUITEM "& 6. to 32 bits per pixel", IDM_CONVERT_32 

END 

POPUP "&Help" 

BEGIN 

MENUITEM "&About n , 

工 DM—APP—ABOUT 

END 

END 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Accelerator 

DIBBLE ACCELERATORS DISCARDABLE 
BEGIN 

"C", 工 DM_EDIT_COPY, VIRTKEY, CONTROL, NOINVERT 

"0", 工 DM_FILE_OPEN, VIRTKEY, CONTROL, NOINVERT 

"P", 工 DM_FILE_PRINT, VIRTKEY, CONTROL, NOINVERT 

"S", 工 DM FILE SAVE, VIRTKEY, CONTROL, NOINVERT 
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"V", 工 DM_EDIT_PASTE, VIRTKEY, CONTROL, 

VK—DELETE, IDM_EDIT_DELETE, VIRTKEY, 

"X", 工 DM_EDIT_CUT, VIRTKEY, CONTROL, 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by Dibble.rc 


#define 

I DM 

FILE 

OPEN 

40001 

♦define 

IDM 

FILE 

_SAVE 

40002 

♦define 

IDM 

FILE 

PRINT 

40003 

#define 

IDM 

FILE 

PROPERTIES 

40004 

#define 

工 DM 

APP 

EXIT 

40005 

♦define 

IDM 

EDIT 

_CUT 

40006 

♦define 

IDM 

EDIT 

_COPY 

40007 

#define 

IDM 

EDIT 

PASTE 

40008 

#define 

工 DM 

EDIT 

DELETE 

40009 

♦define 

IDM 

EDIT 

FLIP 

40010 

♦define 

IDM 

EDIT 

ROTATE 

40011 

#define 

IDM 

SHOW 

—NORMAL 

40012 

#define 

IDM 

SHOW 

—CENTER 

40013 

♦define 

IDM 

SHOW 

.STRETCH 

40014 

♦define 

IDM 

SHOW 

.ISOSTRETCH 

40015 

#define 

IDM 

PAL 

NONE 

40016 

#define 

IDM 

PAL 

DIBTABLE 

40017 

♦define 

IDM 

PAL 

HALFTONE 

40018 

♦define 

IDM 

PAL 

ALLPURPOSE 

40019 

#define 

IDM 

PAL 

GRAY 2 

40020 

#define 

工 DM 

PAL 

GRAY 3 

40021 

♦define 

IDM 

PAL 

GRAY 4 

40022 

♦define 

IDM 

PAL 

GRAY 8 

40023 

#define 

IDM 

PAL 

GRAY16 

40024 

#define 

IDM 

PAL 

GRAY32 

40025 

♦define 

IDM 

PAL 

GRAY 6 4 

40026 

♦define 

IDM 

PAL 

GRAY128 

40027 

#define 

IDM 

PAL 

GRAY256 

40028 

#define 

IDM 

PAL 

RGB222 

40029 

♦define 

IDM 

PAL 

RGB333 

40030 

♦define 

IDM 

PAL 

RGB444 

40031 

#define 

IDM 

PAL 

RGB555 

40032 

#define 

IDM 

PAL 

RGB666 

40033 

♦define 

IDM 

PAL 

RGB775 

40034 

♦define 

IDM 

PAL 

RGB757 

40035 

#define 

IDM 

PAL 

RGB577 

40036 

#define 

IDM 

PAL 

RGB884 

40037 

♦define 

IDM 

PAL 

RGB848 

40038 

♦define 

IDM 

PAL 

RGB488 

40039 

#define 

IDM 

PAL 

OPT POP4 

40040 


NOINVERT 
NOINVERT 
NOINVERT 
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#define 

I DM 

PAL 

OPT 

POP5 

40041 

#define 

IDM 

PAL 

OPT 

POP6 

40042 

#define 

IDM 

PAL 

OPT 

MEDCUT 

40043 

#define 

IDM 

CONVERT 

_01 

40044 

#define 

工 DM 

_CONVERT 

_04 

40045 

#define 

工 DM 

CONVERT 

_0 8 

40046 

#define 

IDM 

CONVERT 

_16 

40047 

#define 

IDM 

_CONVERT 

_2 4 

40048 

#define 

IDM 

CONVERT 

_32 

40049 

#define 

工 DM 

APP 

ABOUT 

40050 


DIBBLE 使用了两个其他档案，我将简要地说明它们。 DIBC 0 NV 档案 


( DIBC 0 NV . C 和 DIBC 0 NV . H ) 在两种不同格式之间转换——例如，从每图素24 
位元转换成每图素8位元。 DIBPAL 档案 （ DIBPAL . C 和 DIBPAL . H ) 建立调色盘。 

DIBBLE 维护 WndProc 中的三个重要的静态变数。这些是呼叫 hdib 的 HDIB 
代号、呼叫 hPalette 的 HP ALETTE 代号和呼叫 hB it map 的 HBITMAP 代号 。 HDIB 
来自 DIBHELP 中的不同 函式； HPALETTE 来自 DIBPAL 中的不同函式或 
CreateHalftonePalette 函式； 而 HBITMAP 代号来自 DIBHELP . C 中的 
DibCopyToDdb 函式并帮助加速萤幕显示，特别是在256色显示模式下。不过， 
无论在程式建立新的 「DIB Section ] (显而易见地）或在程式建立不同的调色 
盘（不很明显）时，这个代号都必须重新建立。 

让我们从功能上而非循序渐进地来介绍一下 DIBBLE 。 

档案载入和储存 


DIBBLE 可以在回应 IDM _ FILE_LOAD 和 IDM _ FILE_SAVE 的 WM_COMMAND 讯息处 
理过程中载入 DIB 档案并储存这些档案。在处理这些讯息处理期间， DIBBLE 通 
过分别呼叫 GetOpenFileName 和 GetSaveFileName 来启动公用档案对话方块。 

对於 「 File 」 、 「 Save 」 功能表命令， DIBBLE 只需要呼叫 DibFileSave 。 
对於 「 File 」 、 「 Open 」 功能表命令， DIBBLE 必须首先删除前面的 HDIB 、 调色 
盘和点阵图物件。它透过发送一个 WM _ USER _ DELETEDIB 讯息来完成这件事，此 
讯息通过呼叫 DibDelete 和 DeleteObject 来处理。然後 DIBBLE 呼叫 DIBHELP 
中的 DibFileLoad 函式，发送 WM _ USER_SETSCROLLS 和 WM _ USER_CREATEPAL 讯息 
来重新设定卷动列并建立调色盘。 WM _ USER _ CREATEPAL 讯息也位於程式从 DIB 区 
块建立的新的 DDB 位置。 

显示、卷动和列印 

DIBBLE 的功能表允许它以实际尺寸在显示区域左上角显示 DIB , 或在显示 
区域中间显示 DIB ， 或伸展到填充显示区域，或者在保持纵横比的情况下尽量填 
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充显示区域。您可以在 DIBBLE 的 「 Show 」 功能表上来选择需要的选项。注意， 
这些与上一章的 SH 0 WDIB 2 程式中四个选项相同。 

在 WM _ PAINT 讯息处理期间——也是处理 「 File 」 、 「 Print 」 命令的过程 

中- DIBBLE 呼叫 DisplayDib 函式。注意 ， DisplayDib 使用 BitBlt 和 

StretchBlt , 而不是使用 SetDIBitsToDevice 和 StretchDIBits 。 在 WM_PAINT 
讯息处理期间，传递给函式的点阵图代号由 DibCopyToDdb 函式建立，并在 
WM _ USER _ CREATEPAL 讯息处理期间呼叫。其中 DDB 与视讯装置内容相容。当处理 
「 File 」 、 「 Print 」 命令时， DIBBLE 呼叫 DisplayDib ， 其中可用的 DIB 区块 
代号来自 DIBHELP . C 中的 DibBitmapHandle 函式。 

另外要注意， DIBBLE 保留一个称作 fHalftonePalette 的静态 B 00 L 变数， 
如果从 CreateHalftonePalette 函式中获得 hPalette ， 则此变数设定为 TRUE 。 
这将迫使 DisplayDib 函式呼叫 StretchBlt 而不是呼叫 BitBlt , 即使 DIB 被指 
定按实际尺寸显示。 fHalftonePalette 变数也导致 WM _ PAINT 处理程式将 DIB 区 
块代号传递给 DisplayDib 函式，而不是由 DibCopyToDdb 函式建立的点阵图代 
号。本章前面讨论过中间色调色盘的使用，并在 SH 0 WDIB 5 程式中进行了展示。 

第一次使用范例程式时， DIBBLE 允许在显示区域中卷动 DIB 。 只有按实际 
尺寸显示 DIB 时，才显示卷动列。在处理 WM _ PAINT 时， WndProc 简单地将卷动 
列的目前位置传递给 DisplayDib 函式。 

剪贴簿 


对於「 Cut 」和「 Copy 」功能表项， DIBBLE 呼叫 DIBHELP 中的 
DibCopyToPackedDib 函式。该函式将获得所有的 DIB 元件并将它们放入大的记 
忆体块中。 

对於第一次使用本书中的某些范例程式来说， DIBBLE 从剪贴簿中粘贴 DIB 。 
这包括呼叫 DibCopyFromPackedDib 函式，并替换视窗讯息处理程式前面储存的 
HDIB 、 调色盘和点阵图。 

翻转和旋转 

DIBBLE 中的 「 Edit 」 功能表中除了常见的 「 Cut 」 、 「 Copy 」 、 「 Paste 」 
和 「 Delete 」 选项之外，还包括两个附加项—— 「 Flip 」 和 「 Rotate 」 。 「 Flip 」 
选项使点阵图绕水平轴翻转——即上下颠倒翻转。 「 Rotate 」 选项使点阵图顺 
时针旋转90度。这两个函式都需要透过将它们从一个 DIB 复制到另一个来存取 
所有的 DIB 图素（因为这两个函式不需要建立新的调色盘，所以不删除和重新 
建立调色盘）。 
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「 Flip 」 功能表选项使用 DibFlipHorizontal 函式，此函式也位於 DIBBLE . C 
档案。此函式呼叫 DibCopy 来获得 DIB 精确的副本。然後，进入将原 DIB 中的 
图素复制到新 DIB 的回圈，但是复制这些图素是为了上下翻转图像。注意，此 
函式呼叫 DibGetPixel 和 DibSetPixel 。 这些是 DIBHELP . C 中的通用（但不像我 
们所希望的那么快）函式。 

为了说明 DibGetPixel 和 DibSetPixel 函式与 DIBHELP . H 中执行更快的 
DibGetPixel 和 DibSetPixel 巨集之间的区别， DibRotateRight 函式使用了巨 
集。然而，首先要注意的是，该函式呼叫 DibCopy 时，第二个参数设定为 TRUE 。 
这导致 DibCopy 翻转原 DIB 的宽度和高度来建立新的 DIB 。 另外，图素位元不能 
由 DibCopy 函式复制。但是， DibRotateRight 函式有六个不同的回圈将图素位 

元从原 DIB 复制到新的 DIB -每一个都对应不同的 DIB 图素宽度 （1 位元、4 

位元、8位元、16位元、24位元和32位元）。虽然包括了更多的程式码，但是 
函式更快了。 

尽管可以使用 「Flip Horizontal 」 和 「Rotate Right 」 选项来产生 「Flip 
Vertical」 、 「Rotate Left 」和 「Rotate 180 啊构 3 埽 3 淌烧苯又葱 

兴醒 Z 睢1暇梗頊 IBBLE 只是个展示程式而已。 

简单调 色盘； 最佳化调色盘 

在 DIBBLE 中，您可以在256色视讯显示器上选择不同的调色盘来显示 DIB 。 
这些都在 DIBBLE 的 「 Palette 」 功能表中列出。除了中间色调色盘以外，其余 
的都直接由 Windows 函式呼叫建立，建立不同调色盘的所有函式都由程式 16-24 
所示的 DIBPAL 档案提供。 

程式 16-24 DIBPAL 档案 

DIBPAL.H 

/* - 

DIBPAL.H header file for DIBPAL.C 


V 

HPALETTE DibPalDibTable (HDIB hdib); 

HPALETTE DibPalAllPurpose (void); 

HPALETTE DibPalUniformGrays (int iNum); 

HPALETTE DibPalUniformColors (int iNumR, int iNumG, int iNumB); 
HPALETTE DibPalVga (void); 

HPALETTE DibPalPopularity (HDIB hdib, int iRes); 

HPALETTE DibPalMedianCut (HDIB hdib, int iRes); 

DIBPAL.C 

/* - 
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DIBPAL.C -- Palette-Creation Functions 

(c) Charles Petzold, 1998 



#include <windows.h> 
♦include "dibhelp.h" 
♦include "dibpal.h" 



DibPalDibTable : Creates a palette from the DIB color table 



HPALETTE DibPalDibTable (HDIB hdib) 

{ 


HPALETTE 

int 


hPalette ; 
i, iNum ; 


LOGPALETTE * pip ; 

RGBQUAD 


rgb ; 


if (0 == (iNum = DibNumColors (hdib))) 

return NULL ; 

pip = malloc (sizeof (LOGPALETTE) + (iNum - 1) * sizeof (PALETTEENTRY)); 
plp->palVersion = 0x0300 ; 

pip->palNumEntries = iNum ; 

for (i = ◦ ; i < iNum ; i++) 

{ 

DibGetColor (hdib, i, &rgb); 
plp->palPalEntry[i].peRed = rgb.rgbRed ; 
plp->palPalEntry[i].peGreen = rgb.rgbGreen ; 
plp->palPalEntry[i].peBlue = rgb.rgbBlue ; 
plp->palPalEntry[i].peFlags = 0 ; 

} 

hPalette = CreatePalette (pip); 
free (pip); 
return hPalette ; 


DibPalA 


them are 


llPurpose : Creates a palette suitable for a wide variety 

of images; the palette has 247 entries, but 15 of 

duplicates or match the standard 20 colors. 



第 903 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


HPALETTE 

DibPalAllPurpose (void) 



1 

HPALETTE 



hPalette ; 




int 




i, incr, R, G, B ; 




LOGPALETTE 

女 

Pip ; 




PIP 

=malloc (sizeof (LOGPALETTE) + 246 * sizeof 

(PALETTEENTRY)) 

• 

f 


pip- 

->palVersion 

= 0x0300 ; 




Pip- 

->palNumEntries = 247 ; 








// The following loop calculates 

31 gray shades, 

but 3 

of 

them 












// will match the 

standard 20 colors 


for 

(i = 

◦, 

G = 

0, incr =8 ; G <= OxFF ; i++, G 

+= incr) 



l 




pip->palPalEntry[i].peRed 

=(BYTE) G ; 







pip->palPalEntry[i].peGreen = (BYTE) G ; 







pip->palPalEntry[i].peBlue = (BYTE) G ; 







pip->palPalEntry[i].peFlags = 0 

• 

f 



} 




incr = (incr == 9 ? 8 : 9); 





// 

The following loop is responsible for 216 entries, but 8 

of 





// 

them will match the standard 20 colors , 

and 

another 










// 

4 of them will 

match the gray 

shades 

above. 








for 

(R = 

0 

； R 

<= OxFF ; R += 0x33) 




for 

(G = 

0 

； G 

<= OxFF ; G += 0x33) 




for 

f 

(B = 

0 

;B 

<= OxFF ; B += 0x33) 




l 




pip->palPalEntry[i].peRed 

=(BYTE) 

R ； 






pip->palPalEntry[i].peGreen 

=(BYTE) G ; 







pip->palPalEntry[i].peBlue 

=(BYTE) B ; 







pip->palPalEntry[i].peFlags 

=◦; 



1 




i++ ； 




i 

hPalette 

— 

CreatePalette (pip); 




free (pip) 

參 

f 




} 

return hPalette 

• 



/* — 
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DibPalUniformGrays : Creates a palette of iNum grays, uniformly spaced 



HPALETTE DibPalUniformGrays (int iNum) 

{ 

HPALETTE hPalette ; 

int i ; 

LOGPALETTE * pip ; 


1 )) 



pip = malloc (sizeof (LOGPALETTE) + (iNum - 1) * sizeof (PALETTEENTRY)); 
plp->palVersion = 0x0300 ; 

pip->palNumEntries = iNum ; 

for (i = ◦ ; i < iNum ; i++) 

{ 

plp->palPalEntry[i].peRed = 

plp->palPalEntry[i].peGreen = 

plp->palPalEntry [i] .peBlue = (BYTE) (i * 255 / (iNum - 
plp->palPalEntry[i].peFlags = 0 ; 

} 

hPalette = CreatePalette (pip); 
free (pip); 
return hPalette ; 



DibPalUniformColors : Creates a palette of iNumR x iNumG x iNumB colors 



HPALETTE DibPalUniformColors (int iNumR, int iNumG, int iNumB) 

{ 

HPALETTE hPalette ; 

int i, iNum, R, G, B ; 

LOGPALETTE * pip ; 

iNum = iNumR * iNumG * iNumB ; 

pip = malloc (sizeof (LOGPALETTE) + (iNum - 1) * sizeof (PALETTEENTRY)); 
plp->palVersion = 0x0300 ; 

pip->palNumEntries = iNumR * iNumG * iNumB ; 
i = ◦; 

for (R = ◦ ; R < iNumR ; R++) 

for (G = ◦ ; G < iNumG ; G++) 

for (B = ◦ ; B < iNumB ; B++) 
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*/ 


HPALETTE DibPalVga (void) 

{ 

static RGBQUAD rgb [16] = { 0x00, 0x00, 0x00, 0x00, 

0x00, 0x00, 0x80, 0x00, 

0x00, 0x80, 0x00, 0x00, 

0x00, 0x80, 0x80, 0x00, 

0x80, 0x00, 0x00, 0x00, 

0x8 0, 0x00, 0x80, 0x0 0, 

0x80, 0x80, 0x00, 0x00, 

0x80, 0x80, 0x80, 0x00, 

OxCO, OxCO, OxCO, 0x00, 

0x00, 0x00, OxFF, 0x00, 

0x00, OxFF, 0x00, 0x00, 

0x00, OxFF, OxFF, 0x00, 

OxFF, 0x00, 0x00, 0x00, 

◦xFF, 0x00, OxFF, 0x00, 

OxFF, OxFF, 0x00, 0x00, 

OxFF, OxFF, OxFF, 0x00 }; 

HPALETTE hPalette ; 

int i ; 

LOGPALETTE * pip ; 

pip = malloc (sizeof (LOGPALETTE) + 15 * sizeof (PALETTEENTRY)); 
plp->palVersion = 0x0300 ; 

pip->palNumEntries = 16 ; 

for (i = 0 ; i < 16 ; i++) 

{ 

pip->palPalEntry[i ] .peRed = rgb[i] .rgbRed ; 
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plp->palPalEntry[i].peGreen 
plp->palPalEntry[i].peBlue 
plp->palPalEntry[i].peFlags 


rgb[i].rgbGreen 
rgb[i].rgbBlue 


hPalette = CreatePalette (pip) 
free (pip); 
return hPalette ; 


* _ 


Macro used in palette optimization routines 



#def ine PACK_RGB (R, G, B, iRes) ( (int) (R) | ( (int) (G) « (iRes) ) | \ 

((int) (B) << ((iRes) + (iRes)))) 



AccumColorCounts : Fills up piCount (indexed by a packed RGB color) 
with counts of pixels of that color. 



static void AccumColorCounts (HDIB hdib, int * piCount, int iRes) 

{ 

int x, y, cx, cy ; 

RGBQUAD rgb ; 

cx = DibWidth (hdib); 
cy = DibHeight (hdib); 

for (y = ◦ ; y < cy ; y++) 

for (x = ◦ ; x < cx ; x++) 

{ 

DibGetPixelColor (hdib, x, y, &rgb); 


rgb.rgbRed 
rgb.rgbGreen 
rgb.rgbBlue 


>>=(8 — iRes); 
>>=(8 - iRes); 
>>=(8 — iRes); 


rgb.rgbBlue, iRes)] 


++piCount [PACK RGB (rgb.rgbRed, 


rgb.rgbGreen, 
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DibPalPopularity : Popularity algorithm for optimized colors 



HPALETTE DibPalPopularity (HDIB hdib, int iRes) 

{ 


HPALETTE 

int 

R, G, B ; 
int 

LOGPALETTE * pip ; 


hPalette ; 

i, iArraySize, iEntry, iCount, ilndex, iMask, 
piCount ; 


// Validity checks 


if (DibBitCount (hdib) < 16) 

return NULL ; 
if (iRes < 3 I I iRes > 8) 

return NULL ; 

// Allocate array for counting pixel colors 
iArraySize = 1 << (3 * iRes); 
iMask = (1 << iRes) - 1 ; 

if (NULL == (piCount = calloc (iArraySize, sizeof (int)))) 

return NULL ; 

// Get the color counts 
AccumColorCounts (hdib, piCount, iRes); 

// Set up a palette 

pip = malloc (sizeof (LOGPALETTE) + 235 * sizeof (PALETTEENTRY)); 
plp->palVersion = 0x0300 ; 

for (iEntry = 0 ; iEntry < 236 ; iEntry++) 

{ 

for (i = ◦, iCount = ◦ ; i < iArraySize ; i++) 

if (piCount[i] > iCount) 

{ 

iCount = piCount[i]; 
iIndex = i ; 

} 

if (iCount == 0) 

break ; 

R = (iMask & ilndex) << (8 一 iRes); 

G = (iMask & (ilndex >> iRes )) << (8 — iRes); 

B = (iMask & (ilndex >> (iRes + iRes)))<< (8 一 iRes); 

plp->palPalEntry[iEntry].peRed = (BYTE) R ; 

plp->palPalEntry[iEntry].peGreen = (BYTE) G ; 
plp->palPalEntry[iEntry].peBlue = (BYTE) B ; 
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plp->palPalEntry[iEntry].peFlags 



piCount [ilndex] = 0 ; 

} 

// On exit from the loop iEntry will be the number of stored 

entries 

pip->palNumEntries = iEntry ; 

// Create the palette, clean up, and return the palette handle 
hPalette = CreatePalette (pip); 
free (piCount); 
free (pip); 


return hPalette ; 



Structures used for implementing median cut algorithm 



typedef struct 

{ 

int Rmin, Rmax, Gmin, Gmax, Bmin, Bmax 

} 

MINMAX ; 
typedef struct 
{ 

int iBoxCount ; 

RGBQUAD rgbBoxAv ; 


// defines dimension of a box 


// for Compare routine for qsort 


BOXES ; 
/* - 


FindAverageColor : In a box 



static int FindAverageColor ( int * piCount, MINMAX mm, 

int iRes, RGBQUAD * prgb) 

{ 

int R, G, B, iR, iG, iB, iTotal, iCount ; 

// Initialize some variables 
iTotal = iR = iG = iB = 0 ; 

// Loop through all colors in the box 
for (R = mm.Rmin ; R <= mm.Rmax ; R++) 

for (G = mm.Gmin ; G <= mm.Gmax ; G++) 

for (B = mm.Bmin ; B <= mm.Bmax ; B++) 
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{ 


// Get the number of 

pixels of that 

color 



iCount = piCount [PACK RGB (R, G, B, 

iRes)]; 





// Weight the pixel count by the color value 



iR 

+= iCount * R ; 






iG 

+= iCount * G ; 






iB 

+= iCount * B ; 






iTotal += iCount ; 





； 

// 

Find the average color 





prgb->rgbRed 


=(BYTE) ((iR / iTotal) « 

(8 - 

iRes)); 



prgb->rgbGreen 


=(BYTE) ((iG / iTotal) « 

(8 - 

iRes)); 



prgb->rgbBlue 


=(BYTE) ((iB / iTotal) « 

(8 - 

iRes)); 




// 

Return the total number of pixels 

in the box 


} 

return iTotal 

參 

f 





/ * _ 


— 

— 




CutBox : Divide a 

box in two 




V 







static void CutBox ( 

: int * 

piCount, int iBoxCount, MINMAX mm. 



i 

int 

iRes, 

int iLevel, BOXES * pboxes. 

int * 

piEntry) 


\ 

int 

iCount, R, G, B ; 





MINMAX mmNew ; 







// 

If the box is empty, return 





if (iBoxCount 

== 0) 







return ; 






// 

If the nesting level is 8, or 

the : 

box is one 

pixel. 

we 1 re 

ready 








// 

to find the average color in the box 

and save it along 

with 









// 

the number of pixels of that 

color 




if (iLevel == 

8 11( 

mm.Rmin == mm.Rmax && 







mm.Gmin == mm.Gmax && 







mm.Bmin == mm.Bmax)) 




i 

pboxes[*piEntry]•iBoxCount = 






FindAverageColor (piCount, 


mm. 

iRes, 
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&pboxes[^piEntry].rgbBoxAv) ; 

(*piEntry) ++ ; 

} 

// Otherwise, if blue is the largest side, split it 
else if ((mm.Bmax - mm.Bmin > mm.Rmax — mm.Rmin) && 

(mm. Bmax - mm. Bmin > mm. Gmax - mm. Gmin)) 

{ 

// Initialize a counter and loop through the blue side 
iCount = 0 ; 

for (B = mm.Bmin ; B < mm.Bmax ; B++) 

{ 

// Accumulate all the pixels for each successive blue value 
for ( R = mm.Rmin ; R <= mm.Rmax ; R++) 
for ( G = mm.Gmin ; G <= mm.Gmax ; G++) 
iCount += piCount [PACK_RGB (R, G, B, iRes)]; 

// If it * s more than half the box count, we 1 re there 

if (i Count >= iBoxCount / 2) 

break ; 

// If the next blue value will be the max, we 1 re there 

if ( B == mm.Bmax — 1) 
break ; 

} 

// Cut the two split boxes. 

// The second argument to CutBox is the new box count. 
// The third argument is the new min and max values. 

mmNew = mm ; 
mmNew.Bmin = mm.Bmin ; 
mmNew.Bmax = B ; 

CutBox ( piCount, iCount , mmNew, iRes, iLevel + 1 , 

pboxes, piEntry); 

mmNew.Bmin = B + 1 ; 
mmNew.Bmax = mm.Bmax ; 

CutBox ( piCount, iBoxCount 一 iCount, mmNew, iRes, iLevel + 1, 

pboxes, piEntry); 

} 

// Otherwise, if red is the largest side, split it (just like blue) 
else if (mm.Rmax - mm.Rmin > mm.Gmax - mm.Gmin) 

{ 

iCount = 0 ; 

for (R = mm.Rmin ; R < mm.Rmax ; R++) 

{ 
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for (B = mm.Bmin ; B <= 

mm. Bmax ; B++) 





for (G = mm.Gmin ; G <= 

mm. Gmax ; G++) 




iCount += piCount [PACK RGB (R, 

,G, B, iRes)]; 





if (iCount >= iBoxCount 

/ 2) 





break ; 






if (R == mm.Rmax - 1) 


1 




break ; 


/ 

mmNew 

=mm 

• 

f 




mmNew 

• Rmin 

=mm.Rmin 

參 

f 



mmNew 

.Rmax 

=R ; 




CutBox ( 

piCount, 

iCount, mmNew, iRes, iLevel + 1, 





pboxes, piEntry) 

• 

f 


mmNew 

• Rmin 

=R + 1 ; 




mmNew 

• Rmax 

=mm.Rmax 

• 


CutBox ( 

piCount , iBoxCount - iCount, mmNew, iRes 

,iLevel + 1, 

\ 




pboxes, piEntry) 

參 

f 

/ 



// Otherwise, split along the green size 

else 

/ 






1 

iCount = 0 

參 

f 




for (G = mm 

f 

.Gmin ; G 

< mm.Gmax ; G++) 



i 


for ( B = 

mm.Bmin ; B <= mm.Bmax ; 

B+ + ) 




for ( R = 

mm.Rmin ; R <= mm.Rmax ; 

R+ + ) 




iCount += 

piCount [PACK RGB (R, G, 

B, iRes) ]; 




if ( iCount >= iBoxCount / 2) 






break ; 





if ( G == mm.Gmax - 1) 






break ; 



f 

mmNew 

= mm 

• 

f 




mmNew 

• Gmin 

= mm.Gmin 

• 

f 



mmNew 

• Gmax 

=G ; 




CutBox ( 

piCount, 

iCount, mmNew, iRes, iLevel + 1, 





pboxes, piEntry) 

參 

f 


mmNew 

• Gmin 

= G + 1 ; 




mmNew 

• Gmax 

= mm.Gmax 

• 


CutBox ( 

piCount , iBoxCount - iCount, mmNew, iRes 

,iLevel + 1, 





pboxes, piEntry) 

• 

r 
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Compare routine for qsort 



static int Compare (const BOXES * pboxl, const BOXES * pbox2) 

{ 

return pboxl->iBoxCount - pbox2->iBoxCount ; 



DibPalMedianCut : Creates palette based on median cut algorithm 



HPALETTE DibPalMedianCut (HDIB hdib, int iRes) 




BOXES 
HPALETTE 
int 
int 

LOGPALETTE * 
MINMAX 


boxes [256]; 
hPalette ; 

i, iArraySize, iCount, R, G, B, iTotCount, iDim, iEntry 
* piCount ; 

Pip ； 

mm ; 


// Validity checks 


if (DibBitCount (hdib) < 16) 

return NULL ; 
if (iRes < 3 I I iRes > 8) 

return NULL ; 

// Accumulate counts of pixel colors 
iArraySize = 1 << (3 * iRes); 

if (NULL == (piCount = calloc (iArraySize, sizeof (int)))) 

return NULL ; 

AccumColorCounts (hdib, piCount, iRes); 

// Find the dimensions of the total box 
iDim = 1 << iRes ; 

mm.Rmin = mm.Gmin = mm.Bmin = iDim 一 1 ; 
mm.Rmax = mm.Gmax = mm.Bmax = 0 ; 


iTotCount = 0 ; 
for (R = ◦ ; R < iDim ; R++) 

for (G = ◦ ; G < iDim ; G++) 

for (B = ◦ ; B < iDim ; B++) 
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if ((iCount = piCount [PACK_RGB (R, G, B, iRes)]) > 0) 

{ 

iTotCount += iCount ; 
if (R < mm.Rmin) mm.Rmin = R ; 

if (G < mm.Gmin) mm.Gmin = G ; 

if (B < mm.Bmin) mm.Bmin = B ; 

if (R > mm.Rmax) mm.Rmax = R ; 

if (G > mm.Gmax) mm.Gmax = G ; 

if (B > mm.Bmax) mm.Bmax = B ; 

} 

// Cut the first box (iterative function). 

//On return, the boxes structure will have up to 25 6 RGB values, 
// one for each of the boxes, and the number of pixels in 

/ / each box. 

// The iEntry value will indicate the number of non-empty boxes . 

CutBox (piCount, iTotCount, mm, iRes, ◦, boxes, &iEntry); 
free (piCount); 

// Sort the RGB table by the number of pixels for each color 
qsort (boxes, iEntry, sizeof (BOXES), Compare); 

pip = malloc (sizeof (LOGPALETTE) + (iEntry - 1) * sizeof (PALETTEENTRY)); 
if (pip == NULL) 

return NULL ; 

plp->palVersion = 0x0300 ; 

pip->palNumEntries = iEntry ; 

for (i = ◦ ; i < iEntry ; i++) 

{ 

plp->palPaIEntry[i].peRed = boxes[i].rgbBoxAv.rgbRed ; 
plp->palPaIEntry[i].peGreen= boxes[i].rgbBoxAv.rgbGreen ; 
plp->palPaIEntry[i].peBlue = boxes[i].rgbBoxAv.rgbBlue ; 
plp->palPalEntry[i].peFlags= 0 ; 

} 

hPalette = CreatePalette (pip); 
free (pip); 
return hPalette ; 

} 

第一个函式—— DibPalDibTable ——看起来应该很熟悉。它根据 DIB 的颜 
色表建立了调色盘。这与本章前面的 SH 0 WDIB 3 中所用到的 PACKEDIB . C 里的 
PackedDibCreatePalette 函式相似。在 SH 0 WDIB 3 中，只有当 DIB 有颜色表时才 
执行此函式。在8位元显示模式下试图显示16位元、24位元或32位元 DIB 时， 
此函式就没用了。 

预设情况下，执行在256色显示模式下时， DIBBLE 将首先尝试呼叫 
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DibPalDibTable 来根据 DIB 颜色表建立调色盘。如果 DIB 没有颜色表，则 DIBBLE 
将呼叫 CreateHalftonePalette 并将 fHalftonePalette 变数设定为 TRUE 。 此逻 
辑发生在 WM _ USER _ CREATEPAL 讯息处理期间。 

DIBPAL . C 也执行函式 DibPalAllPurpose , 因为此函式与 SH 0 WDIB 4 中的 
CreateAllPurposePalette 函式非常相似，所以它看起来也很熟悉。您也可以从 
DIBBLE 功能表中选择此调色盘。 

在256色模式下显示点阵图最有趣的是，您可以直接控制 Windows 用於显 
示图像的颜色。如果您选择并显现调色盘，则 Winsows 将使用此调色盘中的颜 
色，而不是其他调色盘中的颜色。 

例如，您可以用 DibPalUniformGrays 函式来单独建立一种灰阶调色盘。使 
用两种灰阶的调色盘则只含有 00-00-00 (黑色）和 FF - FF-FF (白色）。用此调 
色盘来输出图像将提供某些照片中常用的高对比「黑白」效果。使用3种灰阶 
将在黑色和白色中间添加中间灰色，使用4种灰阶将添加2种灰阶。 

用8种灰阶，您就有可能看到明显的轮廓——相同灰阶的无规则斑点，虽 
然很明显地执行了最接近颜色演算法，但是一般仍不带有任何审美判断。通常 
到16种灰阶就可以明显改善图像画质。使用32种灰阶差不多就可以消除全部 
轮廓了。而目前普遍认为64种灰阶是现在大多数显示设备的极限。在这点以上， 
再提升也没什么边际效益了。在6位元颜色解析度的设备上提供超过64种灰阶 
看不出有什么改进之处。 

迄今为止，对於8位元显示模式下显示16位元、24位元和32位元彩色 DIB , 
我们最多就是能够设计通用调色盘（这对灰阶图像很有效，但通常不适於彩色 
图像）或者使用中间色调色盘，它用混色显示与通用颜色调色盘合用。 

还应注意，当您在8位元颜色模式下为大张16位元、24位元或32位元 DIB 
选择通用调色盘时，为了要显示这些图像，程式将花费一些时间依据 DIB 的内 
容来建立 GDI 点阵图物件。如果不需要调色盘，则程式根据 DIB 来建立 DDB 的 
时间会更少(用8位元彩色模式显示大24位元 DIB 时，比较 SH 0 WDIB 1 和 SH 0 WDIB 4 
的性能，您也能看出这点区别）。这是为什么呢？ 

它按最接近颜色搜寻。通常，用8位元显示模式显示24位元 DIB 时（或者 
将 DIB 转换为 DDB ) ， GDI 必须将 DIB 中的每个图素都与静态20种颜色中的一 
种相贴近。完成此操作的唯一方法是决定哪种静态颜色与图素颜色最接近。这 
包括计算图素与三维 RGB 颜色中每种静态颜色的距离。这将花些时间，特别是 
在 DIB 图像中有上百万个图素时。 

在建立232色调色盘时，例如 DIBBLE 和 SH 0 WDIB 4 中的通用调色盘，您会 
很快将搜索最接近颜色的时间增加到超过11倍！ GDI 现在必须彻底检查232种 
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颜色，而不是20种。那就是显示 DIB 的整个作业放慢的原因。 

这里的教训是避免在8位元显示模式下显示24位元（或16位元，或32位 
元） DIB 。 您应该找出最接近 DIB 图像颜色范围的256色调色盘，来将它们转换 
成8位元 DIB 。 这经常称为「最佳调色盘」。当我研究这个问题的时候， Paul 
Heckbert 编写的 (Color Image Quantization for Frame Buffer Displays ) 

(刊登在 1982 年 7 月出版的 《Computer Graphics 》） 对此问题有所帮助。 

均匀分布 

建立256色调色盘最简单的方法是选择范围统一的 RGB 颜色值，它与 
DibPalAllPurpose 中的方法相似。此方法的优点是您不必检查 DIB 中的实际图 
素。这个函式是 DibPalCreateUniformColors ， 它依据范围统一的 RGB 三原色索 
引建立调色盘。 

一个合理的分布包括8阶红色和绿色以及4阶蓝色 （ 肉眼对蓝色较不敏感）。 
调色盘是 RGB 颜色值的集合，它是红色和绿色值0 x 00、0 x 24、0 x 49、 0 x 6 D 、 0 x 92、 
0 xB 6、 OxDB 和 OxFF 以及蓝色值0 x 00、0 x 55、 OxAA 和 OxFF 的所有可能的组合， 
共有256种颜色。另一种可能的统一分布调色盘使用6阶红色、绿色和蓝色。 
此调色盘是红色、绿色和蓝色值为0 x 00、0 x 33、0 x 66、0 x 99、 OxCC 和 OxFF 的 
所有可能的组合，调色盘中的颜色数是6的3次方，即216。 

这两个选项和其他几个选项都由 DIBBLE 提供。 

r Popularity J 演算法 

「 Popularity 」 演算法是256色调色盘问题相当明显的解决方法。您要做 
的就是走遍点阵图中的所有图素，并找出256种最普通的 RGB 颜色值。这些就 
是您在调色盘中使用的值。 DIBPAL 的 DibPalPopularity 函式中实作了这种演算 
法。 

不过，如果每种颜色都使用整个24位元，而且假设需要用整数来计算所有 
的颜色，那么阵列将占据 64 MB 记忆体。另外，您可以发现点阵图中实际上没有 
(或很少）重复的24位元图素值，这样就没有所谓常见的颜色了。 

要解决这个问题，您可以只使用每个红色、绿色和蓝色值中最重要的 n 位 
元——例如，6位元而不是8位元。因为大多数的彩色扫描器和视讯显示卡都只 
有6位元的解析度，所以这样规定更有意义。这将阵列减少到大小更合理的 256 KB 
或 1 MB 。 只使用5位元能将可用的颜色总数减少到32, 768。通常，使用5位元 
要比6位元的性能更好。对此，您可以用 DIBBLE 和一些图像颜色来自己检验。 
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「 Median Cut J 演算法 


DIBPAL . C 中的 DibPalMedianCut 函式执行 Paul Heckbert 的 Median Cut 演 
算法。此演算法在概念上相当简单，但在程式码中实作要比 Popularity 演算法 
更困难，它适合递回函式。 

画出 RGB 颜色立方体。图像中的每个图素都是此立方体中的一个点。一些 
点可能代表图像中的多个图素。找出包括图像中所有图素的立体方块，找出此 
方块的最大尺寸，并将方块分成两个，每个方块都包括相同数量的图素。对於 
这两个方块，执行相同的操作。现在您就有4个方块，将这4个方块分成8个， 
然後再分成16个、32个、64个、128个和256个。 

现在您有256个方块，每个方块都包括相同数量的图素。取每个方块中图 
素 RGB 颜色值的平均值，并将结果用於调色盘。 

实际上，这些方块通常包含图素的数量并不相同。例如，通常包括单个点 
的方块会有更多的图素。这发生在黑色和白色上。有时，一些方块里头根本没 
有图素。如果这样，您就可以省下更多的方块，但是我决定不这样做。 

另一种最佳化调色盘的技术称为 「octree quantization 」 ，此技术由 Jeff 
Prosise 提出，并於1996年8月发表在 《Microsoft Systems Journal 》 上（包 
含在 MSDN 的 CD 中）。 

转换格式 


DIBBLE 还允许将 DIB 从一种格式转换到另一种格式。这用到了 DIBC 0 NV 档 
案中的 DibConvert 函式，如程式 16-25 所示。 

程式 16-25 DIBC0NV 档案 

DIBCONV.H 

/* - 

DIBCONV.H header file for DIBCONV.C 


HDIB DibConvert (HDIB hdibSrc, int iBitCountDst); 

DIBCONV.C 

/* - 

DIBCONV.C -- Converts DIBs from one format to another 

(c) Charles Petzold, 1998 

V 
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#include 

〈windows • h> 




♦include 

"dibhelp.h" 




♦include 

"dibpal.h" 




♦include 

"dibconv.h" 




HDIB 

r 

DibConvert (HDIB 

hdibSrc, 

int iBitCountDst ) 


i 

HDIB 


hdibDst ; 



HPALETTE 


hPalette ; 



int 



i, x, y, cx, cy, iBitCountSrc, cColors ; 


PALETTEENTRY pe 

• 

f 




RGBQUAD 


rgb ; 



WORD 


wNumEntries ; 



cx 

= DibWidth (hdibSrc) 

• 

f 



cy 

= DibHeight 

(hdibSrc) 

參 

f 



iBitCountSrc = : 

DibBitCount (hdibSrc) ; 



if 

( iBitCountSrc == iBitCountDst) 





return 

NULL ; 




// DIB with color table to DIB with larger 

color table : 


if 

(( iBitCountSrc < iBitCountDst) && (iBitCountDst <= 

8)) 


l 

cColors = DibNumColors (hdibSrc ); 




hdibDst = DibCreate (cx, cy, iBitCountDst, 

cColors ); 



for 

(i = ◦ ; 

i < cColors ; i++) 




i 


DibGetColor (hdibSrc, i, 

&rgb) ; 



} 


DibSetColor (hdibDst, i. 

&rgb) ; 



for 

(x = ◦; 

x < cx ； X++) 




for 

{ 

(y = ◦; 

Y < cy ; y++) 




\ 

} 

DibSetPixel (hdibDst, x, y, DibGetPixel (hdibSrc, x, y) ); 


} 

// Any DIB tc 

) DIB with no color table 



else if ( iBitCountDst >= 

f 

16) 



i 

hdibDst = DibCreate (cx, cy, iBitCountDst, 

0) ; 



for 

(x = 0 ; 

X < CX ； X++) 




for 

(y = 0 ; 

y < cy ; y++) 




\ 


DibGetPixelColor (hdibSrc, x, y, &rgb) ; 





DibSetPixelColor (hdibDst, x r y, &rgb) ; 
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// DIB with no color table to 8-bit DIB 
else if (iBitCountsrc >= 16 && iBitCountDst == 8) 

{ 

hPalette = DibPalMedianCut (hdibSrc, 6); 

GetObject (hPalette, sizeof (WORD), &wNumEntries); 


hdibDst = DibCreate (cx, cy, 8, wNumEntries); 
for (i = ◦ ; i < (int) wNumEntries ; i++) 

{ 


GetPaletteEntries 
rgb.rgbRed 
rgb.rgbGreen 
rgb.rgbBlue 
rgb.rgbReserved 


(hPalette, i, 1, &pe); 

=pe.peRed ; 

=pe.peGreen ; 
=pe.peBlue ; 



DibSetColor (hdibDst, i, &rgb); 


for (x = 0 ; x < cx ; x++) 
for (y = ◦ ; y < cy ; y++) 

{ 

DibGetPixelColor (hdibSrc, x, y, &rgb); 


DibSetPixel (hdibDst, x, y, 
GetNearestPaletteIndex (hPalette, 

RGB (rgb.rgbRed, rgb.rgbGreen, rgb.rgbBlue))); 

} 

DeleteObj ect (hPalette); 

// Any DIB to monochrome DIB 


else if (iBitCountDst == 1) 

{ 

hdibDst = DibCreate (cx, cy, 1, 0); 
hPalette = DibPalUniformGrays (2); 

for (i = 0 ; i < 2 ; i++) 

{ 

GetPaletteEntries (hPalette, i, 1, &pe); 


rgb.rgbRed = pe.peRed ; 
rgb.rgbGreen = pe.peGreen ; 
rgb.rgbBlue = pe.peBlue ; 
rgb•rgbReserved = 0 ; 


DibSetColor (hdibDst, i, &rgb); 
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for (x = 0 ; x < cx ; x++) 
for (y = ◦ ; y < cy ; y++) 

{ 

DibGetPixelColor (hdibSrc, x, y, &rgb); 

DibSetPixel (hdibDst, x, y, 
GetNearestPaletteIndex (hPalette, 

RGB (rgb.rgbRed, rgb•rgbGreen, rgb.rgbBlue))); 

} 

DeleteObj ect (hPalette); 

} 

// All non-monochrome DIBs to 4-bit DIB 
else if (iBitCountsrc >= 8 && iBitCountDst == 4) 

{ 

hdibDst = DibCreate (cx, cy, 4 , 0); 
hPalette = DibPalVga (); 

for (i = ◦ ; i < 16 ; i++) 

{ 

GetPaletteEntries (hPalette, i, 1, &pe); 

rgb•rgbRed = pe.peRed ; 

rgb.rgbGreen = pe.peGreen ; 

rgb.rgbBlue = pe.peBlue ; 

rgb.rgbReserved = 0 ; 

DibSetColor (hdibDst, i, &rgb); 


for (x = 0 ; x < cx ; x++) 
for (y = ◦ ; y < cy ; y++) 

{ 

DibGetPixelColor (hdibSrc, x, y, &rgb); 



else 


return hdibDst 


DibSetPixel (hdibDst, x, y, 
GetNearestPaletteIndex (hPalette A 
RGB (rgb.rgbRed, rgb•rgbGreen, rgb.rgbBlue))); 
} 

DeleteObj ect (hPalette); 

// Should not be necessary 
hdibDst = NULL ; 


将 DIB 从一种格式转换成另一种格式需要几种不同的方法。 
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要将带有颜色表的 DIB 转换成另一种也带有颜色表但有较大的图素宽度的 
DIB (亦即，将1位元 DIB 转换成4位元或8位元 DIB ， 或将4位元 DIB 转换成 
8位元 DIB ) ，所需要做的就是透过呼叫 DibCreate 来建立新的 DIB ， 并在呼叫 
时带有希望的位元数以及与原始 DIB 中的颜色数相等的颜色数。然後函式复制 
图素位元和颜色表项目。 

如果新的 DIB 没有颜色表（即位元数是16、24或 32) ，那么 DIB 只需要按 
新格式建立，而且通过呼叫 DibGetPixelColor 和 DibSetPixelColor 从现有的 
DIB 中复制图素位元。 

下面的情况可能更 普遍: 现有的 DIB 没有颜色表（即位元数是16、24或32)， 
而新的 DIB 每图素占8位元。这种情况下， DibConvert 呼叫 DibPalMedianCut 
来为图像建立最佳化的调色盘。新 DIB 的颜色表设定为调色盘中的 RGB 值。 
DibGetPixelColor 函式从现有的 DIB 中获得图素颜色。透过呼叫 
GetNearestPaletteIndex 来转换成8位元 DIB 中的图素值，并透过呼叫 
DibSetPixel 将图素值储存到 DIB 。 

当 DIB 需要转换成单色 DIB 时，用包括两个项目——黑色和白色——的颜 
色表建立新的 DIB 。 另外， GetNearestPalettelndex 有助於将现有 DIB 中的颜 
色转换成图素值0或1。类似地，当8个图素位元或更多位元的 DIB 要转换成4 
位元 DIB 时，可从 DibPalVga 函式获得 DIB 颜色表，同时 GetNearestPalettelndex 
也有助於计算图素值。 

尽管 DIBBLE 示范了如何开始写一个图像处理程式基础，但是程式最後还是 
没有全部完成，我们总是会想到还有些功能没有加进去里头。但是很可惜的是， 
我们现在得停止继续研究这些东西，而往下讨论别的东西了。 
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第十七章文字和字体 

显示文字是本书所要解决的首要问题，现在我们来研究 Microsoft Windows 
中各种有效字体和字体大小的使用方法以及调整文字的方式。 

Windows 3. 1发表的 TrueType 使程式写作者和使用者以灵活的方式处理文 
字的能力大幅增强。 TrueType 是轮廓字体技术，由 Apple Computer 公司和 
Microsoft 公司开发，并被许多字体制造商支援。由於 TrueType 字体能够连续 
缩放，并能应用於视讯显示器和印表机，现在能够在 Windows 下实作真的 WYSIWYG 
(what you see is what you get ： 所见即所得 ）。 TrueType 也便於制作「奇 

妙」字体，例如旋转的字母、内部填充图案的字母或将它们用於剪裁区域，在 
本章我将展示它们。 

简单的文字输出 

让我们先来看看 Windows 为文字输出、影响文字的装置内容属性以及备用 
字体提供的各种函式。 

文字输出函式 

我已经在许多范例程式中使用过最常用的文字输出 函式： 

TextOut (hdc, xStart, yStart, pString, iCount); 

参数 xStart 和 yStart 是逻辑座标上字串的起始点。通常，这是 Windows 
开始绘制的第一个字母的左上角。 TextOut 需要指向字串的指标和字串的长度， 
这个函式不能识别以 NULL 终止的字串。 

TextOut 函式的 xStart 和 yStart 参数的含义可由 SetTextAlign 函式改变。 
TA _ LEFT 、 TA _ RIGHT 和 TA _ CENTER 旗标影响使用 xStart 在水平方向上定位字串 
的方式。预设值是 TA _ LEFT 。 如果在 SetTextAlign 函式中指定了 TA _ RIGHT ， 则 
後面的 TextOut 呼叫会将字串的最後一个字元定位於 xStart , 如果指定了 
TA _ CENTER ， 则字串的中心位於 xStart 。 

类似地， TA _ T 0 P 、 TA _ B 0 TT 0 M 和 TA _ BASELINE 旗标影响字串的垂直位置。 
TA _ T 0 P 是预设值，它意味著字串的字母顶端位於 yStart ， 使用 TA _ B 0 TT 0 M 意味 
著字串位於 yStart 之上。可以使用 TA _ BASELINE 定位字串，使基准线位於 
yStart 。 基准线是如小写字母 p 、 q 、 y 等字母下部的线。 

如果您使用 TAJJPDATECP 旗标呼叫 SetTextAlign , Windows 就会忽略 
TextOut 的 xStart 和 yStart 参数，而使用由 MoveToEx 、 LineTo 或更改目前位 
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置的另一个函式设定的位置。 TAJJPDATECP 旗标也使 TextOut 函式将目前位置更 
新为字串的结尾 （ TA _ LEFT ) 或字串的开头 （ TA _ RIGHT ) 。这在使用多个 TextOut 
呼叫显示一行文字时非常有用。当水平位置是 TA _ CENTER 时，在 TextOut 呼叫 
後，目前位置不变。 

您应该还记得，第四章的一系列 SYSMETS 程式显示几列文字时，对每一列 
都需要呼叫一个 TextOut ， 其替代函式是 TabbedTextOut 函式： 

TabbedTextOut ( hdc, xStart, yStart, pString, iCount, 

iNumTabs, piTabStops, xTabOrigin); 

如果文字字串中含有嵌入的跳位字元（‘ \ t ’ 或 0 x 09) ，则 TabbedTextOut 
会根据传递给它的整数阵列将跳位字元扩展为空格。 

TabbedTextOut 的前五个参数与 TextOut 相同，第六个参数是跳位间隔数， 
第七个是以图素为单位的跳位间隔阵列。例如，如果平均字元宽度是8个图素， 
而您希望每5个字元加一个跳位间隔，则这个阵列将包含40、80、120,按递增 
顺序依此类推。 

如果第六个和第七个参数是0或 NULL ， 则跳位间隔按每八个平均字元宽度 
设定。如果第六个参数是1，则第七个参数指向一个整数，表示跳位间隔重复增 
大的倍数（例如，如果第六个参数是1，并且第七个参数指向值为30的变数， 
则跳位间隔设定在30、60、90…图素处）。最後一个参数给出了从跳位间隔开 
始测量的逻辑 x 座标，它与字串的起始位置可能相同也可能不同。 

另一个进阶的文字输出函式是 ExtTextOut (字首 Ext 表示它是扩展 的）： 

ExtTextOut (hdc, xStart, yStart, iOptions, &rect, 

pString, iCount, pxDistance); 

第五个参数是指向矩形结构的指标，在 iOptions 设定为 ET 0_ CLIPPm ) 时， 
该结构为剪裁矩形，在 iOptions 设定为 ET 0_0 PAQUE 时，该结构为用目前背景 
色填充的背景矩形。这两种选择您可以都采用，也可以都不采用。 

最後一个参数是整数阵列，它指定了字串中连续字元的间隔。程式可以使 
用它使字元间距变窄或变宽，因为有时需要在较窄的列中调整单个文字。该参 
数可以设定为 NULL 来使用内定的字元间距。 

用於写文字的高级函式是 DrawText , 我们第一次遇到它是在第三章讨论 
HELL 0 WIN 程式时，它不指定座标的起始位置，而是通过 RECT 结构型态定义希望 
显示文字的区域： 

DrawText (hdc, pString, iCount, &rect, iFormat); 

和其他文字输出函式一样， DrawText 需要指向字串的指标和字串的长度。 
然而，如果在 DrawText 中使用以 NULL 结尾的字串，就可以将 iCount 设定为-1， 
Windows 会自动计算字串的长度。 

当 iFormat 设定为0时， Windows 会将文字解释为一系列由 carriage return 
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字元 （‘\ r ’或 OxOD ) 或 linefeed 字元 （‘\ n ’ 或 OxOA ) 分隔的行。文字从 
矩形的左上角开始 ， carriage return 字元或 linefeed 字元被解释为换行字元， 
因此 Windows 会结束目前行而开始新的一行。新的一行从矩形的左侧开始，在 
上一行的下面空开一个字元的高度（没有外部间隔）。包含字母的任何文字都 
应该显示在所剪裁矩形底部的右边或下边。 

您可以使用 iFormat 参数更改 DrawText 的内定操作， iFormat 由一个或多 
个旗标组成。 DT _ LEFT 旗标（预设值）指定了左对齐的行， DT _ RIGHT 指定了向 
右对齐的行，而 DT _ CENTER 指定了位於矩形左边和右边中间的行。因为 DT_LEFT 
的值是0,所以如果只需要左对齐，就不需要包含识别字。 

如果您不希望将 carriage return 字元或 linefeed 字元解释为换行字元， 
则可以包括识别字 DT _ SINGLELINE 。 然後， Windows 会把 carriage return 字元 
和 linefeed 字元解释为可显示的字元，而不是控制字元。在使用 DT_SINGLELINE 
时，还可以将行指定为位於矩形的顶端 （ DT _ T 0 P ) 、底端 ( DT _ B 0 TT 0 M ) 或者中间 
( DT _ VCETER， V 表示垂直）。 

在显示多行文字时， Windows 通常只在 carriage return 字元或 linefeed 
字元处换行。然而，如果行的长度超出了矩形的宽度，则可以使用 DT _ W 0 RDBREAK 
旗标，它使 Windows 在行内字的末尾换行。对於单行或多行文字的显示 ， Windows 
会把超出矩形的文字部分截去，可以使用 DT _ N 0 CLIP 跳过这个操作，这个旗标 
还加快了函式的速度。当 Windows 确定多行文字的行距时，它通常使用不带外 

部间距的字元高度，如果您想在行距中加入外部间距，就可以使用旗标 
DT _ EXTERNALLEADING 。 

如果文字中包含跳位字元（‘ \ t ’ 或 0 x 09) ，则您需要包括旗标 
DT _ EXPANDTABSo 在内定情况下，跳位间隔设定於每八个字元的位置。通过使用 
旗标 DT _ TABST 0 P ， 您可以指定不同的跳位间隔，在这种情况下， iFormat 的高 
位元组包含了每个新跳位间隔的字元位置数值。不过我建议您避免使用 
DT _ TABST 0 P ， 因为 iFormat 的高位元组也用於其他旗标。 

DT _ TABST 0 P 旗标存在的问题，可以由新的函式 DrawTextEx 来解决，它含有 
一个额外的参数： 

DrawTextEx (hdc, pString, iCount , &rect, iFormat, &drawtextparams); 


最後一个参数是指向 DRAWTEXTPARAMS 结构的指标，它的定义 如下: 


typedef struct tagDRAWTEXTPARAMS 



i 

UINT 

cbSize ; 

// size of 

structure 

int 

iTabLength ; 

// size of each 

tab stop 

int 

iLeftMargin ; 

// left margin 


int 

iRightMargin ; 

// right margin 
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UINT uiLengthDrawn ; // receives number of characters processed 

} DRAWTEXTPARAMS , * LPDRAWTEXTPARAMS ; 

中间的三个栏位是以平均字元的增量为单位的。 

文字的装置内容属性 

除了上面讨论的 SeiTextAlign 外，其他几个装置内容属性也对文字产生了 
影响。在内定的装置内容下，文字颜色是黑色，但您可以用下面的叙述进行更 

改： 

SetTextColor (hdc, rgbColor) ; 

使用画笔的颜色和画刷的颜色， Windows 把 rgbColor 的值转换为纯色，您 
可以通过呼叫 GetTextColor 取得目前文字的颜色。 

Windows 在矩形的背景区域中显示文字，它可能根据背景模式的设定进行著 
色，也可能不这样做。您可以使用 

SetBkMode (hdc, iMode) ; 

更改背景模式，其中 iMode 的值为 OPAQUE 或 TRANSPARENT 。 内定的背景模 
式为 OPAQUE ， 它表示 Windows 使用背景颜色来填充矩形的背景。您可以使用 

SetBkColor (hdc, rgbColor) ; 

来改变背景颜色。 rgbColor 的值是转换为纯色的值。内定背景色是白色。 
如果两行文字靠得太近，其中一个的背景矩形就会遮盖另一个的文字。由 
於这种原因，我通常希望内定的背景模式是 TRANSPARENT 。 在背景模式为 
TRANSPARENT 的情况下， Windows 会忽略背景色，也不对矩形背景区域著色。 
Windows 也使用背景模式和背景色对点和虚线之间的空隙及阴影刷中阴影间的 
区域著色，就像第五章所讨论的那样。 

许多 Windows 程式将 WHITE _ BRUSH 指定为 Windows 用於擦出视窗背景的画 
刷，画刷在视窗类别结构中指定。然而，您可能希望您程式的视窗背景与使用 
者在「控制台」中设定的系统颜色保持 一 * 致，在这种情况下，可以在 WNDCLASS 
结构中指定背景颜色的这种方式： 

wndclass . hbrBackground = COLOR—WINDOW + 1 ; 

当您想要在显示区域书写文字时，可以使用目前系统颜色设定文字色和背 
景色： 

SetTextColor (hdc, GetSysColor (COLOR—WINDOWTEXT)); 

SetBkColor (hdc, GetSysColor (COLOR—WINDOW)); 

完成这些以後，就可以使您的程式随系统颜色的更改而 变化： 

case WM—SYSCOLORCHANGE : 

InvalidateRect (hwnd, NULL, TRUE); 
break ; 

另一个影响文字的装置内容属性是字元间距。它的预设值是0,表示 Windows 
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不在字元之间添加任何空间，但您可以使用以下函式插入 空间： 

SetTextCharacterExtra (hdc, iExtra); 

参数 iExtra 是逻辑单位， Windows 将其转换为最接近的图素，它可以是0。 
如果您将 iExtm 取为负值（希望将字元紧紧压在一起）， Windows 会接受这个 
数值的绝对值一也就是说，您不能使 iExtra 的值小於0。您可以通过呼叫 
GetTextCharacterExtra 取得目前的字元间距， Windows 在传回该值前会将图素 
间距转换为逻辑单位。 

使用备用字体 

当您呼口 L | TextOut 、 TabbedTextOut 、 ExtTextOut、DrawText 或 DrawTextEx 
书写文字时， Windows 使用装置内容中目前选择的字体。字体定义了特定的字样 
和大小。以不同字体显示文字的最简单方法是使用 Windows 提供的备用字体， 
然而，它的范围是很有限的。 

您可以呼叫下面的函式取得某种备用字体的 代号： 

hFont = GetStockObj ect (iFont); 

其中， iFont 是几个识别字之一。然後，您就可以将该字体选入装置 内容： 

SelectObj ect (hdc, hFont); 

这些您也可以只用一步 完成： 

SelectObj ect (hdc, GetStockObj ect (iFont)); 

在内定的装置内容中选择的字体称为系统字体，能够由 GetStockObject 的 
SYSTEM_F0NT 参数识别。这是调和的 ANSI 字元集字体。在 GetStockObject 中指 
定 SYSTEM_FIXED_FONT (我在本书的前面几个程式中应用过），可以获得等宽字 
体的代号，这一字体与 Windows 3.0 以前的系统字体相容。在您希望所有的字 
体都具有相同宽度时，这是很方便的。 

备用字体 0 EM _ FIXED _ F 0 NT 也称为终端机字体，是 Windows 在 MS - DOS 命令 

提示视窗中使用的字体，它包括与原始 IBM - PC 扩展字元集相容的字元集。 
Windows 在视窗标题列、功能表和对话方块的文字中使用 DEFULTJ } UI _ FONT 。 

当您将新字体选入装置内容时，必须使用 GetTextMetrics 计算字元的高度 
和平均宽度。如果选择了调和字体，那么一定要注意，字元的平均宽度只是个 
平均值，某些字元会比它宽或比它窄。在本章的後面，您会了解到确定由不同 
宽度字元所组成的字串总宽度的方法。 

尽管 GetStockObject 确实提供了存取不同字体的最简单方式，但是您还不 
能充分控制项 Windows 所提供的字体。不久，您会看到指定字体字样和大小的 
方法。 
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字体的背景 

本章剩余的部分致力於处理不同的字体。但是在您接触这些特定程式码前， 
对 Windows 使用字体的基本知识有一个深入的了解是很有好处的。 

字体型态 

Windows 支援两大类字体，即所谓的 「 GDI 字体」和「设备字体」。 GDI 字 
体储存在硬碟的档案中，而设备字体是输出设备本来就有的。例如，通常印表 
机都具有内建的设备字体集。 

GDI 字体有三种 样式： 点阵字体，笔划字体和 TrueType 字体。 

点阵字体的每个字元都以点阵图图素图案的形式储存，每种点阵字体都有 
特定的纵横比和字元大小。 Windows 通过简单地复制图素的行或列就可以由 GDI 
点阵字体产生更大的字元。然而，只能以整数倍放大字体，并且不能超过一定 
的限度。由於这种原因， GDI 点阵字体又称为「不可缩放的」字体。它们不能随 
意地放大或缩小。点阵字体的主要优点是显示性能（显示速度很快）和可读性 
(因为是手工设计的，所以尽可能清晰）。 

字体是通过字体名称识别的，点阵字体的字体名称为： 

• System (用於 SYSTEM — FONT ) 

• FixedSys (用於 SYSTEM — FIXED — FONT ) 

• Terminal (用於 OEM — FIXED — FONT ) 

• Courier 

• MS Serif 

• MS Sans Serif (用於 DEFAULT — ⑶ I — FONT ) 

• Small Fonts 

每个点阵字体只有几种大小（不超过6种）。 Courier 字体是定宽字体，外 
形与用打字机打出的字体相似。 「 Serif 」 指字体字母笔划在结束时拐个小弯。 
r sans serif J 字体不是 serif 类的字体。在 Windows 的早期版本中 ， MS 
( Microsoft ) Serif 和 MS Sans Serif 字体被称为 Tms Rmn (指它与 Times Roman 
相似）和 Helv (与 Helvetica 相似 ）。 Small Fonts 是专为显示小字设计的。 

在 Windows 3. 1以前，除了 GDI 字体外， Windows 所提供的字体只有笔划字 
体。笔划字体是以「连结点」的方式定义的一系列线段，笔划字体可以连续地 
缩放，这意味著同样的字体可以用於具有任何解析度的图形输出设备，并且字 
体可以放大或缩小到任意尺寸。不过，它的性能不好，小字体的可读性也很糟， 
而大字体由於笔划是单根直线而显得很单薄。笔划字体有时也称为绘图机字体， 


第927页 




Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

因为它们特别适合於绘图机，但是不适合於别的场合。笔划字体的字 样有： 
Modern 、 Roman 和 Script 。 

对於 GDI 点阵字体和 GDI 笔划字体， Windows 都可以「合成」粗体、斜体、 
加底线和加删除线，而不需要为每种属性另外储存字体。例如，对於斜体， 
Windows 只需要将字元的上部向右移动就可以了。 

接下来是 Truetype , 我将在本章的剩部分主要讨论它。 

TrueType 字体 

TrueType 字体的单个字元是通过填充的直线和曲线的轮廓来定义的。 
Windows 可以通过改变定义轮廓的座标对 TrueType 字体进行缩放。 

当程式开始使用特定大小的 TrueType 字体时， Windows 「点阵化」字体。 
这就是说 Windows 使用 TrueType 字体档案中包括的「提示」对每个字元的连结 
直线和曲线的座标进行缩放。这些提示可以补偿误差，避免合成的字元变得很 
难看（例如，在某些字体中，大写 H 的两竖应该一样宽，但盲目地缩放字体可 
能会导致其中一竖的图素比另一竖宽。有了提示就可以避免这些现象发生）。 
然後，每个字元的合成轮廓用於建立字元的点阵图，这些点阵图储存在记忆体 
以备将来使用。 

最初， Windows 使用了 13种 TrueType 字体，它们的字体名称如下： 

• Courier New 

• Courier New Bold 

• Courier New Italic 

• Courier New Bold Italic 

• Times New Roman 

• Times New Roman Bold 

• Times New Roman Italic 

• Times New Roman Bold Italic 

• Arial 

• Arial Bold 

• Arial Italic 

• Arial Bold Italic 

• Symbol 

在新的 Windows 版本中，这个列表更长了。在此特别指出，我将使用 Lucida 
Sans Unicode 字体，它包括了一些在世界其他地方使用的字母表。 

三个主要字体系列与点阵字体相似 ， Courier New 是定宽字体。它看起来就 
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像是打字机输出的字体 。 Times New Roman 是 Times 字体的复制品，该字体最初 
为 《Times of London )) 设计，并用在许多印刷材料上，它具有很好的可读性。 
Arial 是 Helvetica 字体的复制品，是一种 sans serif 字体。 Symbol 字体包含 

了手写符号集。 

属性或样式 

在上面的 TrueType 字体列表中，您会注意到， Courier、Times New Roman 
和 Arial 的粗体和斜体是带有自己字体名称的单独字体，这一命名与传统的板 
式一致。然而，电脑使用者认为粗体和斜体只是已有字体的特殊「属性 」。 Windows 
在定义点阵字体命名、列举和选择的方式时，采用了属性的方法。但对於 
TrueType 字体，更倾向於使用传统的命名方式。 

这种冲突在 Windows 中还没有完全解决，简而言之，您可以完全通过命名 
或特定属性来选择字体。然而在处理字体列举时，应用程式需要系统中的字体 
列表，正如您所预料，这种双重处理使问题复杂化了。 

点值 

在传统的版式中，您可以用字体名称和大小来指定字体，字体的大小以点 
的单位来表示。一点与1/72英寸很接近 一一 它们非常接近，因此在电脑中它通 
常定义为1/72英寸。点值通常描述为字母顶端（不包括发音符号）到字母底端 
的高度，例如，字母 「 bq 」 的总高度。这是一个考虑字体大小的简单方式，但 
它通常不是很精确。 

字体的点值实际上是排版设计的概念而不是度量概念。特定字体中字元的 
大小可能会大於或小於其点值所表示的大小。在传统的排版中，您使用点值来 
指定字体的大小，在电脑排版中，还有其他方法来确定字元的实际大小。 


间隔和间距 


在第四章我们曾提到，可以通过呼叫 GetTextMetrics 取得装置内容中目前 
选择的字体资讯，我们也多次使用过这个函式。图 4-3 显示了 FONTMETRIC 结构 
中字体的垂直大小。 

TEXTMETRIC 结构的另一个栏位是 tmExternalLeading ， 词「间隔 （ leading ) 」 
来自排字工人在金属字块间插入的铅，它用於在两行文字之间产生空白。 
tmlnternalLeading 值与为发音符号保留的空间有关， tmExternalLeading 表示 
字元的连续行之间所留的附加空间。程式写作者可以使用或忽略外部的间隔值。 
当我们说一个字体是8点或12点时，指的是不带内部间隔的高度。某种大 
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写字母上的发音符号占据了分隔行的间距。这样， TEXTMETRIC 结构的 tmHeight 
值实际指行间距而不是字体的点值。字体的点值可由 tmHeight 减 
tmlnternalLeading 得到 。 

逻辑英寸问题 

正如我们在第五章〈设备的大小〉一节中所讨论的 ， Windows 98将系统字 
体定义为带有12点行距的10点字体。根据在「显示属性」对话方块中选择的 
是「小字体」还是「大字体」，该字体的 tmHeight 值为16或20图素 ， tmHeight 
减去 tmlnternalLeading 的值为13或16图素。这样，字体的选择就暗指以每 
英寸的点数为单位的设备解析度，选择「小字体」即为 96 dpi ， 选择「大字体」 
即为 120 dpi 。 

您可以用 L 0 GPIXELSX 或 L 0 GPIXELSY 参数呼叫 GetDeviceCaps 来取得该设 
备解析度。因此，96或120图素在萤幕上占有的度量距离可以称为「逻辑英寸」。 
如果您用尺测量蛮幕并计算图素，就可能发现逻辑英寸要比实际的英寸大一些， 
为什么会这样呢？ 

在纸张上，每英寸放设14个8点的字元很方便阅读。如果您在作文书处理 
或写作应用程式时，可能希望在显示器上显示清晰的8点字型，但如果使用视 
讯显示器的实际尺寸，就没有足够的图素清晰地显示字元。即使显示器具有足 
够的解析度，在萤幕上阅读8点字体仍然会有问题。当人们阅读纸上的印刷物 
时，眼睛与文字的距离通常为一英尺，而使用视讯显示器时，这个距离通常为 
两英尺。 

逻辑英寸有效地对萤幕进行了放大，能够显示小至8点的清晰字体。而且， 
每英寸96点使640图素的最小显示大小等於大约 6. 5英寸。这恰恰是在页边距 
为1英寸的 8.5 英寸宽的纸上列印的文字的宽度。因而，逻辑英寸也利用了萤 
幕宽度，尽可能大地显示文字。 

您可能还记得在第五章 ， Windows NT 的做法有些不同。在 Windows NT 中， 
从 GetDeviceCaps 中得到的 L 0 GPIXELSX (每英寸的图素数）值不等於 H 0 RZRES 
值（图素数）除以 H 0 RZSIZE 值(毫米数)再乘以 25. 4的值。以此类似， L 0 GPIXELSY 、 
VERTRES 和 VERTSIZE 也不一致。 Windows 在为不同映射方式计算视窗和偏移范 
围时，使用 H 0 RZRES 、 H 0 RZSIZE 、 VERTRES 和 VERTSIZE 值。然而，显示文字的 
程式最好不要使用根据 L 0 GPIXELSX 和 L 0 GPIXELSY 使用假定的显示解析度，这 
一点与 Windows 98更为一致。 

所以，在 Windows NT 下，当程式以特定的点值显示文字时，它可能不使用 
Windows 提供的映射方式，程式根据与 Windows 98—样的每英寸的逻辑图素数 
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来定义自己的映射方式。我将这种用於文字的映射方式称为 「Logical Twips _ 
映射方式。您可以设定如下： 

SetMapMode (hdc, MM—ANISOTROPIC); 

SetWindowExtEx (hdc, 1440, 1440, NULL); 

SetViewportExt (hdc. GetDeviceCaps (hdc, LOGPIXELSX), 

GetDeviceCaps (hdc, LOGPIXELSY), NULL); 

使用这种映射方式设定，您能够以点值的20倍来指定字体大小，例如，为 
12点字取240。注意，与 MM _ TWIPS 映射方式不同， y 值在萤幕中向下增长，这 
在显示文字的连续行时很方便。 

请记住，逻辑英寸与实际英寸间的差异仅对显示器存在。在列印设备上， 
GDI 和尺是完全一致的。 

逻辑字体 

既然我们已经明确了逻辑英寸和逻辑单位的概念，那么现在我们就来讨论 
逻辑字体。 

逻辑字体是一个 GDI 物件，它的代号储存在 HF 0 NT 型态的变数中，逻辑字 
体是字体的描述。和逻辑画笔及逻辑画刷一样，它是抽象的物件，只有当应用 
程式呼叫 SelectObject 将它选入装置内容时，它才成为真实的物件。例如，对 
於逻辑画笔，您可以为画笔指定任意的颜色，但是在您将画笔选入装置内容时， 
Windows 才将其转换为设备中有效的颜色。只有此时， Windows 才知道设备的色 
彩能力。 

逻辑字体的建立和选择 

您可以透过呼叫 CreateFont 或 CreateFontIndirect 来建立逻辑字体。 
CreateFontIndirect 函式接受一个指向 L 0 GF 0 NT 结构的指标，该结构有14个栏 
位。 CreateFont 函式接受14个参数，它们与 L 0 GF 0 NT 结构的14个栏位形式相 
同。它们是仅有的两个建立逻辑字体的函式（我提到这一点，是因为 Windows 

中有许多用於其他字体操作的函式）。因为很难记住14个栏位，所以很少使用 
CreateFont 。 因此，我主要讨论 CreateFontlndirect 。 

有三种基本的方式用於定义 L 0 GF 0 NT 结构中的栏位，以便呼叫 
CreateFontlndirect ： 

• 您可以简单地将 L 0 GF 0 NT 结构的栏位设定为所需的字体特徵。在这种情 
况下，在呼叫 SelectObject 时， Windows 使用「字体映射」演算法从设 
备上有效的字体中选择与这些特徵最匹配的字体。由於这依赖於视讯显 
示器和印表机上的有效字体，所以其结果可能与您的要求有相当大的差 


第931页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


别。 

• 您可以列举设备上的所有字体并从中选择，甚至用对话方块把它们显示 
给使用者。我将在本章後面讨论字体列举函式。不过，它们现在已经不 
常用了，因为第三种方法也可以进行列举。 

• 您可以采用简单的方法并呼叫 ChooseFont 函式，我在第十一章曾讨论 
过这个函式，能够使用 L 0 GF 0 NT 结构直接建立字体。 

在本章，我使用第一种和第三种方法。 

下面是建立、选择和删除逻辑字体的 程序： 

1. 通过呼叫 CreateFont 或 CreateFontIndirect 建立逻辑字体，这些函式 
传回 HF 0 NT 型态的逻辑字体代号。 

2. 使用 SelectObject 将逻辑字体选入装置内容， Windows 会选择与逻辑字 
体最匹配的真实字体。 

3. 使用 GetTextMetrics (及可能用到的其他函式）确定真实字体的大小和 
特徵。在该字体选入装置内容後，可以使用这些资讯来适当地设定文字的间距。 

4. 在使用完逻辑字体後，呼叫 DeleteObject 删除逻辑字体，当字体选入 
有效的装置内容时，不要删除字体，也不要删除备用字体。 

GetTextFace 函式使程式能够确定目前选入装置内容的字体名称： 

GetTextFace (hdc, sizeof (szFaceName) / sizeof (TCHAR), szFaceName); 

详细的字体资讯可以从 GetTextMetrics 中得到： 

GetTextMetrics (hdc, &textmetric); 

其中， textmetric 是 TEXTMETRIC 型态的变数，它具有20个栏位。 

稍後我将详细讨论 L 0 GF 0 NT 和 TEXTMETRIC 结构的栏位，这两个结构有一些 
相似的栏位，所以它们容易混淆。现在您只需记住， L 0 GF 0 NT 用於定义逻辑字体， 
而 TEXTMETRIC 用於取得目前选入装置内容中的字体资讯。 

PICKF 0 NT 程式 

使用程式 17-1 所示的 PICKF 0 NT ， 可以定义 L 0 GF 0 NT 结构的许多栏位。这个 
程式建立逻辑字体，并在逻辑字体选入装置内容後显示真实字体的特徵。这是 
个方便的程式，通过它我们可以了解逻辑字体映射为真实字体的方式。 


程式 17-1 PICKF0NT 


PICKFONT.C 

/* - 



PICKFONT.C -- 

Create Logical Font 

(c) Charles Petzold, 1998 

'k 

/ 
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#include <windows.h> 

♦include "resource.h" 

// Structure shared between main window and dialog box 
typedef struct 
{ 

int iDevice, iMapMode ; 

BOOL fMatchAspect ; 

BOOL fAdvGraphics ; 

LOGFONT If ; 

TEXTMETRIC tm ; 

TCHAR szFaceName [LF_FULLFACESIZE]; 

} 

DLGPARAMS ; 

// Formatting for BCHAR fields of TEXTMETRIC structure 
#ifdef UNICODE 

#define BCHARFORM TEXT ("0x%04X n ) 

#else 

#define BCHARFORM TEXT ("0x%02X") 

#endif 


// Global variables 
HWND hdlg ; 

TCHAR szAppName[] = TEXT ("PickFont"); 

// Forward declarations of functions 
LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

BOOL CALLBACK DlgProc (HWND, UINT, WPARAM, LPARAM); 

void SetLogFontFromFields (HWND hdlg, DLGPARAMS * pdp); 
void SetFieldsFromTextMetric (HWND hdlg, DLGPARAMS * pdp); 

void MySetMapMode (HDC hdc, int iMapMode); 


int WINAP 工 WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


HWND 

MSG 

WNDCLASS 


hwnd ; 
msg ; 
wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE BRUSH); 
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wndclass.IpszMenuName = szAppName ; 

wndclass.IpszClassName = szAppName ; 


if ( !RegisterClass 

/ 

(&wndclass)) 

l 

MessageBox ( 

NULL, TEXT 

return 1 

0 ； 


("This program requires Windows NT !’'）， 
szAppName, MB ICONERROR); 


hwnd = CreateWindow ( szAppName, TEXT ("PickFont : Create Logical Font ”）， 

WS_OVERLAPPEDWINDOW | WS_CLIPCHILDREN, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, 0, 0)) 

{ 

if (hdlg == 0 I I !IsDialogMessage (hdlg, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

static DLGPARAMS dp ; 

static TCHAR szText[] = TEXT ( n \x41\x42\x43\x44\x45 ") 

TEXT ("\x61\x62\x63\x64\x65 ") 


TEXT ( n \xC0\xCl\xC2\xC3\xC4\xC5 ") 

TEXT ( n \xE0\xEl\xE2\xE3\xE4\xE5 ") 

#ifdef UNICODE 

TEXT ("\x0390\x0391\x0392\x0393\x0394\x0395 ") 
TEXT ( n \x03B0\x03Bl\x03B2\x03B3\x03B4\x03B5 ") 
TEXT ( n \x0410\x0411\x0412\x0413\x0414\x0415 ") 
TEXT ("\x0430\x0431\x0432\x0433\x0434\x0435 ") 
TEXT ( n \x5000\x5001\x5002\x5003\x5004 n ) 

#endif 


HDC 


hdc ; 
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PAINTSTRUCT ps ; 

RECT rect ; 

switch (message) 

{ 

case WM_CREATE : 

dp.iDevice = IDM—DEVICE—SCREEN ; 

hdlg = CreateDialogParam (((LPCREATESTRUCT) IParam)->hlnstance, 
szAppName, hwnd, DlgProc, (LPARAM) &dp); 

return 0 ; 
case WM—SETFOCUS: 

SetFocus (hdlg); 
return 0 ; 

case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case IDM—DEVICE—SCREEN: 
case IDM_DEVICE_PRINTER: 

CheckMenuItem (GetMenu (hwnd), dp.iDevice, MF_UNCHECKED); 
dp.iDevice = LOWORD (wParam); 

CheckMenuItem (GetMenu (hwnd), dp.iDevice, MF_CHECKED); 
SendMessage (hwnd, WM—COMMAND, 工 DOK, 0); 
return 0 ; 

} 

break ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

// Set graphics mode so escapement works in Windows NT 

SetGraphicsMode (hdc, dp.fAdvGraphics ? GM_ADVANCED : GM—COMPATIBLE); 

// Set the mapping mode and the mapper flag 

MySetMapMode (hdc, dp.iMapMode); 

SetMapperFlags (hdc, dp.fMatchAspect); 

// Find the point to begin drawing text 

GetClientRect (hdlg, &rect); 
rect.bottom += 1 ; 

DPtoLP (hdc, (PPOINT) &rect, 2); 

// Create and select the font; display the text 

SelectObj ect (hdc, CreateFontlndirect (& dp.1f)); 
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TextOut (hdc, rect.left, rect.bottom, szText, lstrlen 

(szText)); 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect 

(SYSTEM—FONT))); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

BOOL CALLBACK DlgProc ( 

IParam) 

{ 

static DLGPARAMS 
static PRINTDLG 
HDC 
HFONT 

switch (message) 

{ 

case WM—INITDIALOG: 

// Save pointer to dialog-parameters structure in WndProc 

pdp = (DLGPARAMS *) IParam ; 


HWND hdlg, UINT message , WPARAM wParam,LPARAM 


-k 


pdp ; 


pd = { sizeof (PRINTDLG) }; 

hdcDevice ; 
hFont ; 


SendDlgltemMessage (hdlg, IDC LF FACENAME, 


CheckRadioButton 

CheckRadioButton 

CheckRadioButton 

CheckRadioButton 

CheckRadioButton 


EM_LIMITTEXT, LF_FACESIZE - 1, 0); 
(hdlg,IDC_OUT_DEFAULT, 工 DC_OUT_OUTLINE, 

工 DC_OUT_DEFAULT); 

(hdlg, 工 DC_DEFAULT_QUALITY, IDC_PROOF_QUALITY, 

IDC_DEFAULT_QUALITY); 

(hdlg,IDC_DEFAULT_PITCH, 工 DC—VARIABLE_PITCH, 

IDC_DEFAULT_PITCH); 

(hdlg,IDC_FF_DONTCARE, IDC_FF_DECORATIVE, 

IDC_FF_DONTCARE); 

(hdlg,IDC MM TEXT, IDC MM LOGTWIPS, 


IDC—MM—TEXT); 

SendMessage (hdlg, WM COMMAND, IDOK, 0); 


// fall through 


case WM_SETFOCUS : 

SetFocus (GetDlgltem (hdlg, IDC_LF_HEIGHT)); 
return FALSE ; 
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case WM_COMMAND : 

switch (LOWORD (wParam)) 



case IDC 

CHARSET HELP: 

MessageBox ( hdlg. 

TEXT 

("0 

= Ansi\n") 

TEXT 

ri 

= Default\n n ) 

TEXT 

("2 

= Symbol\n n ) 

TEXT 

("128 

= Shift JIS (Japanese)\n") 

TEXT 

("129 

= Hangul (Korean)\n") 

TEXT 

("130 

= Johab (Korean)\n n ) 

TEXT 

("134 

= GB 2312 (Simplified Chinese)\n") 

TEXT 

("136 

= Chinese Big 5 (Traditional Chinese) \n") 

TEXT 

("177 

= Hebrew\n n ) 

TEXT 

("178 

= Arabic\n n ) 

TEXT 

("161 

= Greek\n") 

TEXT 

("162 

= Turkish\n n ) 

TEXT 

("163 

= Vietnamese\n n ) 

TEXT 

("204 

= Russian\n") 

TEXT 

("222 

= Thai\n") 

TEXT 

("238 

= East European\n") 

TEXT 

("255 

= OEM ，，）， 


szAppName, MB OK | MB 工 CONINFORMATION); 


return TRUE ; 

/ / These radio buttons set the If Out Precis ion field 
case IDC_OUT_DEFAULT: 

pdp->lf.lfOutPrecision = OUT_DE FAUL T_PRECIS ; 
return TRUE ; 

case IDC—OUT—STRING: 

pdp->lf.lfOutPrecision = OUT_STRING_PRECIS ; 
return TRUE ; 

case IDC_OUT_CHARACTER: 

pdp->lf.lfOutPrecision = OUT_CHARACTER_PRECIS ; 
return TRUE ; 

case IDC—OUT—STROKE: 

pdp->lf.lfOutPrecision = OUT—STROKE—PRECIS ; 
return TRUE ; 

case IDC—OUT—TT: 

pdp->lf.lfOutPrecision = OUT—TT—PRECIS ; 
return TRUE ; 

case IDC OUT DEVICE: 
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pdp->lf.lfOutPrecision = OUT—DEVICE—PRECIS ; 
return TRUE ; 

case IDC—OUT—RASTER: 

pdp->lf.lfOutPrecision = OUT_RASTER_PRECIS ; 
return TRUE ; 

case 工 DC—OUT—TT—ONLY: 

pdp->lf.lfOutPrecision = OUT_TT_ONLY_PRECIS ; 
return TRUE ; 

case IDC_OUT_OUTLINE: 

pdp->lf.lfOutPrecision = OUT_OUTLINE_PRECIS ; 
return TRUE ; 

/ / These three radio buttons set the If Quality field 

case IDC_DEFAULT_QUALITY: 

pdp->lf.lfQuality = DEFAULT_QUALITY ; 
return TRUE ; 

case 工 DC—DRAFT—QUAL 工 TY: 

pdp->lf.lfQuality = DRAFT_QUALITY ; 
return TRUE ; 

case IDC_PROOF_QUALITY: 

pdp->lf•lfQuality = PROOF_QUALITY ; 
return TRUE ; 

// These three radio buttons set the lower nibble 
// of the IfPitchAndFamily field 

case 工 DC_DEFAULT_PITCH: 

pdp->lf.IfPitchAndFamily = (OxFO & 

pdp->lf.IfPitchAndFamily) | DEFAULT—PITCH ; 

return TRUE ; 

case IDC_FIXED_PITCH: 

pdp->lf.IfPitchAndFamily = (OxFO & 

pdp->lf.IfPitchAndFamily) | FIXED_PITCH ; 

return TRUE ; 

case 工 DC—VARIABLE_PITCH: 

pdp->lf.IfPitchAndFamily = (OxFO & 

pdp->lf.IfPitchAndFamily) | VARIABLE_PITCH ; 

return TRUE ; 

// These six radio buttons set the upper nibble 
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// of 

the IfPitchAndFamily 

field 


case 

IDC FF 

DONTCARE : 




pdp - >lf 

.IfPitchAndFamily 

= (OxOF 

& 

pdp->lf.IfPitchAndFamily) | 

FF DONTCARE ; 




return 

TRUE ; 



case 

IDC FF 

ROMAN : 




pdp->lf 

.IfPitchAndFamily 

= (OxOF 

& 

pdp->lf.IfPitchAndFamily) | 

FF ROMAN ; 




return 

TRUE ; 



case 

IDC FF 

SWISS: 




pdp - >lf 

.IfPitchAndFamily 

= (OxOF 

& 

pdp->lf.IfPitchAndFamily) | 

FF SWISS ; 




return 

TRUE ; 



case 

IDC—FF 

MODERN: 




pdp->lf 

.IfPitchAndFamily 

= (OxOF 

& 

pdp->lf.IfPitchAndFamily) | 

FF MODERN ; 




return 

TRUE ; 



case 

IDC—FF 

SCRIPT: 




pdp->lf 

.IfPitchAndFamily 

= (OxOF 

& 

pdp->lf.IfPitchAndFamily) | 

FF SCRIPT ; 




return 

TRUE ; 



case 

IDC FF 

DECORATIVE: 




pdp->lf 

.IfPitchAndFamily 

= (OxOF 

& 

pdp->lf.IfPitchAndFamily) | 

FF DECORATIVE ; 




return 

TRUE ; 





// Mapping mode : 



case 

IDC MM 

TEXT : 



case 

IDC MM 

LOMETRIC: 



case 

IDC MM 

HIMETRIC: 



case 

IDC—MM 

LOENGLISH: 



case 

IDC—MM 

HIENGLISH: 



case 

IDC MM 

TWIPS : 



case 

IDC MM 

LOGTWIPS : 




pdp->iMapMode = LOWORD 

(wParam); 



return TRUE ; 





// OK button pressed 




// - 

— 


case 

工 DOK: 
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// Get LOGFONT structure 

SetLogFontFromFields (hdlg, pdp); 

// Set Match-Aspect and Advanced Graphics flags 

pdp->fMatchAspect = IsDlgButtonChecked (hdlg, 

ID C _MATCH_ASPECT); 

pdp->fAdvGraphics = IsDlgButtonChecked (hdlg, 

I DC_ADV_GRAPHICS); 

// Get 工 information Context 

if (pdp->iDevice == IDM—DEVICE—SCREEN) 

{ 

hdcDevice=CreateIC (TEXT ("DISPLAY"),NULL,NULL,NULL); 

} 

else 

{ 

pd.hwndOwner = hdlg ; 

pd.Flags = PD_RETURNDEFAULT | PD_RETURNIC ; 
pd.hDevNames = NULL ; 
pd.hDevMode = NULL ; 

PrintDlg (&pd); 

hdcDevice = pd.hDC ; 

} 

// Set the mapping mode and the mapper flag 

MySetMapMode (hdcDevice, pdp->iMapMode); 
SetMapperFlags (hdcDevice, pdp->fMatchAspect); 

// Create font and select it into IC 

hFont = CreateFontlndirect (&pdp->lf); 

SelectObject (hdcDevice, hFont); 

// Get the text metrics and face name 

GetTextMetries (hdcDevice, &pdp->tm); 

GetTextFace (hdcDevice, LF_FULLFACESIZE, pdp->szFaceName); 
DeleteDC (hdcDevice); 

DeleteObj ect (hFont); 

// Update dialog fields and invalidate main window 
SetFieldsFromTextMetrie (hdlg, pdp); 
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InvalidateRect (GetParent (hdlg) , NULL, TRUE); 
return TRUE ; 

} 

break ; 

} 

return FALSE ; 

} 

void SetLogFontFromFields (HWND hdlg, DLGPARAMS * pdp) 

{ 


pdp->lf.lfHeight = GetDlgltemlnt (hdlg, IDC_LF_HEIGHT, NULL, TRUE); 

pdp->lf.lfWidth = GetDlgltemlnt (hdlg, IDC_LF—WIDTH A NULL, TRUE); 

pdp->lf.lfEscapement=GetDlgItemInt (hdlg, IDC_LF_ESCAPE, NULL, TRUE); 
pdp->lf.lfOrientation=GetDlgItemInt (hdlg,IDC_LF_ORIENT, NULL, TRUE); 
pdp->lf.lfWeight =GetDlgItemInt (hdlg, IDC_LF_WEIGHT, NULL, TRUE); 
pdp->lf.lfCharSet =GetDlgItemInt (hdlg, 工 DC_LF_CHARSET, NULL, FALSE); 
pdp->lf•IfItalic =IsDlgButtonChecked(hdlg,IDC_LF_ITALIC) == 

BST—CHECKED ; 

pdp->lf.lfUnderline =1sDlgButtonChecked (hdlg, IDC_LF_UNDER) == 

BST—CHECKED ; 

pdp->lf.IfStrikeOut =IsDlgButtonChecked (hdlg, IDC—LF—STRIKE) == 

BST CHECKED ; 


GetDlgltemText (hdlg, IDC LF FACENAME, pdp->lf.IfFaceName A LF FACESIZE); 


void SetFieldsFromTextMetric (HWND hdlg, DLGPARAMS * pdp) 

{ 


TCHAR 

szBuffer 

[10] 

參 

f 

TCHAR * 

szYes 

— 

TEXT ("Yes"); 

TCHAR * 

szNo = TEXT 

("No"); 

TCHAR * 

szFamily 

[]= 

{ TEXT ("Don't Know ，，）， 


TEXT ("Roman"), 

TEXT ("Swiss"), TEXT ("Modern"), 

TEXT ("Script"), TEXT ("Decorative"), 
TEXT ("Undefined") }; 


SetDlgltemlnt (hdlg, 
SetDlgltemlnt (hdlg, 
SetDlgltemlnt (hdlg, 
SetDlgltemlnt (hdlg, 
TRUE); 


IDC_TM_HEIGHT, pdp->tm.tmHeight, TRUE); 

I DC_TM—ASCENT, pdp->tm.tmAscent, TRUE); 

IDC_TM_DESCENT,pdp->tm.tmDescent, TRUE); 

IDC TM INTLEAD,pdp->tm•tmlnternalLeading, 


SetDlgltemlnt (hdlg, IDC_TM_EXTLEAD,pdp->tm•tmExternalLeading, 
TRUE); 


SetDlgltemlnt (hdlg, IDC_TM—AVECHAR,pdp->tm•tmAveCharWidth, 

TRUE); 

SetDlgltemlnt (hdlg, IDC_TM_MAXCHAR, pdp->tm.tmMaxCharWidth, 
TRUE); 

SetDlgltemlnt (hdlg, IDC_TM_WEIGHT, pdp->tm.tmWeight, 

TRUE); 
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SetDlgltemlnt (hdlg, ID C_TM_OVE RHANG, pdp->tm.tmOverhang, 

TRUE); 

SetDlgltemlnt (hdlg, IDC_TM_DIGASPX, pdp->tm•tmDigitizedAspectX, 

TRUE); 

SetDlgltemlnt (hdlg, IDC_TM_DIGASPY, pdp->tm•tmDigitizedAspectY, 

TRUE); 

wsprintf (szBuffer, BCHARFORM, pdp->tm.tmFirstChar); 

SetDlgltemText (hdlg, IDC_TM—FIRSTCHAR, szBuffer); 

wsprintf (szBuffer, BCHARFORM, pdp->tm.tmLastChar); 

SetDlgltemText (hdlg, IDC_TM_LASTCHAR, szBuffer); 

wsprintf (szBuffer, BCHARFORM, pdp->tm.tmDefaultChar); 

SetDlgltemText (hdlg, IDC_TM—DEFCHAR, szBuffer); 

wsprintf (szBuffer, BCHARFORM, pdp->tm.tmBreakChar); 

SetDlgltemText (hdlg, IDC_TM_BREAKCHAR, szBuffer); 

SetDlgltemText (hdlg, IDC—TM—ITALIC, pdp->tm.tmltalic ? 

szYes : szNo); 

SetDlgltemText (hdlg, IDC_TM—UNDER, pdp->tm.tmUnderlined ? 

szYes : szNo); 

SetDlgltemText (hdlg, IDC_TM—STRUCK, pdp->tm.tmStruckOut ? 

szYes : szNo); 

SetDlgltem Text (hdlg, IDC_TM_VARIABLE, 

TMPF_FIXED_PITCH & pdp->tm.tmPitchAndFamily ? szYes : szNo); 

SetDlgltem Text (hdlg, IDC_TM_VECTOR, 

TMPF—VECTOR & pdp->tm.tmPitchAndFamily ? szYes : szNo); 

SetDlgltem Text (hdlg, 工 DC_TM—TRUETYPE, 

TMPF—TRUETYPE & pdp->tm.tmPitchAndFamily ? szYes : szNo); 

SetDlgltem Text (hdlg, IDC—TM—DEVICE, 

TMPF—DEVICE & pdp->tm•tmPitchAndFamily ? szYes : szNo); 

SetDlgltem Text (hdlg, IDC_TM_FAMILY, 

szFamily [min (6, pdp->tm.tmPitchAndFamily >> 4)]); 

SetDlgltemlnt (hdlg, IDC_TM_CHARSET,pdp->tm•tmCharSet, FALSE); 
SetDlgltemText (hdlg, IDC TM FACENAME, pdp—>szFaceName); 


void MySetMapMode (HDC hdc, int iMapMode) 

{ 

switch (iMapMode) 
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case 

IDC_ 

MM 

TEXT : 

SetMapMode 

(hdc. 

MM 

TEXT); 


break ; 

case 

IDC 一 

MM 

LOMETRIC: 

SetMapMode (hdc. 

MM LOMETRIC); 

break 

• 

r 

case 

IDC 一 

MM 

HIMETRIC: 

SetMapMode (hdc, 

MM HIMETRIC); 

break 

• 

f 

case 

IDC_ 

MM 

LOENGLISH: 

SetMapMode 

(hdc, 

MM 

LOENGLISH); 

break ; 

case 

IDC_ 

MM 

HIENGLISH: 

SetMapMode 

(hdc. 

MM 

HIENGLISH); 

break ; 

case 

IDC_ 

MM 

TWIPS: 

SetMapMode 

(hdc. 

MM 

TWIPS); 



break 

• 

r 









case 

IDC 

MM 

LOGTWIPS : 








SetMapMode (hdc, MM—ANISOTROPIC) ; 

SetWindowExtEx (hdc , 14 40 A 1440 A NULL); 
SetViewportExtEx (hdc, GetDeviceCaps (hdc, LOGPIXELSX), 
GetDeviceCaps (hdc, LOGPIXELSY), NULL); 
break ; 


PICKFONT.RC 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h" 

♦include "afxres.h M 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Dialog 

PICKFONT DIALOG DISCARDABLE ◦, ◦, 348, 308 
STYLE WS_CHILD | WS_VISIBLE | WS_BORDER 
FONT 8, "MS Sans Serif" 

BEGIN 

LTEXT "^Height:",IDC—STATIC,8,10,44,8 

EDITTEXT IDC LF HEIGHT,64,8,24,12,ES AUTOHSCROLL 


LTEXT 

EDITTEXT 

LTEXT 

EDITTEXT 

LTEXT 

EDITTEXT 

LTEXT 

EDITTEXT 

GROUPBOX 


n &Width n ,IDC—STATIC,8,26,44,8 
IDC—LF—WIDTH,64,24,24,12,ES—AUTOHSCROLL 
"Escapement : M , 工 DC—STATIC,8,42,44,8 
IDC—LF—ESCAPE,64,40,24,12,ES—AUTOHSCROLL 
"Orientation:IDC—STATIC,8,58,44,8 
IDC_LF_ORIENT,64,56,24,12,ES—AUTOHSCROLL 
"Weight : ",IDC_STATIC,8,74,44,8 
IDC_LF_WEIGHT,64,74,24,12,ES—AUTOHSCROLL 
"Mapping 

Mode",IDC_STATIC,97,3,96,90,WS_GROUP 
CONTROL 

"Text" A 工 DC—MM—TEXT,"Button ， ' ， BS_AUTORADIOBUTTON, 104, 13, 56, 

8 

CONTROL "Low 

Metric",IDC_MM_LOMETRIC,"Button” ， BS—AUTORADIOBUTTON, 

104,24,56,8 

CONTROL High Metric” ， 工 DC_MM_HIMETRIC,"Button" A 

BS AUTORADIOBUTTON,104,35,56,8 
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CONTROL "Low English” ，工 DC—MM—LOENGLISH,"Button", 

BS—AUTORADIOBUTTON, 104, 46,56,8 

CONTROL " High English", 工 DC—MM—HIENGLISH, n Button n , 

BS—AUTORADIOBUTTON,104,57,56,8 

CONTROL 

"Twips", 工 DC—MM—TWIPS,"Button ，，， BS—AUTORADIOBUTTON,10 4,68, 

56, 8 

CONTROL "Logical Twips", 工 DC—MM—LOGTWIPS,"Button", 

BS—AUTORADIOBUTTON, 104,79,64,8 
CONTROL "Italic” ， IDC—LF—ITALIC,"Button",BS_AUTOCHECKBOX 

WS_TABSTOP,8,90,48,12 

CONTROL 

"Underline",IDC_LF_UNDER,"Button",BS—AUTOCHECKBOX | 

WS_TABSTOP,8,104,48,12 

CONTROL "Strike 


Out n ,IDC LF STRIKE, n Button，'，BS AUTOCHECKBOX 


CONTROL 


"Match 


WS TABSTOP,8,118,48,12 


Aspect", IDC_MATCH_ASPECT,"Button",BS_AUTOCHECKBOX | 

WS_TABSTOP,60,104,62,8 

CONTROL "Adv Grfx Mode ，，， IDC_ADV_GRAPHICS, "Button，', 

BS_AUTOCHECKBOX 

WS_TABSTOP, 60,118,62,8 

LTEXT "Character 


Set:",IDC—STATIC, 8, 137,46,8 

EDITTEXT 工 DC_LF_CHARSET,58,135,24,12,ES_AUTOHSCROLL 

PUSHBUTTON "?",IDC—CHARSET—HELP,90,135,14,14 

GROUPBOX "Quality",IDC—STATIC,132,98,62,48,WS—GROUP 

CONTROL "Default”，IDC DEFAULT QUALITY, "Button ，'， 


BS—AUTORADIOBUTTON, 136, 110, 40,8 
CONTROL 

"Draft",IDC_DRAFT_QUALITY,"Button",BS_AUTORADIOBUTTON, 

136.122.40.8 

CONTROL 

"Proof",IDC_PROOF_QUALITY,"Button",BS—AUTORADIOBUTTON, 

136.134.40.8 

LTEXT "Face Name: n ,IDC—STATIC, 8,154,44,8 

EDITTEXT 

IDC_LF_FACENAME,58,152,136,12,ES—AUTOHSCROLL 
GROUPBOX "Output 

Precision",IDC—STATIC,8,166,118,133,WS—GROUP 
CONTROL 

n OUT_DEFAULT_PRECIS n ,IDC_OUT_DEFAULT,"Button", 

BS_AUTORADIOBUTTON,12,178,112,8 
CONTROL 
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n OUT_STRING_PRECIS n , IDC_OUT_STRING,"Button" , 

BS_AUTORADIOBUTTON, 12,191,112,8 
CONTROL 

， ’ OUT_CHARACTER_PRECIS n ,IDC_OUT_CHARACTER,"Button", 

BS_AUTORADIOBUTTON,12,204,112,8 
CONTROL 

n OUT_STROKE—PRECIS",IDC—OUT—STROKE,"Button", 

BS_AUTORADIOBUTTON,12,217,112,8 
CONTROL 

n OUT_TT_PRECIS",IDC_OUT_TT,"Button",BS_AUTORADIOBUTTON, 

12.230.112.8 

CONTROL 

， ’ OUT—DEVICE—PRECIS” ， IDC—OUT—DEVICE, "Button", 

BS_AUTORADIOBUTTON, 12,243, 112,8 
CONTROL 

， ’ OUT_RASTER_PRECIS n , IDC_OUT_RASTER, "Button", 

BS_AUTORADIOBUTTON, 12,256, 112,8 
CONTROL 

， ’ OUT_TT_ONLY_PRECIS n ,IDC_OUT_TT_ONLY A "Button", 

BS_AUTORADIOBUTTON,12,269,112,8 
CONTROL 

， ’ OUT_OUTLINE_PRECIS n ,IDC_OUT_OUTLINE,"Button", 

BS_AUTORADIOBUTTON,12,282,112,8 

GROUPBOX "Pitch", 工 DC—STATIC,132,166,62,5◦,WS—GROUP 

CONTROL 

"Default", IDC—DEFAULT—PITCH,"Button ， ' ， BS_AUTORADIOBUTTON, 

137.176.52.8 

CONTROL 

"Fixed",IDC—FIXED—PITCH,"Button",BS—AUTORADIOBUTTON,137, 

189.52.8 

CONTROL "Variable”，IDC VARIABLE PITCH,"Button ”， 


BS_AUTORADIOBUTTON, 137,203, 52,8 

GROUPBOX "Family",IDC—STATIC,132,218,62,82,WS—GROUP 

CONTROL "Don't 

Care" , IDC—FF—DONTCARE,"Button ， ' ， BS—AUTORADIOBUTTON, 

137,229,52,8 

CONTROL 


"Roman",IDC_FF_ROMAN,"Button ， ' ， BS—AUTORADIOBUTTON, 137,241, 

52,8 


CONTROL 
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"Swiss", 工 DC_FF_SWISS,"Button” ， BS—AUTORADIOBUTTON, 137,253, 

52,8 

CONTROL 

"Modern",IDC_FF_MODERN,"Button” ， BS_AUTORADIOBUTTON,137, 

265.52.8 

CONTROL 

"Script",IDC_FF_SCRIPT,"Button” ， BS_AUTORADIOBUTTON,137, 

277.52.8 

CONTROL 

"Decorative”，IDC FF DECORATIVE,’'Button ，'， 


BS_AUTORADIOBUTTON, 137,289, 52,8 
DEFPUSHBUTTON "OK",IDOK,247,286,50,14 

GROUPBOX "Text 


Metrics",IDC_STATIC,201,2,14◦,272,WS_GROUP 
LTEXT 

"Height : ",IDC—STATIC,207,12,64,8 

LTEXT 

LTEXT 

"Ascent : ",IDC—STATIC,207,22,64,8 

LTEXT 

LTEXT 

"Descent:",IDC—STATIC,207,32,64,8 

LTEXT 

LTEXT 

Leading: n ,IDC—STATIC,207,42,64,8 
LTEXT 
LTEXT 

Leading:",IDC—STATIC, 207,52,64, 8 
LTEXT 
LTEXT 

Width:" , IDC—STATIC, 2 07,62,64,8 
LTEXT 
LTEXT 

Width:", 工 DC—STATIC,207,72,64,8 
LTEXT 
LTEXT 

"Weight : ",IDC_STATIC, 207,82,64,8 

LTEXT 

LTEXT 

"Overhang:", 工 DC—STATIC,207,92,64,8 
LTEXT 

"0", 工 DC_TM_OVERHANG, 281,92,44,8 
LTEXT 

X: n ,IDC—STATIC,207,102,64,8 
LTEXT 

"0",IDC—TM—DIGASPX, 281,102,44,8 
LTEXT 


M 0",IDC_TM—HEIGHT, 2 81,12,44,8 

"0",IDC_TM_ASCENT, 2 81,22,44,8 

" 0",IDC—TM—DESCENT, 2 81,32,44,8 
n Internal 

"0",IDC_TM—INTLEAD, 281,42,44,8 
"External 

" 0", 工 DC_TM_EXTLEAD, 2 81,52,4 4,8 
"Ave Char 

"0",IDC_TM_AVECHAR a 281, 62,44,8 
"Max Char 

" 0",IDC_TM_MAXCHAR, 281,72,44,8 

n 0 n ,IDC TM WEIGHT, 281,82,44,8 


"Digitized 


"Digitized 


Aspect 


Aspect 
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Y: ， ' ，工 DC—STATIC, 207,112,64,8 
LTEXT 

" 0 " , IDC_TM_DIGASPY, 281,112,44,8 
LTEXT "First 

Char:",IDC—STATIC, 2 07,122,64,8 
LTEXT 

"0",IDC_TM_FIRSTCHAR a 281,122,44,8 
LTEXT "Last 

Char:",IDC—STATIC, 2 07,132,64,8 
LTEXT 

"0",IDC—TM—LASTCHAR,281,132,44,8 

LTEXT "Default 

Char:",IDC_STATIC, 2 07,142,64,8 
LTEXT 

"0",IDC_TM—DEFCHAR, 281,142,44,8 
LTEXT "Break 

Char:", 工 DC—STATIC, 2 07,152,64,8 
LTEXT 

"0",IDC—TM—BREAKCHAR,281,152,44,8 
LTEXT 

"Italic? ， ' ， IDC—STATIC, 2 0 7,162,64,8 

LTEXT "0",IDC—TM—ITALIC, 281,162,44,8 

LTEXT 


"Underlined?",IDC STATIC,207,172,64,8 


LTEXT 


0", 工 DC_TM—UNDER,281,172,44,8 
Struck Out?", 工 DC—STATIC, 2 07,182,64,8 
◦ n , 工 DC TM STRUCK,281,182,44,8 


LTEXT 

LTEXT 

LTEXT 

Pitch?", 工 DC—STATIC, 2 07,192, 64,8 
LTEXT 
LTEXT 

Font?",IDC—STATIC,207,202,64,8 
LTEXT 
LTEXT 

Font? ，，， IDC—STATIC, 2 07,212,64,8 
LTEXT 
LTEXT 

Font?",IDC—STATIC, 2 07,2 22,64,8 
LTEXT 
LTEXT 
LTEXT 
LTEXT 

Set : ",IDC—STATIC, 207,242, 64,8 
LTEXT 
LTEXT 

END 


Variable 

0",IDC_TM_VARIABLE, 281,192,4 4,8 
Vector 

0",IDC—TM—VECTOR, 2 81,2 02,44,8 
"TrueType 

"0",IDC—TM—TRUETYPE, 281,212,44,8 
"Device 

"0", 工 DC—TM—DEVICE, 281,222,44,8 
"Family:", 工 DC—STATIC,207,232,64,8 
"0",IDC_TM—FAMILY, 281,232,44,8 
"Character 

"0",IDC_TM—CHARSET, 281,242,44,8 
n 0 n ,IDC TM FACENAME, 207,262,128,8 


//////////////////////////////////////////////////////////////////////////// 
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// Menu 

PICKFONT MENU DISCARDABLE 
BEGIN 

POPUP "^Device" 

BEGIN 

MENUITEM "^Screen", 工 DM—DEVICE—SCREEN, 

MENUITEM "^Printer", IDM_DEVICE_PRINTER 

END 

END 

RESOURCE.H 

// Microsoft Developer Studio generated include file. 

// Used by PickFont.rc 


♦define 

IDC 一 

LF 

HEIGHT 

1000 

#define 

IDC_ 

LF 

WIDTH 

1001 

#define 

IDC_ 

LF 

ESCAPE 

1002 

♦define 

IDC_ 

LF 

ORIENT 

1003 

♦define 

IDC_ 

LF 

WEIGHT 

1004 

#define 

工 DC_ 

MM 

TEXT 

1005 

#define 

IDC_ 

MM 

LOMETRIC 

1006 

♦define 

IDC_ 

MM 

HIMETRIC 

1007 

♦define 

工 DC_ 

MM 

LOENGLISH 

1008 

#define 

IDC_ 

MM 

HIENGLISH 

1009 

#define 

IDC_ 

MM 

TWIPS 

1010 

♦define 

IDC_ 

MM 

LOGTWIPS 

1011 

♦define 

IDC_ 

LF 

ITALIC 

1012 

#define 

工 DC_ 

LF 

UNDER 

1013 

#define 

IDC_ 

LF 

STRIKE 

1014 

♦define 

IDC_ 

MATCH ASPECT 

1015 

♦define 

IDC 一 

ADV 

GRAPHICS 

1016 

#define 

IDC 一 

LF 

CHARSET 

1017 

#define 

IDC_ 

_CHARSET HELP 

1018 

♦define 

工 DC_ 

DEFAULT QUALITY 1019 

♦define 

IDC_ 

DRAFT QUALITY 

1020 

#define 

IDC 一 

PROOF QUALITY 

1021 

#define 

IDC 一 

LF 

FACENAME 

1022 

♦define 

IDC_ 

_OUT 

DEFAULT 

1023 

♦define 

IDC 一 

_OUT 

STRING 

1024 

#define 

IDC_ 

_OUT 

_CHARACTER 

1025 

#define 

IDC_ 

_OUT 

—STROKE 

1026 

♦define 

IDC_ 

_OUT 

TT 

1027 

♦define 

IDC_ 

_OUT 

DEVICE 

1028 

#define 

IDC_ 

_OUT 

RASTER 

1029 

#define 

IDC_ 

_OUT 

TT_ONLY 

1030 

♦define 

IDC 一 

_OUT 

OUTLINE 

1031 

♦define 

IDC_ 

DEFAULT PITCH 

1032 

#define 

IDC_ 

FIXED PITCH 

1033 


CHECKED 
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#define 

工 DC_ 

VARIABLE PITCH 

1034 

#define 

IDC_ 

FF 

DONTCARE 

1035 

#define 

工 DC_ 

FF 

ROMAN 

1036 

#define 

IDC_ 

FF 

SWISS 

1037 

#define 

IDC_ 

FF 

MODERN 

1038 

#define 

工 DC_ 

FF 

SCRIPT 

1039 

#define 

IDC_ 

FF 

DECORATIVE 

1040 

#define 

IDC_ 

TM 

HEIGHT 

1041 

#define 

IDC_ 

TM 

ASCENT 

1042 

#define 

IDC_ 

TM 

DESCENT 

1043 

#define 

工 DC_ 

TM 

工 NTLEAD 

1044 

#define 

IDC_ 

TM 

EXTLEAD 

1045 

#define 

IDC_ 

TM 

AVECHAR 

1046 

#define 

工 DC_ 

TM 

MAXCHAR 

1047 

#define 

工 DC_ 

TM 

WEIGHT 

1048 

#define 

IDC_ 

TM 

OVERHANG 

1049 

#define 

工 DC_ 

TM 

DIGASPX 

1050 

#define 

IDC_ 

TM 

DIGASPY 

1051 

#define 

工 DC_ 

TM 

FIRSTCHAR 

1052 

#define 

IDC_ 

TM 

LASTCHAR 

1053 

#define 

工 DC_ 

TM 

DEFCHAR 

1054 

#define 

工 DC_ 

TM 

BREAKCHAR 

1055 

#define 

工 DC_ 

TM 

ITALIC 

1056 

#define 

IDC_ 

TM 

UNDER 

1057 

#define 

IDC_ 

TM 

STRUCK 

1058 

#define 

IDC_ 

TM 

VARIABLE 

1059 

#define 

工 DC_ 

TM 

VECTOR 

1060 

#define 

IDC_ 

TM 

TRUETYPE 

1061 

#define 

IDC_ 

TM 

DEVICE 

1062 

#define 

工 DC_ 

TM 

FAMILY 

1063 

#define 

IDC_ 

TM 

CHARSET 

1064 

#define 

工 DC_ 

TM 

FACENAME 

1065 

#define 

I DM 

DEVICE SCREEN 

40001 

#define 

工 DM 

DEVICE PRINTER 

40002 


图 17-1 显示了典型的 PICKF 0 NT 萤幕显示。 PICKF 0 NT 左半部分显示了一个 
非模态对话方块，透过它，您可以选择逻辑字体结构的大部分栏位。对话方块 
的右半部分显示了字体选入装置内容後 GetTextMetrics 的结果。对话方块的下 
部，程式使用这种字体显示一个字串。因为非模态对话方块非常大，所以最好 
在1024 768或更大的显示大小下执行这个程式。 
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ABCDE abcde AAAAAA aaaaaS tABrAE ABBI7XE a6Brne 倀佝倂偺爷 


图 17-1 典型的 PICKF0NT 萤幕显示 (Windows NT 下的 Unicode 版本） 

非模态对话方块还包含一些非逻辑字体结构的选项，它们是包括 「Logical 
Twips J 方式的映射方式 、 「Match Aspect 」选项（更改 Windows 将逻辑字体与 
真实字体匹配的方式）和 「Adv Grtx ModeJ (设定 Windows NT 中的高级图形 
模式）。稍後我将对这些作详细讨论。 

从 「 Device 」 功能表中，可以选择内定印表机而不是视讯显示器。在这种 
情况下， PICKF 0 NT 将逻辑字体选入印表机装置内容中，并从印表机显示 
TEXTMETRIC 结构。然後，程式将逻辑字体选入视窗装置内容中，以显示样本字 
串。因此，程式显示的文字可能会使用与 TEXTMETRIC 栏位所描述的字体（印表 
机字体）不同的字体（萤幕字体）。 

PICKF 0 NT 程式的大部分逻辑都在处理对话方块的必要动作，因此我不会详 
细讨论该程式的工作方式，只解释建立和选择逻辑字体的原理。 


逻辑字体结构 


您可以呼叫 CreateFont 来建立逻辑字体，它是具有14个参数的函式 。一 
般，定义一个 L 0 GF 0 NT 型态的结构 

LOGFONT If ; 

然後再定义该结构的栏位会更容易一些。完成後，可以使用指向该结构的 
指标呼叫 CreateFont Indirect ： 

hFont = CreatFontlndirect ( &lf); 

您不必设定 LOGFONT 结构的每个栏位。如果逻辑字体结构定义为静态变数， 
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那么所有的栏位都会初始化为0, 0 —般是预设值。然後，可以不用更改而直接 
使用这个结构， CreateFontIndirect 会传回字体的代号。当您将该字体选入装 
置内容时，会得到一个合理的内定字体。您可以根据自己的需要，明确或模糊 
地填充 L 0 GF 0 NT 结构， Windows 会用一种真实字体与您的要求相匹配。 

在我讨论 L 0 GF 0 NT 结构中每个栏位时，您可能想用 PICKF 0 NT 程式来测试它 
们。当您希望程式使用您输入的任何栏位时，别忘了按下 Enter 或 「0 K 」 按钮。 

L 0 GF 0 NT 结构的前两个栏位是逻辑单位，因此它们依赖於映射方式的目前设 
定： 

lfHeight 这是以逻辑单位表示的希望的字元高度。您可以将 lfHeight 设 
定0,以使用内定大小，或者根据栏位代表的含义将其设定为正数或负数。如果 
将 lfHeight 设定为正数，就表示您希望该值表示含有内部间隔（不是外部间隔) 
的高度。实际上，所要求的字体行距为 lfHeight 。 如果将 lfHeight 设定为负值， 
则 Windows 会将其绝对值作为与点值一致的字体高度。这是一个很重要的 区别: 
如果想要特定点值的字体，可将点值转换为逻辑单位，并将 lfHeight 栏位设定 
为该值的负数。如果 lfHeight 是正值，则 TEHMETRIC 结构的 tmHeight 栏位近 
似为该值（有时有微小的偏差，可能由於舍入误差所引起）。如果 lfHeight 是 
负值，则它粗略地与不包括 tmlnternalLeading 栏位的 TEXTMETRIC 结构的 
tmHeight 栏位相匹配。 

lfWidth 是逻辑单位的字元期望宽度。在多数情况下，可以将此值设定为0, 
让 Windows 仅根据高度选择字体。使用非零值对点阵字体并不会起太大作用， 
但对於 TrueType 字体，您能轻松地用它来获得比正常字元更宽或更窄的字体。 
这个栏位对应於 TEXTMETRIC 结构的 tmAveCharWidth 栏位。要正确使用 lfWidth 
栏位，首先把带有 lfWidth 栏位的 L 0 GF 0 NT 结构设定为0,建立逻辑字体，将它 
选入装置内容，然後呼叫 GetTextMetrics 。 得到 tmAveCharWidth 栏位，可按比 
例调节其值的大小，然後使用所调节的 lfWidth 的 tmAveCharWidth 值建立第二 
种字体。 

下两个栏位指定文字的「移位角度」和「方向」。理论上 ， IfEscapement 
使字串能够以一定的角度书写（但每个字元的基准线仍与水平轴平行），而 
lfOrientation 使单个字元倾斜。但是这两个栏位并不是那么有效，即使现在它 
们只有在下面的情况下才能很好地起作用：使用 TureType 字体、执行 Windows NT 
以及首先用 CM _ ADVANCED 旗标设定呼叫 SetGraphicsMode 。 通过选中 「AdvGrfx 
Mode 」 核取方块，您能够完成 PICKF 0 NT 中的最终需要。 

在验证 PICKF 0 NT 中的这些栏位时，要注意单位是十分之一度，逆时针方向 
旋转。它很容易输入一个值使范例字串消失！因此，请使用0到 -600 或3000到 
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3600之间的值。 

IfEscapement 这是从水平方向上逆时针测量的十分之几的角度。它指定 
在书写文字时字串的连续字元放置的方式。表 17-1 提供了几个 例子： 


表 17-1 


值 

字元的放置 

0 

从左向右（内定） 

900 

向上 

1800 

从右向左 

2700 

向下 


在 Windows 98中，这个值设定了 TrueType 文字的移位角度和方向。在 
Windows NT 中，这个值通常也是这样设定，除了用 GM+ADVANCED 参数呼叫 
SetGraphicsMode 时，它按文件中说明的那样工作。 

lfOrientation 这是从水平方向逆时针测量的十分之几的角度，它影响单 
个字元的外观。表 17-2 提供了几个 例子： 


表 17-2 


值 

字元外观 

0 

正常（内定） 

900 

向右倾斜 90 度 

1800 

颠倒 

2700 

向左倾斜 90 度 


这个栏位一般不起作用，除非在 Windows NT 下使用 TrueType 字体，并把 
图像模式设定为 GM _ ADVANCED , 在这种情况下它按文件中说明的那样工作。 

其余10个栏位 如下： 

lfWeight 这个栏位使您能够指定粗体。 WINGDI.H 表头档案定义了可用於 
这个栏位的一组值（参见表 17-3) 。 


表 17-3 


值 

识别字 

0 

FW—D0NTCARE 

100 

FW—THIN 

200 

FW—EXTRALIGHT 或 FW—ULTRALIGHT 

300 

FW—LIGHT 

400 

FW—NO 疆 AL 或 FW—RE ⑶ LAR 

500 

FW—MEDIUM 
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600 

FW SEMIB0LD 或 FW DEMIB0LD 

700 

FW—BOLD 

800 

FW EXTRAB0LD 或 FW JJLTRAB0LD 

900 

FW_HEAVY 或 FW_BLACK 


事实上，它比以前用过的任何一组值都完善。您可以对标准字使用0或400, 
对粗体使用700。 

lfltalic 在非零值时，它指定斜体。 Windows 能在 GDI 点阵字体上合成斜 
体。亦即， Windows 仅仅移动若干行字元点阵图来模仿斜体。对於 TrueType 字 
体， Windows 使用真正的斜体或字体的倾斜版本。 

1 fUnderline 在非零值时，它指定底线，这项属性在 GDI 字体上都是用合 
成的。也就是说， Windows GDI 只是在包括空格的每个字元底线。 

lfStrikeOut 在非零值时，它指定字体上应该有一条线穿过。这也是由 GDI 
字体合成的。 

lfCharSet 这是指定字体字元集的一个位元组的值。我会在下一节「字元 
集和 Unicode 」 中更详细地讨论这个栏位。在 PICKF 0 NT 中，您可以按下带有问 
号的按钮来取得能够使用的字元集列表。 

注意 lfCharSet 栏位是唯一不用零表示预设值的栏位。零值相当於 
ANSI _ CHARSET，ANSI 字元在美国和西欧使用。 DEFAULT_CHARSET 代码等於1，表 
示程式执行的机器上内定的字元集。 

lfOutPrecision 它指定了 Windows 用实际的字体匹配期望的字体大小和 
特徵的方式。这是一个复杂的栏位， 一 般很少使用。请查看关於 L 0 GF 0 NT 结构 
的文件以得到更详细的资讯。注意，可以使用 0 UT _ TT _0 NLY_PRECIS 旗标来确保 
得到的是 TrueType 字体。 

lfClipPrecision 这个栏位指定了当字元的一部分位於剪裁区以外时，剪 
裁字元的方式。这个栏位不经常使用， PICKF 0 NT 程式也没有使用它。 

lfQuality 这是一个给 Windows 的指令，有关於期望字体与实际字体相匹 
配的指令。它实际只对点阵字体有意义，并不影响 TrueType 字体。 DRAFT_QUALITY 
旗标指出需要 GDI 缩放点阵字体以得到想要的 大小； PR 00 F_QUALITY 旗标指出不 
需缩放。 PI ^0 F_QUALITY 字体最漂亮，但它们可能比所希望的要小一些。这个栏 
位中也可以使用 DEFAULT_QUALITY (或 0) 。 

lfPitchAndFamily 这个位元组由两部分组成。您可以使用位元或运算符 
号结合用於此栏位的两个识别字。最低的两位元指定字体是定宽（即所有字元 
的宽度相等）还是变宽（参见表 17-4) 。 

表 17-4 
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值 

识别字 

0 

DEFAULT_PITCH 

1 

FIXED PITCH 

2 

VARIABLE_PITCH 


位元组的上半部分指定字体系列（参见表 17-5) 。 


表 17-5 


值 

识别字 

0x00 

FW—D0NTCARE 

0x10 

FF—ROMAN ( 变宽， serifs) 

0x20 

FF—SWISS ( 变宽，非 serifs) 

0x30 

FF M0DERN ( 定宽） 

0x40 

FF SCRIPT ( 模仿手写） 

0x50 

FF—DECORATIVE 


IfFaceName 这是关方令字样（如 Courier、Arial 或 Times New Roman ) 的 
实际文字名称。这个栏位是宽度为 LF_FACESIZE (或32个字元）的位元组阵列。 
如果要得到 TrueType 的斜体或粗体字体，有两种方法。在 IfFaceName 栏位中 
使用完整的字体名称（如 Times New Roman Italic ) ，或者可以使用基本名称 
(即 Times New Roman ) ，并设定 If Italic 栏位。 

字体映射演算法 

在设定了逻辑字体结构後，呼叫 CreateFontIndirect 来得到逻辑字体代号。 
当呼叫 SelectObject 把逻辑字体选入装置内容时， Windows 寻找与所需字体最 
接近匹配的实际字体。它使用「字体映射演算法」。结构的某些栏位要比其他 
栏位更重要一些。 

了解字体映射的最好方式是花一些时间试验 PICKF 0 NT 。 以下是几条 指南： 

• lfCharSet (字元集）栏位是非常重要的。如果您指定了 
0 EM _ CHARSET (255), 会得到某种笔划字体或终端机字体，因为它们是唯 
一使用 OEM 字元集的字体。然而，随著 TrueType「Big Fonts 」 的出现 

(在第六章 ( TrueType 和大字体〉 一 节讨论过），单一的 TrueType 字 
体能映射到包括 OEM 字元集等不同的字元集。您需要使用 
SYMBOL_CHARSET (2) 来得到 Symbol 字体或 Wingdings 字体。 

• lfPitchAndFamily 栏位的 FIXED _ PITCH 间距值很重要，因为您实际上告 
诉 Windows 不想处理变宽字体。 
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• IfFaceName 栏位很重要，因为您指定了所需字体的字样。如果让 
IfFaceName 设定为 NULL ， 并在 lfPitchAndFamily 栏位中将组值设定为 
FF _ DONTCARE 以外的值，因为指定了字体系列，所以该栏位也很重要。 

• 对於点阵字体， Windows 会试图配合 lfHeight 值，即使需要增加较小字 
体的大小。实际字体的高度总是小於或等於所需的字体，除非没有更小 
的字体满足您的要求。对於笔划或 TrueType 字体， Windows 仅简单地将 
字体缩放到需要的高度。 

• 可以通过将 lfQuality 设定为 PR 00 F _ QUALITY 来防止 Windows 缩放点阵 
字体。这么做可以告诉 Windows 所需的字体高度没有字体外观重要。 

• 如果指明了对於显示器的特定纵横比不协调的 lfHeight 和 lfWeight 
值， Windows 能映射到为显示器或其他不同纵横比的设备设计的点阵字 
体。这是得到细或粗字体的技巧（当然，对於 TrueType 字体是不必要 
的）。一般而言，您可能想避免为另一种设备挑配字体。您可以通过单 
击标有 「Match Aspect ] 的核取方块，在 PICKF 0 NT 中完成。如果选中 
了核取方块， PICKF 0 NT 会使用 TRUE 参数呼叫 SetMapperFlags 。 

取得字体资讯 

在 PICKF 0 NT 中非模态对话方块的右侧是字体选入装置内容後从 
GetTextMetrics 函式中获得的资讯（注意，可以使用 PICKF 0 NT 的 「 Device 」 功 

能表指出装置内容是萤幕还是内定印表机。因为在印表机上有效的字体可能不 
同，所以结果也可能不同）。在 PICKF 0 NT 中列表的底部是从 GetTextFace 得到 
的有效字体名称。 

除了数值化的纵横比以外， Windows 复制到 TEXTMETRIC 结构的所有大小值 
都以逻辑单位表示。 TEHMETRIC 结构的栏位 如下： 

tmHeight 逻辑单位的字元高度。它近似等於 L 0 GF 0 NT 结构中指定的 
lfHeight 栏位的值，如果该值为正，它就代表行距，而非点值。如果 L 0 GF 0 NT 
结构的 lfHeight 栏位为负，则 tmHeight 栏位减 tmlnternalLeading 栏位应近 
似等於 lfHeight 栏位的绝对值。 

tmAscent 逻辑单位的基准线以上的字元垂直大小。 
tmDescent 逻辑单位的基准线以下的字元垂直大小。 
tmlnternalLeading 包含在 tmHeight 值内的垂直大小，通常被一些大写 
字母上注音符号占据。同样，可以用 tmHeight 值减 tmlnternalLeading 值来计 
算字体的点值。 

tmExternalLeading tmHeight 以外的行距附加量，字体的设计者推荐用 
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於隔开文字的连续行。 

tmAveCharWidth 字体中小写字母的平均宽度。 

tmMaxCharWidth 逻辑单位的字元最大宽度。对於定宽字体，这个值与 
tmAveCharWidth 相同。 

tmWeight 字体重量，范围从0到999。实际上，这个栏位为400时是标准 
字体，700时是粗体。 

tmOverhang Windows 在合成斜体或粗体时添加到点阵字体字元的额外宽 
度量（逻辑单位）。当点阵字体斜体化时， tmAveCharWidth 值保持不变，因为 
斜体化的字串与相同的正常字串的总宽度相等。要为字体加粗， Windows 必须稍 
微增加每个字元的宽度。对於粗体， tmAveCharWidth 值小於 tmOverhang 值，等 
於没有加粗的相同字体的 tmAveCharWidth 值。 

tmDigitizedAspectX 和 tmDigitizedAspectY 字体合适的纵横比。它们与 
使用 L 0 GPIXELSX 和 L 0 GPIXELSY 识别字从 GetDeviceCaps 得到的值相同。 
tmFirstChar 字体中第一个字元的字元代码。 

tmLastChar 字体中最後一个字元的字元代码。如果 TEHMETRIC 结构通过 
呼叫 GetTextMetricsW (函式的宽字元版本）获得，那么这个值可能大於255。 
tmDefaultChar Windows 用於显示不在字体中的字元的字元代码，通常是 

矩形。 

tmBreakChar 在调整文字时， Windows 和您的程式用於确定单字断开的字 
元。如果您不用一些奇怪的东西（例如 EB ⑶ 1 C 字体），它就是32——空白字元。 
tmltalic 对於斜体字为非零值。 
tmUnderlined 对於底线字体为非零值。 
tmStruckOut 对於删除线字体为非零值。 

tmPitchAndFamily 低四位元是表示字体某些特徵的旗标，由在 WINGDI . H 
中定义的识别字指出（参见表 17-6) 。 


表 17-6 


值 

识别字 

0x01 

TMPF FIXED PITCH 

0x02 

TMPF—VECTOR 

0x04 

TMPF TRUETYPE 

0x08 

TMPF—DEVICE 


不管 TMPF _ FIXED _ PHCH 旗标的名称是什么，如果字体字元是变宽的，则最 
低位元为1。第二最低位元 （ TMPF _ VECT 0 R ) 对於 TrueType 字体和使用其他可缩 
放的轮廓技术的字体（如 PostScript 的字体）为1。 TMPF _ DEVICE 旗标表示设 
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备字体（即印表机内置的字体)，而不是依据 GDI 的字体。 

这个栏位的第四高的位元表示字体系列，并且与 L 0 GF 0 NT 的 
lfPitchAndFami 1 y 栏位中所用的值相同。 

tmCharSet 字元集识别字。 

字元集和 Unicode 

我在第六章讨论了 Windows 字元集的概念，在那里我们必须处理涉及键盘 
的国际化问题。在 L 0 GF 0 NT 和 TEHMETRIC 结构中，所需字体（或实际字体）的 
字元集由0至255之间的单个位元组的数值表示。定义在 WINGDI . H 中的字元集 
识别字如下 所示： 


♦define 

ANSI_CHARSET 

0 


#define 

DEFAULT_CHARSET 

1 


#define 

SYMBOL_CHARSET 

2 


♦define 

MAC_CHARSET 

77 


♦define 

SHIFTJIS—CHARSET 

128 


#define 

HANGEUL_CHARSET 

129 


#define 

HANGUL_CHARSET 

129 


♦define 

JOHAB_CHARSET 

130 


♦define 

GB2312_CHARSET 

134 


#define 

CHINESEBIG5_CHARSET 


136 

#define 

GREEK_CHARSET 

161 


♦define 

TURKISH—CHARSET 

162 


♦define 

VIETNAMESE_CHARSET 


163 

#define 

HEBREW—CHARSET 

111 


#define 

ARABIC_CHARSET 

178 


♦define 

BALTIC_CHARSET 

186 


♦define 

RUSS 工 AN—CHARSET 

204 


#define 

THAI_CHARSET 

222 


#define 

EASTEUROPE_CHARSET 


238 

♦define 

OEM CHARSET 

255 



字元集与页码表的概念类似，但是字元集特定於 Windows ， 且通常小於或等 
於255。 


与本书的所有程式一样，您可以带有定义的 UNICODE 识别字编译 PICKF 0 NT ， 
也可以不带 UNICODE 识别字编译它。和往常一样，本书内附光碟上的程式的两 
个版本分别位於 DEBUG 和 RELEASE 目录中。 

注意，在程式的 Unicode 版本中 PICKF 0 NT 在其视窗底部显示的字串要更长 
一些。在两个版本中，字串的字元代码由 0 x 40 到0 x 45、 0 x 60 到0 x 65。不管您 
选择了哪种字元集（除了 SYMB 0 L _ CHARSET ) ，这些字元代码都显示拉丁字母表 
的前五个大写和小写字母（即 A 到 E 和 a 到 e ) 。 

当执行 PICKF 0 NT 程式的非 Unicode 版本时，接下来的12个字元——字元 
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代码 Ox ⑶到 0 xC 5 以及 OxEO 到 0 xE 5 ——将依赖於所选择的字元集。对於 
ANSI _ CHARSET ， 这个字元代码对应於大写和小写字母 A 的加重音版本。对於 
GREEK _ CHARSET ， 这些代码对应於希腊字母表的字母。对於 RUSSIAN _ CHARSET ， 

对应於斯拉夫字母表的字母。注意，当您选择一种字元集时，字体可能会改变， 
这是因为点阵字体可能没有这些字元，但 TrueType 字体可能有。您可能回忆起 
大多数 TrueType 字体是 「Big fonts 」 并且包含几种不同字元集的字母。如果 
您执行 Windows 的远东版本，这些字元会被解释为双位元组字元，并且会按方 
块字显示，而不是按字母显示。 

在 Windows NT 下执行 PICKF 0 NT 的 Unicode 版本时，代码 OxCO 到 0 xC 5 以 
及 OxEO 到 0 xE 5 通常是大写和小写字母 A 的加重音版本（除了 SYMBOL _ CHARSET ) ， 
因为 Unicode 中定义了这些代码。程式也显示 0 x 0390 到 0 x 0395 以及 0 x 03 B 0 到 
0 x 03 B 5 的字元代码。由於它们在 Unicode 中有定义，这些代码总是对应於希腊 
字母表的字母。同样地，程式显示 0 x 0410 到 0 x 0415 以及 0 x 0430 到 0 x 0435 的 

字元代码，它们对应於斯拉夫字母表的字母。然而，这些字元不可能存在於内 
定字体中，您必须选择 GREEK _ CHARSET 或 RUSSIAN _ CHARSET 来得到它们。在这 

种情况下， L 0 GF 0 NT 结构中的字元集 ID 不更改实际的字 元集； 字元集总是 
Unicode 。 而字元集 ID 指出来自所需字元集的字元。 

现在选择 HEBREW_CHARSET (代码 177) 。希伯来字母表不包括在 Windows 
通常的 Big Fonts 中，因此作业系统选择 Lucida Sans Unicode ， 这一点您可以 
在非模态对话方块的右下角中验证。 

PICKF 0 NT 也显示 0 x 5000 到 0 x 5004 的字元代码，它们对应於汉语、日语和 
朝鲜语象形文字的一部分。如果您执行 Windows 的远东版本，或者下载了比 
Lucida Sans Unicode 范围更广的免费 Unicode 字体，就可以看到这些 。 Bitstream 
CyberBit 字体就是这样的一种字体，您可以 
从 http :// www . bitstream , com / products / world/cyberbits 中找到 。 (Lucida 
Sans Unicode 大约有 300 K ， 而 Bitstream CyberBit 大约有 13 M ) 。如果您安装 
了这种字体，当需要一种 Lucida Sans Unicode 不支援的字体时， Windows 会选 
择它，这些字体如: SHIFTJIS_CHARSET (日语）、 HANGUL—CHARSET (朝鲜语）、 
J 0 HAB_CHARSET (朝鲜语）、 GB 2312 _CHARSET (简体中文）或 CHINESEBIG 5 _CHARSET 

(繁体中文）。 

本章的後面有一个程式可让您查看 Unicode 字体的所有字母。 

EZF 0 NT 系统 

TrueType 字体系统（以传统的排版为基础）为 Windows 以不同的方式显示 
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文字提供了牢固的基础。但是一些 Windows 的字体选择函式依据较旧技术，使 
得画面上的点阵字体必须趋近印表机设备字体的样子。下一节将讲到列举字体 
的做法，它能够使程式获得显示器或印表机上全部有效字体的列表。不过， 
rChooseFontJ 对话方块（稍後讨论）确实大幅度消除了程式列举字体的必要 
性。 

因为标准 TrueType 字体可以在任何系统上使用，且这些字体可以用於显示 
器以及印表机，如此一来，程式在选择 TrueType 字体或在缺乏资讯的情况下取 
得某种相似的字体时，就没有必要列举字体了。程式只需简单并明确地选择系 
统中存在的 TrueType 字体（当然，除非使用者故意删除它们）。这种方法与指 
定字体名称（可能是第十七章中 〈 TrueType 字体〉一节中列出的13种字体中的 
一种）和字体大小一样简单。我把这种方法称做 EZF 0 NT ( 「简便字体」），程 
式 17-2 列出了它的两个档案。 


程式 17-2 EZF0NT 


EZFONT.H 





/* - 





EZFONT.H header file 



V 





HFONT EzCreateFont ( 

HDC hdc, TCHAR * 

szFaceName , 

int iDeciPtHeight, 


int 

iDeciPtWidth, int 

iAttributes, 

BOOL fLogRes); 

♦define 

EZ 

ATTR BOLD 


1 

♦define 

EZ 

ATTR ITALIC 


2 

#define 

EZ 

ATTR UNDERLINE 


4 

#define 

EZ 

ATTR—STRIKEOUT 


8 

EZFONT.C 





卜 





EZFONT.C -- 

Easy Font Creation 






(c) Charles 

Petzold, 1998 

V 





♦include 〈windows 

♦include <math.h> 

.h> 




♦include "ezfont. 

h" 




HFONT EzCreateFont ( 

HDC hdc, TCHAR * 

szFaceName , 

int iDeciPtHeight, 

/ 

int 

iDeciPtWidth, int 

iAttributes, 

BOOL fLogRes) 

I 

FLOAT 


cxDpi, cyDpi ; 
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HFONT 

hFont 

LOGFONT 

If ； 

POINT 

pt ; 

TEXTMETRIC 

tm ; 


SaveDC (hdc) ; 


SetGraphicsMode (hdc, 
ModifyWorldTransform 
SetViewportOrgEx 
SetWindowOrgEx 


GM ADVANCED) 

• 

r 


(hdc. 

NULL, 

MWT IDENTITY); 

(hdc. 

o, o. 

NULL); 


(hdc, 

◦, 0, NULL); 


if (fLogRes) 

{ 

cxDpi = (FLOAT) GetDeviceCaps (hdc, LOGPIXELSX); 
cyDpi = (FLOAT) GetDeviceCaps (hdc, LOGPIXELSY); 

} 

else 




cxDpi = 
cyDpi = 


(FLOAT) (25.4 * 
GetDeviceCaps 
(FLOAT) (25.4 * 
GetDeviceCaps 


GetDeviceCaps (hdc, 
(hdc, HORZSIZE)); 
GetDeviceCaps (hdc, 
(hdc, VERTSIZE)); 


HORZRES) 

VERTRES) 


/ 



pt. x = (int) (iDeciPtWidth * cxDpi / 72); 
pt • y = (int) (iDeciPtHeight * cyDpi / 72); 


DPtoLP (hdc, &pt, 1); 

If.lfHeight = - (int) (fabs (pt.y) / 10.0 + 0.5); 

If.lfWidth = 0 ; 

If.IfEscapement = 0 ; 

If.IfOrientation = 0 ; 


If.lfWeight = 
If.IfItalic = 
If.lfUnderline 
If.IfStrikeOut 
If.IfCharSet 


iAttributes 

& 

EZ 

ATTR 

BOLD 

? 700 

iAttributes 

■ -T. . 1 _ 1 

& 

EZ 

ATTR 

ITALIC 

? 1 

i i v i i ^ i i 


=iAttributes & EZ_ATTR_UNDERLINE ?1 
=iAttributes & EZ—ATTR—STRIKEOUT ?1 

=DEFAULT CHARSET ; 


If.IfOutPrecision 







If.IfClipPrecision 
If.lfQuality 
If.IfPitchAndFamily 


lstrcpy (If•IfFaceName, szFaceName); 
hFont = CreateFontlndirect (&lf); 


if (iDeciPtWidth != 0) 

{ 
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hFont = (HFONT) SelectObj ect (hdc, hFont); 

GetTextMetries (hdc, &tm); 

DeleteObj ect (SelectObj ect (hdc, hFont)); 

If.lfWidth = (int) (tm.tmAveCharWidth * 
fabs (pt.x) / fabs (pt.y) + 0.5); 

hFont = CreateFontlndirect (&lf); 

} 

RestoreDC (hdc, -1); 
return hFont ; 

} 

EZFONT . C 只有一个函式，称为 EzCreateFont ， 如下 所示： 

hFont = EzCreateFont ( hdc, szFaceName, iDeciPtHeight, iDeciPtWidth, 

iAttributes, fLogRes); 

函式传回字体代号。可通过呼叫 SelectObject 将该字体选入装置内容，然 
後呼叫 GetTextMetrics 或 GetOutlineTextMetrics 以确定字体尺寸在逻辑座标 
中的实际大小。在程式终止前，应该呼叫 DeleteObject 删除任何建立的字体。 

szFaceName 参数可以是任何 TrueType 字体名称。您选择的字体越接近标准 
字体，则该字体在系统中存在的机率就越大。 

第三个参数指出所需的点值，但是它的单位是十分之一点。因而，如果所 
需要的点值为十二又二分之一，则值应为125。 

第四个参数通常应设定为零或与第三个参数相同。然而，通过将此栏位设 
定为不同值可以建立更宽或更窄的 TrueType 字体。它以点为单位描述了字体的 
宽度，有时称之为字体的「全宽 （ em - width ) 」 。 不要将它与字体字元的平均 
宽度或其他类似的东西相混淆。在过去的排版技术中，大写字母 M 的宽度与高 
度是相等的。於是，「完全正方形 （ em - square ) 」的概念产生了，这是全宽测 
量的起源。当字体的全宽等於字体的全高（字体的点值）时，字元宽度是字体 
设计者设定的宽度。宽或窄的全宽值可以产生更细或更宽的字元。 

您可以将 iAttributes 参数设定为以下定义在 EZFONT . H 中 的值： 

EZ_ATTR_BOLD 
EZ—ATTR—ITALIC 
EZ—ATTR—UNDE RL 工 NE 
EZ_ATTR_STRIKEOUT 

可以使用 EZ _ ATTR _ B 0 LD 或 EZ _ ATTR _ ITALIC 或者将样式作为完整 TrueType 
字体名称的一部分。 

最後，我们将参数 fLogRes 设定为逻辑值 TRUE ， 以表示字体点值与设备的 
「逻辑解析度」相吻合，其中「逻辑解析度」是 GetDeviceCaps 函式使用 
L 0 GPIXELSX 和 L 0 GPIXELSY 参数的传回值。另外，依据解析度的字体大小是从 
HORZRES 、 HORZSIZE、VERTRES 和 VERTSIZE 计算出来的。这仅对於 Windows NT 
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下的视讯显示器才有所不同。 

EzCreateFont 函式开始只进行一些用於 Windows NT 的调整。即呼叫 
SetGraphicsMode 和 ModifyWorldTransform 函式，它们在 Windows 98下不起作 
用。因为 Windows NT 的全球转换应该有修改字体可视大小的作用，因此在计算 
字体大小之前，全球转换设定为预设值 无转换。 

EzCreateFont 基本上设定 L 0 GF 0 NT 结构的栏位并呼叫 
CreateFontIndirect , CreateFontlndirect 传回字体的代号 。 EzCreateFont 函 
式的主要任务是将字体的点值转换为 L 0 GF 0 NT 结构的 lfHeight 栏位所要求的逻 
辑单位。其实是首先将点值转换为装置单位（图素），然後再转换为逻辑单位。 
为完成第一步，函式使用 GetDeviceCaps 。 从图素到逻辑单位的转换似乎只需简 
单地呼叫 DPtoLP ( 「从装置点到逻辑点」）函式。但是为了使 DPtoLP 转换正常 
工作，在以後使用建立的字体显示文字时，相同的映射方式必须有效。这就意 
味著应该在呼叫 EzCreateFont 函式前设定映射方式。在大多数情况下，只使用 
一种映射方式在视窗的特定区域绘制，因此这种要求不是什么问题。 

程式 17-3 所示的 EZTEST 程式不很严格地考验了 EZF 0 NT 档案。此程式使用 
上面的 EZTEST 档案，还包括了本书後面程式要使用的 F 0 NTDEM 0 档案。 


程式 17-3 EZTEST 


EZTEST.C 







EZTEST.C -- 

Test 

of EZFONT 




/ 





(c) Charles Petzold, 1998 


♦include 〈windows 

. h> 





♦include "ezfont. 

h" 





TCHAR 

szAppName 

[]= 

TEXT ("EZTest"); 



TCHAR 

szTitle 

[]= 

TEXT ("EZTest: Test 

of EZFONT"); 


void 

f 

PaintRoutine 

(HWND hwnd, HDC hdc, int 

cxArea, int cyArea) 


X 

HFONT 



hFont ; 




int 



y, iPointSize ; 



LOGFONT 


If 

參 

f 




TCHAR 



szBuffer 

[100]; 



TEXTMETRIC 


tm ; 






// Set Logical 

Twips mapping mode 



SetMapMode 

(hdc. 

MM ANISOTROPIC); 
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SetWindowExtEx (hdc, 1440, 1440, NULL) ; 

SetViewportExtEx (hdc. GetDeviceCaps (hdc, LOGPIXELSX), 

GetDeviceCaps (hdc, LOGPIXELSY), NULL); 

// Try some fonts 


y = 0 ; 

for (iPointSize = 80 ; iPointSize <= 12 0 ; iPointSize++) 

{ 

hFont = EzCreateFont ( hdc , TEXT ("Times New Roman "), 

iPointSize, ◦, ◦, TRUE); 

GetObject (hFont, sizeof (LOGFONT) , Self) ; 

SelectObj ect (hdc, hFont); 

GetTextMetrics (hdc, &tm); 

TextOut (hdc, ◦, y, szBuffer, 

wsprintf ( szBuffer, 

TEXT ("Times New Roman font of %i.%i points,") 

TEXT ("If.lfHeight = %i, tm.tmHeight = %i n ), 
iPointSize / 10, iPointSize % 10, 

If.lfHeight A tm.tmHeight)); 


DeleteObj ect (SelectObj ect (hdc, GetStockObj ect 

(SYSTEM—FONT))); 

y += tm.tmHeight ; 


FONTDEMO.C 



FONTDEMO.C -- Font Demonstration Shell Program 

(c) Charles Petzold, 1998 



♦include 〈 windows.h> 

♦include "..\\EZTest\\EzFont.h" 
♦include "..\\EZTest\\resource.h" 


extern void 

LRESULT CALLBACK 


PaintRoutine (HWND, HDC, int, int); 
WndProc (HWND, UINT, WPARAM, LPARAM); 


HINSTANCE hlnst ; 


extern TCHAR szAppName []; 
extern TCHAR szTitle []; 
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int WINAPI WinMain ( HINSTANCE hlnstance, HINSTANCE hPrevInstance, 


PSTR szCmdLine, int 

iCmdShow) 


I 

TCHAR 

szResource [] = TEXT ( n FontDemo"); 

HWND 

hwnd ; 

MSG 

msg ; 

WNDCLASS wndclass ; 

hlnst = hlnstance ; 


wndclass.style 

=CS HREDRAW | CS VREDRAW ; 

wndclass.lpfnWndProc 

=WndProc ; 

wndclass.cbClsExtra 

=◦; 

wndclass.cbWndExtra 

=◦; 

wndclass.hlnstance 

=hlnstance ; 

wndclass•hicon 

=Loadlcon (NULL, IDI APPLICATION); 

wndclass.hCursor 

=LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 

wndclass.IpszMenuName 

=szResource ; 

wndclass.IpszClassName 

=s zAppName ; 

if (!RegisterClass (&wndclass)) 

/ 

MessageBox ( NULL, 

TEXT (" This program requires Windows NT !’，）， 


szAppName, MB ICONERROR); 

return 0 ; 

} 


hwnd = CreateWindow ( szAppName, szTitle, 

WS OVERLAPPEDWINDOW, 

CW USEDEFAULT, 

CW USEDEFAULT, 

CW USEDEFAULT, 

CW USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow) 

• 

f 

UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, ◦, 0)) 

； 

i 

TranslateMessage 

(&msg); 

DispatchMessage 

I 

(&msg); 

j 

return msg.wParam ; 

} 


LRESULT CALLBACK WndProc ( HWND 

hwnd, UINT message, WPARAM wParam,LPARAM 

IParam) 

{ 
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static 

DOCINFO 

di 

={ sizeof (DOCINFO), TEXT 

("Font Demo : 

Printing") } 

參 

f 






static 

int 


cxClient 

,cyClient ; 


static 

PRINTDLG 

pd = 

{ sizeof 

(PRINTDLG) }; 


BOOL 





fSuccess ; 


HDC 





hdc, hdcPrn ; 


int 





cxPage, cyPage ; 


PAINTSTRUCT 


ps ; 




switch 

/ 

(message) 






l 

case WM COMMAND : 







/ 

switch 

(wParam) 





l 

case 工 DM PRINT: 









// Get printer DC 





pd. 

,hwndOwner = hwnd 

參 

f 





pd. 

,Flags = PC 

)RETURNDC | 

PD NOPAGENUMS | PD NOSELECTION 

參 

f 








if 

(! PrintDlg (&pd)) 







return 0 ; 






if 

； 

(NULL == (hdcPrn = pd.hDC)) 


MessageBox( hwnd, TEXT 

l 

( 11 Cannot obtain Printer 

DC ”）， 



szAppName, MB 

ICONEXCLAMATION | MB OK); 





1 

return 0 ; 





! 

// Get size of printable area 

of page 




cxPage = 

GetDeviceCaps (hdcPrn, HORZRES); 




cyPage = 

GetDeviceCaps (hdcPrn, VERTRES); 




fSuccess 

=FALSE ; 





"Do 

the printer page 





SetCursor (LoadCursor (NULL, 

IDC WAIT)); 




ShowCursor (TRUE); 



if ( (StartDoc 

(hdcPrn, 

f 

&di) > 0) && (StartPage 

(hdcPrn) > 0)) 



l 

PaintRoutine (hwnd. 

hdcPrn, cxPage, cyPage); 





if 

(EndPage (hdcPrn) > 

0) 
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} 

} 

DeleteDC (hdcPrn) 


fSuccess = TRUE ; 
EndDoc (hdcPrn); 


ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC ARROW)); 


if ( !fSuccess) 

MessageBox (hwnd, 

TEXT ("Error encountered during printing ’’）， 
szAppName, MB_ICONEXCLAMATION | MB_OK); 

return 0 ; 


case IDM—ABOUT: 

MessageBox ( hwnd, TEXT 

Demonstration Program\n M ) 

TEXT (" (c) Charles Petzold, 1998 ’’）， 
szAppName, MB_ICONINFORMATION | MB_OK); 

return 0 ; 

} 

break ; 


case WM SIZE: 


cxClient 
cyClient 
return 0 


LOWORD 

HIWORD 


(IParam) 
(IParam) 


case WM_PAINT : 

hdc = BeginPaint (hwnd, &ps); 


("Font 


PaintRoutine (hwnd, hdc , cxClient, cyClient); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message , wParam, IParam); 

} 

FONTDEMO.RC 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h n 
♦include "afxres.h" 
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//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

FONTDEMO MENU DISCARDABLE 
BEGIN 

POPUP "&File n 
BEGIN 

MENUITEM "&Print... 

工 DM_PRINT 
END 

POPUP M &Help" 

BEGIN 

MENUITEM " & About ， 

工 DM—ABOUT 
END 

END 

RESOURCE.H 

// Microsoft Developer Studio generated include file. 

// Used by FontDemo.rc 

♦define 工 DM—PRINT 40001 

♦define 工 DM—ABOUT 40002 

EZTEST . C 中的 PaintRoutine 函式将映射方式设定为 Logical Twips , 然後 
建立字体范围从 8 点到12点（间隔为 0. 1点）的 Times New Roman 字体。第一 
次执行此程式时，它的输出可能会使您困惑。许多行文字使用大小明显相同的 
字体，并且 TEXTMETRIC 函式也报告这些字体具有相同的高度。这一切都是点阵 
处理的结果。显示器上的图素是不连续的，它不能显示每一个可能的字体大小。 
但是， FONTDEMO 外壳程式使列印输出的字体是不同的。这里您会发现字体大小 
区分得更加精确。 

字体的旋转 

您在 PICKF 0 NT 中可能已经实验过了， L 0 GF 0 NT 结构的 lfOrientation 和 
IfEscapement 栏位可以旋转 TrueType 文字。如果仔细考虑一下，这对 GDI 不会 
造成多大困难，因为围绕原点旋转座标点的公式是公开的。 

虽然 EzCreateFont 不能指定字体的旋转角度，但是如 F 0 NTR 0 T ( 「字体旋 
转」）程式展示的那样，在呼叫函式後，进行调整是非常容易的。程式 17-4 显 
示了 F 0 NTR 0 T . C 档案，该程式也需要上面显示的 EZF 0 NT 档案和 FONTDEMO 档案。 
程式 17-4 F0NTR0T 

F0NTR0T.C 

/ -k - 
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FONTROT.C -- Rotated Fonts 

(c) Charles Petzold, 1998 

-*/ 

♦include <windows.h> 

#include "..\\eztest\\ezfont.h" 

TCHAR szAppName [] = TEXT ("FontRot"); 

TCHAR szTitle [] = TEXT ("FontRot: Rotated Fonts"); 

void PaintRoutine (HWND hwnd A HDC hdc, int cxArea, int cyArea) 

{ 

static TCHAR szString [ ] = TEXT (▼' Rotation"); 

HFONT hFont ; 

int i ; 

LOGFONT If ; 

hFont = EzCreateFont (hdc, TEXT ("Times New Roman’’），54 0, ◦, ◦, TRUE); 
GetObject (hFont, sizeof (LOGFONT), &lf); 

DeleteObj ect (hFont); 

SetBkMode (hdc, TRANSPARENT); 

SetTextAlign (hdc, TA—BASELINE); 

SetViewportOrgEx (hdc, cxArea / 2, cyArea / 2, NULL); 

for (i = 0 ; i < 12 ; i ++) 

{ 

If.IfEscapement = If.IfOrientation = i * 300 ; 
SelectObj ect (hdc, CreateFontlndirect (&lf)); 

TextOut (hdc, ◦, 0, szString, lstrlen (szString)); 
DeleteObj ect (SelectObj ect (hdc, GetStockObj ect 

(SYSTEM—FONT))); 

} 

} 

FONTROT 呼叫 EzCreateFont 只是为了获得与 54 点 Times New Roman 字体相 
关的 LOGFONT 结构。然後，程式删除该字体。在 for 回圈中，对於每隔30度的 
角度，建立新字体并显不文字。结果如图 17-2 所不。 
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图 17-2 F0NTR0T 的萤幕显示 


如果您对图形旋转和其他线性转换的更专业方法感兴趣，并且知道您的程 
式在 Windows NT 下执行将受到限制，您可以使用 XF 0 RM 矩阵和座标转换函式数。 

字体列举 

字体列举是从 GDI 中取得设备的全部有效字体列表的程序。程式可以选择 
其中一种字体，或将它们显示在对话方块中供使用者选择。我先简单地介绍一 
下列举函式，然後显示使用 ChooseFont 函式的方法， ChooseFont 降低了应用程 
式中进行字体列举的必要性。 

列举•函式 

在 Windows 的早期，字体列举需要使用 EnumFonts 函式： 

EnumFonts (hdc, szTypeFace, EnumProc, pData); 

程式可以列举所有的字体（将第二个参数设定为 NULL ) 或只列出特定的字 
样。第三个参数是列举 callback 函式； 第四个参数是传递给该函式的可选资料。 
GDI 为系统中的每种字体呼叫 callback 函式，将定义字体的 L 0 GF 0 NT 和 
TEXTMETRIC 结构以及一些表示字体型态的旗标传递给它。 
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EnumFontFamilies 函式是 Windows 3. 1 下列举 TrueType 字体的函式： 

EnumFontFamilies (hdc, szFaceName, EnumProc, pData); 

通常第一次呼叫 EnumFontFamilies 时，第二个参数设定为 NULL 。 为每个字 
体系列（例如 Times New Roman ) 呼叫一'次 EnumProccallback 函式。然後，应 
用程式使用该字体名称和不同的 callback 函式再次呼叫 EnumFontFami lies。GDI 
为字体系列中的每种字体（例如 Times New Roman Italic ) 呼叫第二个 callback 
函式。对於非 TrueType 字体，向 callback 函式传递 ENUML 0 GF 0 NT 结构（它是 
由 L 0 GF 0 NT 结构加上「全名」栏位和「型态」栏位构成，「型态」栏位如文字 
名称 「 Italic 」 或 「 Bold 」） 和 TEXTMETRIC 结构，对於 TrueType 字体传递 
NEWTEXTMETRIC 结构。 NEWTEXTMETRIC 结构相对於 TEXTMETRIC 结构中的资讯添 
加了四个栏位。 

EnumFontFami 1 iesEx 函式被推荐在 Windows 的32位元的版本下使用： 

EnumFontFamiliesEx (hdc , &logfont, EnumProc , pData, dwFlags); 

第二个参数是指向 LOGFONT 结构的指标，其中 lfCharSet 和 IfFaceName 栏 
位指出了所要列举的字体资讯。 Callback 函式在 ENUML 0 GF 0 NTEX 和 
NEWTEHMETRICEX 结构中得到每种字体的资讯。 

「 ChooseFont J 对话方块 

在第十一章稍微介绍了 ChooseFont 的通用对话方块。现在，我们讨论字体 
列举，需要详细了解一下 ChooseFont 函式的内部工作原理。 ChooseFont 函式得 
到指向 CHOOSEFONT 结构的指标以此作为它的唯一参数，并显示列出所有字体的 
对话方块。利用从 ChooseFont 中的传回值， LOGFONT 结构 （ CHOOSEFONT 结构的 
一 部分）能够建立逻辑字体。 

程式 17-5 所示的 CH 0 SF 0 NT 程式展示了使用 ChooseFont 函式的方法，并显 
示了函式定义的 LOGFONT 结构的栏位。程式也显示了在 PICKF 0 NT 中显示的相同 
字串。 


程式 17-5 CH0SF0NT 


CHOSFONT.C 



/* - 



CHOSFONT.C -- 

ChooseFont Demo 




(c) Charles Petzold, 1998 


♦include <windows.h> 
♦include "resource.h" 
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LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, 

LPARAM); 

int 

WINAPI WinMain (HINSTANCE hlnstance. 

HINSTANCE hPrevInstance, 





PSTR szCmdLine, int 

iCmdShow) 

/ 




l 

static TCHAR szAppName[] 

=TEXT ("ChosFont"); 


HWND 


hwnd ; 

• 

• 


MSG 

msg ; 




WNDCLASS 

wndclass ; 



wndclass.style 


=CS HREDRAW | CS VREDRAW ; 


wndclass.lpfnWndProc 


=WndProc ; 


wndclass.cbClsExtra 


= 0 ; 



wndclass.cbWndExtra 


=◦; 



wndclass.hlnstance 


=hlnstance ; 


wndclass•hicon 


=Loadlcon (NULL, IDI APPLICATION); 


wndclass.hCursor 


=LoadCursor (NULL, 工 DC ARROW); 


wndclass.hbrBackground 

=(HBRUSH) i 

GetStockObject (WHITE—BRUSH); 


wndclass.IpszMenuName 

=szAppName 

• 

f 


wndclass.IpszClassName 

=szAppName 

參 

f 


if (!RegisterClass (&wndclass)) 

/ 




MessageBox ( NULL, 

TEXT i 

("This 

program requires Windows NT! n ), 





szAppName, MB ICONERROR); 


return 0 ; 

} 





hwnd = CreateWindow ( szAppName, 

TEXT ( 

"ChooseFont"), 


WS OVERLAPPEDWINDOW, 



CW USEDEFAULT, CW 

USEDEFAULT, 


CW USEDEFAULT, CW 

USEDEFAULT, 


NULL, NULL, 

hlnstance. 

NULL); 


ShowWindow (hwnd, iCmdShow) 

參 

f 




UpdateWindow (hwnd); 





while (GetMessage (&msg, NULL, 0, 

0)) 



TranslateMessage 

(&msg) 

• 

r 



DispatchMessage 

(&msg) 

參 

f 


} 

； 

return msg.wParam ; 




LRESULT CALLBACK WndProc ( HWND 

hwnd. 

UINT 

message, WPARAM wParam,LPARAM 

IParam) 

f 





static CHOOSEFONT 

cf ; 
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static int cyChar ; 


static LOGFONT if 

• 

f 

static TCHAR szText[] = TEXT ("\x41\x42\x43\x44\x45 ") 

TEXT ( n \x61\x62\x63\x64\x65 n ) 

TEXT ( n \xC0\xCl\xC2\xC3\xC4\xC5 ") 

TEXT ( n \xE0\xEl\xE2\xE3\xE4\xE5 ") 

#ifdef UNICODE 


TEXT ( n \x0390\x0391\x0392\x0393\x0394\x0395 n ) 

TEXT ( n \x0 3B0\x03Bl\x0 3B2\x03B3\x0 3B4\x03B5 ") 

TEXT ( n \x0410\x0411\x0412\x0413\x0414\x0415 ") 

TEXT ( n \x0430\x0431\x0432\x0433\x0434\x0435 ") 

TEXT ( n \x5000\x5001\x5002\x5003\x5004 n ) 

#endif 

參 


f 

HDC 

hdc ; 

int 

y ； 

PAINTSTRUCT 

ps ; 

TCHAR 

szBuffer [64]; 

TEXTMETRIC 

tm ; 

switch (message) 

； 


i 

case WM CREATE : 


// 

Get text height 

cyChar = HIWORD (GetDialogBaseUnits ()); 

// 

Initialize the LOGFONT structure 

GetObject (GetStockObj ect (SYSTEM FONT), sizeof (If), 

&lf )； 


// 

Initialize the CHOOSEFONT structure 

cf.IStructSize 

=sizeof (CHOOSEFONT); 

cf.hwndOwner 

=hwnd ; 

cf.hDC 

=NULL ; 

cf.lpLogFont 

=&lf ; 

cf.iPointSize 

=◦; 

cf.Flags 

=CF INITTOLOGFONTSTRUCT | 


CF SCREENFONTS | CF EFFECTS ; 

cf.rgbColors 

=◦; 

cf.lCustData 

=◦; 

cf.lpfnHook 

=NULL ; 

cf.lpTemplateName = NULL ; 

cf.hlnstance 

=NULL ; 

cf.IpszStyle 

=NULL ; 

cf.nFontType 

= 0 ; 

cf.nSizeMin 

=◦; 

cf.nSizeMax 

=◦; 

return 0 ; 


case WM COMMAND : 
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switch (LOWORD (wParam)) 

{ 

case 工 DM_FONT: 

if (ChooseFont (&cf)) 

InvalidateRect (hwnd, NULL, TRUE); 

return 0 ; 

} 

return 0 ; 

case WM_PAINT : 

hdc = BeginPaint (hwnd, &ps); 

// Display sample text using selected 

font 

SelectObj ect (hdc, CreateFontIndirect (&lf)); 
GetTextMetrics (hdc, &tm); 

SetTextColor (hdc, cf.rgbColors); 

TextOut (hdc, 0, y = tm•tmExternalLeading, szText, lstrlen (szText)); 


// Display LOGFONT structure fields using system font 


DeleteObject 

GetStockObject (SYSTEM—FONT))); 

SetTextColor 


(SelectObj ect 


(hdc, 0); 


(hdc, 


TextOut (hdc, 0, y += tm.tmHeight, szBuffer 
wsprintf (szBuffer, TEXT ( n IfHeight = %i n ). If.IfHeight)); 

TextOut (hdc, 0, y += cyChar, szBuffer, 
wsprint f (szBuffer, TEXT (’’lfWidth = %i n ). If. lfWidth)); 

TextOut (hdc, 0, y += cyChar, szBuffer, 
wsprint f ( szBuffer, TEXT (▼’If Escapement = %i n ). 

If.IfEscapement)); 

TextOut (hdc, ◦, y += cyChar, szBuffer, 
wsprintf ( szBuffer, TEXT ("IfOrientation = %i n ), 

If.lfOrientation)); 

TextOut (hdc, ◦, y += cyChar, szBuffer, 
wsprintf (szBuffer, TEXT ("IfWeight = %i M ),If.lfWeight)); 

TextOut (hdc, ◦, y += cyChar, szBuffer, 
wsprintf (szBuffer, TEXT ( "IfItalic = %i n ),If•IfItalic)); 


TextOut (hdc, ◦, y += cyChar, szBuffer, 
wsprintf (szBuffer, TEXT ("lfUnderline = %i"),If.IfUnderline)) 
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TextOut (hdc, 0 , y += cyChar, szBuffer, 
wsprintf (szBuffer, TEXT ("IfStrikeOut = %i") A If.IfStrikeOut)) 

TextOut (hdc, ◦, y += cyChar, szBuffer, 
wsprintf (szBuffer, TEXT ( "IfCharSet = %i") A If.IfCharSet)); 

TextOut (hdc, ◦, y += cyChar, szBuffer, 
wsprintf ( szBuffer, TEXT ( "IfOutPrecision = %i n ), 

If.lfOutPrecision)); 

TextOut (hdc, ◦, y += cyChar, szBuffer, 
wsprintf (szBuffer, TEXT ("lfClipPrecision = %i ”）， 

If.IfClipPrecision)); 

TextOut (hdc, ◦, y += cyChar, szBuffer, 
wsprint f ( szBuffer, TEXT ( " If Quality = %i ▼’），If • If Quality)); 


wsprintf 


TextOut (hdc, 0 , y += cyChar, szBuffer, 
(szBuffer, TEXT ("IfPitchAndFamily = 0x%02X ”）， 
If.IfPitchAndFamily)); 


TextOut (hdc, 0 , y += cyChar, szBuffer, 
wsprintf ( szBuffer, TEXT ("IfFaceName = %s"),If.IfFaceName)) 


EndPaint (hwnd, 

return 0 ; 

case WM DESTROY: 

&ps); 

PostQuitMessage 

return 0 ; 

(0); 

/ 

return DefWindowProc (hwnd, message, wParam, IParam) 

/ 

CHOSFONT.RC 

/ /Microsoft Developer Studio generated 

♦include "resource.h" 

♦include "afxres.h" 

resource script. 


1111111111111111111111111111111111111111111111111111111111111111111111111111 
/ 

// Menu 

CHOSFONT MENU DISCARDABLE 
BEGIN 

MENUITEM "&Font!", 

IDM—FONT 

END 

RESOURCE.H 

// Microsoft Developer Studio generated include file. 
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// Used by ChosFont.rc 
#define 工 DM—FONT 40001 

与一般的对话方块一样， CH00SEF0NT 结构的 Flags 栏位列出了许多选项。 
CHOSFONT 指定的 CF_INITL0GF0NTSTRUCT 旗标使 Windows 根据传递给 ChooseFont 

结构的 L 0 GF 0 NT 结构对对话方块的选择进行初始化。您可以使用旗标来指定只 
要列出 TrueType 字体 ( CF _ TT 0 NLY ) 或只要列出定宽字体 ( CF _ FIXEDPITCHONLY ) 
或无符号字体 （ CF _ SCRIPTSONLY ) 。也可以显示蛮幕字体 （ CF _ SCREENFONTS ) 、 
列印字体 ( CF _ PRINTERFONTS ) 或者两者都显示 （ CF _ B 0 TH ) 。在後两种情况下， 
CH ⑻ SEF 0 NT 结构的 hDC 栏位必须是印表机装置内容。 CHOSFONT 程式使用 
CF_SCREENFONTS 旗标。 

CF _ EFFECTS 旗标 （ CHOSFONT 程式使用的第三个旗标）强迫对话方块包括用 
於底线和删除线的核取方块并且允许选择文字的颜色。在程式码中变换文字颜 
色不难，您可以试一试。 

注意 「 Font 」 对话方块中由 ChooseFont 显示的 「 Script 」 栏位。它让使用 
者选择用於特殊字体的字元集，适当的字元集 ID 在 L 0 GF 0 NT 结构中传回。 

ChooseFont 函式使用逻辑英寸从点值中计算 lfHeight 栏位。例如，假定您 

从「显示属性」对话方块中安装了「小字体」。这意味著带有视讯显示装置内 
容的 GetDeviceCaps 和参数 L0GPIXELSY 传回 96 。 如果使用 ChooseFont 选择 72 
点的 Times Roman 字体，实际上是想要 1 英寸高的字体。当 ChooseFont 传回後， 
L0GF0NT 结构的 lfHeight 栏位等於 _96 (注意负号），这是指字体的点值等於 
96 图素，或者 1 逻辑英寸。 

以上大概是我们想要知道的。但请记住以下几点： 

• 如果在 Windows NT 下设定了度量映射方式，则逻辑座标与字体的实际 
大小不一致。例如，如果在依据度量映射方式的文字旁画一把尺，会发 
现它与字体不搭调。应该使用上面描述的 Logical Twips 映射方式来绘 
制图形，才能与字体大小一致。 

• 如果要使用任何非 MM _ TEXT 映射方式，请确保在把字体选入装置内容和 
显示文字时，没有设定映射方式。否则， GDI 会认为 L 0 GF 0 NT 结构的 
lfHeight 栏位是逻辑座标。 

• 由 ChooseFont 设定的 L0GF0NT 结构的 lfHeight 栏位总是图素值，并且 
它只适用於视讯显示器。当您为印表机装置内容建立字体时，必须调整 
lfHeight 值。 ChooseFont 函式使用 CHOOSEFONT 结构的 hDC 栏位只为获 
得列在对话方块中的印表机字体。此装置内容代号不影响 lfHeight 值。 

幸运的是， CHOOSEFONT 结构包括一个 iPointSize 栏位，它提供以十分之一 
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点为单位的所选字体的大小。无论是什么装置内容和映射方式，都能把这个栏 
位转化为逻辑大小并用於 lfHeight 栏位。在 EZFONT. C 中能找到合适的程式码， 

您可以根据需要简化它。 


另个使用 ChooseFont 的程式是 UNICHARS ， 这个程式让您查看种字体的 

所有字元，对於研究 Lucida Sans Unicode 字体 （ 内定的显示字体）或 Bitstream 
CyberBit 字体尤其有用。 UNICHARS 总是使用 TextOutW 函式来显示字体的字元， 
因此可以在 Windows NT 或 Windows 98 下执行它。 

程式 17-6 UNICHARS 


UNICHARS.C 

/* - 


UNICHARS.C -- Displays 

16-bit character codes 


(c) Charles Petzold, 1998 

-V 

♦include <windows.h> 

♦include "resource.h" 

LRESULT CALLBACK WndProc (HWND, 

UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 


PSTR szCmdLine, int 

iCmdShow) 


static TCHAR szAppName[] = TEXT ("UniChars M ); 

HWND 

hwnd ; 

MSG 

msg ; 

WNDCLASS 

wndclass ; 

wndclass.style 

=CS_HREDRAW | CS VREDRAW ; 

wndclass.lpfnWndProc 

=WndProc ; 

wndclass.cbClsExtra 

=◦; 

wndclass.cbWndExtra 

=◦; 

wndclass.hlnstance 

=hlnstance ; 

wndclass.hicon 

=Loadlcon (NULL, IDI APPLICATION); 

wndclass.hCursor 

=LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 

wndclass.IpszMenuName 

=szAppName ; 

wndclass.IpszClassName 

=szAppName ; 

if (!RegisterClass (&wndclass)) 

MessageBox ( 

NULL, TEXT ("This program requies Windows 

NT ! n ), 

szAppName, 
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MB 

ICONERROR); 




} 


return 0 ; 





hwnd = 

CreateWindow ( szAppName, 

TEXT ("Unicode Characters n ), 




WS OVERLAPPEDWINDOW 

| WS VSCROLL, 





CW USEDEFAULT, CW USEDEFAULT, 





CW USEDEFAULT, CW USEDEFAULT, 





NULL, NULL, hlnstance, NULL); 




ShowWindow (hwnd, iCmdShow); 





UpdateWindow (hwnd); 




f 

while 

(GetMessage (&msg, NULL, ◦, 

0)) 



i 


TranslateMessage (&msg) 

參 

f 



\ 


DispatchMessage (&msg) 

• 

f 


} 

J 

return 

msg.wParam ; 



LRESULT CALLBACK WndProc ( HWND hwnd. 

UINT message, WPARAM wParam,LPARAM 

IParam) 

f 






static 

CHOOSEFONT cf ; 





static 

int 

iPage ; 




static 

LOGFONT 

If ； 




HDC 


hdc ; 




int 


cxChar, cyChar, x, y, i. 

cxLabels ; 



PAINTSTRUCT 

ps ; 




SIZE 


size ; 




TCHAR 


szBuffer [8]; 




TEXTMETRIC 

tm ; 




WCHAR 


ch ; 




switch 

(message) 





l 

case WM CREATE : 






hdc = GetDC (hwnd); 





If.IfHeight = - GetDeviceCaps (hdc, LOGPIXELSY) / 6 ; // 

12 

points 







lstrcpy (If•IfFaceName, TEXT ("Lucida Sans 

Unicode")); 




ReleaseDC (hwnd. 

hdc); 





cf.IStructSize 

=sizeof (CHOOSEFONT); 





cf.hwndOwner 

=hwnd ; 





cf.lpLogFont 

=&lf ; 





cf.Flags = CF 

INITTOLOGFONTSTRUCT | CF 

SCREENFONTS ; 
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case 


case 


case 


SetScrollRange 
SetScrollPos 
return 0 ; 


(hwnd, SB—VERT, 0, 255, FALSE) 
(hwnd, SB VERT, iPage, TRUE ) 


WM COMMAND 


switch (LOWORD 

{ 

case IDM FONT : 


(wParam)) 


if ( ChooseFont (&cf)) 

工 nvalidateRect (hwnd, NULL, 
return 0 ; 


TRUE) 


WM VSCROLL 


return 0 ; 

switch (LOWORD (wParam)) 

{ 


case 

SB— 

LINEUP: 

iPage 

—— = 

1 

參 

f 

break ; 

case 

SB— 

LINEDOWN: iPage 

+= 

1 

• 

f 

break ; 

case 

SB— 

PAGEUP: 

iPage 

— = 

16 

• 

f 

break ; 

case 

SB— 

PAGEDOWN 

: iPage 

+= 

16 

• 

break ; 

SB THUMBPOSITION: 

iPage= HIWORD 

(wParam); break 


default : 

return 


iPage = max (0, min (iPage, 255)); 


SetScrollPos (hwnd, SB—VERT, iPage, 
工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 


TRUE) 


WM PAINT: 


hdc = BeginPaint (hwnd, &ps); 

SelectObj ect (hdc, CreateFontlndirect (&lf)); 

GetTextMetrics (hdc, &tm); 
cxChar = tm.tmMaxCharWidth ; 

cyChar = tm.tmHeight + tm.tmExternalLeading ; 

cxLabels = 0 ; 

for (i = 0 ; i < 16 ; i++) 

{ 

wsprint f (szBuffer, TEXT (’’ 000%1X : ’ ，）， i); 
GetTextExtentPoint (hdc, szBuffer, 7, &size) 


cxLabels = max (cxLabels, size.ex); 
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for (y = ◦ ; y < 16 ; y++) 

{ 

wsprintf (szBuffer, TEXT (’’ %0 3X_: ’’），16 * iPage + y); 

TextOut (hdc, ◦, y * cyChar, szBuffer, 7); 



for (x = ◦ ; x < 16 ; x++) 

{ 

ch = (WCHAR) (256 * iPage + 16 * y + x); 
TextOutW (hdc, x * cxChar + cxLabels, 

y * cyChar, &ch, 1); 


DeleteObj ect (SelectObject (hdc, GetStockObject (SYSTEM—FONT))); 

EndPaint (hwnd, &ps); 
return 0 ; 


case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

UNICHARS.RC 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

UNICHARS MENU DISCARDABLE 
BEGIN 

MENUITEM "&Font!", 

工 DM—FONT 

END 

RESOURCE.H 

// Microsoft Developer Studio generated include file. 

// Used by Unichars.rc 


♦define 工 DM FONT 40001 


段落格式 

具有选择并建立逻辑字体的能力後，就可以处理文字格式了。这个程序包 
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括以四种方式之一来把文字的每一行放在页边距内：左对齐、向右对齐、居中 
或分散对齐 一一 即从页边距的一端到另一端，文字间距相等。对於前三种方式， 
可以使用带有 DT _ WORDBREAK 参数的 DmwText 函式，但这种方法有局限性。例 
如，您无法确定 DrawText 会把文字的哪个部分恰好放在矩形内。 DrawText 对於 
一些简单任务是很方便的，但对更复杂的格式化任务，则可能要用到 TextOut 。 

简单文字格式 

对文字的最有用的一个函式是 GetTextExtentPoint 32 (这个函式的名称显 
示了 Windows 早期版本的一些变化）。该函式根据装置内容中选入的目前字体 
得出字串的宽度和高度： 

GetTextExtentPoint32 (hdc, pString, iCount, &size); 

逻辑单位的文字宽度和高度在 SIZE 结构的 cx 和 cy 栏位中传回。我使用一 
行文字的例子，假定您把一种字体选入装置内容，现在要写入文字： 

TCHAR * szText [ ] = TEXT (’’Hello, how are you?’’）; 

您希望文字从垂直座标 yStart 开始，页边距由座标 xLeft 和 xRight 设定。 
您的任务就是计算文字开始处的水平座标的 xStart 值。 

如果文字以定宽字体显示，那么这项任务就相当容易，但通常不是这样的。 
首先您得到字串的文字 宽度： 

GetTextExtentPoint32 (hdc, szText, lstrlen (szText), &size); 

如果 size , cx 比 （xRight - xLeft ) 大，这一行就太长了，不能放在页边 
距内。我们假定它能放进去。 

要向左对齐文字，只要把 xStart 设定为与 xLeft 相等，然後写入文字： 

TextOut (hdc, xStart, yStart, szText, lstrlen (szText)); 

这很容易。现在可以把 size , cy 加到 yStart 中写下一行文字了。 

要向右对齐文字，用以下公式计算 xStart ： 

xStart = xRight - size.cx ; 

居中文字用以下公式： 

xStart = (xLeft + xRight - size.cx) / 2 ; 

现在开始艰钜的任务 一一 在左右页边距内分散对齐文字。页边距之间的距 
罔是 （xRight - xLeft ) 。如不调整，文字宽度就是 size , cx 。 两者之差 

xRight - xLeft - size.cx 

必须在字串的三个空格字元处平均配置。这听起来很讨厌，但还不是太糟。 
可以呼叫 

SetTextJustification (hdc, xRight 一 xLeft - size.cx, 3) 

来完成。第二个参数是字串内空格字元中需要分配的空间量。第三个参数 
是空格字元的数量，这里为3。现在把 xStart 设定与 xLeft 相等，用 TextOut 
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写入 文字： 

TextOut (hdc, xStart, yStart, szText, lstrlen (szText)); 

文字会在 xLeft 和 xRight 页边距之间分散对齐。 

无论何时呼叫 SetTextJustification , 如果空间量不能在空格字元中平均 
分配，它就会累积一个错误值。这将影响後面的 GetTextExtentPoint 32 呼叫。 
每次开始新的一行，都必须通过呼叫 

SetTextJustification (hdc, ◦, 0 ) ; 

来清除错误值。 

使用段落 


如果您处理整个段落，就必须从头开始并扫描字串来寻找空格字元。每当 
碰到一个空格（或其他能用於断开一行的字元），需呼叫 GetTextExtentPoint 32 
来确定文字是否能放入左右页边距之间。当文字超出允许的空间时，就要退回 
上一个空白。现在，您已经能够确定一行的字串了。如果想要分散对齐该行， 
呼叫 SetTextJustification 和 TextOut , 清除错误值，并继续下一行。 

显示在程式 17-7 中的 JUSTIFY 1 对 Mark Twain 的 《The Adventures of 
Huckleberry Finn 》 中的第一段做了这样的处理。您可以从对话方块中选择想 
要的字体，也可以使用功能表选项来更改对齐方式（左对齐、向右对齐、居中 
或分散对齐）。图 17-3 是典型的 JUSTIFY 1 萤幕显示。 


程式 17-7 JUSTIFY1 


JUSTIFYl.C 

/* - 

JUSTIFYl.C ―一 Justified Type Program #1 

(c) Charles Petzold, 1998 


♦include <windows.h> 
♦include "resource.h" 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 
TCHAR szAppName[] = TEXT ("Justifyl"); 


int WINAPI WinMain (HINSTANCE hlnstance, 
iCmdShow) 


HWND 

MSG 

WNDCLASS 


hwnd ; 
msg ; 
wndclass ; 


HINSTANCE hPrevInstance, 

PSTR szCmdLine, 


int 
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wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, 工 DC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=s zAppName ; 

=s zAppName ; 


if ( !RegisterClass 

{ 

(&wndclass)) 

\ 

MessageBox ( 

NULL, TEXT 

return 1 

0 ； 


("This program requires Windows NT !’’）， 
szAppName, MB ICONERROR); 


hwnd = CreateWindow ( szAppName, TEXT ("Justified Type #1 ’’）， 

WS_OVERLAPPEDWINDOW a 
CW_USEDEFAULT, CW_USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

return msg.wParam ; 


void DrawRuler (HDC hdc, RECT * prc) 

{ 


static 

int 

iRuleSize [16]= 

{360, 72,144, 

288, 72,144, 

72, 

216, 12, 144,72 } 

參 

f 

int 



j ； 

POINT 



ptClient ; 


72,216, 72,144,72, 


SaveDC (hdc); 


SetMapMode (hdc. 


// Set Logical Twips mapping mode 
MM ANISOTROPIC); 


SetWindowExtEx (hdc , 1440, 1440, NULL); 

SetViewportExtEx (hdc, GetDeviceCaps (hdc, LOGPIXELSX), 

GetDeviceCaps (hdc, LOGPIXELSY), NULL); 
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// Move the origin to a half inch from upper left 


SetWindowOrgEx (hdc, -720, -720, NULL); 

// Find the right margin (quarter inch from right) 
ptClient.x = prc->right ; 
ptClient.y = prc->bottom ; 

DPtoLP (hdc, &ptClient, 1); 
ptClient.x -= 360 ; 


MoveToEx 

(hdc. 

LineTo 

(hdc. 

MoveToEx 

(hdc. 

LineTo 

(hdc. 


// Draw the rulers 
◦, -360, NULL); 

ptClient.x, -360); 
-360, 0, NULL); 

-360, ptClient.y); 


for (i 



◦, 


<=ptClient.x ; i += 1440 / 16, j++) 


MoveToEx 

LineTo 


(hdc, i, -360, NULL); 

(hdc, i, —360 - iRuleSize [j % 16]); 


for (i 


◦, 


<=ptClient.y ; i += 1440 / 16, j ++) 


MoveToEx 

LineTo 


(hdc, -360, i, NULL); 

(hdc, -360 一 iRuleSize [j % 16], i); 


RestoreDC (hdc, -1); 


void Justify (HDC hdc, PTSTR pText, RECT * prc, int iAlign) 

{ 


int 

PTSTR 

SIZE 


xStart, yStart, cSpaceChars ; 
pBegin, pEnd ; 

size ; 


yStart = prc->top ; 
do 

{ 

cSpaceChars = 0 
while (* 


pBegin = pText ; 


// for each text line 

// initialize number of spaces in line 

pText == ▼▼) // skip over leading spaces 

pText++ ; 

// set pointer to char at beginning of line 


do 


// until the line is known 
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pEnd =pText ; // set pointer to char at end of line 

// skip to next space 

while (*pText != 1 \0 1 && *pText++ != ’ 1 ); 

if (*pText == 1 \0 1 ) 

break ; 

// after each space encountered, calculate extents 

cSpaceChars++ ; 

GetTextExtentPoint32(hdc, pBegin, 

pText - pBegin - 1, &size); 

} 

while (size.cx < (prc->right 一 prc->left)); 

cSpaceChars-- ; // discount last space at end of line 

while (*(pEnd - 1) == 1 ’） // eliminate trailing spaces 

{ 

pEnd--; 
cSpaceChars--; 

} 

// if end of text and no space characters, set pEnd to end 
if (* pText == '\ ◦’ || cSpaceChars <= 0) 

pEnd = pText ; 

GetTextExtentPoint32 (hdc, pBegin, pEnd - pBegin, &size); 

switch (iAlign) // use alignment for xStart 

{ 

case IDM_ALIGN_LEFT: 

xStart = prc->left ; 
break ; 

case IDM_ALIGN_RIGHT: 

xStart = prc->right 一 size.cx ; 
break ; 

case 工 DM—ALIGN_CENTER: 

xStart = (prc->right + prc->left - size.cx) / 2 ; 
break ; 

case 工 DM_ALIGN_JUSTIFIED: 

if (* pText != , \0 , && cSpaceChars > 0) 
SetTextJustification (hdc, prc->right-prc->left - size.cx, cSpaceChars); 

xStart = prc->left ; 
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break ; 

// display the text 


TextOut (hdc, xStart, yStart, pBegin, pEnd - pBegin); 


// prepare for next line 


SetTextJustification (hdc, ◦, 0); 
yStart += size.cy ; 
pText = pEnd ; 

while (*pText && yStart < prc->bottom - size.cy); 


LRESULT CALLBACK WndProc ( 
IParam) 

{ 

static CHOOSEFONTcf ; 
static DOCINFO 


Printing") }; 

static int 


static LOGFONT 


HWND hwnd, UINT message , WPARAM wParam,LPARAM 


di = { sizeof (DOCINFO), TEXT ("Justifyl : 
iAlign = 工 DM—ALIGN_LEFT ; 

If ； 


static PRINTDLG pd ; 

static TCHAR szText[] = { 

TEXT ("You don't know about me, without you ”) 

TEXT ("have read a book by the name of \"The ’’） 
TEXT ("Adventures of Tom Sawyer,\ M but that ”) 

TEXT (’’ain't no matter. That book was made by ") 
TEXT ("Mr. Mark Twain, and he told the truth,") 
TEXT ("mainly. There was things which he ’’） 

TEXT ("stretched, but mainly he told the truth.") 
TEXT ("That is nothing. 工 never seen anybody ’’） 
TEXT ("but lied, one time or another, without ’’） 
TEXT ( n it was Aunt Polly, or the widow, or ’’） 

TEXT ("maybe Mary. Aunt Polly -- Tom’s Aunt ”) 

TEXT ( n Polly, she is -- and Mary, and the Widow ”) 
TEXT (’’Douglas, is all told about in that book M ) 
TEXT which is mostly a true book; with ") 

TEXT ("some stretchers, as 工 said before .’，） }; 


BOOL 


fSuccess ; 


HDC 

HMENU 

int 

PAINTSTRUCT 

RECT 


ps 


hdc, hdcPrn ; 
hMenu ; 

iSavePointSize ; 


rect ; 


switch (message) 
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{ 

case WM 

CREATE : 







// Initialize the CHOOSEFONT structure 



GetObj ect (GetstoekObj ect 

(SYSTEM FONT), sizeof (If), 

&lf ) ； 








cf.IStructSize 

=sizeof 

(CHOOSEFONT); 



cf.hwndOwner 

=hwnd 

• 

r 




cf.hDC 

=NULL 

• 

f 




cf.lpLogFont 

=&lf ; 





cf.iPointSize 

=◦; 



cf.Flags = CF INITTOLOGFONTSTRUCT | CF 

SCREENFONTS 

| CF EFFECTS ; 



cf.rgbColors 

=◦; 





cf.lCustData 

=◦; 





cf.lpfnHook 

=NULL 

• 

r 




cf.lpTemplateName 

=NULL 

• 

r 




cf.hlnstance 

=NULL 

參 

f 




cf.IpszStyle 

=NULL 

参 

f 




cf.nFontType 

= 0 ; 





cf.nSizeMin 

= 0 ; 





cf.nSizeMax 

=◦; 





return 0 ; 




case WM 

COMMAND : 







hMenu = GetMenu (hwnd); 






switch (LOWORD (wParam)) 

! 






\ 

case 工 DM FILE PRINT: 






// Get printer DC 





pd.IStructSize 

— 

sizeof (PRINTDLG); 



pd.hwndOwner 

— 

hwnd ; 



pd.Flags 

— 


PD RETURNDC | 

PD NOPAGENUMS 

| PD NOSELECTION ; 






if ( !PrintDlg ( &pd)) 





return 

0 

• 

r 



if (NULL 

==(hdcPrn = pd.hDC)) 


l 

MessageBox ( hwnd, TEXT ( 11 Cannot 

obtain Printer DC ’’）， 



szAppName, MB ICONEXCLAMATION | 

MB 

—OK )； 



return 0 ; 

1 






I 

// 

Set margins 

of 1 inch 
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rect.left = GetDeviceCaps (hdcPrn, LOGPIXELSX) - 

GetDeviceCaps (hdcPrn, PHYSICALOFFSETX); 

rect.top = GetDeviceCaps (hdcPrn, LOGPIXELSY) 

GetDeviceCaps (hdcPrn, PHYSICALOFFSETY); 
rect.right = GetDeviceCaps (hdcPrn, PHYSICALWIDTH) - 

GetDeviceCaps (hdcPrn, LOGPIXELSX) - 
GetDeviceCaps (hdcPrn, PHYSICALOFFSETX); 
rect.bottom^ GetDeviceCaps (hdcPrn, PHYSICALHEIGHT) - 

GetDeviceCaps (hdcPrn, LOGPIXELSY) - 
GetDeviceCaps (hdcPrn, PHYSICALOFFSETY); 

// Display text on printer 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 

fSuccess = FALSE ; 

if ((StartDoc (hdcPrn, &di) > 0) && (StartPage (hdcPrn) > 0)) 

{ 

// Select font using adjusted lfHeight 
iSavePointSize = If.lfHeight ; 

If.lfHeight = - (GetDeviceCaps (hdcPrn, LOGPIXELSY) * 

cf.iPointSize) / 720 ; 

SelectObject (hdcPrn, CreateFontlndirect (&lf)); 

If.lfHeight = iSavePointSize ; 

// Set text color 

SetTextColor (hdcPrn, cf.rgbColors); 

// Display text 

Justify (hdcPrn, szText, &rect, iAlign); 
if (EndPage (hdcPrn) > 0) 

{ 

fSuccess = TRUE ; 

EndDoc (hdcPrn); 

} 

} 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 
DeleteDC (hdcPrn); 
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if ( ! fSuccess) 

MessageBox (hwnd, TEXT ("Could not print text ”）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 
return 0 ; 

case IDM_FONT: 

if (ChooseFont (&cf)) 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case 工 DM_ALIGN_LEFT: 
case IDM_ALIGN_RIGHT: 
case IDM—ALIGN_CENTER: 
case 工 DM_ALIGN_JUSTIFIED: 

CheckMenuItem (hMenu, iAlign, MF_UNCHECKED); 
iAlign = LOWORD (wParam); 

CheckMenuItem (hMenu, iAlign, MF_CHECKED); 
InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

} 

return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

GetClientRect (hwnd A &rect); 

DrawRuler (hdc, &rect); 

rect.left += GetDeviceCaps (hdc, LOGPIXELSX) / 2 ; 

rect.top += GetDeviceCaps (hdc, LOGPIXELSY) / 2 ; 

rect.right -= GetDeviceCaps (hdc, LOGPIXELSX) / 4 ; 

SelectObj ect (hdc, CreateFontlndirect (&lf)); 
SetTextColor (hdc, cf.rgbColors); 

Justify (hdc, szText, &rect, iAlign); 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect 

(SYSTEM—FONT))); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 
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JUSTIFY1.RC 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h" 

♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

JUSTIFYl MENU DISCARDABLE BEGIN POPUP "&File" 

BEGIN 

MENUITEM "&Print n , 

IDM_FILE_PRINT 

END 

POPUP "&Font" 

BEGIN 

MENUITEM "&Font... 

END 

POPUP "&Align n 
BEGIN 

MENUITEM "&Left n , 

MENUITEM n &Right n , 

MENUITEM "&Centered n A 
MENUITEM n &Justified ，'， 

END 


工 DM FONT 


IDM_ALIGN_LEFT 
工 DM—AL 工 GN_R 工 GHT 
工 DM—ALIGN_CENTER 

IDM ALIGN JUSTIFIED 


CHECKED 


END 

RESOURCE.H 

// Microsoft Developer Studio generated include file. 
// Used by Justifyl.rc 



JUSTIFYl 在显示区域的上部和左侧显示了尺规（当然单位是逻辑英寸）。 
尺规由 DrawRuler 函式画出。 一 个矩形结构定义了分散对齐文字的区域。 

涉及对文字进行格式处理的大量工作由 Justify 函式实作。函式搜寻文字 
开始的空白，并使用 GetTextExtentPoint 32 测量每一行。当行的长度超过显示 
区域的宽度， JUSTIFYl 传回先前的空格并使该行到达 linefeed 处。根据 iAlign 
常数的值，行的对齐方式有：同左对齐、向右对齐、居中或分散对齐。 

JUSTIFYl 并不完美。例如，它没有处理连字元的问题。此外，当每行少於 
两个字时，分散对齐的做法会失效。即使我们解决了这个不是特别难的问题， 
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当一个单字太长在左右边距间放不下时，程式仍不能正常运作。当然，当我们 
在程式中对同一行使用多种字体（如同 Windows 文书处理程式轻松做出的那样) 
时，情况会更复杂。还没有人声称这种处理容易，它只是比我们亲自做所有的 
工作容易一些。 



Justified Type HI 


File Font Align 


_ nl xl 









you don't know about me, without you have read o book 
by the name of "The Adventures of Tom Sawyer/ 1 but 
that ain't no matter. That book was made by Mr. Mark 
Twain, and he told the truth ， mainly. There was things 
which he stretched, but mainly he told the truth. That is 
nothing. I never seen anybody but lied, one time or 
another, without it was Aunt Polly, or the widow, or 
maybe Mary. Aunt Polly ― Tom's Aunt Polly, she is ― 
and Mary, and the Widow Douglas, is all told about in 
that book ― which is mostly o true book; with some 
stretchers, as I said before. 


图 17-3 典型的 JUSTIFYl 萤幕显示 


列印输出预览 

有些字体不是为了在萤幕上查看用的，这些字体是用於列印的。通常在这 
种情况下，文字的萤幕预览必须与列印输出的格式精确配合。显示同样的字体、 
大小和字元格式是不够的。使用 TrueType 是个捷径。另外还需要将段落中的每 
一 行在同样位置断开。这是 WYSIWYG 中的难点。 

JUSTIFYl 包含一个 「 Print 」 选项，但该选项仅在页面的上、左和右边设定 
1英寸的边距。这样，格式化完全与萤幕显示器无关。这里有一个有趣的练习： 
在 JUSTIFYl 中更改几行程式码，使蛮幕和印表机逻辑依据一个6英寸的格式化 
矩形。方法就是在 WM PAINT 和 「 Print 」 命令处理程式中更改 rect . right 的定 
义。在 WM _ PAINT 处理程式中，相对应叙 述为： 

rect.right = rect.left + 6 * GetDeviceCaps (hdc, LOGPIXELSX); 

在 「 Print 」 命令处理程式中，相对应叙述为： 

rect.right = rect.left + 6 * GetDeviceCaps (hdcPrn, LOGPIXELSX); 

如果选择了一种 TrueType 字体，萤幕上的 linefeed 情况应与印表机的输 
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出相同。 

但实际情况并不是这样。即使两种设备使用同样点值的相同字体，并将文 
字显示在同样的格式化矩形中，不同的显示解析度及凑整误差也会使 linefeed 
出现在不同地方。显然，需要一种更高明的方法进行萤幕上的列印输出预览。 

程式 17-8 所示的 JUSTIFY 2 示范了这种方法的一个尝试。 JUSTIFY 2 中的程 
式码是依据 Microsoft 的 David Weise 所写的 TTJUST (「TrueType Justify 」） 
程式，而该程式又是依据本书前面的一个版本中的 JUSTIFY 1 程式。为表现出这 
一程式中所增加的复杂性，用 Herman Melville 的 《 Moby - Dick 》 中的第一章代 
替了 Mark Twain 小说的摘录。 


程式 17-8 JUSTIFY2 


JUSTIFY2.C 


/* - 


JUSTIFY2.C -- 

Justified Type Program #2 

(c) Charles Petzold, 1998 


♦include <windows.h> 
♦include "resource.h 


♦define OUTWIDTH 6 
♦define LASTCHAR 127 


// Width of formatted output in inches 
// Last character code used in text 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("Justify2"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, 

iCmdShow) 

{ 


int 


HWND 

MSG 

WNDCLASS wndclass ; 
wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


hwnd 

msg 


CS_HREDRAW | CS—VREDRAW 
WndProc ; 


=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION) 
=LoadCursor (NULL, 工 DC—ARROW); 
(HBRUSH) GetStockObject (WHITE—BRUSH) 
szAppName ; 
szAppName ; 


if (!RegisterClass (&wndclass)) 
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MessageBox (NULL, TEXT 
return 0 ; 


("This program requires Windows NT !’，）， 

szAppName, MB 工 CONERROR); 


hwnd = CreateWindow ( szAppName, TEXT ("Justified Type #2"), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW_USEDEFAULT a CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


void DrawRuler (HDC hdc, RECT * prc) 

{ 

static int iRuleSize [16] = {360,72,144, 72,216,72,144,72,288,72,144, 
72,216,72,144, 72 }; 

int i, j ; 

POINT ptClient ; 

SaveDC (hdc); 

// Set Logical Twips mapping mode 
SetMapMode (hdc, MM_ANISOTROPIC); 

SetWindowExtEx (hdc, 1440, 1440, NULL); 

SetViewportExtEx (hdc, GetDeviceCaps (hdc, LOGPIXELSX), 

GetDeviceCaps (hdc, LOGPIXELSY), NULL); 

// Move the origin to a half inch from upper left 

SetWindowOrgEx (hdc, -720, -720, NULL); 

// Find the right margin (quarter inch from right) 
ptClient.x = prc->right ; 
ptClient.y = prc->bottom ; 

DPtoLP (hdc, &ptClient, 1); 
ptClient.x -= 360 ; 

// Draw the rulers 

MoveToEx (hdc, ◦, -36 0, NULL); 
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LineTo (hdc, OUTWIDTH * 1440, -36 0) ; 

MoveToEx (hdc, -360, ◦, NULL); 

LineTo (hdc, -360, ptClient.y); 


for (i = ◦, j = 0 ; i <= ptClient.x && i <= OUTWIDTH * 1440 ; 
i += 1440 / 16, j++) 

{ 

MoveToEx (hdc, i, -360, NULL); 

LineTo (hdc, i, -360 - iRuleSize [j % 16]); 


for (i = ◦, j = ◦ ; i <= ptClient.y ; i += 1440 / 16, j++) 

{ 

MoveToEx (hdc, -360, i, NULL); 

LineTo (hdc, -360 一 iRuleSize [j % 16] , i); 


RestoreDC (hdc, -1); 


GetCharDesignWidths : 
design size 


Gets character widths for font as large as the 

original 



UINT GetCharDesignWidths (HDC hdc, UINT uFirst, UINT uLast, int * piWidths) 

{ 

HFONT hFont, hFontDesign ; 

LOGFONT If ; 

OUTLINETEXTMETRIC otm ; 

hFont = GetCurrentObj ect (hdc, OBJ—FONT); 

GetObject (hFont, sizeof (LOGFONT), &lf); 

// Get outline text metrics (we 1 11 only be using a field that is 
// independent of the DC the font is selected into) 

otm.otmSize = sizeof (OUTLINETEXTMETRIC); 

GetOutlineTextMetrics (hdc, sizeof (OUTLINETEXTMETRIC), &otm); 

// Create a new font based on the design size 
If.IfHeight = - (int) otm.otmEMSquare ; 

If.lfWidth = 0 ; 

hFontDesign = CreateFontlndirect (&lf); 
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// Select the font into the DC and get the character widths 


SaveDC (hdc); 

SetMapMode (hdc, MM_TEXT); 

SelectObj ect (hdc, hFontDesign); 

GetCharWidth (hdc, uFirst, uLast, piWidths); 
SelectObj ect (hdc, hFont); 

RestoreDC (hdc, -1); 

// Clean up 
DeleteObj ect (hFontDesign); 
return otm.otmEMSquare ; 



GetScaledWidths : Gets floating point character widths for selected 

font size 



void GetScaledWidths (HDC hdc, double * pdWidths) 

{ 


double 

HFONT 

int 

int 

LOGFONT 

UINT 


dScale ; 

hFont ; 

aiDesignWidths [LASTCHAR +1]; 

i ； 

If ； 

uEMSquare ; 

// Call function above 


uEMSquare = GetCharDesignWidths (hdc, 0, LASTCHAR, aiDesignWidths); 

// Get LOGFONT for current font in device context 
hFont = GetCurrentObj ect (hdc, OBJ—FONT); 

GetObj ect (hFont, sizeof (LOGFONT), &lf); 

// Scale the widths and store as floating point values 
dScale = (double) -If.lfHeight / (double) uEMSquare ; 
for ( i = ◦ ; i <= LASTCHAR ; i++) 

pdWidths[i] = dScale * aiDesignWidths[i]; 


GetTextExtentFloat : Calculates text width in floating point 
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double GetTextExtentFloat (double * pdWidths, PTSTR psText, int iCount) 

{ 

double dWidth = 0 ; 

int i ; 

for ( i = ◦ ; i < iCount ; i++) 

dWidth += pdWidths [psText[i]]; 


return dWidth ; 




Justify : Based on design units for screen/printer compatibility 


void Justify 

{ 

double 

int 

PTSTR 

SIZE 


(HDC hdc, PTSTR pText, RECT * prc, int iAlign) 

dWidth, adWidths[LASTCHAR + 1]; 

xStart, yStart, cSpaceChars ; 
pBegin, pEnd ; 
size ; 


// Fill the adWidths array with floating point character widths 

GetscaledWidths (hdc, adWidths); 
yStart = prc->top ; 

do // for each text line 


cSpaceChars 


// initialize number of spaces in line 


while (*pText == ’ ') // skip over leading spaces 

pText++ ; 


pBegin = pText ; 


// set pointer to char at beginning of line 


do 


// until the line is known 


pEnd = pText ; // set pointer to char at end of line 


// skip to next space 


while (*pText != ▼\0 , && *pText++ 


if (*pText 


\ 0 *) 

break 
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// after each space encountered, calculate extents 

cSpaceChars++ ; 

dWidth = GetTextExtentFloat (adWidths, pBegin, 

pText - pBegin - 1); 

} 

while (dWidth < (double) (prc->right 一 prc->left)); 

cSpaceChars-- ; // discount last space at end of line 

while (*(pEnd - 1) == ’ ’） // eliminate trailing spaces 

{ 

pEnd -- ; 
cSpaceChars--; 

} 

// if end of text and no space characters, set pEnd to end 

if (*pText == ’W || cSpaceChars <= 0) 

pEnd = pText ; 

// Now get integer extents 

GetTextExtentPoint32(hdc, pBegin, pEnd - pBegin, &size); 

switch (iAlign) // use alignment for xStart 

{ 

case IDM_ALIGN_LEFT: 

xStart = prc->left ; 
break ; 

case 工 DM_ALIGN_RIGHT: 

xStart = prc->right - size.ex ; 
break ; 

case IDM—ALIGN_CENTER: 

xStart = (prc->right + prc->left - size.ex) / 2 ; 
break ; 

case 工 DM—ALIGN_JUSTIFIED: 

if (*pText != 1 \0 * && cSpaceChars > 0) 

SetTextJustification (hdc, 
prc->right - prc->left - size.cx, 
cSpaceChars); 

xStart = prc->left ; 
break ; 

} 

// display the text 
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TextOut (hdc, xStart, yStart, pBegin, pEnd 一 pBegin); 


// prepare for next line 


SetTextJustification (hdc, 0, 0); 
yStart += size.cy ; 
pText = pEnd ; 

while (*pText && yStart < prc->bottom - size.cy); 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 


{ 

static CHOOSEFONT cf ; 

static DOCINFO 

( n Justify2 : Printing") }; 

static int 

static LOGFONT If 

static PRINTDLG pd 

static TCHAR 


di = { sizeof (DOCINFO) , TEXT 

iAlign = 工 DM ALIGN LEFT ; 


szText []= 


TEXT ("Call me Ishmael. Some years ago -- never n ) 
TEXT ("mind how long precisely -- having little ") 
TEXT ("or no money in my purse, and nothing ") 

TEXT ("particular to interest me on shore, 工 ’’） 
TEXT ("thought 工 would sail about a little and ") 
TEXT ("see the watery part of the world. It is ’’） 
TEXT (’’a way 工 have of driving off the spleen, ’，） 
TEXT (" and regulating the circulation. Whenever ’’） 
TEXT ('， 工 find myself growing grim about the ") 

TEXT ("mouth; whenever it is a damp, drizzly ▼，） 
TEXT ("November in my soul; whenever I find ▼，） 

TEXT ("myself involuntarily pausing before ’’） 

TEXT ("coffin warehouses, and bringing up the n ) 
TEXT ("rear of every funeral 工 meet; and ’’） 

TEXT ("especially whenever my hypos get such an ’，） 
TEXT ("upper hand of me, that it requires a ") 

TEXT ("strong moral principle to prevent me ▼，） 

TEXT ("from deliberately stepping into the ▼’） 

TEXT (’’street, and methodically knocking ▼，） 

TEXT (’’people's hats off -- then , 工 account it ") 
TEXT ("high time to get to sea as soon as 工 ’’） 

TEXT (’’can. This is my substitute for pistol ’’） 
TEXT (’’and ball. With a philosophical flourish ’，） 
TEXT ("Cato throws himself upon his sword; I ▼，） 
TEXT ("quietly take to the ship. There is ’▼) 

TEXT ("nothing surprising in this. If they but ’’） 
TEXT ("knew it, almost all men in their degree, ’’） 
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TEXT ("some 

time 

or 

other, cherish very nearly ▼，） 


TEXT ("the same 

feelings towards the ocean with ") 


TEXT ("me.") 

}； 





BOOL 



fSuccess ; 



HDC 



hdc, hdcPrn . 

參 

F 


HMENU 



hMenu ; 



int 



iSavePointSize ; 


PAINTSTRUCT 


ps ; 



RECT 



rect ; 



switch (message) 

； 




i 

case WM 

CREATE : 







// Initialize the 

CHOOSEFONT structure 




hdc = GetDC (hwnd); 






If.IfHeight = 一 GetDeviceCaps 

(hdc, LOGPIXELSY) / 6 ; 




If.IfOutPrecision = OUT 

TT ONLY PRECIS ; 




lstrcpy (If•IfFaceName, 

TEXT 

("Times New Roman")); 




ReleaseDC (hwnd, hdc); 






cf.IStructSize 

=sizeof (CHOOSEFONT); 




cf.hwndOwner 

= 

=hwnd ; 




cf.hDC 

- 

=NULL ; 




cf.lpLogFont 

- 

=&lf ; 




cf.iPointSize 


=120 ; 




// Set flags 

for TrueType only! 




cf.Flags = CF INITTOLOGFONTSTRUCT | 

CF SCREENFONTS 

1 








CF TTONLY | ( 

: F EFFECTS ; 




cf.rgbColors = 

0 ； 





cf.lCustData = 

0 ； 





cf.lpfnHook = 

NULL 

• 

f 




cf.lpTemplateName 

- 

NULL ; 




cf.hlnstance = 

NULL 

• 

¥ 




cf.IpszStyle = 

NULL 

參 

f 




cf.nFontType = 

0 ； 





cf.nSizeMin = 

0 ； 





cf.nSizeMax = 

0 ； 





return 0 ; 



case WM 

COMMAND : 







hMenu = GetMenu (hwnd) ; 






switch (LOWORD (wParam) ) 
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{ 

case 工 DM_FILE_PRINT : 

// Get printer DC 

pd.IStructSize = sizeof (PRINTDLG); 
pd.hwndOwner = hwnd ; 

pd.Flags = PD_RETURNDC | PD—NOPAGENUMS | PD—NOSELECTION ; 

if ( !PrintDlg (&pd)) 

return 0 ; 

if (NULL == (hdcPrn = pd.hDC)) 

{ 

MessageBox (hwnd, TEXT ("Cannot obtain Printer DC ’’）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 
return 0 ; 

} 

// Set margins for OUTWIDTH inches wide 

rect.left = (GetDeviceCaps (hdcPrn, PHYSICALWIDTH) 

GetDeviceCaps (hdcPrn, LOGPIXELSX)*OUTWIDTH)/2 
- GetDeviceCaps (hdcPrn, PHYSICALOFFSETX); 

rect.right = rect.left + 

GetDeviceCaps (hdcPrn, LOGPIXELSX) * OUTWIDTH ; 

// Set margins of 1 inch at top and bottom 

rect.top = GetDeviceCaps (hdcPrn, LOGPIXELSY) - 
GetDeviceCaps (hdcPrn, PHYSICALOFFSETY); 

rect•bottom=GetDeviceCaps (hdcPrn, PHYSICALHEIGHT) 

GetDeviceCaps (hdcPrn, LOGPIXELSY) - 
GetDeviceCaps (hdcPrn, PHYSICALOFFSETY); 

// Display text on printer 

SetCursor (LoadCursor (NULL, 工 DC—WAIT)); 
ShowCursor (TRUE); 

fSuccess = FALSE ; 

if ( (StartDoc (hdcPrn, &di) > 0) && (StartPage (hdcPrn) > 0)) 

{ 

// Select font using adjusted lfHeight 
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iSavePointSize = If.IfHeight ; 

If.IfHeight = - (GetDeviceCaps (hdcPrn, LOGPIXELSY) * 

cf.iPointSize) / 720 ; 

SelectObj ect (hdcPrn, CreateFontlndirect (&lf)); 

If.IfHeight = iSavePointSize ; 

// Set text color 

SetTextColor (hdcPrn, cf.rgbColors); 

// Display text 

Justify (hdcPrn, szText, &rect, iAlign); 

if (EndPage (hdcPrn) > 0) 

{ 

fSuccess = TRUE ; 
EndDoc (hdcPrn); 

} 

} 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 
DeleteDC (hdcPrn); 
if ( !fSuccess) 

MessageBox (hwnd, TEXT ("Could not print text ”）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 
return 0 ; 
case IDM_FONT : 

if (ChooseFont (&cf)) 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case IDM—ALIGN_LEFT: 
case IDM—ALIGN—RIGHT: 
case IDM_ALIGN_CENTER: 
case 工 DM—ALIGN_JUSTIFIED: 

CheckMenuItem (hMenu, iAlign, MF_UNCHECKED); 

iAlign = LOWORD (wParam); 
CheckMenuItem (hMenu, iAlign, MF_CHECKED); 
InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

} 

return 0 ; 

case WM PAINT : 


第 1000 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


hdc = BeginPaint (hwnd, &ps); 

GetClientRect (hwnd, &rect); 
DrawRuler (hdc, &rect); 

rect.left += GetDeviceCaps (hdc, 
rect.top += GetDeviceCaps (hdc, 
rect.right = rect.left + OUTWIDTH 


LOGPIXELSX) / 2 ; 
LOGPIXELSY) / 2 ; 

* GetDeviceCaps (hdc 


LOGPIXELSX); 


(SYSTEM FONT))) 


SelectObj ect (hdc, CreateFontlndirect (&lf)); 
SetTextColor (hdc, cf.rgbColors); 

Justify (hdc, szText, &rect, iAlign); 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect 

EndPaint (hwnd, &ps); 
return 0 ; 


case WM DESTROY: 


PostQuitMessage (0) 
return 0 ; 


return DefWindowProc (hwnd, message, wParam, IParam) 

} 

JUSTIFY2.RC 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h" 

♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 

/ 


// Menu 

JUSTIFY2 MENU DISCARDABLE BEGIN POPUP 
BEGIN 

MENUITEM "&Print", 


END 

POPUP 

BEGIN 

END 

POPUP 

BEGIN 


&Font 


MENUITEM "&Font..." 


&Align 


&File 


工 DM FILE PRINT 


工 DM FONT 


MENUITEM "&Left", 
MENUITEM n &Right n , 
MENUITEM "^Centered" A 
MENUITEM "&Justified", 


工 DM—AL 工 GN—LE FT, CHECKED 
工 DM—ALIGN_RIGHT 

IDM—ALIGN—CENTER 
IDM ALIGN JUSTIFIED 
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END 

END 

RESOURCE.H 

// Microsoft Developer Studio generated include file. 
// Used by Justify2.rc 


♦define 

工 DM 

FILE : 

PRINT 

40001 

#define 

I DM 

FONT 


40002 

#define 

I DM 

AL 工 GN 

LEFT 

40003 

♦define 

I DM 

ALIGN. 

RIGHT 

40004 

♦define 

IDM 

ALIGN. 

_CENTER 

40005 

#define 

I DM 

ALIGN 

JUSTIFIED 40006 


JUSTIFY 2 仅使用 TrueType 字体。在它的 GetCharDesignWidths 函式中，程 
式使用 GetOutlineTextMetrics 函式取得一个表面上似乎不重要的资讯，即 
OUTLINETEXTMETRIC 的 otmEMSquare 栏位。 

TrueType 字体在全方 （ em - square ) 的网格上设计（如我说过「 em 」 是指一 
种方块型态的宽度， M 在宽度上等於字体点值的大小）。任何特定 TrueType 字 
体的所有字元都是在同样的网格上设计的，虽然这些字元通常有不同的宽度。 
OUTLINETEXTMETRIC 结构的 otmEMSquare 栏位给出了任意特定字体的这种全方形 
式的大小。您会发现：对於大多数 TrueType 字体， otmEMSquare 栏位等於2048, 
这意味著字体是在2048 2048的网格上设计的。 

关键 在於： 可以为想要使用的特定 TrueType 字体名称设定一个 L 0 GF 0 NT 结 
构，其 lfHeight 栏位等於 otmEMScjuare 值的负数。在建立字体并将其选入装置 
内容後，可呼叫 GetCharWidth 。 该函式以逻辑单位提供字体中单个字元的宽度。 
通常，因为这些字元被缩放为不同的字体大小，所以字元宽度并不准确。但使 
用依据 otmEMSquare 大小的字体，这些宽度总是与任何装置内容无关的精确整 
数。 

GetCharDesignWidths 函式以这种方式获得原始的字元设计宽度，并将它们 
储存在整数阵列中。 JUSTIFY 2 程式在自己的文字中仅使用 ASCII 字元，因此， 
这个阵列不需要很大。 GetScaledWidths 函式将这些整数型态宽度转变为依据设 
备逻辑座标中字体的实际点值的浮点宽度。 GetTextExtentFloat 函式使用这些 
浮点宽度计算整个字串的宽度。这是新的 Justify 函式用以计算文字行宽度的 
操作。 

有趣的东西 

根据外形轮廓表示字体字元提供了将字体与其他图形技术相结合的可能 
性。前面我们讨论了旋转字体的方式。这里讲述一些其他技巧。继续之前，先 
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了解两个重要的预备 知识： 绘图路径和扩展画笔。 

GDI 绘图路径 

绘图路径是储存在 GDI 内的直线和曲线的集合。绘图路径是在 Windows 的 
32位元版本中发表的。绘图路径看上去类似於区域，我们确实可以将绘图路径 
转换为区域，并使用绘图路径进行剪裁。但随後我们会发现两者的不同。 

要定义绘图路径，可先简单呼叫 

BeginPath (hdc) ; 

进行该呼叫之後，所画的任何线（例如，直线、弧及贝塞尔曲线）将作为 
绘图路径储存在 GDI 内部，不被显示到装置内容上。绘图路径经常由连结起来 
的线组成。要制作连结线，应使用 LineTo 、 PolylineTo 和 BezierTo 函式，这 
些函式都以目前位置为起点划线。如果使用 MoveToEx 改变了目前位置，或呼叫 
其他的画线函式，或者呼叫了会导致目前位置改变的视窗/视埠函式，您就在整 
个绘图路径中建立了一个新的子绘图路径。因此，绘图路径包含一或多个子绘 
图路径，每一个子绘图路径是一系列连结的线段。 

绘图路径中的每个子绘图路径可以是敞开的或封闭的。封闭子绘图路径之 
第一条连结线的第一个点与最後一条连结线的最後一点相同，并且子绘图路径 
通过呼叫 CloseFigure 结束。如果必要的话， CloseFigure 将用一条直线封闭子 
绘图路径。随後的画线函式将开始一个新的子绘图路径。最後，通过下面的呼 
叫结束绘图路径定义： 

EndPath (hdc) ; 

这时，接著呼叫下列五个函式之一： 

StrokePath (hdc) ; 

FillPath (hdc); 

StrokeAndFillPath (hdc); 
hRgn = PathToRegion (hdc); 

SelectClipPath (hdc, iCombine); 

这些函式中的每一个都会在绘图路径定义完成後，将其清除。 

StrokePath 使用目前画笔绘制绘图路径。您可能会 好奇： 绘图路径上的点 
有哪些？为什么不能跳过这些绘图路径片段正常地画线？稍後我会告诉您原 
因。 

另外四个函式用直线关闭任何敞开的绘图路径。 FillPath 依照目前的多边 
填充模式使用目前画刷填充绘图路径 。 StrokeAndFillPath 一次完成这两项工 
作。也可将绘图路径转换为区域，或者将绘图路径用於某个剪裁区域 。 iCombine 
参数是 CombineRgn 函式使用的 RGN — 系列常数之一，它指出了绘图路径与目前 
剪裁区域的结合方式。 
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用於填充或剪取时，绘图路径比绘图区域更灵活，这是因为绘图区域仅能 
由矩形、椭圆及多边形的组合 定义； 绘图路径可由贝塞尔曲线定义，至少在 
Windows NT 中还可由弧线组成。在 GDI 中，绘图路径和区域的储存也完全不同。 
绘图路径是直线及曲线定义的 集合； 而绘图区域（通常意义上）是扫描线的集 
合。 

扩展画笔 

在呼叫 StrokePath 时，使用目前画笔绘制绘图路径。在第四章讨论了用以 
建立画笔物件的 CreatePen 函式。伴随绘图路径的发表， Windows 也支援一个称 
为 ExtCreatePen 的扩展画笔函式呼叫。该函式揭示了其建立绘图路径以及使用 
绘图路径要比不使用绘图路径画线有用。 ExtCreatePen 函式如下所示： 

hPen = ExtCreatePen (iStyle, iWidth, &lBrush, ◦, NULL); 

您可以使用该函式正常地绘制线段，但在这种情况下 Windows 98不支援一 
些功能。甚至用以显示绘图路径时 ， Windows 98仍不支援一些功能，这就是上 
面函式的最後两个参数被设定为0及 NULL 的原因。 

对於 ExtCreatePen 的第一个参数，可使用第四章中所讨论的用在 CreatePen 
上的所有样式。您可使用 PS _ GEOMETRIC 另外组合这些样式（其中 iWidth 参数 
以逻辑单位表示线宽并能够转换），或者使用 PS_COSMETIC (其中 iWidth 参数 
必须是 1 ) 。 Windows 98中，虚线或点画线样式的画笔必须是 PS _ COSMETIC ， 在 
Windows NT 中取消了这个限制。 

CreatePen 的一个参数表示颜色； ExtCreatePen 的相应参数不只表示颜色， 
它还使用画刷给 PS _ GEOMETRIC 画笔内部著色。该画刷甚至能透过点阵图定义。 

在绘制宽线段时，我们可能要关注线段端点的外观。在连结直线或曲线时， 
可能还要关注线段间连结点的外观。画笔由 CreatePen 建立时，这些端点及连 
结点通常是圆形的；使用 ExtCreatePen 建立画笔时我们可以选择。（实际上， 
在 Windows 98中，只有在使用画笔实作绘图路径时我们可以 选择； 在 Windows NT 
中要更加灵活）。宽线段的端点可以使用 ExtCreatePen 中的下列画笔样式 定义: 

PS_ENDCAP_ROUND 

PS_ENDCAP_SQUARE 

PS_ENDCAP_FLAT 

" rsquare ] 样式与 「 flat 」 样式的不同 点是： 前者将线伸展到一半宽。与 
端点类似，绘图路径中线段间的连结点可通过如下样式 设定： 

PS_JOIN_ROUND 

PS_JOIN_BEVEL 

PS_JOIN_MITER 

" bevelJ 样式将连结点切断； 「 miter 」 样式将连结点变为箭头。程式17-9 
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所示的 END JOIN 是对此的一个较好的说明。 


程式 17-9 END JOIN 


ENDJOIN.C 
/* - 


ENDJOIN.C -- 


Ends and Joins Demo 


(c) Charles Petzold, 1998 



♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, 
iCmdShow) 


HINSTANCE hPrevInstance, 

PSTR szCmdLine, 


static TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName[] = TEXT ("EndJoin"); 

hwnd ; 

msg ; 

wndclass ; 


int 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 
=WndProc ; 



=hlnstance ; 

=Loadlcon (NULL, 工 DI_APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=NULL ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 


MessageBox ( 


return 


NULL, TEXT (’’This program requires Windows NT !’’）， 

szAppName, MB 工 CONERROR); 


hwnd = CreateWindow ( szAppName, TEXT ("Ends and Joins Demo n ), 

WS_OVERLAPPEDWINDOW a 
CW_USEDEFAULT, CW_USEDEFAULT, 
CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
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UpdateWindow (hwnd); 







while (GetMessage 

(&msg, NULL, ◦, 

0)) 





TranslateMessage 

(&msg) 

• 

f 





DispatchMessage 

(&msg) 

参 

f 




1 

J 

return msg.wParam 

參 

f 






/ 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT iMsg, 

r 

WPARAM wParam 

,LPARAM IParam) 

i 

static 

int 



iEnd[] 


— 


{PS ENDCAP ROUND, 

PS ENDCAP SQUARE, 

PS ENDCAP 

FLAT }; 




static int iJoin[]= {PS JOIN ROUND, PS i 

JOIN BEVEL, PS_ 

JOIN 

MITER }; 


static int cxClient, cyClient ; 






HDC 

hdc ; 







int 

■ 

i ； 







LOGBRUSH 

ib ; 







PAINTSTRUCT 

ps ; 







switch (iMsg) 








case WM SIZE: 









cxClient = 

LOWORD 

1 (IParam) 

參 

f 





cyClient = 

HIWORD 

1 (IParam) 

參 

f 





return 0 ; 







case WM PAINT : 









hdc = BeginPaint 

(hwnd, &ps); 





SetMapMode 

(hdc. 

MM ANISOTROPIC); 





SetWindowExtEx (hdc, 100, 

100, NULL); 





SetViewportExtEx 

(hdc, cxClient, cyClient, NULL); 



lb.lbStyle 

=BS SOLID ; 






lb.lbColor 

=RGB 

(128, 128 

,128); 





lb.lbHatch 

=◦; 







for (i = 0 

f 

； i < 

3 ; i++) 




I 


SelectObject (hdc, 

r ExtCreatePen (PS SOLID | PS_ 

GEOMETRIC 

1 


iEnd 

[i] 1 iJoin [i] , 

10/ & lb r 0 f 

NULL)); 





BeginPath 

( hdc) ; 






MoveToEx 

(hdc, 10 + 30 ^ i. 

25, NULL) ; 




LineTo 

(hdc, 2 0 + 

30 ^ 

i, 75) ; 




LineTo 

(hdc, 30 + 

30 ^ 

i, 25) ; 
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EndPath (hdc) ; 

StrokePath (hdc); 

DeleteObj ect ( 

SelectObj ect (hdc,GetStockObject (BLACK_PEN))); 

MoveToEx (hdc, 10 + 30 *i, 25, NULL); 

LineTo (hdc, 20 + 30 * i, 75); 

LineTo (hdc, 30 + 30 ^ i, 25); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, iMsg, wParam, IParam); 

} 

程式使用上述端点和连结点样式画了三条 V 形的宽线段。程式也使用备用 
黑色画笔画了三条同样的线。这样就将宽线与通常的细线做了比较。结果如图 
17-4 所示。 



图 17-4 END JOIN 的萤幕显示 

现在大家该明白为什么 Windows 支援 StrokePath 函 式了： 如果分别画两条 
直线， GDI 不得不在每一条线上使用端点。只有在绘图路径定义中， GDI 知道线 
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段是连结的并使用线段的连结点。 

四个范例程式 

这究竟有什么好处呢？仔细考虑 一下： 轮廓字体的字元由一系列座标值定 
义，这些座标定义了直线和转折线。因而，直线及曲线能成为绘图路径定义的 


部分。 

确实可以！程式 17-10 所示的 F 0 NT 0 UT 1 程式对此做了展示。 

程式 17-10 F0NT0UT1 


FONTOUT1.C 

/* - 

FONTOUT1.C -- 

Using Path to 

Outline 

Font 

(c) Charles Petzold, 1998 

V 








♦include <windows.h> 







♦include "..\\eztest\\ezfont.h" 






TCHAR 

szAppName [] = TEXT ("FontOutl n ); 





TCHAR 

szTitle [] = TEXT 

("FontOutl : Using 

Path to 

Outline Font"); 



void : 

r 

PaintRoutine (HWND 

hwnd, HDC hdc, int 

cxArea^ 

int cyArea) 



i 

static TCHAR szString 

[]=TEXT 

("Outline"); 




HFONT 


hFont ; 





SIZE 


size ; 





hFont = EzCreateFont (hdc, 

TEXT ("Times New Roman"), 1440, ◦, 

◦, 

TRUE); 


SelectObj ect (hdc. 

hFont) 

• 

r 






GetTextExtentPoint32 (hdc. 

szString, 

Istrlen 

(szString), &size) 

• 


BeginPath (hdc); 








TextOut (hdc, ( cxArea - 

size.cx) / 

2, (cyArea - size.cy) / 

2, 







szString, 


lstrlen 

(szString)); 








EndPath (hdc); 








StrokePath (hdc); 








SelectObj ect (hdc. 

GetStockObject (SYSTEM—FONT)); 



} 

DeleteObj ect (hFont); 







此程式和本章後面的程式都使用了前面所示的 EZF 0 NT 和 F 0 NTDEM 0 档案。 
程式建立了 144点的 TrueType 字体并呼叫 GetTextExtentPoint 32 函式取 


得文字方块的大小。然後，呼叫绘图路径定义中的 TextOut 函式使文字在显示 
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区域视窗中处於中心的位置。因为对 TextOut 函式的呼叫是被绘图路径设定命 
令所包围的（即 BeginPath 和 EndPath 呼叫之间）程式中进行的， GDI 不立即显 
示文字。相反，程式将字元轮廓储存在绘图路径定义中。 

在绘图路径定义结束後， F 0 NT 0 UT 1 呼叫 StrokePath 。 因为装置内容中未选 
入指定的画笔，所以 GDI 仅仅使用内定画笔绘制字元轮廓，如图 17-5 所示。 


H ForrtOutl: 


£ile Bet 



JMxl 



图 17-5 F0NT0UT1 的萤幕显示 


现在我们都得到什么呢？我们已经获得了所期望的轮廓字元，但是字串外 
面为什么会围绕著矩形呢？ 

回想一下，文字背景模式使用内定的 OPAQUE ， 而不是 TRANSPARENT 。 该矩 
形就是文字方块的轮廓。这清晰地展示了在内定的 OPAQUE 模式下 GDI 绘制文字 
时所使用的两个步骤：首先绘制一个填充的矩形，接著绘制字元。文字方块矩 
形的轮廓也因此成为绘图路径的一部分。 

使用 ExtCreatePen 函式就能够使用内定画笔以外的东西绘制字体字元的轮 
廓。程式 17-11 所示的 F 0 NT 0 UT 2 对此做了展示。 


程式 17-11 F0NT0UT2 

F0NT0UT2.C 

/* - 


F0NT0UT2.C -- 

Using Path to Outline Font 

(c) Charles Petzold, 1998 

V 
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#include <windows.h> 

♦ include " . . WeztestWezfont.h" 


TCHAR szAppName [] = TEXT ("Font0ut2"); 

TCHAR szTitle [ ] = TEXT ("FontOut2 : Using Path to Outline Font ’，） 

void PaintRoutine (HWND hwnd, HDC hdc, int cxArea, int cyArea) 

{ 


static TCHAR 

szString [] = TEXT ("Outline"); 

HFONT 

hFont ; 

LOGBRUSH 

lb ; 

SIZE 

size ; 


hFont = EzCreateFont (hdc, TEXT ("Times New Roman "), 1440, 0, ◦, TRUE); 
SelectObj ect (hdc, hFont); 

SetBkMode (hdc, TRANSPARENT); 


GetTextExtentPoint32 (hdc, szString, lstrlen (szString), &size); 
BeginPath (hdc); 

TextOut (hdc, ( cxArea - size.cx) / 2, (cyArea - size.cy) / 2, 

szString, lstrlen (szString)); 

EndPath (hdc); 

lb.lbStyle = BS_SOLID ; 

lb.lbColor = RGB (255, ◦, 0); 

lb.lbHatch = 0 ; 


SelectObject (hdc, ExtCreatePen (PS_GEOMETRIC | PS_DOT, 

GetDeviceCaps (hdc, LOGPIXELSX) / 24, &lb, ◦, NULL)); 
StrokePath (hdc); 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect (BLACK—PEN))); 
SelectObj ect (hdc, GetStockObj ect (SYSTEM—FONT)); 

DeleteObj ect (hFont); 


此程式呼叫 StrokePath 之前建立（并选入装置内容）一个3点 （ 1/24英寸) 
宽的红色点线笔。程式在 Windows NT 下执行时，结果如图 17-6 所示 。 Windows 
98不支援超过1图素宽的非实心笔，因此 Windows 98将以实心的红色笔绘制。 
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图 17-6 F0NT0UT2 的萤幕显示 

您也可以使用绘图路径定义填充区域。请用前面两个程式所示的方法建立 
绘图路径，选择一种填充图案，然後呼叫 FillPatho 能呼叫的另一个函式是 
StrokeAndFillPath , 它绘制绘图路径的轮廓并用一个函式呼叫将其填充。 


StrokeAndFillPath 函式如程式 17-12 F 0 NTFILL 所展示。 

程式 17-12 F0NTFILL 


FONTFILL.C 

/* - 


FONTFILL.C -- 

Using Path to Fill Font 

(c) Charles Petzold, 1998 



♦include <windows.h> 

♦include "..\\eztest\\ezfont.h" 

TCHAR szAppName [] = TEXT ("FontFill"); 

TCHAR szTitle [] = TEXT ("FontFill : Using Path to Fill Font"); 
void PaintRoutine (HWND hwnd, HDC hdc, int cxArea, int cyArea) 

{ 

static TCHAR szString [] = TEXT ("Filling"); 

HFONT hFont ; 

SIZE size ; 

hFont = EzCreateFont (hdc, TEXT ("Times New Roman "), 1440, 0 , 0 , TRUE); 
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SelectObj ect (hdc, hFont); 

SetBkMode (hdc, TRANSPARENT); 

GetTextExtentPoint32 (hdc, szString, lstrlen (szString), &size); 
BeginPath (hdc); 

TextOut (hdc, ( cxArea - size.cx) / 2, (cyArea - size.cy) / 2, 

szString, lstrlen 

(szString)); 

EndPath (hdc); 

SelectObj ect (hdc, CreateHatchBrush (HS_DIAGCROSS, RGB (255, ◦, 0))); 
SetBkColor (hdc, RGB (◦, ◦, 255)); 

SetBkMode (hdc, OPAQUE); 

StrokeAndFillPath (hdc); 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect (WHITE—BRUSH))); 
SelectObj ect (hdc, GetStockObj ect (SYSTEM—FONT)); 

DeleteObj ect (hFont); 

} 

FONTFILL 使用内定画笔绘制绘图路径的轮廓，但使用 HS _ DIAGCROSS 样式建 
立红色的阴影画刷。注意程式在建立绘图路径时将背景模式设定为 
TRANSPARENT ， 在填充绘图路径时又将其重设为 OPAQUE ， 这样它能够为区域图案 
使用蓝色的背景颜色。结果如图 17-7 所示。 

您可能想在本程式中尝试几个变更，观察变更的影响。首先，如果您将第 
一个 SetBkMode 呼叫变为注解，将得到由图案而不是字元本身所覆盖的文字方 
块背景。这通常不是我们实际所需要的，但确实可这样做。 

此外，填充字元及将它们用做剪裁时，您可能想有效地放弃内定的 
ALTERNATE 多边填充模式。我的经验 表示： 如果使用 WINDING 填充模式，则构建 
TrueType 字体以避免出现奇怪的现象（例如「0」的内部被填充），但使用 
ALTERNATE 模式更安全。 
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FontFill Using Palh to Fill Fonl 


Eile Help 


InTxl 


Filling 


图 17-7 FONTFILL 的萤幕显示 

最後，可使用一个绘图路径，因此也是一个 TrueType 字体，来定义剪裁区 
域。如程式 17-13 F 0 NTCLIP 所示。 


程式 17-13 F0NTCLIP 

FONTCLIP.C 

/* - 

FONTCLIP.C -- Using Path for Clipping on Font 

(c) Charles Petzold, 1998 


V 

♦include <windows.h> 

♦include "..\\eztest\\ezfont.h" 

TCHAR szAppName [] = TEXT ("FontClip"); 

TCHAR szTitle [] = TEXT ("FontClip : Using Path for Clipping on Font"); 

void PaintRoutine (HWND hwnd, HDC hdc, int cxArea, int cyArea) 

{ 

static TCHAR szString [] = TEXT ("Clipping"); 

HFONT hFont ; 

int y, iOffset ; 

POINT pt [4]; 

SIZE size ; 
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hFont = EzCreateFont (hdc, TEXT ("Times New Roman’’），120 0, ◦, 0, TRUE) 
SelectObj ect (hdc, hFont); 

GetTextExtentPoint32 (hdc, szString, lstrlen (szString), &size); 
BeginPath (hdc); 

TextOut (hdc, ( cxArea - size.cx) / 2, (cyArea - size.cy) / 2, 

szString, lstrlen (szString)) 

EndPath (hdc); 

// Set clipping area 
SelectClipPath (hdc, RGN_COPY); 

// Draw Bezier splines 
iOffset = (cxArea + cyArea) / 4 ; 
for (y = -iOffset ; y < cyArea + iOffset ; y++) 

{ 

pt [ 0] •x = ◦; 
pt[0]•y = y ; 

pt[l].x = cxArea / 3 ; 
pt [ 1] .y = y + iOffset ; 

pt[2].x = 2 * cxArea / 3 ; 
pt [ 2] .y = y - iOffset ; 


pt[3].x = cxArea ; 
pt [ 3] •y = y ; 


SelectObj ect (hdc, CreatePen (PS_SOLID, 1, 

RGB (rand () % 25 6, rand () % 256, rand () % 256))); 
PolyBezier (hdc, pt, 4); 

DeleteObject (SelectObject (hdc, GetStockObject (BLACK PEN))); 


DeleteObj ect (SelectObj ect (hdc, GetStockObj ect (WHITE—BRUSH))); 
SelectObj ect (hdc, GetStockObj ect (SYSTEM—FONT)); 

DeleteObj ect (hFont); 


程式中故意不使用 SetBkMode 呼叫以实作不同的效果。程式在绘图路径支 
架中绘制一些文字，然後呼叫 SelectClipPatho 接著使用随机颜色绘制一系列 
贝塞尔曲线。 

如果 F 0 NTCLIP 程式使用 TRANSPARENT 选项呼叫 SetBkMode , 贝塞尔曲线将 
被限制在字元轮廓的内部。在内定 OPAQUE 选项的背景模式下，剪裁区域被限制 
在文字方块内部而不是文字内部。如图 17-8 所示。 


第 1014 页 






图 17-8 FONTCLIP 得萤幕显示 


您或许会想在 FONTCLIP 中插入 SetBkMode 呼叫来观察 TRANSPARENT 选项的 

变化。 

F 0 NTDEM 0 外壳程式允许您列印并显示这些效果，甚至允许您尝试自己的一 
些特殊效果。 
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第十八章 Metafile 

Metafile 和向量图形的关系，就像点阵图和位兀映射图形的关系一■样。点 
阵图通常来自实际的图像，而 metafile 则大多是通过电脑程式人为建立的。 
Metafile 由一系列与图形函式呼叫相同的二进位记录组成，这些记录一般用於 
绘制直线、曲线、填入的区域和文字等。 

「画图 （ paint ) 」程式建立点阵图，而「绘图 （ draw )」 程式建立 metafile 。 
在优秀的绘图程式中，能轻易地「抓住」某个独立的图形物件（例如一条直线) 
并将它移动到其他位置。这是因为组成图形的每个成员都是以单独的记录储存 
的。在画图程式中，这是不可能的 一一 您通常都会局限於删除或插入点阵图矩 
形块。 

由於 metafile 以图形绘制命令描述图像，因此可以对图像进行缩放而不会 
失真。点阵图则不然，如果以二倍大小来显示点阵图，您却无法得到二倍的解 
析度，而只是在水平和垂直方向上重复点阵图的位元。 

Metafile 可以转换为点阵图，但是会丢失一些资讯：组成 metafile 的图形 
物件将不再是独立的，而是被合并进大的图像。将点阵图转换为 metafile 要艰 
难得多， 一 般仅限於非常简单的图像，而且它需要大量处理来分析边界和轮廓。 
而 metafile 可以包含绘制点阵图的命令。 

虽然 metafile 可以作为图片剪辑储存在磁片上，但是它们大多用於程式通 
过剪贴簿共用图片的情况。由於 metafile 将图片描述为图像函式呼叫的集合， 
因而它们既比点阵图占用更少的空间，又比点阵图更与装置无关。 

Microsoft Windows 支援两种 metafile 格式和支援这些格式的两组函式。 
我首先讨论从 Windows 1. 0到目前的32位元 Windows 版本都支援的 metafile 
函式，然後讨论为32位元 Windows 系统开发的「增强型 metafile 」 。增强型 
metafile 在原有 metafile 的基础上有了一些改进，应该尽可能地加以利用。 

旧的 metaf i le 格式 

Metafile 既能够暂时储存在记忆体中，也能够以档案的形式储存在磁片上。 
对应用程式来说，两者区别不大，尤其是由 Windows 来处理磁片上储存和载入 
metafile 资料的档案 I / O 时，更是如此。 

记忆体 metafile 的简单利用 

如果呼叫 CreateMetaFile 函式来建立 metafile 装置内容， Windows 就会以 
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早期的格式建立一个 metafile , 然後您可以使用大部分 GDI 绘图函式在该 
metafile 装置内容上进行绘图。这些 GDI 呼叫并不在任何具体的装置上绘图， 
相反地，它们被储存在 metafile 中。当关闭 metafile 装置内容时，会得到 
metafile 的代号。这时就可以在某个具体的装置内容上「播放」这个 metafile ， 
这与直接执行 metafile 中 GDI 函式的效果等同。 

CreateMetaFile 只有一个参数，它可以是 NULL 或档案名称。如果是 NULL ， 
则 metafile 储存在记忆体中。如果是档案名称（以 . WMF 作为 「Windows Metafile , 
的副档名），则 metafile 储存在磁片档案中。 

程式 18-1 中的 METAFILE 显示了在 WM _ CREATE 讯息处理期间建立记忆体 
metafile 的方法，并在 WM _ PAINT 讯息处理期间将图像显示100遍。 


程式 18-1 METAFILE 


METAFILE.C 

/女 . 




METAFILE.C -- Metafile Demonstration 

Program 




(c) Charles Petzold, 1998 

- " 

♦include <windows.h> 



LRESULT CALLBACK WndProc (HWND, 

UINT, WPARAM, LPARAM); 

int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE 

hPrevInstance, 




PSTR szCmdLine, int 

iCmdShow) 




static TCHAR szAppName [] 

=TEXT ("Metafile") 

• 


HWND 


hwnd ; 


MSG 


msg ; 


WNDCLASS 


wndclass ; 


wndclass.style 


=CS HREDRAW | CS VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 



wndclass.cbClsExtra 

=◦; 



wndclass.cbWndExtra 

=◦; 



wndclass.hlnstance 

=hlnstance 

• 

f 


wndclass.hicon 


= Loadlcon (NULL, 

IDI 

APPLICATION); 




wndclass.hCursor 

=LoadCursor (NULL, IDC—ARROW); 


wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 


wndclass.IpszMenuName 

=NULL ; 



wndclass.IpszClassName 

=szAppName ; 



if (!RegisterClass (&wndclass)) 

s 



MessageBox ( 

NULL, TEXT ("This 

;program requires Windows 

NT! 

n ), 
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MB_ICONERROR) ; 

return 0 ; 


szAppName, 


hwnd = CreateWindow ( szAppName, TEXT ("Metafile Demonstration"), 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW_USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc 
IParam) 

{ 

static HMETAFILE 

static int 

HBRUSH 

HDC 

int 

PAINTSTRUCT 


HWND hwnd, UINT message, WPARAM wParam,LPARAM 


hmf ; 

cxClient, cyClient ; 
hBrush ; 

hdc, hdcMeta ; 

x, y ； 

ps ; 


switch (message) 

{ 

case WM—CREATE: 

hdcMeta 

hBrush 

Rectangle 


= CreateMetaFile (NULL); 

= CreatesolidBrush (RGB (0, 0, 255)); 

(hdcMeta, ◦, 0, 100, 100); 


MoveToEx 

(hdcMeta, 

0 , 

0 , 

NULL) 

LineTo 

(hdcMeta, 

100, 

100) 

• 

MoveToEx 

(hdcMeta, 

0 , 

100, 

NULL) 

LineTo 

(hdcMeta, 

100, 

0) 

• 

f 


SelectObj ect (hdcMeta, hBrush); 
Ellipse (hdcMeta, 20, 20, 80, 80); 


hmf = CloseMetaFile (hdcMeta); 
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DeleteObj ect (hBrush) ; 
return 0 ; 

case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

SetMapMode (hdc, MM_ANISOTROPIC); 

SetWindowExtEx (hdc, 1000, 1000, NULL); 
SetViewportExtEx (hdc, cxClient, cyClient, NULL); 

for (x = ◦ ; x < 10 ; x++) 
for (y = 0 ; y < 10 ; y++) 

{ 

SetWindowOrgEx (hdc, -100 * x, -100 * y, NULL); 
PlayMetaFile (hdc, hmf); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

DeleteMetaFile (hmf); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

这个程式展示了在使用记忆体 metafile 时所涉及的4个 metafile 函式的 
用法。第一个是 QreateMetaFile 。 在 WM_CREATE 讯息处理期间用 NULL 参数呼叫 
该函式，并传回 metafile 装置内容的代号。然後， METAFILE 利用这个 metafileDC 
来绘制两条直线和一个蓝色椭圆。这些函式呼叫以二进位形式储存在 metafile 
中。 CloseMetaFile 函式传回 metafile 的代号。因为以後还要用到该 metafile 

代号，所以把它储存在静态变数。 

该 metafile 包含 GDI 函式呼叫的二进位表示码，它们是两个 MoveToEx 呼 
叫、两个 LineTo 呼叫、一个 SelectObject 呼叫（指定蓝色画刷）和一个 Ellipse 
呼叫。座标没有指定任何映射方式或转换，它们只是作为数值资料被储存在 

metafile 中。 

在 WM_PAINT 讯息处理期间， METAFILE 设定一种映射方式并呼叫 
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PlayMetaFile 在视窗中绘制物件100次。 Metafile 中函式呼叫的座标按照目的 
装置内容的目前变换方式加以解释。在呼叫 PlayMetaFile 时，事实上是在重复 
地呼叫最初在 WM_CREATE 讯息处理期间建立 metafile 时，在 CreateMetaFile 
和 CloseMetaFile 之间所做的所有呼叫。 

和任何 GDI 物件一样， metafile 物件也应该在程式终止前被删除。这是在 
WM _ DESTR 0 Y 讯息处理期间用 DeleteMetaFile 函式处理的工作。 

METAFILE 程式的结果如图 18-1 所示。 
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图 18-1 METAFILE 程式执行结果显示 


将 metafile 储存在磁碟上 

在上面的例子中， CreateMetaFile 的 NULL 参数表示要建立储存在记忆体中 
的 metafile 。 我们也可以建立作为档案储存在磁碟上的 metafile ， 这种方法对 
於大的 metafile 比较合适，因为可以节省记忆体空间。而另一方面，每次使用 
磁片上的 metafile 时，就需要存取磁片。 

要把 METAFILE 转换为使用 metafile 磁片档案的程式，必须把 
CreateMetaFile 的 NULL 参数替换为档案名称。在 WM _ CREATE 处理结束时，可以 
用 metafile 代号来呼叫 DeleteMetaFile ， 这样代号被删除，但是磁片档案仍然 
被储存著。 

在处理 WM _ PAINT 讯息处理期间，可以通过呼叫 GetMetaFile 来取得此磁碟 
档案的 metafile 代号： 
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hmf = GetMetaFile (szFileName) ; 

现在就可以像前面那样显示这个 metafile 。 在 WM _ PAINT 讯息处理结束时， 
可以用下面的叙述删除该 metafile 代号： 

DeleteMetaFile (hmf); 

在开始处理 WM _ DESTROY 讯息时，不必删除 metafile , 因为它已经在 
WM _ CREATE 讯息和每个 WM _ PAINT 讯息结束时被删除了，但是仍然需要删除磁碟 
档案： 

DeleteFile (szFileName) ; 

当然，除非您想储存该档案。 

正如在第十章讨论过的， metafile 也可以作为使用者自订资源。您可以简 
单地把它当作资料块载入。如果您有一块包含 metafile 内容的资料，那么您可 
以使用 

hmf = SetMetaFileBitsEx (iSize, pData); 

来建立 metafile 。 SetMetaFileBitsEx 有一个对应的函式 - 

GetMetaFileBitsEx , 此函式将 metafile 的内容复制到记忆体块中。 

老式 metafile 与剪贴簿 

老式 metafile 有个讨厌的缺陷。如果您具有老式 metafile 的代号，那么， 
当您在显示 metafile 时如何确定它的大小呢？除非您深入分析 metafile 的内 
部结构，否则无法得知。 

此外，当程式从剪贴簿取得老式 metafile 时，如果 metafile 被定义为在 
MM _ IS 0 TR 0 PIC 或 MM _ ANIS 0 TR 0 PIC 映射方式下显示，则此程式在使用该 metafile 
时具有最大程度的灵活性。程式收到该 metafile 後，就可以在显示它之前简单 
地通过设定视埠的范围来缩放图像。然而，如果 metafile 内的映射方式被设定 
为 MM _ IS 0 TR 0 PIC 或 MM _ ANIS 0 TR 0 PIC ， 则收到该 metafile 的程式将无法继续执 
行。程式仅能在显示 metafile 之前或之後进行 GDI 呼叫，不允许在显示 metafile 
当中进行 GDI 呼叫。 

为了解决这些问题，老式 metafile 代号不直接放入剪贴簿供其他程式取得， 
而是作为 「 metafile 图片」 （ METAFILEPICT 结构型态）的一部分。此结构使得 
从剪贴簿上取得 metafile 图片的程式能够在显示 metafile 之前设定映射方式 
和视埠范围。 

METAFILEPICT 结构的长度为16个位元组，定义 如下： 

typedef struct tagMETAFILEPICT 
{ 

LONG mm ; // mapping mode 

LONG xExt ; // width of the metafile image 

LONG yExt ; // height of the metafile image 
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LONG hMF ; // handle to the metafile 

} 

METAFILEPICT ; 

对於 MM _ IS 0 TR 0 PIC 和 MM _ ANIS 0 TR 0 PIC 以外的所有映射方式，图像大小用 
xExt 和 yExt 值表示，其单位是由 mm 给出的映射方式的单位。利用这些资讯， 
从剪贴簿复制 metafile 图片结构的程式就能够确定在显示 metafile 时所需的 
显示空间。建立该 metafile 的程式可以将这些值设定为输入 metafile 的 GDI 

绘制函式中所使用的最大的 x 座标和 y 座标值。 

在 MM _ IS 0 TR 0 PIC 和 MM _ ANIS 0 TR 0 PIC 映射方式下， xExt 和 yExt 栏位有不同 

的功能。我们在第五章中曾介绍过一个程式，该程式为了在 GDI 函式中使用与 
图像实际尺寸无关的逻辑单位而采用 MM _ IS 0 TR 0 PIC 或 MM _ ANIS 0 TR 0 PIC 映射方 
式。当程式只想保持纵横比而可以忽略图形显示平面的大小时，采用 
MM _ IS 0 TR 0 PIC 模式； 反之，当不需要考虑纵横比时采用 MM _ ANIS 0 TR 0 PIC 模式。 
您也许还记得，第五章中在程式将映射方式设定为 MM _ IS 0 TR 0 PIC 或 
MM _ ANIS 0 TR 0 PIC 後，通常会呼叫 SetWindowExtEx 和 SetViewportExtEx 。 
SetWindowExtEx 呼叫使用逻辑单位来指定程式在绘制时使用的单位，而 
SetViewportExtEx 呼叫使用的装置单位大小则取决於图形显示平面（例如，视 
窗显示区域的大小）。 

如果程式为剪贴簿建立了 MM _ IS 0 TR 0 PIC 或 MMJVNISOTROPIC 方式的 
metafile , 则该 metafile 本身不应包含对 SetViewportExtEx 的呼叫，因为该 
呼叫中的装置单位应该依据建立 metafile 的程式的显示平面，而不是依据从剪 
贴簿读取并显示 metafile 的程式的显示平面。从剪贴簿取得 metafile 的程式 
可以利用 xExt 和 yExt 值来设定合适的视埠范围以便显示 metafile 。 但是当映 
射方式是 MM _ IS 0 TR 0 PIC 或 MM _ ANIS 0 TR 0 PIC 时， metafile 本身包含设定视窗范 
围的呼叫。 Metafile 内的 GDI 绘图函式的座标依据这些视窗的范围。 

建立 metafile 和 metafile 图片遵循以下规则： 

• 设定 METAFILEPICT 结构的 mm 栏位来指定映射方式。 

• 对於 MM _ IS 0 TR 0 PIC 和 MM _ ANIS 0 TR 0 PIC 以外的映射方式 ， xExt 与 yExt 
栏位设定为图像的宽和高，单位与 mm 栏位相对应。对於在 MM _ IS 0 TR 0 PIC 
或 MMJVNISOTROPIC 方式下显示的 metafile , 工作要复杂一些。在 
MM _ ANIS 0 TR 0 PIC 模式下，当程式既不对图片大小跟纵横比给出任何建议 
资讯时， xExt 和 yExt 的值均为零。在这两种模式下，如果 xExt 和 yExt 
的值为正数，它们就是以 0. Okim 单位 （ MM _ HIMETRIC 单位）表示该图像 
的宽度和高度。在 MM _ IS 0 TR 0 PIC 方式下，如果 xExt 和 yExt 为负值， 
它们就指出了图像的纵横比而不是大小。 
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籲在 MM _ IS 0 TR 0 PIC 和 MM _ ANIS 0 TR 0 PIC 映射方式下， metafile 本身含有对 
SetWindowExtEx 的呼叫，也可能有对 SetWindowOrgEx 的呼叫。亦即， 
建立 metafile 的程式在 metafile 装置内容中呼叫这些函式 。 Metafile 
― * 般不会包含对 SetMapMode、SetViewportExtEx 或 SetViewportOrgEx 
的呼叫。 

• metafile 应该是记忆体 metafile , 而不是 metafile 档案。 

这里有一段范例程式码，它建立 metafile 并将其复制到剪贴簿。如果 
metafile 使用 MM _ IS 0 TR 0 PIC 或 MM _ ANIS 0 TR 0 PIC 映射方式，则该 metafile 的第 

一个呼叫应该设定视窗范围（在其他模式中，视窗的大小是固定的）。无论在 
哪种模式下，视窗的位置应如下 设定： 

hdcMeta = CreateMetaFile (NULL); 

SetWindowExtEx (hdcMeta,...); 

SetWindowOrgEx (hdcMeta,...); 

Metafile 绘图函式中的座标决定於这些视窗范围和视窗原点。当程式使用 
GDI 呼叫在 metafile 装置内容中绘制完成後，关闭 metafile 以得到 metafile 

代号： 

hmf = CloseMetaFile (hdcMeta) ; 

该程式还需要定义指向 METAFILEPICT 型态结构的指标，并为此结构配置一 


块整体记忆体: 


GLOBALHANDLE 

hGlobal ; 

LPMETAFILEPICT pMFP ; 

其他行程式 



hGlobal: GlobalAlloc (GHND 

GMEM—SHARE ， sizeof (METAFILEPICT)); 

pMFP = (LPMETAFILEPICT) GlobalLock (hGlobal); 

接著，程式设定该结构的 4 个 栏位： 

pMFP_>mm 二 

MM — …； 


pMFP_>xExt 二 

• • • « 


pMFP->yExt 二 

• • • « 


pMFP->hMF 二 

hmf ; 


GlobalUnlock 

(hGlobal); 



然後，程式将包含有 metafile 图片的整体记忆体块传送给剪 贴簿: 


OpenClipboard (hwnd) ; 

EmptyClipboard (); 

SetClipboardData (CF—METAFILEPICT, hGlobal); 

Closedipboard (); 

完成这些呼叫後， hGlobal 代号（包含 metafile 图片结构的记忆体块）和 
hmf 代号 （ metafile 本身）就对建立它们的程式失效了。 

现在来看一看难的部分。当程式从剪贴簿取得 metafile 并显示它时，必须 
完成下列步骤： 
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1. 程式利用 metafile 图片结构的 mm 栏位设定映射方式。 

2. 对於 MM _ IS 0 TR 0 PIC 或 MM _ ANIS 0 TR 0 PIC 以外的映射方式，程式用 xExt 
和 yExt 值设定剪贴矩形或简单地设定图像大小。而在 MM _ IS 0 TR 0 PIC 和 
MM _ ANIS 0 TR 0 PIC 映射方式，程式使用 xExt 和 yExt 来设定视埠范围。 

3. 然後，程式显示 metafile 。 

下面程式码，首先打开剪贴簿，得到 metafile 图片结构代号并将其 锁定： 

OpenClipboard (hwnd) ; 

hGlobal = GetClipboardData (CF_METAFILEPICT); 
pMFP = (LPMETAFILEPICT) GlobalLock (hGlobal); 

现在可以储存目前装置内容的属性，并将映射方式设定为结构中的 mm 值： 

SaveDC (hdc); 

SetMappingMode (pMFP->mm); 

如果映射方式不是 MM _ IS 0 TR 0 PIC 或 MM _ ANIS 0 TR 0 PIC ， 则可以用 xExt 和 yExt 


的值设定剪贴矩形。由於这两个值是逻辑单位，必须用 LPtoDP 将其转换为用於 
剪贴矩形的装置单位的座标。也可以简单地储存这些值以掌握图像的大小。 

对於 MM _ IS 0 TR 0 PIC 或 MM _ ANIS 0 TR 0 PIC 映射方式， xExt 和 yExt 用来设定视 


埠范围。下面有一个用来完成此项任务的函式，如果 xExt 和 yExt 没有建议的 
大小，则该函式假定 cxClient 和 cyClient 分别表示 metafile 显示区域的图素 
高度和宽度。 


void PrepareMetaFile ( HDC hdc, LPMETAFILEPICT pmfp, 

int cxClient, int cyClient) 

{ 


int xScale, yScale, iScale ; 

SetMapMode (hdc, pmfp—>mm); 

if (pmfp->mm == MM—ISOTROPIC || pmfp->mm == MM_ANISOTROPIC) 

{ 


if (pmfp->xExt == 0) 

SetViewportExtEx (hdc, cxClient , cyClient, NULL); 
else if (pmfp->xExt > 0) 

SetViewportExtEx (hdc, 

pmfp->xExt * GetDeviceCaps (hdc, HORZRES) / 

GetDeviceCaps (hdc, HORZSIZE) / 100), 

pmfp->yExt * GetDeviceCaps (hdc, VERTRES) / 

GetDeviceCaps (hdc, VERTSIZE) / 100), NULL); 
else if (pmfp->xExt < 0) 

{ 

xScale = 100 * cxClient * GetDeviceCaps (hdc, HORZSIZE) / 
GetDeviceCaps (hdc, HORZRES) / -pmfp->xExt ; 

IScale = 100 * cyClient * GetDeviceCaps (hdc, VERTSIZE) / 
GetDeviceCaps (hdc, VERTRES) / -pmfp->yExt ; 

iScale = min (xScale, yScale); 
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SetViewportExtEx (hdc, -pmfp->xExt * iScale * GetDeviceCaps (hdc, HORZRES) 

/ 

GetDeviceCaps (hdc, HORZSIZE) / 100, -pmfp->yExt * iScale 
* GetDeviceCaps (hdc, VERTRES) / GetDeviceCaps (hdc, VERTSIZE) / 100, NULL); 


上面的程式码假设 xExt 和 yExt 同时都为零、大於零或小於零，这三种状 
态之一。如果范围为零，表示没有建议大小或纵横比，视燁范围设定为显示 
metafile 的区域。如果大於零，则 xExt 和 yExt 的值代表图像的建议大小，单 
位是 0. 01 mm 。 GetDeviceCaps 函式用来确定每 0. 01 mm 中包含的图素数，并且该 
值与 metafile 图片结构的范围值相乘。如果小於零，则 xExt 和 yExt 的值表示 
建议的纵横比而不是建议的大小。 iScale 的值首先根据对应 cxClient 和 
cyClient 的毫米表示的纵横比计算出来，该缩放因数用於设定图素单位的视埠 
范围。 

完成了上述工作後，可以设定视埠原点，显示 metafile ， 并恢复装置 内容: 

PlayMetaFile (pMFP->hMF) ; 

RestoreDC (hdc, -1); 

然後，对记忆体块解锁并关闭剪 贴簿： 

GlobalUnlock (hGlobal) ; 

Closedipboard (); 

如果程式使用增强型 metafile 就可以省去这项工作。当某个应用程式将这 
些格式放入剪贴簿而另一个程式却要求从剪贴簿中获得其他格式时， Windows 剪 
贴簿会自动在老式 metafile 和增强型 metafile 之间进行格式转换。 

增强型 metafile 

「增强型 metafile 」 格式是在32位元 Windows 版本中发表的。它包含一 
组新的函式呼叫、一对新的资料结构、新的剪贴簿格式和新的档案副档名 . EMF 。 

这种新的 metafile 格式最重要的改进是加入可通过函式呼叫取得的更丰富 
的表头资讯，这种表头资讯可用来帮助应用程式显示 metafile 图像。 

有些增强型 metafile 函式使您能够在增强型 metafile ( EMF ) 格式和老式 
metafile 格式（也称作 Windows metafile ( WMF ) 格式)之间来回转换。当然， 
这种转换很可能遇到麻烦，因为老式 metafile 格式并不支援某些，例如 GDI 绘 
图路径等，新的32位元图形功能。 

基呈序 

程式 18-2 所示的 EMF 1 建立并显示增强型 metafile 。 
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程式 18-2 EMF1 

EMF1 

• C 




卜 -- 






EMF1.C -- Enhanced Metafile 

Demo #1 





(c) Charles Petzold, 1998 


-V 

♦include <windows.h> 




LRESULT CALLBACK WndProc (HWND, 

UINT, WPARAM, LPARAM); 


int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance 

f 




LPSTR IpszCmdLine, int 

nCmdShow) 

/ 





static TCHAR szAppName[] 

=TEXT ("EMFl"); 



HWND 


hwnd ; 



MSG 


msg ; 



WNDCLASS 


wndclass ; 



wndclass.style 


=CS HREDRAW | 

CS VREDRAW ; 


wndclass.lpfnWndProc 


=WndProc ; 



wndclass.cbClsExtra 


=◦; 



wndclass.cbWndExtra 


=◦; 



wndclass.hlnstance 


=hlnstance ; 



wndclass.hicon 


=Loadlcon (NULL, IDI APPLICATION); 


wndclass.hCursor 


=LoadCursor (NULL, 工 DC—ARROW) 

• 

r 


wndclass.hbrBackground 


=GetStockObject (WHITE BRUSH) 

• 

r 


wndclass.IpszMenuName 


=NULL ; 



wndclass.IpszClassName 


=szAppName ; 



if (!RegisterClass (&wndclass)) 

/ 



MessageBox ( NULL, 

TEXT (" This program requires Windows NT !’’）， 




szAppName, MB 

工 CONERROR); 


return 0 

} 

• 

r 




hwnd = CreateWindow ( szAppName, TEXT ("Enhanced Metafile 

Demo #1 "), 


WS_ 

—OVERLAPPEDWINDOW, 



CW 

USEDEFAULT, CW USEDEFAULT, 



CW 

USEDEFAULT, CW USEDEFAULT, 



NULL, 

NULL, hlnstance, NULL); 



ShowWindow (hwnd, nCmdShow) ‘ 

• 

f 



UpdateWindow (hwnd); 





while (GetMessage (&msg. 

NULL, ◦, 0)) 
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{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( 
IParam) 

{ 

static HENHMETAFILE 
HDC 

PAINTSTRUCT 

RECT 


HWND hwnd, UINT message , WPARAM wParam,LPARAM 


hemf 


hdc, hdcEMF ; 

ps ; 

rect ; 


switch (message) 

{ 

case WM—CREATE: 

hdcEMF = CreateEnhMetaFile (NULL, NULL, NULL, NULL); 


Rectangle (hdcEMF, 10 0, 100, 200, 200); 


MoveToEx 

(hdcEMF, 

100, 

100, 

NULL); 

LineTo 

(hdcEMF, 

200, 

200) 

參 

r 

MoveToEx 

(hdcEMF, 

200, 

100, 

NULL); 

LineTo 

(hdcEMF, 

100, 

200) 

參 

f 


hemf = CloseEnhMetaFile (hdcEMF); 
return 0 ; 


case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 
GetClientRect (hwnd, &rect); 


rect.left = 

rect.right = 3 

rect.top = 

rect.bottom = 3 


rect.right 

rect.right / 4 

rect.bottom 
rect.bottom / 4 


/ 4 ; 
/ 4 ; 


PlayEnhMetaFile (hdc, hemf, &rect); 


EndPaint (hwnd, &ps); 
return 0 ; 


case WM—DESTROY: 

DeleteEnhMetaFile (hemf); 
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PostQuitMessage ( 0 ) ; 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

在 EMF 1 的视窗讯息处理程式处理 WM _ CREATE 讯息处理期间，程式首先通过 
呼叫 CreateEnhMetaFi 1 e 来建立增强型 metafile 。 该函式有4个参数，但可以 
把它们都设为 NULL 。 稍候我将说明这4个参数在非 NULL 情况下的使用方法。 

和 CreateMetaFile 一样， CreateEnhMetaFile 函式传回特定的装置内容代 
号。该程式利用这个代号绘制一个矩形和该矩形的两条对角线。这些函式呼叫 
及其参数被转换为二进位元的形式并储存在 metafile 中。 

最後通过对 CloseEnhMetaFile 函式的呼叫结束了增强型 metafile 的建立 
并传回指向它的代号。该档案代号储存在 HENHMETAFILE 型态的静态变数中。 

在 WM _ PAINT 讯息处理期间， EMF 1 以 RECT 结构取得程式的显示区域视窗大 
小。通过调整结构中的4个栏位，使该矩形的长和宽为显示区域视窗长和宽的 
一半并位於视窗的中央。然後 EMF 1 呼叫 PlayEnhMetaFile ， 该函式的第一个参 
数是视窗的装置内容代号，第二个参数是该增强型 metafile 的代号，第三个参 
数是指向 RECT 结构的指标。 

在 metafile 的建立程序中， GDI 得出整个 metafile 图像的尺寸。在本例中， 
图像的长和宽均为100个单位。在 metafile 的显示程序中， GDI 将图像拉伸以 
适应 PlayEnhMetaFile 函式指定的矩形大小。 EMF 1 在 Windows 下执行的三个执 
行实体如图 18-2 所示。 
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图 18-2 EMF1 得萤幕显示 


最後，在 WM — DESTROY 讯息处理期间， EMF 1 呼叫 DeleteEnhMetaFile 删除 
metafile 。 


让我们总结一下从 EMF 1 程式学到的一些东西。 

首先，该程式在建立增强型 metafile 时，画矩形和直线的函式所使用的座 
标并不是实际意义上的座标。您可以将它们同时加倍或都减去某个常数，而其 
结果不会改变。这些座标只是在定义图像时说明彼此间的对应关系。 

其次，为了适於在传递给 PlayEnhMetaFile 函式的矩形中显示，图像大小 
会被缩放。因此，如图 18-2 所示，图像可能会变形。尽管 metafile 座标指出 
该图像是正方形的，但一般情况下我们却得不到这样的图像。而在某些时候， 
这又正是我们想要得到的图像。例如，将图像嵌入一段文书处理格式的文字中 
时，可能会要求使用者为图像指定矩形，并且确保整个图像恰好位於矩形中而 
不浪费空间。这样，使用者可通过适当调整矩形的大小来得到正确的纵横比。 

然而有时候，您也许希望保留图像最初的纵横比，因为这一点对於表现视 
觉资讯尤为重要。例如，警察的嫌疑犯草图既不能比原型胖也不能比原型瘦。 
或者您希望保留原来图像的度量尺寸，图像必须是两英寸高，否则就不能正常 
显示。在这种情况下，保留图像的原来尺寸就非常重要了。 

同时也要注意 metafile 中画出的那些对角线似乎没有与矩形顶点相交。这 
是由於 Windows 在 metafile 中储存矩形座标的方式造成的。稍後，会说明解决 
这个问题的方法。 
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揭开内幕 

如果看一看 metafile 的内容会对 metafile 工作的方式有一个更好的理解。 
如果您有一个 metafile 档案，这将很容易做到，程式 18-3 中的 EMF 2 程式建立 
了一*个 metafile 。 


程式 18-3 EMF2 


EMF2 

.C 

EMF2 . C -- Enhanced Metafile 

Demo #2 

(c) Charles Petzold, 1998 


-V 

♦include <windows . h> 




LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 



int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance , 




LPSTR 

IpszCmdLine, int 

nCmdShow) 





static TCHAR szAppName[ ] = TEXT ( n EMF2"); 




HWND 

hwnd ; 




MSG 

msg ; 




WNDCLASS 

wndclass ; 




wndclass . style 

=CS_HREDRAW | 

CS_VREDRAW ; 


wndclass . lpfnWndProc 

=WndProc ; 




wndclass . cbClsExtra 

=◦; 




wndclass . cbWndExtra 

=◦; 




wndclass • hlnstance 

=hlnstance ; 




wndclass . hicon 

=Loadlcon (NULL, 

IDI APPLICATION); 


wndclass . hCursor 

=LoadCursor (NULL, 工 DC_ 

ARROW) 

• 

r 


wndclass . hbrBackground 

=GetStockObject (WHITE_ 

BRUSH) 

• 

r 


wndclass . IpszMenuName 

=NULL ; 




wndclass . IpszClassName 

=szAppName ; 




if (!RegisterClass (&wndclass)) 

/ 




MessageBox ( NULL, 

TEXT ("This program requires Windows NT !’’）， 



szAppName A MB 

工 CONERROR); 


return 0 ; 

} 





hwnd = CreateWindow (szAppName, TEXT ("Enhanced Metafile Demo #2") , 


WS_OVERLAPPEDWINDOW, 




CW USEDEFAULT, CW USEDEFAULT, 




CW USEDEFAULT, CW USEDEFAULT, 
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NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, nCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam, 
IParam) 

{ 

HDC hdc, hdcEMF ; 

HENHMETAFILE hemf ; 

PAINTSTRUCT ps ; 

RECT rect ; 

switch (message) 

{ 

case WM—CREATE: 

hdcEMF = CreateEnhMetaFile (NULL, TEXT ("emf2.emf"), NULL, 
TEXT ( n EMF2\0EMF Demo #2\0")); 

if ( !hdcEMF) 

return 0 ; 


Rectangle (hdcEMF A 10 0, 100, 200, 200); 


MoveToEx (hdcEMF, 100, 100, NULL); 

LineTo (hdcEMF, 200, 200); 


MoveToEx (hdcEMF, 200, 100, NULL); 

LineTo (hdcEMF, 100, 200); 


hemf = CloseEnhMetaFile (hdcEMF); 


DeleteEnhMetaFile (hemf); 
return 0 ; 


case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 
GetClientRect (hwnd, &rect); 


LPARAM 
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rect.left = rect.right / 4 ; 

rect.right = 3 * rect.right / 4 ; 

rect.top = rect.bottom / 4 ; 

rect.bottom = 3 * rect.bottom / 4 ; 

if (hemf = GetEnhMetaFile (TEXT ("emf2.emf"))) 

{ 

PlayEnhMetaFile (hdc, hemf, &rect); 

DeleteEnhMetaFile (hemf); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

在 EMF 1 程式中， CreateEnhMetaFile 函式的所有参数均被设定为 NULL 。 在 
EMF 2 中，第一个参数仍旧设定为 NULL ， 该参数还可以是装置内容代号。 GDI 使 
用该参数在 metafile 表头中插入度量资讯，很快我会讨论它。如果该参数为 
NULL ， 则 GDI 认为度量资讯是由视讯装置内容决定的。 

CreateEnhMetaFile 函式的第二个参数是档案名称。如果该参数为 NULL (在 
EMF 1 中为 NULL ， 但在 EMF 2 中不为 NULL ) ，则该函式建立记忆体 metafile 。 EMF 2 
建立名为 EMF 2. EMF 的 metafile 档案。 

函式的第三个参数是 RECT 结构的位址，它指出了以 0.01 mm 为单位的 
metafile 的总大小。这是 metafile 表头资料中极其重要的资讯（这是早期的 
Windows metafile 格式的缺陷之 一）。 如果该参数为 NULL ， GDI 会计算出尺寸。 
我比较喜欢让作业系统替我做这些事，所以将该参数设定为 NULL 。 当应用程式 
对性能要求比较严格时，就需要使用该参数以避免让 GDI 处理太多东西。 

最後的参数是描述该 metafile 的字串。该字串分为两 部分： 第一部分是以 
NULL 字元结尾的应用程式名称（不一定是程式的档案名称），第二部分是描述 
视觉图像内容的说明，以两个 NULL 字元结尾。例如用 C 中的符号「\0」作为 NULL 
字元，则该描述字串可以是 rLoonyCad V 6. 4\0 Flying Frogs \0\0」 。由於在 C 
中通常会在使用的字串末尾放入一个 NULL 字元，所以如 EMF 2 所示，在末尾仅 
需一个「\0」。 

建立完 metafile 後，与 EMF 1 一样， EMF 2 也透过利用由 CreateEnhMetaFile 
函式传回的装置内容代号进行一些 GDI 函式呼叫。然後程式呼叫 
CloseEnhMetaFile 删除装置内容代号并取得完成的 metafile 的代号。 
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然後，在 WM _ CREATE 讯息还没处理完毕时， EMF 2 做了一些 EMF 1 没有做的事 
情：在获得 metafile 代号之後，程式呼叫 DeleteEnhMetaFile 。 该操作释放了 
用於储存 metafile 的所有记忆体资源。然而， metafile 档案仍然保留在磁碟机 
中（如果愿意，您可以使用如 DeleteFile 的档案删除函式来删除该档案）。注 
意 metafile 代号并不像 EMF 1 中那样储存在静态变数中，这意味著在讯息之间 
不需要储存它。 

现在，为了使用该 metafile , EMF 2 需要存取磁片档案。这是在 WM_PAINT 
讯息处理期间透过呼叫 GetEnhMetaFile 进行的。 Metafile 的档案名称是该函式 
的唯一参数，该函式传回 metafile 代号。和 EMF 1 —样， EMF 2 将这个档案代号 
传递给 PlayEnhMetaFile 函式。该 metafile 图像在 PlayEnhMetaFile 函式的最 
後一个参数所指定的矩形中显示。与 EMF 1 不同的是， EMF 2 在 WM _ PAINT 讯息结 
束之前就删除该 metafile 。 此後每次处理 WM _ PAINT 讯息时， EMF 2 都会再次读 
取 metafile , 显示并删除它。 

要记住，对 metafile 的删除操作仅是释放了用以储存 metafile 的记忆体 
资源而已，磁片 metafile 甚至在程式执行结束後还保留在磁片上。 


由於 EMF 2 留下了 metafile 档案，您可以看一看它的内容。图 18-3 显示了 
该程式建立的 EMF 2. EMF 档案的一堆十六进位代码。 
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图 18-3 EMF2. EMF 的十六进位代码 


图 18-3 所不的 metafile 是 EMF 2 在 Microsoft Windows NT 4下，视讯显 
示器的解析度为1024 768时建立的。同一程式在 Windows 98下建立的 metafile 
会比前者少12个位元组，这一点将在稍後讨论。同样地，视讯显示器的解析度 
也影响 metafile 表头的某些资讯。 

增强型 metafile 格式使我们对 metafile 的工作方式有更深刻的理解。增 


第 1033 页 


















Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


强型 metafile 由可变长度的记录组成，这些记录的一般格式由 ENHMETARE ⑶ RD 
结构说明，它在 WINGDI . H 表头档案中定义 如下： 


typedef struct t agENHME TARE CORD 

; 



i 

DWORD iType ; 

// record 

type 

DWORD nSize ; 

// record 

size 

DWORD dParm [1]; 

\ 

// parameters 


/ 

ENHMETARECORD ; 




当然，那个只有一个元素的阵列指出了阵列元素的变数。参数的数量取决 
於记录型态。 iType 栏位可以是定义在 WINGDI . H 档案中以字首 EMR _ 开始的近百 
个常数之一。 nSize 栏位是总记录的大小，包括 iType 和 nSize 栏位以及一个或 
多个 dParm 栏位。 

有了这些知识後，让我们看一下图18-3。第一个栏位型态为0 x 00000001， 
大小为0 x 00000088，所以它占据档案的前136个位元组。记录型态为1表示常 
数 EMR _ HEADER 。 我们不妨把对表头纪录的讨论往後搁，先跳到位於第一个记录 
末尾的偏移量 0 x 0088 处。 

後面的5个记录与 EMF 2 建立 metafile 之後的5个 GDI 函式呼叫有关。该 
记录在偏移量 0 x 0088 处有一个值为 0 x 0000002 B 的型态代码，这代表 
EMR _ RECTANGLE ， 很明显是用於 Rectangle 呼叫的 metafile 记录。它的长度为 
0 x 00000018 (十进位 24) 位元组，用以容纳4个32位元参数。实际上 Rectangle 
函式有5个参数，但是第一个参数，也就是装置内容代号并未储存在 metafile 
中，因为它没有实际意义。尽管在 EMF 2 的函式呼叫中指定了矩形的顶点座标分 
别是（100， 100) 和(200，200)，但4个参数中的2个是 0 x 00000063 (99)，另外 
2个是 0 x 000000 C 6 (198)。 EMF 2 程式在 Windows 98下建立的 metafile 显示出 
前两个参数是 0 x 00000064 (100)，後2个参数是 0 x 000000 C 7 (199) 。显然，在 
Rectangle 参数储存到 metafile 之前， Windows 对它们作了调整，但没有保持 

一致。这就是对角线端点与矩形顶点不能重合的原因。 

其次，有4个 16位元记录与2个 MoveToEx (0 x 0000001 B 或 EMR _ M 0 VET 0 EX ) 
和 LineTo (0 x 00000036 或 EMR _ LINET 0) 呼叫有关。位於 metafile 中的参数与传 
递给函式的参数相同。 

Metafile 以20个位元组长的型态代码为 0 x 0000000 E 或 EMR _ E 0 F ( 「 end of 
file 」） 的记录结尾。 

增强型 metafile 总是以表头纪录开始。它对应於 ENHMETAHEADER 型态的结 
构，定义如下： 

typedef struct tagENHMETAHEADER 
{ 
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DWORD iType ; // EMR—HEADER = 1 

DWORD nSize ; // structure size 

RECTL rclBounds ; // bounding rectangle in pixels 

RECTL rclFrame ; // size of image in 0.01 millimeters 

DWORD dSignature ; // ENHMETA—SIGNATURE = " EMF" 

DWORD nVersion ; // 0x00010000 

DWORD nBytes ; // file size in bytes 

DWORD nRecords ; // total number of records 

WORD nHandles ; // number of handles in handle table 

WORD sReserved ; 

DWORD nDescription ; // character length of description string 

DWORD offDescription ; // offset of description string in file 

DWORD nPalEntries ; // number of entries in palette 

SIZEL szlDevice ; // device resolution in pixels 

SIZEL szlMillimeters ; // device resolution in millimeters 

DWORD cbPixelFormat ; // size of pixel format 

DWORD offPixelFormat ; // offset of pixel format 

DWORD bOpenGL ; // FALSE if no OpenGL records 

} 

ENHMETAHEADER ; 

这种表头纪录的存在可能是增强型 metafile 格式对早期 Windows metafile 
所做的最为重要的改进。不需要对 metafile 档案使用档案1/0函式来取得这些 
表头资讯。如果具有 metafile 代号，就可以使用 GetEnhMetaFileHeader 函式: 

GetEnhMetaFileHeader (hemf, cbSize, &emh); 

第一个参数是 metafile 代号。最後一个参数是指向 ENHMETAHEADER 结构的 

指标。第二个参数是该结构的大小。可以使用类似的 
GetEnh-MetaFileDescription 函式取得描述字串。 

如上面所定义的， ENHMETAHEADER 结构有100位元组长，但在 
MF 2. EMFmetafile 中，记录的大小包括描述字串，所以大小为0 x 88，即136位 
元组。而 Windows 98 metafile 的表头纪录不包含 ENHMETAHEADER 结构的最後3 
个栏位，这一点解释了 12个位元组的差别。 

ixlBoimds 栏位是指出图像大小的 RECT 结构，单位是图素。将其从十六进 
位转换过来，我们看到该图像正如我们希望的那样，其左上角位於(100, 100)， 
右下角位於(200, 200)。 

rclFrame 栏位是提供相同资讯的另一个矩形结构，但它是以 0. 01毫米为单 
位。在这种情况下，该档案显示两对角顶点分别位於 （0 x 0 C 35,0 x 0 C 35) 和 
(0 xl 86 A ，0 xl 86 A )， 用十进位表示为（3125, 3125) 和(6250, 6250) 的矩形。这些数 
字是怎么来的？我们很快就会明白。 

dSignature 栏位始终为值 ENHMETA_SIGNATURE 或 0 x 464 D 4520。 这看上去是 
一个奇怪的数字，但如果将位元组的排列顺序倒过来（就像 Intel 处理器在记 
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忆体中储存多位元组数那样）并转换成 ASCII 码，就变成字串 〃 EMF"。dVersion 
栏位的值始终是0 x 00010000。 

其後是 nBytes 栏位，该栏位在本例中是 0 x 000000 F 4， 这是该 metafile 的 

总位元组数。 nRecords 栏位（在本例中是 0 x 00000007) 指出了记录数-包括 

表头纪录、5个 GDI 函式呼叫和档案结束记录。 

下面是两个十六位元的栏位。 nHandles 栏位为0 x 0001。该栏位一般指出 
metafile 所使用的图形物件（如画笔、画刷和字体）的非内定代号的数量。由 
於没有使用这些图形物件，您可能会认为该栏位为零，但实际上 GDI 自己保留 
了第一个栏位。我们将很快见到代号储存在 metafile 中的方式。 

下两个栏位指出描述字串的字元个数，以及描述字串在档案中的偏移量， 
这里它们分别为 0 x 00000012 (十进位数字 18) 和0 x 00000064。如果 metafile 

没有描述字串，则这两个栏位均为零。 

nPalEntries 栏位指出在 metafile 的调色盘表中条目的个数，本例中没有 

这种情况。 

接著表头纪录包括两个 SIZEL 结构，它们包含两个32位栏位， cx 和 cy 。 
szlDevice 栏位（在 metafile 中的偏移量为 0 x 0040) 指出了以图素为单位的 
输出设备大小， szlMillimeters 栏位（偏移量为 0 x 0050) 指出了以毫米为单位 
的输出设备大小。在增强型 metafile 文件中，这个输出设备被称作「参考设备 
(reference device ) 」。它是依据作为第一个参数传递给 CreateEnhMetaFile 
呼叫的代号所指出的装置内容。如果该参数设为 NULL ， 则 GDI 使用视讯显示器。 
当 EMF 2 建立上面所示的 metafile 时，正巧是在 Windows NT 上以1024 768显 
示模式工作，因此这就是 GDI 使用的参考设备。 

GDI 通过呼叫 GetDeviceCaps 取得此资讯。 EMF 2. EMF 中的 szlDevice 栏位 
是 0 x 0400 0 x 0300 ( 即1024 768) ，它是以 H 0 RZRES 和 VERTRES 作为参数呼叫 
GetDeviceCaps 得到的 。 szlMillimeters 栏位是 0 x 140 0 xF 0, 或320 240，是 
以 H 0 RZSIZE 和 VERTSIZE 作为参数呼叫 GetDeviceCaps 得到的。 

通过简单的除法就可以得出图素为 0. 3125腿高和 0. 3125 mm 宽，这就是前 
面描述的 GDI 计算 rclFrame 矩形尺寸的方法。 

在 metafile 中， ENHMETAHEADER 结构後跟一个描述字串，该字串是 
CreateEnhMetaFile 函式的最後一个参数。在本例中，该字串由後跟一个 NULL 
字元的 「 EMF 2」 字串和後跟两个 NULL 字元的 「EMF Demo #2」字串组成。总共 
18个字元，要是以 Unicode 方式储存则为36个字元。无论建立 metafile 的程 
式执行在 Windows NT 还是 Windows 98下，该字串始终以 Unicode 方式储存。 
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metafile 与 GDI 物件 

我们已经知道了 GDI 绘图命令储存在 metafile 中方式，现在看一下 GDI 物 
件的储存方式。程式 18-4 EMF 3 除了建立用於绘制矩形和直线的非内定画笔和 
画刷以外，与前面介绍的 EMF 2 程式很相似。该程式也对 Rectangle 座标的问题 
提出了一点修改。 EMF 3 程式使用 GetVersion 来确定执行环境是 Windows 98还 
是 Windows NT ， 并适当地调整参数。 


程式 18-4 EMF3 


EMF3 

卜 

.C 

EMF3.C -- Enhanced Metafile 

Demo #3 

(c) Charles 

Petzold, 1998 



一" 

♦include <windows.h> 





LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, 

LPARAM); 



int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 






PSTR szCmdLine, 

int 

iCmdShow) 





i 

static TCHAR szAppName[] = TEXT ( n EMF3 n ) 

• 

r 




HWND 


hwnd ; 




MSG 


msg ; 




WNDCLASS 


wndclass ; 




wndclass.style 


=CS_HREDRAW | 

CS_VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 




wndclass.cbClsExtra 

=◦; 





wndclass.cbWndExtra 

=◦; 





wndclass.hlnstance 

=hlnstance ; 




wndclass•hicon 


= Loadlcon 

(NULL, 

IDI 

APPLICATION); 






wndclass.hCursor 


=LoadCursor (NULL, 

IDC ARROW); 


wndclass.hbrBackground 

=GetStockObject (WHITE BRUSH) 

• 

r 



wndclass.IpszMenuName 

=NULL ; 





wndclass.IpszClassName 

=szAppName 

• 

F 




if (!RegisterClass (&wndclass)) 

/ 





MessageBox ( NULL, 

TEXT ("This 

program requires Windows 

NT ! n ), 




szAppName, MB 

ICONERROR); 


return 0 ; 

} 
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hwnd = CreateWindow ( szAppName, TEXT ("Enhanced Metafile Demo #3 ’’）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 
IParam) 

{ 

LOGBRUSH lb ; 


HDC 

- - r 

hdc. 

hdcEMF ; 

HENHMETAFILE 

hemf ; 


PAINTSTRUCT 

ps ; 


RECT 


rect ; 

switch (message) 



case WM CREATE : 



hdcEMF = CreateEnhMetaFile (NULL, 

TEXT ("emf3.emf n ), NULL, 

TEXT ("EMF3\0EMF 

Demo #3\0")); 



SelectObject (hdcEMF, CreateSolidBrush (RGB (◦, ◦, 255))); 


lb.lbStyle 
lb.lbColor 
lb.lbHatch 


BS_SOLID 
RGB (255, 




SelectObj ect (hdcEMF, 

ExtCreatePen (PS SOLID | PS GEOMETRIC, 5, &lb, 0, NULL)); 


if (GetVersion () & 0x80000000) // Windows 98 
Rectangle (hdcEMF, 100, 100, 201, 201); 
else 

// Windows NT 

Rectangle (hdcEMF, 101, 101, 202, 2 02); 
MoveToEx (hdcEMF, 100, 100, NULL); 
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(BLACK PEN))) ; 


(WHITE BRUSH))) 


LineTo 

(hdcEMF, 

200 

, 200); 


MoveToEx 

LineTo 

(hdcEMF, 

(hdcEMF, 

200 

100 

,100, NULL); 

, 200); 

DeleteObject 

(SelectObj ect 

(hdcEMF, 

GetStockObject 

DeleteObject 

(SelectObj ect 

(hdcEMF, 

GetStockObject 

hemf = CloseEnhMetaFile (hdcEMF); 



case WM PAINT : 


DeleteEnhMetaFile (hemf) 
return 0 ; 


hdc = BeginPaint (hwnd, &ps) 


GetClientRect (hwnd, &rect) 


rect.left = 
rect.right = 3 
rect.top = 

rect.bottom = 3 


-k 


-k 


rect.right 

rect.right 
rect.bottom 

rect.bottom 


4 ; 


4 ; 


4 


4 


hemf = GetEnhMetaFile (TEXT ( n emf 3 • emf ’’）） 

PlayEnhMetaFile (hdc, hemf, &rect); 
DeleteEnhMetaFile (hemf); 

EndPaint (hwnd, &ps); 
return 0 ; 


case WM DESTROY: 


PostQuitMessage 
return 0 ; 


( 0 ); 


return DefWindowProc (hwnd, message, wParam, IParam) 


如我们所看到的，当利用 CreateEnhMetaFile 传回的装置内容代号来呼叫 
GDI 函式时，这些函式呼叫被储存在 metafile 中而不是直接输出到萤幕或印表 
机上。然而，一些 GDI 函式根本不涉及特定的装置内容。其中有关建立画笔和 
画刷等图形物件的 GDI 函式十分重要。虽然逻辑画笔和画刷的定义储存在由 GDI 
保留的记忆体中，但是在建立这些物件时，这些抽象的定义并未与任何特定的 
装置内容相关。 

EMF3 呼叫 CreateSolidBrush 和 ExtCreatePen 函式。因为这些函式不需要 
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装置内容代号，'所以 GDI 不会把这些呼叫储存在 metafile 里。当呼叫它们时， 
GDI 函式只是简单地建立图形绘制物件而不会影响 metafile 。 

然而，当程式呼叫 SelectObject 函式将 GDI 物件选入 metafile 装置内容 
时， GDI 既为物件建立函式编码（源自用於储存物件的内部 GDI 资料）也为 


metafile 中的 SelectObject 呼叫进行编码。为了解其工作方式，我们来看一下 
EMF3.EMF 档案的十六进位代码，如图 18-4 所示： 


0000 
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00 

00 

88 

00 

00 

00 

60 

00 

00 

00 

60 

00 

00 
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… EMF. 
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0F 
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图 18-4 EMF 3. EMF 的十六进位代码 


如果把这个 metafile 跟前面的 EMF2. EMF 档案进行比较，第一个不同点就 
是 EMF3. EMF 表头部分中的 rclBounds 栏位。在 EMF2. EMF 中，它指出图像限定 
在座标 (0x64, 0x64) 和 (0xC8, 0xC8) 区域内。而在 EMF3. EMF 中，座标是 (0x60, 0x60) 
和 (OxCC, OxCC) o 这表示使用了较粗的笔。 rclFrame 栏位（以 0. 01mm 为单位指 
出图像大小）也受到影响。 

EMF2. EMF 中的 nBytes 栏位(偏移量为 0x0030) 显示该 metafile 长度为 OxFA 
位元组， EMF3. EMF 中长度为 0x0188 位元组。 EMF2. EMFmetafile 包含 7 个记录 
(一个表头纪录， 5 个 GDI 函式呼叫和一个档案结束记录），但是 EMF3.EMF 档 
案包含 15 个记录。多出的 8 个记录是两个物件建立函式、 4 个对 SelectObject 
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函式的呼叫和两个对 DeleteObject 函式的呼叫。 

nHandles 栏位（在档案中偏移量为 0 x 0038) 指出 GDI 物件的代号个数。该 
栏位的值总是比 metafile 使用的非内定物件数多一 。 （Platform SDK 文件解释 
这个多出来的一是「此表中保留的零索引」）。该栏位在 EMF 2. EMF 的值为1， 
而在 EMF 3. EMF 中的值为3，多出的数指出了画笔和画刷。 

让我们跳到档案中偏移量为 0 x 0088 的地方，即第二个记录（表头纪录之後 
的第一个记录）。记录型态为0 x 27，对应常数为 EMR _ CREATE - BRUSHINDIRECT 。 
该 metafile 记录用於 CreateBrushlndirect 函式，此函式需要指向 L 0 GBRUSH 
结构的指标作为参数。该记录的长度为 0 x 18 (或 24) 位元组。 

每个被选入 metafile 装置内容的非备用 GDI 物件得到一个号码，该号码从 
1开始编号。这在此记录的下4个位元组中指出，在 metafile 中的偏移量是 
0 x 0090。此记录下面的3个4位元组栏位分别对应 L 0 GBRUSH 结构的3个 栏位： 
0 x 00000000 ( BS—SOLID 的 lbStyle 栏位）、 0 x 00 FF 0000 (lbColor 栏位）和 
0 x 00000000 (lbHatch 栏位）。 

下一个记录在 EMF 3. EMF 中的偏移量为 OxOOAO ， 记录型态为0 x 25，或 
EMR _ SELECT 0 BJECT ， 是用於 SelectObject 呼叫的 metafile 记录。该记录的长 
度为 0 x 0 C (或 12) 位元组，下一个栏位是数值0 x 01，指出它是选中的第一个 
GDI 物件，这就是逻辑画刷。 

EMF 3. EMF 中的偏移量 OxOOAC 是下一个记录，它的记录型态为 0 x 5 F 或 
EMR _ EXTCREATEPEN 。 该记录有 0 x 34 (或 52) 个位元组。下一个4位元组栏位是 
0 x 02，它表示这是在 metafile 内使用的第二个非备用 GDI 物件。 

EMR _ EXTCREATEPEN 记录的下4个栏位重复记录大小两次，之间用0栏位隔 
开： 0 x 34、0 x 00、 0 x 34 和0 x 00。下一个栏位是0 x 00010000,它是 PS—SOLID 
(0 x 00000000) 与 PS _ GE 0 METRIC (0 x 00010000) 组合的画笔样式。接下来是5个单 
元的宽度，紧接著是 ExtCreatePen 中使用的逻辑画刷结构的3个栏位，後接0 
栏位。 

如果建立了自订的扩展画笔样式， EMR _ EXTCREATEPEN 记录会超过52个位元 
组，这样会影响记录的第二栏位及两个重复的大小栏位。在描述 L 0 GBRUSH 结构 
的3个栏位後面不会是0 (像在 EMF 3. EMF 中那样），而是指出了虚线和空格的 
数量。这後面接著用於虚线和空格长度的许多栏位。 

EMF 3. EMF 的下一个12位元组的栏位是指出第二个物件（画笔）的另一个 

SelectObject 呼叫。接下来的5个记录与 EMF 2. EMF 中的一样-一个 

0 x 2 B ( EMR _ RECTANGLE ) 的记录型态和两组 OxlB ( EMR _ M 0 VET 0 EX ) 和 0 x 36 
(EMR LINET 0) 记录。 
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这些绘图函式後面跟著两组 0x25 (EMR_SELECTOBJECT) 和 0x28 
(EMR_DELETEOBJECT) 的 12 位元组记录。选择物件记录具有 0x80000007 和 
0x80000000 的参数。在设定高位元时，它指出一个备用物件，在此例中是 0x07 
(对应 BLACK—PEN) 和 0x00 (WHITE—BRUSH ) 。 

DeleteObject 呼叫有 2 和 1 两个参数，用於在 metafile 中使用的两个非内 
定物件。虽然 DeleteObject 函式并不需要装置内容代号作为它的第一个参数， 
但 GDI 显然保留了 metafile 中使用的被程式删除的物件。 

最後， metafile 以 OxOE (EMF—EOF) 记录结束。 

总结一下，每当非内定的 GDI 物件首次被选入 metafile 装置内容时， GDI 
都会为该物件建立函式的记录编码（此例中，为 EMR_CREATEBRUSHINDIRECT 和 
EMR_E)(TCREATEPEN) 。 每个物件有一个依序从 1 开始的唯一数值，此数值由记 
录的第三个栏位表示。跟在此记录後的是引用该数值的 EMR_SELECT0BJECT 记录。 
以後，将物件选入 metafile 装置内容时（在中间时期没有被删除），就只需要 
EMR_SELECT0BJECT 记录了。 

metafile 和点阵图 


现在，让我们做点稍微复杂的事，在 metafile 装置内容中绘制一幅点阵图， 
如程式 18-5 EMF4 所示。 

程式 18-5 EMF4 


EMF4.C 


/* - 


EMF4.C -- 

Enhanced Metafile Demo #4 

(c) Charles Petzold, 1998 


V 

♦define OEMRESOURCE 
♦include <windows.h> 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine 

iCmdShow) 

{ 

static TCHAR 
HWND 
MSG 

WNDCLASS 


int 


szAppName[] 


TEXT ( n EMF4") 
hwnd ; 


msg ; 
wndclass 
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wndclass . style 


=CS_ 

HREDRAW | 

CS VREDRAW ; 


wndclass . lpfnWndProc 


=WndProc ; 




wndclass . cbClsExtra 


=◦; 




wndclass . cbWndExtra 


=◦; 




wndclass.hlnstance 


=hlnstance ; 




wndclass • hicon 


— 

Loadlcon (NULL, 

工 DI 

APPLICATION); 






wndclass . hCursor 


=LoadCursor (NULL, 

IDC ARROW); 


wndclass . hbrBackground 


=GetStockObject (WHITE BRUSH) 

• 

r 


wndclass . IpszMenuName 


=NULL ; 




wndclass . IpszClassName 


=s zAppName ; 




if (!RegisterClass (&wndclass)) 

； 




i 

MessageBox ( 

NULL, 

TEXT ("This program requires Windows NT !’'）， 




szAppName, MB 

工 CONERROR); 


return 0 ; 

} 






hwnd = CreateWindow ( 

szAppName, TEXT ("Enhanced 

Metafile 

Demo #4") , 


WS OVERLAPPEDWINDOW, 




CW USEDEFAULT, CW USEDEFAULT, 




CW USEDEFAUL1 

CW USEDEFAULT, 




NULL, NULL, hlnstance, NULL); 




ShowWindow (hwnd, iCmdShow) 

參 

f 




UpdateWindow (hwnd); 






while (GetMessage (&msg, NULL, ◦, 0)) 

； 




i 

TranslateMessage 

(&msg); 




DispatchMessage 

(&msg); 



} 

J 

return msg . wParam ; 





LRESULT CALLBACK WndProc ( 

HWND 

hwnd, UINT message. 

WPARAM wParam,LPARAM 

IParam) 

f 






BITMAP 


bm ; 




HBITMAP 


hbm ; 




HDC 

hdc. 

hdcEMF, hdcMem ; 




HENHMETAFILE 


hemf ; 




PAINTSTRUCT 


ps ; 




RECT 


rect ; 




switch (message) 

/ 






l 

case WM—CREATE: 
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hdcEMF = CreateEnhMetaFile (NULL, TEXT ("emf4.emf"), NULL, 

TEXT ("EMF4\0EMF Demo #4\0 "))； 

hbm = LoadBitmap (NULL, MAKEINTRESOURCE (OBM—CLOSE)); 

GetObject (hbm, sizeof (BITMAP), &bm); 

hdcMem = CreateCompatibleDC (hdcEMF); 

SelectObject (hdcMem, hbm); 

StretchBlt (hdcEMF, 100, 100, 100, 100, 
hdcMem, 0,0,bm•bmWidth, bm.bmHeight, SRCCOPY); 

DeleteDC (hdcMem); 

DeleteObj ect (hbm); 

hemf = CloseEnhMetaFile (hdcEMF); 

DeleteEnhMetaFile (hemf); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

GetClientRect (hwnd, &rect); 

rect.left = rect.right / 4 ; 

rect.right = 3 * rect.right / 4 ; 

rect.top = rect.bottom / 4 ; 

rect.bottom = 3 * rect.bottom / 4 ; 

hemf = GetEnhMetaFile (TEXT ("emf4.emf")); 

PlayEnhMetaFile (hdc, hemf, &rect); 

DeleteEnhMetaFile (hemf); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

为了方便， EMF 4 载入由常数 0 EM _ CL 0 SE 指出的系统点阵图。在装置内容中 
显示点阵图的惯用方法是通过使用 CreateCompatibleDC 建立与目的装置内容 
(此例为 metafile 装置内容）相容的记忆体装置内容。然後，通过使用 
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SelectObject 将点阵图选入该记忆体装置内容并且从该记忆体装置内容呼叫 
BitBlt 或 StretchBlt 把点阵图画到目的装置内容。结束後，删除记忆体装置内 
容和点阵图。 

您会注意到 EMF4 也呼叫 GetObject 来确定点阵图的大小。这对 
SelectObject 呼叫是很必要的。 

首先，这份程式码储存 metafile 的空间对 GDI 来说就是个挑战。在 
StretchBlt 呼叫前根本没有别的 GDI 函式去处理 metafile 的装置内容。因此， 


让我们来看一看 EMF 4. EMF 里头是如何做的，图 18-5 只显示了一部分。 


0000 

01 

00 

00 

00 

88 

00 

00 

00 

64 

00 

00 

00 

64 

00 

00 

00 

.d...d... 

0010 

C7 

00 

00 

00 

C7 

00 

00 

00 

35 

0C 

00 

00 

35 

0C 

00 

00 

.5. . .5... 

0020 

4B 

18 

00 

00 

4B 

18 

00 

00 

20 

45 

4D 

46 

00 

00 

01 

00 

K...K....EMF.... 

0030 

F0 

0E 

00 

00 

03 

00 

00 

00 

01 

00 

00 

00 

12 

00 

00 

00 


0040 

64 

00 

00 

00 

00 

00 

00 

00 

00 

04 

00 

00 

00 

03 

00 

00 

d. 

0050 

40 

01 

00 

00 

F0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

@ . 

0060 

00 

00 

00 

00 

45 

00 

4D 

00 

46 

00 

34 

00 

00 

00 

45 

00 

....E.M.F.4...E. 

0070 

4D 

00 

46 

00 

20 

00 

44 

00 

65 

00 

6D 

00 

6F 

00 

20 

00 

M.F...D.e.m.o... 

0080 

23 

00 

34 

00 

00 

00 

00 

00 

4D 

00 

00 

00 

54 

0E 

00 

00 

#.4.M … T … 

0090 

64 

00 

00 

00 

64 

00 

00 

00 

C7 

00 

00 

00 

C7 

00 

00 

00 

d...d. 

00A0 

64 

00 

00 

00 

64 

00 

00 

00 

64 

00 

00 

00 

64 

00 

00 

00 

d...d...d...d … 

00B0 

20 

00 

CC 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

80 

3F 

9 

00C0 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

80 

3F 

00 

00 

00 

00 

9 

00D0 

00 

00 

00 

00 

FF 

FF 

FF 

00 

00 

00 

00 

00 

6C 

00 

00 

00 

. l … 

00E0 

28 

00 

00 

00 

94 

00 

00 

00 

C0 

0D 

00 

00 

28 

00 

00 

00 

( . (… 

00F0 

16 

00 

00 

00 

28 

00 

00 

00 

28 

00 

00 

00 

16 

00 

00 

00 

——（… （ . 

0100 

01 

00 

20 

00 

00 

00 

00 

00 

C0 

0D 

00 

00 

00 

00 

00 

00 


0110 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

00 

C0 

C0 

C0 

00 


0120 

C0 

C0 

C0 

00 

C0 

C0 

C0 

00 

C0 

C0 

C0 

00 

C0 

C0 

C0 

00 


• • • 

0ED0 

• 

C0 

C0 

C0 

00 

C0 

C0 

C0 

00 

C0 

C0 

C0 

00 

0E 

00 

00 

00 


0EE0 

14 

00 

00 

00 

00 

00 

00 

00 

10 

00 

00 

00 

14 

00 

00 

00 



图 18-5 EMF 4. EMF 的部分十六进位代码 


此 metafile 只包含3个记录-表头纪录、 0 x 0 E 54 位元组长度的 0 x 4 D (或 

EMR _ STRETCHBLT ) 和档案结束记录。 

我不解释该记录每个栏位的含义，但我会指出关键部分，以便理解 GDI 把 
EMF 4. C 中的一系列函式呼叫转化为单个 metafile 记录的方法。 

GDI 已经把原始的与设备相关的点阵图转化为与装置无关的点阵图 （ DIB ) 。 
整个 DIB 储存在记录著自身大小的记录中。我想，在显示 metafile 和点阵图时， 
GDI 实际上使用 StretchDIBits 函式而不是 StretchBlt 0 或者， GDI 使用 
QreateDIBitmap 把 DIB 转变回与设备相关的点阵图，然後使用记忆体装置内容 
及 StretchBlt 来显示点阵图。 

EMR + STRETCHBLT 记录开始於 metafile 的偏移量 0 x 0088 处。 DIB 储存在 
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metafile 中，以偏移量 0 x 00 F 4 开始，到 0 x 0 m ) C 处的记录结尾结束。 DIB 以 
BITMAPINFOHEADER 型态的40位元组的结构开始。在偏移量 OxOllC 处接有22个 
图素行，每行40个图素。这是每图素32位元的 DIB ， 所以每个图素需要4个位 
元组。 

列举 metafile 内容 

当您希望存取 metafile 内的个别记录时，可以使用称作 metafile 列举的 
程序。如程式 18-6 EMF 5 所不。此程式使用 metafile 来显不与 EMF 3 相同的图 
像，但它是通过 metafile 列举来进行的。 


程式 18-6 EMF 5 


EMF5 

/*-- 

EMF5.C -- Enhanced Metafile 

Demo #5 

(c) Charles Petzold, 1998 



- V 

♦include <windows.h> 





LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 



int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE 

hPrevInstance, 






PSTR szCmdLine, 

int 

iCmdShow) 

/ 






static TCHAR szAppName[] 

=TEXT ("EMF5") 

• 




HWND 

hwnd ; 





MSG 

msg ; 





WNDCLASS 

wndclass ; 





wndclass.style 


=CS_HREDRAW | 

CS VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 





wndclass.cbClsExtra 

=◦; 





wndclass.cbWndExtra 

=◦; 





wndclass.hlnstance 

=hlnstance 

• 

r 




wndclass.hicon 


= Loadlcon 

(NULL, 

IDI 

APPLICATION); 






wndclass.hCursor 

=LoadCursor (NULL, 

工 DC—ARROW); 


wndclass.hbrBackground 

=GetStockObj ect 

(WHITE BRUSH) 

• 

r 



wndclass.IpszMenuName 

=NULL ; 





wndclass.IpszClassName 

=szAppName ; 





if (!RegisterClass (&wndclass)) 

/ 





MessageBox ( NULL, 

TEXT ("This program requires Windows 

NT ! n ), 




szAppName, MB 

ICONERROR); 
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return 0 ; 

} 

hwnd = CreateWindow ( szAppName, TEXT ("Enhanced Metafile Demo #5 ’，）， 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW—USEDEFAULT, 

CW_USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

int CALLBACK EnhMetaFileProc ( HDC hdc, HANDLETABLE * pHandleTable, 

CONST ENHMETARECORD * pEmfRecord, 
int iHandles, LPARAM pData) 

{ 

PlayEnhMetaFileRecord (hdc, pHandleTable, pEmfRecord, iHandles); 
return TRUE ; 


LRESULT CALLBACK WndProc ( 

HWND hwnd. 

UINT 

message , WPARAM 

wParam,LPARAM 

IParam) 







i 

HDC 

hdc ; 






HENHMETAFILE 


hemf ; 





PAINTSTRUCT 


ps ; 





RECT 


rect ; 





switch (message) 

； 







i 

case WM PAINT : 








hdc = 

: BeginPaint 

(hwnd. 

&ps); 




GetClientRect (hwnd, &rect); 




rect. 

left 

= rect.right 

/ 

4 ； 


rect. 

right 

= 3 * 

rect.right 

/ 

4 ； 


rect. 

top = 

rect.bottom / 4 ; 




rect. 

bottom 

= 3 * 

rect.bottom 

/ 

4 ； 
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hemf = GetEnhMetaFile (TEXT (". .\\emf 3\ \emf 3 .emf n )); 

EnumEnhMetaFile (hdc, hemf, EnhMetaFileProc, NULL, &rect); 
DeleteEnhMetaFile (hemf); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

此程式使用 EMF 3 程式建立的 EMF 3. EMF 档案，所以确定在执行此程式前先 
执行 EMF 3 程式。同时，需要在 Visual C ++ 环境中执行两个程式，以确保路径的 
正确。在处理 WM _ PAINT 时，两个程式的主要区别是 EMF 3 呼叫 PlayEnhMetaFile , 
而 EMF 5 呼叫 EnumEnhMetaFile 。 P 1 ayEnhMetaFi 1 e 函式有下面的语法： 

PlayEnhMetaFile (hdc, hemf, &rect); 

第一个参数是要显示的 metafile 的装置内容代号。第二个参数是增强型 
metafile 代号。第三个参数是指向描述装置内容平面上矩形的 RECT 结构的指标。 
Metafile 图像大小被缩放过，以便刚好能够显示在不超过该矩形的区域内。 

EnumEnhMetaFile 有5个参数，其中3个与 PlayEnhMetaFile 一样（虽然 
RECT 结构的指标已经移到参数表的末尾）。 

EnumEnhMetaFile 的第三个参数是列举函式的名称，它用於呼叫 
EnhMetaFileProc 。 第四个参数是希望传递给列举函式的任意资料的指标，这里 
将该参数简单地设定为 NULL 。 

现在看一看列举函式。当呼叫 EnumEnhMetaFile 时，对於 metafile 中的每 
一个记录， GDI 都将呼叫 EnhMetaFileProc 一次，包括表头纪录和档案结束记录。 
通常列举函式传回 TRUE ， 但它可能传回 FALSE 以略过剩下的列举程序。 

该列举函式有5个参数，稍後会描述它们。在这个程式中，我仅把前4个 
参数传递给 PlayEnhMetaFileRecord ， 它使 GDI 执行由该记录代表的函式呼叫， 
好像您明确地呼叫它一样。 

EMF 5 使用 EnumEnhMetaFile 和 PlayEnhMetaFileRecord 得到的结果与 EMF 3 
呼叫 PlayEnhMetaFile 得到的结果一样。区别在於 EMF 5 现在直接介入了 
metafile 的显示程序，并能够存取各个 metafile 记录。这是很有用的。 

列举函式的第一个参数是装置内容代号。 GDI 从 EnumEnhMetaFile 的第一个 
参数中简单地取得此代号。列举函式把该代号传递给 PlayEnhMetaFileRecord 
来标识图像显示的目的装置内容。 
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我们先跳到列举函式的第三个参数，它是指向 ENHMETARECORD 型态结构的 
指标，前面已经提到过。这个结构描述实际的 metafile 记录，就像它亲自在 
metafile 中编码一样。 

您可以写一些程式码来检查这些记录。您也许不想把某些记录传送到 
PlayEnhMetaFileRecord 函式。例如，在 EMF 5. C 中，把下行插入到 
PlayEnhMetaFileRecord 呼叫的前面： 

if (pEmfRecord->iType != EMR—LINETO) 

重新编译程序，执行它，将只看到矩形，而没有两条线。或使用下面的叙 

述： 

if (pEmfRecord->iType != EMR—SELECTOBJECT) 

这个小改变会让 GDI 用内定物件显示图像，而不是用 metafile 所建立的画 
笔和画刷。 

程式中不应该修改 metafile 记录，不过先不要担心这一点。先来看一看程 


式 18-7 EMF 6 o 

程式 18-7 EMF 6 


EMF6.C 

卜 

EMF6.C -- Enhanced Metafile 

Demo #6 

(c) Charles Petzold, 1998 

-V 

♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 


PSTR 

IpszCmdLine, int 

iCmdShow) 

static TCHAR szAppName[] 

=TEXT ("EMF6"); 


HWND 

hwnd ; 


MSG 

msg ; 


WNDCLASS 

wndclass ; 


wndclass.style 

=CS HREDRAW | CS_ 

VREDRAW ; 

wndclass.lpfnWndProc 

=WndProc ; 


wndclass.cbClsExtra 

=◦; 


wndclass.cbWndExtra 

=◦; 


wndclass.hlnstance 

=hlnstance ; 


wndclass.hicon 

=Loadlcon (NULL, 

IDI APPLICATION); 

wndclass.hCursor 

=LoadCursor (NULL, 工 DC_ 

ARROW); 

wndclass.hbrBackground 

=GetStockObject (WHITE_ 

_BRUSH); 

wndclass.IpszMenuName 

=NULL ; 
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wndclass.IpszClassName = szAppName ; 


if 

； 

(!RegisterClass 

(&wndclass)) 

i 

MessageBox ( 

NULL, TEXT ( n This program requires Windows NT !’，）， 

szAppName, MB 工 CONERROR); 

} 

return 1 

0 ； 


hwnd = CreateWindow (szAppName, TEXT ("Enhanced Metafile Demo #6 ’’）， 

WS_OVERLAPPEDWINDOW a 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

int CALLBACK EnhMetaFileProc ( HDC hdc, HANDLETABLE * pHandleTable, 

CONST ENHMETARECORD * pEmfRecord, 
int iHandles, LPARAM pData) 

{ 

ENHMETARECORD * pEmfr ; 

pEmfr = (ENHMETARECORD *) malloc (pEmfRecord->nSize); 

CopyMemory (pEmfr, pEmfRecord, pEmfRecord->nSize); 
if (pEmfr->iType == EMR_RECTANGLE) 

pEmfr->iType = EMR—ELLIPSE ; 

PlayEnhMetaFileRecord (hdc, pHandleTable, pEmfr, iHandles); 
free (pEmfr); 
return TRUE ; 


LRESULT CALLBACK WndProc ( 
IParam) 

{ 

HDC hdc ; 

HENHMETAFILE 
PAINTSTRUCT 
RECT 


HWND hwnd, UINT message. 


hemf ; 
ps ; 
rect ; 


WPARAM wParam, LPARAM 


switch (message) 
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case WM—PAINT : 

hdc = BeginPaint (hwnd, &ps); 

GetClientRect (hwnd, &rect); 

rect.left = rect.right / 4 ; 

rect.right = 3 * rect.right / 4 ; 

rect.top = rect.bottom / 4 ; 

rect.bottom = 3 * rect.bottom/ 4 ; 

hemf = GetEnhMetaFile (TEXT ("..\\emf3\\emf3.emf")); 
EnumEnhMetaFile (hdc, hemf, EnhMetaFileProc, NULL, &rect); 

DeleteEnhMetaFile (hemf); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

与 EMF 5 一样， EMF 6 使用 EMF 3 程式建立的 EMF 3. EMFmetafile , 因此要在 
Visual C ++ 中执行这个程式之前先执行过 EMF 3 程式。 

EMF 6 展示了如果在显示 metafile 之前要修改它们，解决方法是非常简 单的: 
做个被修改过的副本出来就好了。您可以看到，列举程序一开始使用 malloc 配 
置一块 metafile 记录大小的记忆体，它是由传递给该函式的 pEmfRecord 结构 
的 nSize 栏位表示的。这个记忆体块的指标储存在变数 pEmfr 中， pEmfr 本身是 
指向 ENHMETARECORD 结构的指标。 

程式使用 CopyMemory 把 pEmfRecord 指向的结构内容复制到 pEmfr 指向的 
结构中。现在我们就可以做些修改了。程式检查记录是否为 EMR _ RECTANGLE 型 
态，如果是，则用 EMR _ ELLIPSE 取代 iType 栏位。 PEmfr 指标被传递到 
PlayEnhMetaFileRecord 然後被释放。结果是程式画出一个椭圆而不是矩形。其 
他的内容的修改方式都是相同的。 

当然，我们的小改变很容易起作用，因为 Rectangle 和 Ellipse 函式有同 
样的参数，这些参数都定义同一件事 一一 图画的边界框。要进行范围更广的修 
改需要一些不同 metafile 记录格式的相关知识。 

另一个可能性是插入一、两个额外的记录。例如，用下面的叙述代替 EMF 6. C 
中的 if 叙述： 

if (pEmfr—>iType == EMR RECTANGLE) 
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{ 

PlayEnhMetaFileRecord (hdc, pHandleTable, pEmfr, nObjects); 
pEmfr->iType = EMR—ELLIPSE ; 

} 

无论何时出现 Rectangle 记录，程式都会处理此记录并把它更改为 Ellipse , 
然後再显示。现在程式将画出矩形和椭圆。 

现在讨论一下在列举 metafile 时 GDI 物件处理的方式。 

在 metafile 表头中 ， ENHMETAHEADER 结构的 nHandles 栏位是比在 metafile 
中建立的 GDI 物件数还要大的值。因此，对於 EMF 5 和 EMF 6 中的 metafile ， 此 
栏位是3,表示画笔、画刷和其他东西。「其他东西」的具体内容，稍後我会说 
明。 

您会注意到 EMF 5 和 EMF 6 中列举函式的倒数第二个参数，也称作 nHandles , 
它是同一个数，3。 

列举函式的第二个参数是指向 HANDLETABLE 结构的指标，在 WINGDI . H 中定 
义如下： 

typedef struct tagHANDLETABLE 
{ 

HGDIOBJ objectHandle [1]; 

} 

HANDLETABLE ; 

HGDIOBJ 资料型态是 GDI 物件的代号，被定义为 32 位元的指标，类似於所 
有其他 GDI 物件。这是那些带有一个元素的阵列栏位的结构之一。这意味著此 
栏位具有可变的长度。 objectHandle 阵列中的元素数等於 nHandles ， 在此程式 
中是3。 

在列举函式中，可以使用以下运算式取得这些 GDI 物件 代号： 

pHandleTable—>objectHandle[i] 

对於 3 个代号， i 是0、 1 和2。 

每次呼叫列举函式时，阵列的第一个元素都将包含所列举的 metafile 代号。 
这就是前面提到的「其他东西」。 

在第一次呼叫列举函式时，表的第二、第三个元素将是0。它们是画笔和画 
刷代号的保留位置。 

以下是列举函式运作的方式： metafile 中的第一个物件建立函式具有 
EMR _ CREATEBRUSHINDIRECT 的记录型态，此记录指出了物件编号1。当把该记录 
传递给 PlayEnhMetaFileRecord 时， GDI 建立画刷并取得它的代号。此代号储存 
在 objectHandle 阵列的元素1 ( 第二个元素）中。当把第一个 EMR_SELECTOBJECT 
记录传递给 PlayEnhMetaFileRecord 时， GDI 发现此物件编号为1，并能够从表 
中找到该物件实际的代号，而把它用来呼叫 SelectObject 。 当 metafile 最後删 
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除画刷时， GDI 将 objectHandle 阵列的元素1设定回0。 

通过存取 objectHandle 阵列，可以使用例如 GetObjectType 和 GetObject 
等呼叫取得在 metafile 中使用的物件资讯。 

嵌入图像 

列举 metafile 的最重要应用也许是在现有的 metafile 中嵌入其他图像(甚 
至是整个 metafile ) 。事实上，现有的 metafile 保持 不变； 真正进行的是建立 
包含现有 metafile 和新嵌入图像的新 metafile 。 基本的技巧是把 metafile 装 
置内容代号传递给 EnumEnhMetaFile , 作为它的第一个参数。这使您能够在 
metafile 装置内容上显示 metafile 记录和 GDI 函式呼叫。 

在 metafile 命令序列的开头或结尾嵌入新图像是极简单的——就在 
EMR _ HEADER 记录之後或在 EMF _ E 0 F 记录之前。然而，如果您熟悉现有的 metafile 
结构，就可以把新的绘图命令嵌入所需的任何地方。如程式 18-8 EMF 7 所示。 


程式 18-8 EMF7 


EMF7 

• C 

EMF7 . C -- Enhanced Metafile 

Demo #7 

(c) Charles Petzold, 

1998 

-V 

♦include <windows . h> 



LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) 

參 

r 

int 

WINAPI WinMain ( HINSTANCE hlnstance, HINSTANCE 

hPrevInstance, 




PSTR lps zCmdLine , 

int 

/ 

iCmdShow) 



I 

static TCHAR szAppName[] 

=TEXT ( ，， EMF7 n ); 



HWND 

hwnd ; 



MSG 

msg ; 



WNDCLASS 

wndclass ; 



wndclass . style 

=CS_HREDRAW | CS VREDRAW ; 


wndclass . lpfnWndProc 

=WndProc ; 



wndclass . cbClsExtra 

=◦; 



wndclass . cbWndExtra 

=◦; 



wndclass . hlnstance 

=hlnstance ; 



wndclass . hicon 

=Loadlcon (NULL, IDI APPLICATION); 


wndclass . hCursor 

=LoadCursor (NULL, 

IDC—ARROW); 


wndclass . hbrBackground 

=GetStockObject (WHITE_BRUSH); 


wndclass . IpszMenuName 

=NULL ; 
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wndclass.IpszClassName = szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 


MessageBox ( 

return 0 


NULL, TEXT ( n This program requires Windows NT! n ), 

szAppName, MB 工 CONERROR); 



hwnd = CreateWindow (szAppName, TEXT ("Enhanced Metafile Demo #7"), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—U SEDEFAULT, CW—US E DE FAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


int CALLBACK EnhMetaFileProc ( HDC hdc, HANDLETABLE * pHandleTable, 

CONST ENHMETARECORD * pEmfRecord, 


HBRUSH 

HPEN 

LOGBRUSH 


int iHandles, LPARAM pData) 

hBrush ; 

hPen ; 

lb ; 


if (pEmfRecord->iType != EMR—HEADER && pEmfRecord->iType != EMR_EOF) 

PlayEnhMetaFileRecord (hdc, pHandleTable, pEmfRecord, 

iHandles); 

if (pEmfRecord->iType == EMR—RECTANGLE) 

{ 

hBrush = SelectObj ect (hdc, GetStockObj ect (NULL_BRUSH)); 
lb.lbStyle = BS_SOLID ; 
lb.lbColor = RGB (◦, 255, 0); 
lb.lbHatch = 0 ; 


5, &lb, 


◦, 


hPen = SelectObj ect (hdc, 

ExtCreatePen (PS—SOLID | PS—GEOMETRIC, 

NULL)); 

Ellipse (hdc, 100, 100, 200, 200); 
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DeleteObject (SelectObj ect (hdc, hPen)); 
SelectObj ect (hdc, hBrush); 

} 

return TRUE ; 


LRESULT CALLBACK WndProc 
IParam) 

{ 

ENHMETAHEADER 

HDC 

HENHMETAFILE 

PAINTSTRUCT 

RECT 


HWND hwnd, UINT message, WPARAM wParam,LPARAM 


emh ; 


hemfOld, hemf 
ps ; 


hdc, hdcEMF ; 


rect ; 


switch (message) 

{ 

case WM—CREATE: 

// Retrieve existing metafile and header 


hemfOld= GetEnhMetaFile (TEXT ("..\\emf3\\emf3.emf")); 


GetEnhMetaFileHeader (hemfOld, sizeof (ENHMETAHEADER), &emh); 

// Create a new metafile DC 


hdcEMF = CreateEnhMetaFile (NULL, TEXT ("emf7.emf"), NULL, 

TEXT ("EMF7\0EMF Demo #7\0")); 


// Enumerate the existing metafile 


EnumEnhMetaFile (hdcEMF, hemfOld, EnhMetaFileProc, NULL, 

(RECT *) & emh.rclBounds); 

// Clean up 

hemf = CloseEnhMetaFile (hdcEMF); 

DeleteEnhMetaFile (hemfOld); 

DeleteEnhMetaFile (hemf); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

GetClientRect (hwnd, &rect); 

rect.left = rect.right / 4 ; 
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rect.right 


= 3 * rect.right / 4 ; 


rect.top 

— 

rect.bottom / 4 ; 


rect.bottom 

= 3 

* rect.bottom / 4 ; 


hemf = GetEnhMetaFile (TEXT 

("emf 7 . emf ▼，））; 


PlayEnhMetaFile 

(hdc, hemf. 

&rect); 


DeleteEnhMetaFile (hemf); 



EndPaint (hwnd. 

&ps); 



return 0 ; 




case WM DESTROY: 




PostQuitMessage 

(0); 



return 0 ; 

1 



} 

/ 

return DefWindowProc (hwnd, message, wParam, 

IParam); 


EMF 7 使用 EMF 3 程式建立的 EMF 3. EMF ， 所以在执行 EMF 7 之前要执行 EMF 3 
程式建立 metafile 。 


EMF 7 中的 WM_PAINT 处理使用 PlayEnhMetaFile 而不是 EnumEnhMetaFile ， 
而且 WM _ CREATE 处理有很大的差别。 

首先，程式通过呼叫 GetEnhMetaFile 取得 EMF 3. EMF 档案的 metafile 代号， 
还呼叫 GetEnhMetaFi 1 eHeader 得到增强型 metafile 表头记录，目的是在後面 
的 EnumEnhMetaFile 呼叫中使用 rclBounds 栏位。 

接下来，程式建立新的 metafile 档案，名为 EMF 7. EMF。CreateEnhMetaFile 
函式为 metafile 传回装置内容代号。然後，使用 EMF 7. EMF 的 metafile 装置内 
容代号和 EMF 3. EMF 的 metafile 代号呼叫 EnumEnhMetaFile 。 

现在来看一看 EnhMetaFileProCo 如果被列举的记录不是表头纪录或档案结 
束记录，函式就呼叫 PlayEnhMetaFileRecord 把记录转换为新的 metafile 装置 
内容（并不一定排除表头纪录或档案结束记录，但它们会使 metafile 变大）。 

如果刚转换的记录是 Rectangle 呼叫，则函式建立画笔用绿色的轮廓线和 
透明的内部来绘制椭圆。注意程式中经由储存先前的画笔和画刷代号来恢复装 
置内容状态的方法。在此期间，所有这些函式都被插入到 metafile 中（记住， 
也可以使用 PlayEnhMetaFile 在现有的 metafile 中插入整个 metafile ) 。 

回到 WM _ CREATE 处理，程式呼叫 CloseEnhMetaFile 取得新 metafile 的代 
号。然後，它删除两个 metafile 代号，将 EMF 3. EMF 和 EMF 7. EMF 档案留在磁片 
上。 

从程式显示输出中可以很明显地看到，椭圆是在矩形之後两条交叉线之前 
绘制的。 
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增强型 metafile 阅览器和印表机 


使用剪贴簿转换增强型 metafile 非常简单，剪贴簿型态是 CF _ ENHMETAFILE 。 
GetClipboardData 函式传回增强型 metafile 代号 ， SetClipboardData 也使用 
该 metafile 代号。复制 metafile 时可以使用 CopyEnhMetaFi 1 e 函式。如果把 
增强型 metafile 放在剪贴簿中， Windows 会让需要旧格式的那些程式也可以使 
用它。如果在剪贴簿中放置旧格式的 metafile , Windows 将也会自动视需要把 
内容转换为增强型 metafile 的格式。 

程式 18-9 EMFVIEW 所示为在剪贴簿中传送 metafile 的程式码，它也允许 
载入、储存和列印 metafile 。 


程式 18-9 EMFVIEW 


EMFVIEW.C 

/* - 


EMFVIEW.C -- 

View Enhanced Metafiles 

(c) Charles Petzold, 1998 


♦include <windows.h> 
♦include <commdlg.h> 
♦include "resource.h" 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("EmfView"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, 

iCmdShow) 

{ 


int 


HACCEL 

HWND 

MSG 

WNDCLASS wndclass ; 
wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


hAccel 


hwnd 

msg 


CS_HREDRAW | CS_VREDRAW 
WndProc ; 


=hlnstance ; 

Loadlcon (NULL, IDI—APPLICATION); 
LoadCursor (NULL, 工 DC—ARROW); 
(HBRUSH) GetStockObject (WHITE—BRUSH) 
szAppName ; 
szAppName ; 
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if ( ! RegisterClass (&wndclass)) 


{ 

MessageBox ( 

NULL, TEXT 

("This program requires Windows NT !’▼), 




szAppName, MB 

ICONERROR); 

} 

return 0 ; 




hwnd 

=CreateWindow ( 

szAppName, 

TEXT ("Enhanced Metafile 

Viewer"), 



WS OVERLAPPEDWINDOW, 




CW USEDEFAULT, CW USEDEFAULT, 




CW USEDEFAULT, CW USEDEFAULT, 




NULL, NULL, 

hlnstance, NULL); 



ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

hAccel = LoadAccelerators (hlnstance, s zAppName); 
while (GetMessage (&msg, NULL, 0, 0)) 

{ 

if (!TranslateAccelerator (hwnd, hAccel, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

} 

return msg.wParam ; 


HPALETTE CreatePaletteFromMetaFile (HENHMETAFILE hemf) 

{ 

HPALETTE hPalette ; 

int iNum ; 

LOGPALETTE * pip ; 


if ( !hemf) 

return NULL ; 

if (0 == (iNum = GetEnhMetaFilePaletteEntries (hemf, ◦, NULL))) 

return NULL ; 

pip = malloc (sizeof (LOGPALETTE) + (iNum - 1) * sizeof (PALETTEENTRY)); 
plp->palVersion = 0x0300 ; 
pip->palNumEntries = iNum ; 

GetEnhMetaFilePaletteEntries (hemf, iNum, plp->palPalEntry); 
hPalette = CreatePalette (pip); 
free (pip); 
return hPalette ; 
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LRESULT CALLBACK WndProc ( HWND hwnd, UINT message. 

WPARAM wParam,LPARAM 

IParam) 

! 





\ 

static DOCINFO 

di = { sizeof (DOCINFO), TEXT 

("EmfView : Printing") }; 

static HENHMETAFILE hemf ; 




static OPENFILENAME ofn ; 




static PRINTDLG 

printdlg = { sizeof 

(PRINTDLG) }; 


static TCHAR 

szFileName 

[MAX PATH], szTitleName 

[MAX PATH]; 





static TCHAR 

szFilter[] 

= 







TEXT 

("Enhanced Metafiles ( 

*.EMF)\0*.emf\0") 








TEXT 

("All Files (*•*)\0*•* 

\0\0"); 




BOOL 



bSuccess ; 


ENHMETAHEADER 

header ; 




HDC 



hdc, hdcPrn 

• 

f 

HENHMETAFILE 

hemfCopy ; 




HMENU 



hMenu ; 


HPALETTE 


hPalette ; 


int 



i, iLength, 

iEnable ; 

PAINTSTRUCT 

ps ; 




RECT 



rect ; 


PTSTR 



pBuffer ; 


switch (message) 

/ 





i 

case WM CREATE : 






// Initialize OPENFILENAME 

structure 



ofn.IStructSize 


— 

sizeof 

(OPENFILENAME); 






ofn.hwndOwner 


=hwnd ; 



ofn.hlnstance 


=NULL ; 



ofn.lpstrFilter 


=szFilter 

• 

r 


ofn.IpstrCustomFilter 


=NULL ; 



ofn.nMaxCustFilter 


=◦; 



ofn . nFiIterIndex 


=◦; 



ofn . IpstrFile 


=szFileName ; 


ofn.nMaxFile 


= MAX PATH 

參 

r 


ofn.lpstrFileTitle 


= szTitleName ; 


ofn . nMaxFileTitle 


= MAX PATH 

• 

f 


ofn.lpstrlnitialDir 


= NULL ; 



ofn.lpstrTitle 


= NULL ; 



ofn . Flags 


= 0 ; 



ofn.nFileOffset 


=◦; 



ofn . nFileExtension 


=◦; 



ofn . IpstrDefExt 


= TEXT ("emf") ; 


ofn . lCustData 


=◦; 
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ofn . lpfnHook 

= NULL ; 



ofn . lpTemplateName 

= NULL ; 



return 0 ; 




case WM 

INITMENUPOPUP: 





hMenu = GetMenu (hwnd) ; 



iEnable = 

hemf ? MF ENABLED : MF GRAYED ; 


EnableMenuItem (hMenu 

, IDM FILE 

SAVE AS, iEnable) 

• 

f 

EnableMenuItem (hMenu 

, IDM FILE 

PRINT, iEnable) 

参 

f 

EnableMenuItem (hMenu 

, IDM FILE 

PROPERTIES, iEnable) 

• 

r 

EnableMenuItem (hMenu 

, IDM EDIT 

CUT, iEnable) 

參 

r 


EnableMenuItem 

(hMenu, 工 DM 

EDIT COPY, 


iEnable) 

• 

f 





EnableMenuItem 

(hMenu, IDM 

EDIT DELETE, 


iEnable) 

參 





EnableMenuItem 

(hMenu, IDM 

EDIT PASTE, 



工 sClipboardFormatAvailable 

(CF ENHMETAFILE) ? 



MF ENABLED : MF 

GRAYED) ; 




return 0 ; 




case WM 

COMMAND : 





switch (LOWORD 

; 

(wParam)) 




i 

case IDM 

FILE OPEN: 




// Show the File Open dialog box 




of n 

. Flags = 0 ; 




if 

(!GetOpenFileName (&ofn)) 





return 0 ; 



// If there's an existing EMF, get rid of 

it . 



if 

! 

(hemf) 




X 

DeleteEnhMetaFile (hemf) ; 



\ 

hemf = NULL ; 




I 

// Load the EMF into memory 



SetCursor 

(LoadCursor (NULL, IDC WAIT)) ; 



ShowCursor (TRUE) ; 




hemf = GetEnhMetaFile (szFileName); 




ShowCursor (FALSE); 
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SetCursor (LoadCursor (NULL, 工 DC—ARROW)); 

// Invalidate the client area for later update 

InvalidateRect (hwnd, NULL, TRUE); 

if (hemf == NULL) 

{ 

MessageBox ( hwnd, TEXT ("Cannot load metafile"), 

szAppName, MB_ICONEXCLAMATION | MB_OK); 

} 

return 0 ; 

case IDM_FILE_SAVE_AS : 

if ( !hemf) 

return 0 ; 

// Show the File Save dialog box 

ofn.Flags = OFN_OVERWRITEPROMPT ; 

if (!GetSaveFileName (&ofn)) 

return 0 ; 

// Save the EMF to disk file 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 

hemfCopy = CopyEnhMetaFile (hemf, szFileName); 
ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 
if (hemfCopy) 

{ 

DeleteEnhMetaFile (hemf); 
hemf = hemfCopy ; 

} 

else 

MessageBox ( hwnd, TEXT ("Cannot save metafile ”）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 
return 0 ; 

case IDM_FILE_PRINT: 

// Show the Print dialog box and get printer DC 
printdlg.Flags = PD RETURNDC | PD NOPAGENUMS | PD NOSELECTION; 
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if ( ! PrintDlg ( &printdlg)) 

return 0 ; 


if (NULL == (hdcPrn = printdlg.hDC)) 

{ 

MessageBox ( hwnd, TEXT ("Cannot obtain printer DC ’’）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 

return 0 ; 

} 

// Get size of printable area of page 
rect.left = 0 ; 

rect.right = GetDeviceCaps (hdcPrn, HORZRES); 
rect.top = 0 ; 

rect.bottom = GetDeviceCaps (hdcPrn, VERTRES); 

bSuccess = FALSE ; 

// Play the EMF to the printer 

SetCursor (LoadCursor (NULL, 工 DC—WAIT)); 
ShowCursor (TRUE); 


if ( (StartDoc (hdcPrn, &di) >0) && (StartPage (hdcPrn) > 0)) 

{ 


PlayEnhMetaFile (hdcPrn, hemf, &rect); 


if (EndPage (hdcPrn) > 0) 

{ 

bSuccess = TRUE ; 
EndDoc (hdcPrn); 

} 

} 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC ARROW)); 


DeleteDC (hdcPrn); 


if ( !bSuccess) 

MessageBox ( hwnd, TEXT ("Could not print metafile"), 

szAppName, MB_ICONEXCLAMATION | MB_OK); 
return 0 ; 


case IDM_FILE_PROPERTIES : 

if (!hemf) 

return 0 ; 

iLength = GetEnhMetaFileDescription (hemf, ◦, NULL); 
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pBuffer = malloc ((iLength + 256) * sizeof (TCHAR)); 


(ENHMETAHEADER), ^header); 


pixels\n"), 


GetEnhMetaFileHeader (hemf, sizeof 


// Format header file information 

i = wsprintf (pBuffer, 

TEXT ("Bounds = (%i, %i) to (%i, %i) 


header.rclBounds.left, header.rclBounds.top, 
header.rclBounds.right, header.rclBounds.bottom); 

i += wsprintf (pBuffer + i, 

(%i, %i) to (%i, %i) mms\n"), 

header.rclFrame.left, header.rclFrame.top, 
header.rclFrame.right, header.rclFrame.bottom); 

i += wsprintf (pBuffer + i, 

("Resolution = (%i, %i) pixels") 

%i) mms\n"), 


TEXT ("Frame = 


TEXT 

TEXT ( n = (%i, 


header.szlDevice.cx, header.szlDevice.cy, 
header.szlMillimeters.ex. 


header.szlMillimeters.cy); 

i += wsprintf (pBuffer + i, 

TEXT ("Size = %i. Records = %i,") 

TEXT ("Handles = %i, Palette entries = %i\n n ), 
header.nBytes, header.nRecords, 
header.nHandles, header.nPalEntries); 

// Include the metafile description, if present 

if (iLength) 

{ 

i += wsprintf (pBuffer + i, TEXT ( n Description = M )); 

GetEnhMetaFileDescription (hemf, iLength, pBuffer + i); 

pBuffer [lstrlen (pBuffer)] = '\t'; 
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MessageBox (hwnd, pBuffer, TEXT ("Metafile Properties"), MB_OK); 

free (pBuffer); 
return 0 ; 

case IDM_EDIT_COPY: 
case IDM_EDIT_CUT: 

if (!hemf) 

return 0 ; 

// Transfer metafile copy to the clipboard 

hemfCopy = CopyEnhMetaFile (hemf, NULL); 

OpenClipboard (hwnd); 

EmptyClipboard (); 

SetClipboardData (CF_ENHMETAFILE, hemfCopy); 

Closedipboard (); 

if (LOWORD (wParam) == IDM—EDIT_COPY) 

return 0 ; 

// fall through if 工 DM—EDIT_CUT 
case IDM_EDIT_DELETE: 

if (hemf) 

{ 

DeleteEnhMetaFile (hemf); 
hemf = NULL ; 

InvalidateRect (hwnd, NULL, TRUE); 

} 

return 0 ; 

case IDM_EDIT_PASTE: 

OpenClipboard (hwnd); 

hemfCopy = GetClipboardData (CF—ENHMETAFILE); 

Closed ipboard (); 
if (hemfCopy && hemf) 

{ 

DeleteEnhMetaFile (hemf); 
hemf = NULL ; 

} 

hemf = CopyEnhMetaFile (hemfCopy, NULL); 
InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case IDM—APP—ABOUT: 

MessageBox ( hwnd, TEXT 
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("Enhanced Metafile Viewer\n n ) 

TEXT (’’ （ c) Charles Petzold, 1998"), 


szAppName, MB OK); 


return 0 ; 


case IDM_APP_EXIT: 

SendMessage (hwnd, WM—CLOSE, 0, 0L); 
return 0 ; 

} 

break ; 


case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 


if (hemf) 

{ 

if ( hPalette = CreatePaletteFromMetaFile (hemf)) 

{ 

SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 

} 

GetClientRect (hwnd, &rect); 
PlayEnhMetaFile (hdc, hemf, &rect); 

if (hPalette) 

DeleteObj ect (hPalette); 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—QUERYNEWPALETTE: 

if (!hemf | | ! (hPalette = CreatePaletteFromMetaFile (hemf))) 

return FALSE ; 


hdc = GetDC (hwnd); 

SelectPalette (hdc, hPalette, FALSE); 
RealizePalette (hdc); 

工 nvalidateRect (hwnd, NULL, FALSE); 

DeleteObj ect (hPalette); 

ReleaseDC (hwnd, hdc); 
return TRUE ; 


case WM_PALETTECHANGED : 

if ((HWND) wParam == hwnd) 

break ; 
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if ( ! hemf || ! (hPalette = CreatePaletteFromMetaFile (hemf))) 

break ; 


hdc = GetDC (hwnd); 
SelectPalette (hdc, hPalette, 
RealizePalette (hdc); 
UpdateColors (hdc); 


FALSE) 


DeleteObj ect (hPalette); 
ReleaseDC (hwnd, hdc); 
break ; 


case WM DESTROY: 


if (hemf) 

DeleteEnhMetaFile (hemf); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

EMFVIEW.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h" 

♦include "afxres.h M 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

EMFVIEW MENU DISCARDABLE 
BEGIN 

POPUP "&File n 
BEGIN 

MENUITEM n &Open\tCtrl+O n , 

MENUITEM "Save &As … n , _ _ _ 

MENUITEM SEPARATOR 

MENUITEM "&Print..•\tCtrl+P n , 工 DM—FILE—PRINT 
MENUITEM SEPARATOR 

MENUITEM "^Properties" A 
MENUITEM SEPARATOR 
MENUITEM "E&xit", 


END 


IDM—FILE—OPEN 
工 DM FILE SAVE AS 


工 DM FILE PROPERTIES 


工 DM APP EXIT 


POPUP "&Edit n 
BEGIN 

MENUITEM "Cu&t\tCtrl+X M , 
MENUITEM n &Copy\tCtrl+C n , 

MENUITEM "&Paste\tCtrl+V n 
MENUITEM "&Delete\tDel n , 


IDM_EDIT_CUT 
工 DM—EDIT—COPY 

工 DM—EDIT—PASTE 
工 DM EDIT DELETE 
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END 

POPUP "Help" 

BEGIN 

MENUITEM "&About EmfView …，，， 工 DM—APP—ABOUT 

END 

END 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Accelerator 

EMFVIEW ACCELERATORS DISCARDABLE 
BEGIN 

n C n ,IDM_EDIT_COPY, VIRTKEY, CONTROL, NOINVERT 
n O n ，工 DM_FILE_OPEN, VIRTKEY, CONTROL, NOINVERT 
"P" A 工 DM—FILE_PRINT,VIRTKEY, CONTROL, NOINVERT 
"V", 工 DM_EDIT_PASTE,VIRTKEY, CONTROL, NOINVERT 
VK—DELETE, 工 DM_EDIT_DELETE,VIRTKEY, NOINVERT 
"X" A 工 DM—EDIT_CUT,VIRTKEY, CONTROL, NOINVERT 
END 

RESOURCE. H (摘录） 

// Microsoft Developer Studio generated include file. 

// Used by EmfView.rc 


#define 

I DM 

FILE 

OPEN 

40001 

#define 

I DM 

FILE 

—SAVE AS 

40002 

♦define 

I DM 

FILE 

PRINT 

40003 

♦define 

IDM 

FILE 

PROPERTIES 

40004 

#define 

I DM 

APP : 

EXIT 

40005 

#define 

IDM 

EDIT 

一 CUT 

40006 

♦define 

IDM 

EDIT 

_COPY 

40007 

♦define 

IDM 

EDIT 

PASTE 

40008 

#define 

IDM 

EDIT 

DELETE 

40009 

#define 

IDM 

APP ABOUT 

40010 


EMFVIEW 也支援完整的调色盘处理，以便支援有调色盘编码资讯的 
metafile 。（透过呼叫 Selectpalette 来进行）。该程式在 
CreatePaletteFromMetaFile 函式中处理调色盘，在处理 WM _ PAINT 显示 
metafile 以及处理 WM_QUERYNEWPALETTE 和 WM_PALETTECHANGED 讯息时，呼叫这 
个函式。 

在回应功能表中的 「 Print 」 命令时， EMFVIEW 显示普通的印表机对话方块， 
然後取得页面中可列印区域的大小。 Metafile 被缩放成适当尺寸以填入整个区 
域。 EMFVIEW 在视窗中以类似方式显示 metafile 。 

「 File 」 功能表中的 「 Properties 」 项使 EMFVIEW 显示包含 metafile 表头 
资讯的讯息方块。 

如果列印本章前面建立的 EMF 2. EMFmetafile 图像，您将会发现用高解析度 
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的印表机列印出的线条非常细，几乎看不清楚线条的锯齿。列印向量图像时应 
该使用较宽的画笔（例如，一点宽）。本章後面所示的直尺图像就是这样做的。 

显示精确的 metafile 图像 

Metafile 图像的好处在於它能够以任意大小缩放并且仍能保持一定的逼真 
度。这是因为 metafile 通常由一系列向量图形的基本图形组成，基本图形是指 
线条、填入的区域以及轮廓字体等等。扩大或缩小图像只是简单地缩放定义这 
些基本图形的所有座标点。另一方面，对点阵图来说，压缩图像会遗漏整行列 
的图素，因而失去重要的显示资讯。 

当然， metafile 的压缩并不是完美无缺的。我们所使用的图形输出设备的 
图素大小是有限的。当 metafile 图像压缩到一定大小时，组成 metafile 的大 
量线条会变成模糊的斑点，同时区域填入图案和混色看起来也很奇怪。如果 
metafile 中包含嵌入的点阵图或旧的点阵字体，同样会引起类似的问题。 

尽管如此，大多数情况下 metafile 可以任意地缩放。这在把 metafile 放 
入文书处理或桌上印刷文件内时非常有用。一般来说，在上述的应用程式中选 
择 metafile 图像时，会出现围绕图像的矩形，您可以用滑鼠拖动该矩形，将它 
缩放为任意大小。图像送到印表机时，它也具有同样对应的大小。 

然而，有时任意缩放 metafile 并不是个好主意。 例如： 假设您有一个储存 
著存款客户签名样本的银行系统，这些签名以一系列折线的方式储存在 
metafile 中。将 metafile 变宽或变高会使签名变形，因此应该保持图像的纵横 
比一致。 

在前面的范例程式中，是以显示区域的大小来确定 PlayEnhMetaFile 呼叫 
使用的围绕矩形范围。所以，如果改变程式表单的大小，也就改变了图像的大 
小。这与在文书处理文件中改变 metafile 图像大小的概念相似。 

正确地显示 metafile 图像（以特定的度量单位或用适当的纵横比），需要 
使用 metafile 表头中的大小资讯并根据此资讯设定矩形结构。 

在本章剩下的范例程式中将使用名为 EMF.C 的程式架构，它包括列印处理 
的程式码、资源描述档 EMF . RC 和表头档案 RESOURCE . H 。 程式 18-10 显示了这些 
档案以及 EMF 8. C 程式，该程式使用这些档案显示一把6英寸的直尺。 

程式 18-10 EMF8 

EMF8.C 

/* - 

EMF8.C -- Enhanced Metafile Demo #8 

(c) Charles Petzold, 1998 
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♦include <windows.h> 
TCHAR szClass 
TCHAR szTitle 


[]=TEXT ("EMF8"); 

[]=TEXT ("EMF8 : Enhanced Metafile Demo #8’，）; 


void DrawRuler (HDC hdc, int cx, int cy) 

{ 


int 


iAdj, i, iHeight ; 


LOGFONT If ; 

TCHAR ch ; 


iAdj = GetVersion () & 0x80000000 ? 0 : 1 ; 

// Black pen with 1-point width 
SelectObject (hdc, CreatePen (PS_SOLID, cx / 72 / 6, 0)); 

/ / Rectangle surrounding entire 


adjustment) 


pen (with 


Rectangle 

(hdc, 

iAdj , 

iAdj , 

cx + iAdj 

+ 1 

f 

cy + 

iAdj + 

1) ； 







// Tick marks 







for (i = 1 

( 

； i 

< 

96 

• 

f 

i++) 








i 

if 

(i 

% 

16 

== 0) 

iHeight = 

cy 

/ 

2 ; 


// 

inches 

else 

if 

(i 

% 

8 

== 0) 

iHeight = 

cy 

/ 

3 ; 

// 

half 

inches 

else 

if 

(i 

% 

4 

== 0) 

iHeight = 

cy 

/ 

5 ; 

// 

quarter inches 

else 

if 

(i 

% 

2 

==◦) 

iHeight = 

cy 

/ 

8 ; 

// 

eighths 

else 





iHeight = cy 

/ 12 

參 

r 


// 

sixteenths 


MoveToEx (hdc, i * cx / 96, cy, NULL); 
LineTo (hdc, i * cx / 96, cy - iHeight); 

} 

// Create logical font 
FillMemory (&lf, sizeof (If), 0); 

If.IfHeight = cy / 2 ; 

lstrcpy (If.IfFaceName, TEXT ("Times New Roman")); 


SelectObject 
SetTextAlign 
SetBkMode 


(hdc, CreateFontlndirect (&lf)); 
(hdc, TA_BOTTOM | TA—CENTER); 
(hdc, TRANSPARENT); 


// Display numbers 


for (i = 1 ; i <= 5 ; i++) 

{ 

ch = (TCHAR) (i + * 0 '); 

TextOut (hdc, i * cx / 6, cy / 2, &ch, 1); 

} 

// Clean up 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect (SYSTEM FONT))); 
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DeleteObject (SelectObj ect (hdc, GetStockObj ect (BLACK PEN))) 


void CreateRoutine (HWND hwnd) 

{ 

HDC hdcEMF ; 

HENHMETAFILE hemf ; 

int cxMms, cyMms, cxPix, cyPix, xDpi, 


hdcEMF = CreateEnhMetaFile (NULL, TEXT ( n emf8•emf ”）， NULL, 

TEXT ("EMF8\0EMF Demo #8\0")); 

if (hdcEMF == NULL) 


cxMms 

cyMms 

cxPix 

cyPix 


xDpi 

YDpi 


return ; 


=GetDeviceCaps 
=GetDeviceCaps 
=GetDeviceCaps 
=GetDeviceCaps 


(hdcEMF, HORZSIZE); 
(hdcEMF, VERTSIZE); 
(hdcEMF, HORZRES); 
(hdcEMF, VERTRES); 


=cxPix * 254 / cxMms / 10 ; 
=cyPix * 254 / cyMms / 10 ; 


DrawRuler (hdcEMF, 6 * xDpi , yDpi); 
hemf = CloseEnhMetaFile (hdcEMF); 
DeleteEnhMetaFile (hemf); 


void PaintRoutine (HWND hwnd, HDC hdc, int cxArea, int cyArea) 

{ 

ENHMETAHEADER emh ; 

HENHMETAFILE hemf ; 

int cxlmage, cylmage ; 


RECT 


rect ; 


hemf = GetEnhMetaFile (TEXT ("emf8.emf")); 
GetEnhMetaFileHeader (hemf, sizeof (emh ), &emh); 
cxlmage = emh.rclBounds.right - emh.rclBounds.left ; 
cylmage = emh.rclBounds.bottom - emh.rclBounds.top ; 


rect.left 
rect.right 
rect.top 
rect.bottom 


=(cxArea - cxlmage) / 2 ; 
=(cxArea + cxlmage) / 2 ; 
=(cyArea — cylmage) / 2 ; 

=(cyArea + cylmage) / 2 ; 


PlayEnhMetaFile (hdc, hemf, &rect); 
DeleteEnhMetaFile (hemf); 

EMF.C 


yDpi ; 
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EMF. C -- Enhanced Metafile Demonstration Shell Program 

(c) Charles Petzold, 1998 



#include <windows.h> 

♦include <commdlg.h> 

♦include n ..\\emf8\\resource.h" 


extern void CreateRoutine (HWND); 

extern void PaintRoutine (HWND, HDC, int, int); 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

HANDLE hlnst ; 

extern TCHAR szClass []; 

extern TCHAR szTitle []; 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


TCHAR 

HWND 

MSG 

WNDCLASS 


szResource [] = TEXT ("EMF"); 
hwnd ; 
msg ; 
wndclass ; 


hlnst = hlnstance ; 
wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, 工 DC—ARROW); 

=GetStockObject (WHITE_BRUSH); 

=szResource ; 

=szClass ; 


if (!RegisterClass (&wndclass)) 

{ 


MessageBox ( 

return 0 


NULL, TEXT ("This program requires Windows NT !’，）， 

szClass, MB ICONERROR); 



hwnd = CreateWindow ( szClass, szTitle, 

WS_OVERLAPPEDWINDOW, 

CW USEDEFAULT, CW USEDEFAULT, 
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CW—USEDEFAULT, CW—USEDEFAULT , 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


BOOL PrintRoutine (HWND hwnd) 


static DOCINFO 
static PRINTDLG 
static TCHAR 
BOOL 
HDC 


di ; 

printdlg = { sizeof (PRINTDLG) }; 
szMessage [32]; 

bSuccess = FALSE ; 
hdcPrn ; 


int 


cxPage, cyPage ; 


printdlg.Flags = PD—RETURNDC | PD—NOPAGENUMS | PD—NOSELECTION ; 
if (!PrintDlg ( &printdlg)) 

return TRUE ; 

if (NULL == (hdcPrn = printdlg.hDC)) 

return FALSE ; 

cxPage = GetDeviceCaps (hdcPrn, HORZRES); 
cyPage = GetDeviceCaps (hdcPrn, VERTRES); 


lstrcpy (szMessage, szClass); 

lstrcat (szMessage, TEXT (▼’： Printing")); 


di.cbSize 

di. IpszDocName 


=sizeof (DOCINFO); 
=szMessage ; 


if (StartDoc (hdcPrn, &di) > 0) 

{ 

if (StartPage (hdcPrn) > 0) 

{ 

PaintRoutine (hwnd, hdcPrn, cxPage, cyPage); 
if (EndPage (hdcPrn) > 0) 

{ 

EndDoc (hdcPrn); 
bSuccess = TRUE ; 
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DeleteDC (hdcPrn) ; 
return bSuccess ; 

} 

LRESULT CALLBACK WndProc ( 

IParam) 

{ 

BOOL 

static int 
HDC 

PAINTSTRUCT 

switch (message) 

{ 

case WM—CREATE: 

CreateRoutine (hwnd); 
return 0 ; 

case WM COMMAND : 


switch (wParam) 




case 

工 DM PRINT: 

SetCursor 

ShowCursor 

(LoadCursor 

(TRUE); 

(NULL , 工 DC_ 

WAIT)); 


bSuccess = 

PrintRoutine (hwnd); 



ShowCursor 

SetCursor 

(FALSE); 

(LoadCursor 

(NULL , 工 DC_ 

ARROW)); 

MessageBox (hwnd. 

if ( !bSuccess) 

TEXT ("Error encountered during printing"), 


szClass, MB ICONASTERISK | MB OK); 


- - r —— 

return 

0 ； 

——— 1 -- ^ / w 

case 

IDM 

EXIT: 

SendMessage (hwnd, WM CLOSE, 0, 0); 

return 0 ; 

case 

IDM 

ABOUT : 



MessageBox (hwnd, TEXT ("Enhanced Metafile Demo Program\n") 

TEXT ("Copyright (c) Charles Petzold, 1998 ’，）， 
szClass, MB_ICONINFORMATION | MB_OK); 
return 0 ; 

} 

break ; 


HWND hwnd, UINT message, WPARAM wParam A LPARAM 

bSuccess ; 

cxClient, cyClient ; 
hdc ; 

ps ; 
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case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

PaintRoutine (hwnd, hdc, cxClient, cyClient); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY : 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd A message , wParam, IParam); 

} 

EMF.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h M 
♦include M afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

EMF MENU DISCARDABLE 
BEGIN 

POPUP "&File n 
BEGIN 

MENUITEM ” &Print … n , 

工 DM_PRINT 

MENUITEM SEPARATOR 
MENUITEM "E&xit", 

工 DM—EXIT 
END 

POPUP "&Help n 
BEGIN 

MENUITEM "&About … n , 

IDM_ABOUT 

END 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by Emf.rc 

// 

♦define 工 DM PRINT 40001 
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#define 

IDM EXIT 

40002 

#define 

工 DM ABOUT 

40003 


在处理 WM _ CREATE 讯息处理期间， EMF . C 呼叫名为 CreateRoutine 的外部函 
式，该函式建立 metafile 。 EMF . C 在两个地方呼叫 PaintRoutine 函式：一处在 
WM _ PAINT 讯息处理期间，另一处在函式 PrintRoutine 中以回应功能表命令列印 
图像。 

因为现代的印表机通常比视讯显示器有更高的解析度，列印 metafile 的能 
力是测试以特定大小处理图像能力的重要工具。当 EMF 8 建立的 metafile 图像 
以特定大小显示时，最有意义。该图像是一把6英寸长1英寸宽的直尺，每英 
寸分为十六格，数字从1到5为 TrueType 字体。 

要绘制一把6英寸的直尺，需要知道一些设备解析度的知识。 EMF 8. C 中的 
CreateRoutine 函式首先建立 metafile ， 然後使用从 CreateEnhMetaFile 传回 
的装置内容代号呼叫 GetDeviceCaps 四次。这些呼叫取得单位分别为毫米和图 
素的显示平面的高度与宽度。 

这听起来有点怪。 Metafile 装置内容通常是作为 GDI 绘制命令的储存媒介， 
它不是像视讯显示器或印表机的真正设备，那么它的宽度和高度从何而来？ 

您可能已经想起来了， CreateEnhMetaFile 的第一个参数被称作「参考装置 
内容」。 GDI 用这为 metafile 建立设备特徵。如果参数设定为 NULL (如 EMF 8 
中）， GDI 就把显示器作为参考装置内容。因而，当 EMF 8 使用装置内容呼叫 
GetDeviceCaps 时，它实际上取得有关显示器的资讯。 

EMF 8. C 以图素大小除以毫米大小并乘以 25. 4 (1 英寸为 25. 4毫米）计算以 
每英寸的点数为单位的解析度。 

即使我们非常认真地以 metafile 直尺的正确大小绘制它，但是这样子作还 
是不够的。 PlayEnhMetaFile 函式在显示图像时，使用作为最後一个参数传递给 
它的矩形来缩放图像大小，因此该矩形必须设定为直尺的大小。 

由於此原因， EMF 8 中的 PaintRoutine 函式呼叫 GetEnhMetaFileHeader 函 
式来取得 metafile 的表头资讯。 ENHMETAHEADER 结构的 rclBounds 栏位指出以 
图素为单位的 metafile 图像的围绕矩形。程式使用此资讯使直尺位於显示区域 
中央，如图 18-6 所示。 
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H EMF8: EnK<inced Metalile De 


E'le Help 



-ln| x| 



图 18-6 EMF 8 得萤幕显示 


记住，如果您拿直尺与萤幕中的直尺比较时，两者并不一定非常吻合。如 
同第五章中所论述的，显示器只能近似地实际显示尺寸。 

既然这样做好像有用了，现在就来试著列印图像。哇！如果您有一台 300 dpi 
的雷射印表机，那么列印出的直尺的宽将会是11/3英寸。这是由於我们依据视 
讯显示器的图素尺寸来列印。虽然您可能认为这把小尺很可爱，但它不是我们 
所需要的。让我们再试一试。 

ENHMETAHEADER 结构包括两个描述图像大小的矩形结构。第一个是 
rclBounds , EMF 8 使用这个，它以图素为单位给出图像的大小。第二为 rclFrame ， 
它以 0.01 毫米为单位给出图像的大小。这两个栏位之间的关系是由最初建立 
metafile 时使用的参考装置内容决定的，在此情况下为显示器 （ metafile 表头 
也包括两个名为 szlDevice 和 szlMillimeters 的栏位，它们是 SIZEL 结构，分 
别以图素单位和毫米单位指出了参考设备的大小，这与从 GetDeviceCaps 得到 
的资讯一样）。 

EMF 9 使用图像的毫米大小资讯，如程式 18-11 所不。 


程式 18-11 EMF 9 

EMF9.C 

" - 

EMF9.C -- Enhanced Metafile Demo #9 

(c) Charles Petzold, 1998 
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V 



♦include <windows.h> 


♦include <string.h> 


TCHAR 

szClass 

[]=TEXT ("EMF9"); 

TCHAR 

szTitle 

[]=TEXT ("EMF9 : Enhanced Metafile Demo #9"); 

void 

{ 

CreateRoutine (HWND hwnd) 

i 

void 

i 

PaintRoutine (HWND 

hwnd, HDC hdc, int cxArea, int cyArea) 

i 

ENHMETAHEADER 

emh ; 


HENHMETAFILE 

hemf ; 


int 

cxMms, cyMms, cxPix, cyPix, 

cxlmage, cylmage ; 



RECT 

rect ; 


cxMms 

=GetDeviceCaps (hdc, HORZSIZE); 


cyMms 

=GetDeviceCaps (hdc, VERTSIZE); 


cxPix 

=GetDeviceCaps (hdc, HORZRES); 


cyPix 

=GetDeviceCaps (hdc, VERTRES); 


hemf = GetEnhMetaFile (TEXT (". .\\emf8\\emf8.emf")); 


GetEnhMetaFileHeader (hemf, sizeof (emh), &emh); 


cxlmage 

=emh.rclFrame.right — emh.rclFrame.left ; 


cylmage 

=emh.rclFrame.bottom - emh.rclFrame.top ; 


cxlmage 

=cxlmage * cxPix / cxMms / 100 ; 


cylmage 

=cylmage * cyPix / cyMms / 100 ; 


rect.left 

=(cxArea - cxlmage) / 2 ; 


rect.right 

=(cxArea + cxlmage) / 2 ; 


rect.top 

=(cyArea - cylmage) / 2 ; 


rect.bottom 

=(cyArea + cylmage) / 2 ; 


PlayEnhMetaFile (hdc, hemf, &rect); 

} 

DeleteEnhMetaFile 

(hemf); 


EMF 9 使用 EMF 8 建立的 metafile , 因此确定执行 EMF 8。 


EMF 9 中的 PaintRoutine 函式首先使用目的装置内容呼叫 GetDeviceCaps 四 
次。像在 EMF 8 中的 CreateRoutine 函式一样，这些呼叫提供有关设备解析度的 
资讯。在得到 metafile 代号之後，它取得表头结构并使用 rclFrame 栏位来计 
算以 0. 01毫米为单位的 metafile 图像大小。这是第一步。 
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然後，函式通过乘以输出设备的图素大小、除以毫米大小再除以100 ( 因为 
度量尺寸以 0. 01毫米为单位）将此大小转换为图素大小。现在 ， PaintRoutine 
函式具有以图素为单位的直尺大小 一一 与显示器无关。这是适合目的设备的图 
素大小，而且很容易使图像居中对齐。 

就显示器而言， EMF 9 的显示与 EMF 8 显示的一样。但是如果从 EMF 9 列印直 
尺，您会看到更正常的直尺——6英寸长、1英寸宽。 

缩放比例和纵横比 

您也可能想要使用 EMF 8 建立的直尺 metafile , 而不必显示6英寸的图像。 
保持图像正确的6比1的纵横比是重要的。如前所述，在文书处理程式或别的 
应用程式中使用围绕方框来改变 metafile 的大小是很方便的，但是这样会导致 
某种程度的失真。在这种应用程式中，应该给使用者一个选项来保持原先的纵 
横比，而不用管围绕方框的大小如何变化。这就是说，传递给 PlayEnhMetaFile 
的矩形结构不能直接由使用者选择的围绕方框定义。传递给该函式的矩形结构 
只是围绕方框的一部分。 


让我们看一看程式 18-12 EMF 10 是如何做的。 

程式 18-12 EMF10 


EMF10.C 

/* - 



EMF10.C -- 

Enhanced Metafile Demo #10 

(c) Charles Petzold, 1998 

* 


♦include 〈 windows. 

TCHAR szClass 

h> 

[] 

=TEXT 

("EMFIO"); 

TCHAR szTitle 


[] 

=TEXT 

("EMF10 : Enhanced Metafile Demo #10"); 

void CreateRoutine 

{ 

(HWND 

hwnd) 



void PaintRoutine (HWND 

hwnd, HDC hdc. 

int cxArea, int 

cyArea) 


i 

ENHMETAHEADER 

emh ; 




float 


fScale ; 



HENHMETAFILE 

hemf ; 




int 


cxMms , 

cyMms, cxPix, 

cyPix, 

cxlmage, cylmage ; 





RECT 


rect ; 



cxMms = 

: GetDeviceCaps 

(hdc, HORZSIZE) 

• 

r 
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cyMms = GetDeviceCaps (hdc, VERTSIZE); 

cxPix = GetDeviceCaps (hdc, HORZRES); 

cyPix = GetDeviceCaps (hdc, VERTRES); 

hemf = GetEnhMetaFile (TEXT ( n ..\\emf8\\emf8.emf")); 


GetEnhMetaFileHeader (hemf, sizeof (emh), &emh); 

cxlmage = emh.rclFrame.right 一 emh.rclFrame.left ; 
cylmage = emh.rclFrame.bottom - emh.rclFrame.top ; 


cxlmage 

cylmage 

f Scale 


=cxlmage * cxPix / cxMms / 100 ; 

=cylmage * cyPix / cyMms / 100 ; 

=min ((float) cxArea / cxlmage, (float) cyArea / cylmage); 


cxlmage 

cylmage 


=(int) (fScale * cxlmage); 

=(int) (fScale * cylmage); 


rect.left = (cxArea - cxlmage) / 2 ; 

rect.right = (cxArea + cxlmage) / 2 ; 

rect.top = (cyArea - cylmage) / 2 ; 

rect•bottom = (cyArea + cylmage) / 2 ; 
PlayEnhMetaFile (hdc, hemf, &rect); 
DeleteEnhMetaFile (hemf); 


EMF 10 伸展直尺图像以适应显示区域（或列印页面的可列印部分），但不会 
失真。通常直尺会伸展到显示区域的整个宽度，但是会上下居中对齐。如果您 
把视窗拉得太小，则直尺会与显示区域一般高，但是会水平居中对齐。 

可能有许多种方法来计算合适的显示矩形，但是我们只根据 EMF 9 的方式完 
成该项工作。 EMF 10. C 中的 PaintRoutine 函式开始部分与 EMF 9. C 相同，为目的 

装置内容计算6英寸长的直尺图像适当的图素大小。 

然後，程式计算名为 fScale 的浮点值，它是显示区域宽度与图像宽度的比 
值以及显示区域高度与图像高度比值两者的最小值。这个因数在计算围绕矩形 
前用於增加图像的图素大小。 


metafile 中的映射方式 


前面绘制的直尺单位有英寸，也有毫米。这种工作使用 GDI 提供的各种映 
射方式似乎非常适合。但是我坚持使用图素，并「手工」完成所有必要的计算。 
为什么呢？ 

答案很简单，就是将映射方式与 metafile —起使用会十分混乱。我们不妨 
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实验一下。 

当使用 metafile 装置内容呼叫 SetMapMode 时，该函式在 metafile 中像其 


他 GDI 函式一样被编码。如程式 18-13 EMF 11 显示的那样。 

程式 18-13 EMF11 


EMF11 

• C 





/* —— 







EMF11.C -- Enhanced 

Metafile Demo #11 






(c) Charles Petzold, 1998 






- V 

♦include <windows . h> 





TCHAR 

szClass 

[] 

= TEXT ("EMFll") ; 



TCHAR 

szTitle 

[] 

=TEXT ("EMFll : Enhanced 

Metafile Demo #11") ; 

void : 

r 

DrawRuler (HDC hdc , 

int cx, int cy) 



\ 

int 


i, iHeight ; 




LOGFONT 

If 

• 

F 




TCHAR 


ch ; 





// 

Black pen with 1-point width 



SelectObj ect (hdc 


: reatePen (PS—SOLID, cx / 

72 

/ 6, 0)) ; 



// 

Rectangle surrounding entire 

pen (with adjustment) 


if (GetVersion () 


0x80000000) ' 


// Windows 98 


Rectangle (hdc, 0 , -2, cx + 2, cy) 

； 



else 





// Windows NT 







Rectangle (hdc, 0 , -1, cx + 

1, 

cy) ; 



// 

Tick marks 




for (i = 1 ; i < 

{ 

96 

； i++) 




\ 

if (i %16== ◦) 

iHeight = cy / 2 ; 

// 

inches 


else if ( i % 8 

== 

0 ) iHeight = cy / 3 ; 

// 

half inches 


else if (i % 4 

== 

0)iHeight = cy / 5 ; 

// 

quarter inches 


else if (i % 2 

== 

0)iHeight = cy / 8 ; 

// 

eighths 


else iHeight = 

cy 

/12 ; // sixteenths 




MoveToEx (hdc. 

i * cx / 96, ◦, NULL); 




LineTo 

(hdc, i * cx / 96, iHeight) 

• 

r 


// Create logical font 




FillMemory (&lf A 

sizeof (If), 0); 




If.IfHeight = cy 

/ : 

2 ； 
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lstrcpy (If.IfFaceName, TEXT ("Times New Roman")); 


SelectObject 
SetTextAlign 
SetBkMode 


(hdc, CreateFontlndirect (&lf)); 
(hdc, TA—BOTTOM | TA—CENTER); 
(hdc, TRANSPARENT); 


// Display numbers 


for (i = 1 ; i <= 5 ; i++) 

{ 

ch = (TCHAR) (i + 1 ◦ ▼); 

TextOut (hdc, i * cx / 6, cy / 2, &ch, 1); 

} 

// Clean up 

DeleteObj ect (SelectObj ect (hdc, GetStockObj ect (SYSTEM—FONT))); 
DeleteObj ect (SelectObj ect (hdc, GetStockObj ect (BLACK PEN))); 


void CreateRoutine (HWND hwnd) 

{ 

HDC hdcEMF ; 

HENHMETAFILE hemf ; 


hdcEMF = CreateEnhMetaFile (NULL, TEXT ("emf11.emf"), NULL, 

TEXT ("EMF11\0EMF Demo #11\0")); 
SetMapMode (hdcEMF, MM—LOENGLISH); 

DrawRuler (hdcEMF, 600, 100); 
hemf = CloseEnhMetaFile (hdcEMF); 

DeleteEnhMetaFile (hemf); 


void PaintRoutine (HWND hwnd, HDC hdc, int cxArea, int cyArea) 

{ 

ENHMETAHEADER emh ; 

HENHMETAFILE hemf ; 


int cxMms, cyMms, cxPix, cyPix, cxlmage, cylmage ; 

RECT rect ; 


cxMms 

=GetDeviceCaps 

(hdc. 

HORZSIZE); 

cyMms 

=GetDeviceCaps 

(hdc. 

VERTSIZE); 

cxPix 

=GetDeviceCaps 

(hdc. 

HORZRES); 

cyPix 

=GetDeviceCaps 

(hdc. 

VERTRES); 


hemf = GetEnhMetaFile (TEXT ("emf11.emf")); 
GetEnhMetaFileHeader (hemf, sizeof (emh), &emh); 
cxlmage = emh.rclFrame.right - emh.rclFrame.left ; 
cylmage = emh.rclFrame.bottom - emh.rclFrame.top ; 
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cxlmage = cxlmage * cxPix / cxMms / 100 ; 

cylmage = cylmage * cyPix / cyMms / 100 ; 


rect.left 
rect.top 
rect.right 
rect.bottom 


=(cxArea - cxlmage) / 2 ; 
=(cyArea - cylmage) / 2 ; 

=(cxArea + cxlmage) / 2 ; 
=(cyArea + cylmage) / 2 ; 


PlayEnhMetaFile (hdc, hemf, &rect); 
DeleteEnhMetaFile (hemf); 


EMF 11 中的 CreateRoutine 函式比 EMF 8 (最初的直尺 metafile 程式)中的 
那个简单，因为它不需要呼叫 GetDeviceCaps 来确定以每英寸点数为单位的显 
示器解析度。相反， EMF 11 呼叫 SetMapMode 将映射方式设定为 MMJL 0 ENGLISH ， 
其逻辑单位等於 0.01 英寸。因而，直尺的大小为600 100个单位，并将这些数 
值传递给 DrawRuler 。 

除了 MoveToEx 和 LineTo 呼叫绘制直尺的刻度外， EMF 11 中的 DrawRuler 函 
式与 EMF 9 中的一样。当以图素单位绘制时（内定的 MM_TEXT 映射方式），垂直 


轴上的单位沿著萤幕向下增长。对於 MM _ L 0 ENGLISH 映射方式（以及其他度量映 


射方式），则向上增长。这就需要修改程式码。同时，也需要更改 Rectangle 
函式中的调节因数。 

EMF 11 中的 PaintRoutine 函式基本上与 EMF 9 中的相同，那个版本的程式能 
在显示器和印表机上以正确尺寸显示直尺。唯一不同之处在於 EMF 11 使用 
EMF 11. EMF 档案，而 EMF 9 使用 EMF 8 建立的 EMF 8. EMF 档案。 

EMF 11 显示的图像基本上与 EMF 9 所显示的相同。因此，在这里可以看到将 
SetMapMode 呼叫嵌入 metafile 能够简化 metafile 的建立，而且不影响以其正 
确大小显示 metafile 的机制。 


映射与显示 


在 EMF 11 中计算目的矩形包括对 GetDeviceCaps 的几个呼叫。我们的第二 
个目的是使用映射方式代替这些呼叫。 GDI 将目的矩形的座标视为逻辑座标。为 
这些座标使用 MM_HIMETRIC 似乎是个好方案，因为它使用 0. 01毫米作为逻辑单 
位，与增强型 metafile 表头中用於围绕矩形的单位相同。 

程式 18-14 中所示的 EMF 12 程式，保留了 EMF 8 中使用的 DrawRuler 处理方 
式，但是使用 MM_HIMETRIC 映射方式显示 metafile 。 

程式 18-14 EMF12 

EMF12.C 

/ -k - 
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EMF12.C -- Enhanced Metafile Demo #12 

(c) Charles Petzold, 1998 


#include <windows.h> 

TCHAR szClass [] = TEXT ( n EMF12 n ); 

TCHAR szTitle [] = TEXT ("EMF12 : Enhanced Metafile Demo #12"); 

void DrawRuler (HDC hdc, int cx, int cy) 

{ 

int iAdj, i , iHeight ; 

LOGFONT If ; 

TCHAR ch ; 

iAdj = GetVersion () & 0x80000000 ? 0 : 1 ; 

// Black pen with 1-point width 
SelectObject (hdc, CreatePen (PS_SOLID, cx / 72 / 6, 0)); 

// Rectangle surrounding entire pen (with adjustment) 
Rectangle (hdc, iAdj, iAdj, cx + iAdj +1, cy + iAdj + 1); 

// Tick marks 


for (i 

— 

1 ； 

■ 

< 96 ; i++) 







\ 

if U 

. % 

16 

—— 

0) iHeight = cy / 

2 ； 



// 

inches 

else 

if 

(i 

% 

8 == ◦) 

iHeight = 

=cy 

/ 

3 ; 

// 

half inches 

else 

if 

(i 

% 

4 == ◦) 

iHeight = 

=cy 

/ 

5 ; 

// 

quarter inches 

else 

if 

(i 

% 

2 == ◦) 

iHeight = 

=cy 

/ 

8 ; 

// 

eighths 

else 

iHeight 

=cy / 12 ; 

// 

sixteenths 




MoveToEx (hdc, i * cx / 96, cy, NULL); 
LineTo (hdc, i * cx / 96, cy - iHeight); 

} 

// Create logical font 
FillMemory (&lf, sizeof (If), 0); 

If.IfHeight = cy / 2 ; 

lstrcpy (If • If FaceName, TEXT ("Times New Roman’’））; 

SelectObj ect (hdc, CreateFontlndirect (&lf)); 
SetTextAlign (hdc, TA—BOTTOM | TA—CENTER); 

SetBkMode (hdc, TRANSPARENT); 

// Display numbers 

for (i = 1 ; i <= 5 ; i++) 

ch = (TCHAR) (i + ▼◦▼); 

TextOut (hdc, i * cx / 6, cy / 2, &ch, 1); 
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// Clean up 


DeleteObject 
DeleteObject 


(SelectObj ect (hdc, GetStockObj ect 
(SelectObj ect (hdc, GetStockObj ect 


(SYSTEM—FONT))) 
(BLACK PEN))); 


void CreateRoutine (HWND hwnd) 

{ 

HDC 

HENHMETAFILE hemf ; 

int 


hdcEMF ; 

cxMms, cyMms, cxPix, cyPix, xDpi, yDpi ; 


hdcEMF = CreateEnhMetaFile (NULL, TEXT ("emf12.emf"), NULL, 

TEXT ("EMF13\0EMF Demo #12\0")); 


cxMms = 
cyMms = 
cxPix = 
cyPix = 


GetDeviceCaps 
GetDeviceCaps 
GetDeviceCaps 
GetDeviceCaps 


(hdcEMF, HORZSIZE) 
(hdcEMF, VERTSIZE) 
(hdcEMF, HORZRES) 
(hdcEMF, VERTRES) 


xDpi = cxPix * 254 / cxMms / 10 ; 
yDpi = cyPix * 254 / cyMms / 10 ; 


DrawRuler (hdcEMF, 6 * xDpi, yDpi); 
hemf = CloseEnhMetaFile (hdcEMF); 
DeleteEnhMetaFile (hemf); 


void PaintRoutine (HWND hwnd, HDC hdc, int cxArea, int cyArea) 

{ 


ENHMETAHEADER emh ; 

HENHMETAFILE hemf ; 

POINT 

int 

RECT 


pt ; 

cxlmage, cylmage ; 
rect ; 


SetMapMode (hdc, MM_HIMETRIC); 
SetViewportOrgEx (hdc, ◦, cyArea, NULL); 
pt•x = cxArea ; 
pt•y = 0 ; 


DPtoLP (hdc, &pt, 1); 

hemf = GetEnhMetaFile (TEXT ("emf12.emf")); 
GetEnhMetaFileHeader (hemf, sizeof (emh ), &emh); 
cxlmage = emh.rclFrame.right 一 emh.rclFrame.left ; 
cylmage = emh.rclFrame.bottom — emh.rclFrame.top ; 


rect.left = (pt.x - cxlmage) / 2 ; 

rect.top = (pt.y + cylmage) / 2 ; 
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rect.right = (pt.x + cxlmage) / 2 ; 

rect.bottom = (pt.y - cylmage) / 2 ; 

PlayEnhMetaFile (hdc, hemf, &rect); 

DeleteEnhMetaFile (hemf); 

} 

EMF 12 中的 PaintRoutine 函式首先将映射方式设定为 MM _ HIMETRIC 。 像其 
他度量映射方式一样， y 值沿著萤幕向上增长。然而，原点座标仍在萤幕的左上 
角，这就意味显示区域内的 y 座标值是负数。为了纠正这个问题，程式呼叫 
SetViewportOrgEx 将原点座标设定在左下角。 

装置座标 ( cxArea ，0) 位於萤幕的右上角。把该座标点传递给 DPtoLP (「装 
置座标点到逻辑座标点」）函式，得到以 0. 01毫米为单位的显示区域大小。 

然後，程式载入 metafile , 取得档案表头，并找到以 0.01 毫米为单位的 
metafile 大小。这样计算目的矩形在显示区域居中对齐的位置就变得十分简单。 

现在我们看到了在建立 metafile 时能够使用映射方式，显示它时也能使用 
映射方式。我们能一起完成它们吗？ 

如程式 18-15 EMF 13 展示的那样，这是可以的。 


程式 18-15 EMF13 


EMF13.C 

/* - 


EMF13.C -- 

Enhanced Metafile Demo #13 

(c) Charles Petzold, 1998 


*/ 


♦include <windows.h> 
TCHAR szClass [] 

TCHAR szTitle [] 


TEXT ( n EMF13"); 

TEXT ("EMF13 : Enhanced Metafile Demo #13 M ) 


void CreateRoutine (HWND hwnd) 

{ 

} 


void PaintRoutine (HWND hwnd, HDC hdc, 
{ 

ENHMETAHEADER emh ; 

HENHMETAFILE hemf ; 

POINT 

int 

RECT 


int cxArea, int cyArea) 


pt ; 

cxlmage, cylmage ; 
rect ; 


SetMapMode (hdc, MM HIMETRIC); 
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SetViewportOrgEx (hdc, ◦, cyArea, NULL); 
pt.x = cxArea ; 
pt • y = ◦; 


DPtoLP (hdc, &pt, 1); 

hemf = GetEnhMetaFile (TEXT ("..\\emf11\\emf11.emf n )); 
GetEnhMetaFileHeader (hemf, sizeof (emh), &emh); 


cxlmage = emh.rclFrame.right 一 emh.rclFrame.left ; 
cylmage = emh.rclFrame.bottom - emh.rclFrame.top ; 


rect.left 
rect.top 
rect.right 
rect.bottom 


=(pt.x - cxlmage) / 2 ; 
(pt.y + cylmage) / 2 ; 

=(pt.x + cxlmage) / 2 ; 
=(pt.y - cylmage) / 2 ; 


PlayEnhMetaFile (hdc, hemf, &rect); 
DeleteEnhMetaFile (hemf); 


在 EMF 13 中，由於直尺 metafile 已由 EMF 11 建立，所以它没有使用映射方 
式建立 metafile 。 EMF 13 只是简单地载入 metafile ， 然後像 EMF 11 —样使用映 
射方式计算目的矩形。 

现在，我们可以建立一些规则。在建立 metafile 时， GDI 使用对映射方式 
的任意嵌入修改，来计算以图素和毫米为单位的 metafile 图像的大小。图像的 
大小储存在 metafile 表头内。在显示 metafile 时， GDI 在呼叫 PlayEnhMetaFile 
时根据有效的映射方式建立目的矩形的实际位置，而本来的 metafile 中并没有 
任何记录去更改这个位置。 
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第十九章多重文件介面 

多重文件介面 （ MDI ) 是 Microsoft Windows 文件处理应用程式的一种规范， 
该规范描述了视窗结构和允许使用者在单个应用程式中使用多个文件的使用者 
介面（如文书处理程式中的文字文件和试算表程式中的试算表）。简单地说， 
就像 Windows 在一个萤幕上维护多个应用程式视窗一样， MDI 应用程式在一个显 
示区域内维护多个文件视窗。 Windows 中的第一个 MDI 应用程式是 Windows 下的 
Microsoft Excel 的第一个版本。紧接著又出现了许多其他的应用程式。 

MDI 概念 

尽管 MDI 规范随著 Windows 2.0 的推出已经很普及，但在那时， MDI 应用程 
式写起来很困难，并且需要一些非常复杂的程式设计工作。从 Windows 3.0 起， 
其中许多工作就都由 Windows 为您做好了 。 Windows 95中增强的支援也已经被 
添加进 Windows 98和 Microsoft Windows NT 中。 

MDI 的组成 


MDI 程式的主应用程式视窗是很普 通的： 它有一个标题列、一个功能表 、一 
个缩放边框、 一 个系统功能表图示和最大化/最小化/关闭按钮。显示区域经常 
被称为「工作空间」，它不直接用於显示程式输出。这个工作空间包括零个或 
多个子视窗，每个视窗都显示一个文件。 

这些子视窗看起来与通常的应用程式视窗以及 MDI 程式的主视窗很相似。 
它们有一个标题列、 一 个缩放边框、 一 个系统功能表图示和最大化/最小化/关 
闭按钮，可能还包括卷动列。但是文件视窗没有功能表，主应用程式视窗上的 
功能表适用於文件视窗。 

在任何时候都只能有一个文件视窗是活动的（加亮标题列来表示），它出 
现在其他所有文件视窗之前。所有文件视窗都由工作空间区域加以剪裁，而不 
会出现在应用程式视窗之外。 

初看起来，对 Windows 程式写作者来说， MDI 似乎是相当简单。需要程式写 
作者做的工作好像就是为每个文件建立一个 WS _ CHILD 视窗，并使程式的主应用 
程式视窗成为文件视窗的父视窗。但对现有的 MDI 应用程式稍加研究，就会发 
现一些导致程式写作困难的复杂问题。 例如： 

• MDI 文件视窗可以最小化。它的图示出现在工作空间的底部。一般来说， 
MDI 应用程式可以将不同的图示分别用於主应用程式视窗和每一类文件 
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应用。 

• MDI 文件视窗可以最大化。在这种情况下，文件视窗的标题列（一般用 
来显示视窗中文件的档案名称）消失，档案名称出现在应用程式视窗标 
题列的应用程式名称之後，文件视窗的系统功能表图示成为应用程式视 
窗的顶层功能表中的第一项。关闭文件视窗按钮变成顶层功能表中的最 
後一项，且出现在最右边。 

* 用以关闭文件视窗的系统键盘加速键与关闭主视窗的系统键盘加速键 
一样，只是 Ctrl 键代替了 Alt 键。这也就是说， Alt + F 4 用於关闭应用 
程式视窗，而 Ctrl + F 4 用於关闭文件视窗。此外， Ctrl + F 6 可以在活动 
MDI 应用程式的子文件视窗之间切换。与平时一样， Alt + 空白键启动主 
视窗的系统功能表， Alt +- (减号）启动活动子文件视窗的系统功能表。 

• 当使用游标键在功能表项间移动时，控制项权通常从系统功能表转到功 
能表列中的第一项。在 MDI 应用程式中，控制项权是从应用程式系统功 
能表转到活动文件系统功能表，然後再转到功能表列中的第一项。 

• 如果应用程式能够支援若干种型态的子视窗（如 Microsoft Excel 中的 
工作表和图表文件），那么功能表应能反映出与这种型态的文件有关的 
操作。这就要求当不同的文字视窗变成活动视窗时，程式能更换功能表。 
此外，当没有文件视窗存在时，功能表应该被缩减到只剩下与打开新文 
件有关的操作。 

• 顶层功能表上有一个叫做「视窗 （ Window ) 」的功能表项。按照习惯， 
这是顶层功能表上 「 Help 」 之前的那一项，即倒数第二项。「视窗」子 
功能表上通常包含在工作空间内安排文件视窗的选项。文件视窗可以从 
左上方开始「平铺」或「层叠」。在前一种方式下，可以完整地看到每 
一 个文件视窗。这个子功能表同时也包含所有文件视窗的列表。从中选 
择一个文件视窗，就可以把此文件视窗移到前景。 

Windows 98支援 MDI 的所有这些方面。当然，需要您做一些工作（如下面 
的范例程式所示），但是，这远不是要您程式写作来直接支援所有这些功能。 

MDI 支援 

探讨 Windows 的 MDI 支援时需要发表一些新术语。主应用程式视窗称为「框 
架视窗」，就像传统的 Windows 程式一样，它是 WSJ 3 VERLAPPEDWIND 0 W 样式的 

视窗。 

MDI 应用程式还根据预先定义的视窗类别 MDICLIENT 建立「客户视窗」，这 
一客户视窗是用这种视窗类别和 WS _ CHILD 样式呼叫 CreateWindow 来建立的。 
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这一呼叫的最後一个参数是指向一个 CLIENTCREATESTRUCT 型态的结构的指标。 
这个客户视窗覆盖框架视窗的显示区域，并提供许多 MDI 支援。此客户视窗的 
颜色是系统颜色 C 0 L 0 R _ APPW 0 RKSPACE 。 

文件视窗被称为「子视窗」。通过初始化一个 MDICREATESTRUCT 型态的结 
构，以一个指向此结构的指标为参数将讯息 WM _ MDICREATE 发送给客户视窗，就 
可以建立这些文件视窗。 

文件视窗是客户视窗的子视窗，而客户视窗又是框架视窗的子视窗。父-子 
视窗分层结构如图 19-1 所示。 



I I (document 

windows) 

Child Child 

window 2 window 3 

图 19-1 Windows MDI 应用程式的父-子层次图 

您需要框架视窗的视窗类别（及视窗讯息处理程式）和一个由应用程式支 
援的每类子视窗的视窗类别（及视窗讯息处理程式）。由於已经预先注册了视 
窗类别，所以不需要客户视窗的视窗讯息处理程式。 

Windows 98的 MDI 支援包括一个视窗类别、五个函式、两个资料结构和12 
个讯息。前面已经提到了 MDI 视窗类别，即 MDICLIENT ， 以及资料结构 
CLIENTCREATESTRUCT 和 MDICREATESTRUCT 。 在 MDI 应用程式中，这五个函式中 
的两个用於取代 DefWindowProc : 不再将 DefWindowProc 呼叫用於所有未处理的 
讯息，而是由框架视窗程序呼叫 DefFrameProc ,子视窗程序呼叫 
DefMDIChildProc 。 另一*个 MDI 特有的函式 TranslateMDISysAccel 与第十章中 
讨论的 TranslateAccelerator 的使用方式相同。 MDI 支援也包括 
ArrangelconicWindows 函式，但有一条专用的 MDI 讯息使得此函式对 MDI 程式 
来说不再必要。 

第五个 MDI 函式是 CreateMDIWindow ， 它使得子视窗可以在单独的执行绪中 


Child 
window 1 
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被建立。这个函式不需要在单执行绪的程式中，我会展示这一点。 

在下面的程式中，我将展示12条 MDI 讯息中的9条（其他三个讯息一般不 
用），这些讯息的字首是 WM _ MDI 。 框架视窗向客户视窗发送其中某个讯息，以 
便在子视窗上完成一项操作或者取得关於子视窗的资讯（例如，框架视窗发送 
一个 WM _ MDICREATE 讯息给客户视窗，以建立子视窗）。讯息 WM_MDIACTIVATE 

讯息有点 特别： 框架视窗可以发送这个讯息给客户视窗来启动一个子视窗，而 
客户视窗也把这个讯息发送给将被启动或者失去活动的子视窗，以便通知它们 
这一变化。 

MDI 的范例程式 


程式 19-1 MDIDEM 0 程式说明了编写 MDI 应用程式的基本方法。 

程式 19-1 MDIDEM0 

MDIDEMO.C 

/* - 

MDIDEMO.C -- Multiple-Document Interface Demonstration 

(c) Charles Petzold, 1998 

_ -k 


♦include <windows.h> 
♦include "resource.h 


#define INIT—MENU—POS 
♦define HELLO_MENU_POS 
♦define RECT MENU POS 


2 


0 


1 


♦define IDM FIRSTCHILD 


50000 


LRESULT 

BOOL 

LRESULT 

LRESULT 


CALLBACK FrameWndProc 

CALLBACK CloseEnumProc 
CALLBACK HelloWndProc 
CALLBACK RectWndProc 


(HWND, UINT, WPARAM 
(HWND, LPARAM); 
(HWND, UINT, WPARAM 
(HWND, UINT, WPARAM 


LPARAM) 

LPARAM) 

LPARAM) 


// structure for storing data unique to each Hello child window 


typedef struct tagHELLODATA 


{ 


UINT 

COLORREF 


iColor ; 
clrText ; 


HELLODATA, ★ PHELLODATA ; 

// structure for storing data unique to each Rect child window 
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typedef struct tagRECTDATA 



short 


cxClient ; 


short 


cyClient ; 


RECTDATA, * PRECTDATA ; 

// global variables 

TCHAR 

TCHAR 

TCHAR 

TCHAR 

HINSTANCE hlnst ; 

HMENU 

HMENU 


szAppName[] 
szFrameClass [] 
szHelloClass[] 
szRectClass[] 


=TEXT ( n MDIDemo n ); 

=TEXT ("MdiFrame"); 

=TEXT ("MdiHelloChild"); 
=TEXT ("MdiRectChild"); 


hMenuInit, hMenuHello, hMenuRect ; 
hMermlnitWindow, hMenuHelloWindow, 


hMenuRectWindow ; 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, 


iCmdShow) 


HACCEL 

HWND 

MSG 

WNDCLASS 


hAccel ; 

hwndFrame, hwndClient ; 
msg ; 
wndclass ; 


int 


hlnst = hlnstance ; 

// Register the frame window class 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 

=FrameWndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION) 
=LoadCursor (NULL, 工 DC—ARROW); 

=(HBRUSH) (COLOR_APPWORKSPACE +1); 

=NULL ; 

=szFrameClass ; 


if 

{ 


(!RegisterClass (&wndclass)) 


MessageBox ( 


NULL, TEXT ("This program requires Windows NT !’，）， 

szAppName, MB ICONERROR); 


return 


// Register the Hello child window class 
wndclass.style =CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc = HelloWndProc ; 
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wndclass . cbClsExtra 

=◦; 


wndclass . cbWndExtra 

=sizeof (HANDLE) 

• 

f 

wndclass.hlnstance 

=hlnstance ; 


wndclass • hicon 

=Loadlcon (NULL, 

IDI APPLICATION); 

wndclass . hCursor 

=LoadCursor (NULL 

, IDC ARROW); 

wndclass . hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 

wndclass . IpszMenuName 

=NULL ; 


wndclass . IpszClassName 

=szHelloClass ; 


RegisterClass (&wndclass) 

參 

f 


// Register the Rect child window class 

wndclass . style 

=CS HREDRAW | CS 

VREDRAW ; 

wndclass . lpfnWndProc 

=RectWndProc ; 


wndclass . cbClsExtra 

=◦; 


wndclass . cbWndExtra 

=sizeof (HANDLE) 

• 

f 

wndclass.hlnstance 

=hlnstance ; 


wndclass • hicon 

=Loadlcon (NULL, 

IDI APPLICATION); 

wndclass . hCursor 

=LoadCursor (NULL 

, IDC ARROW); 

wndclass . hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 

wndclass . IpszMenuName 

=NULL ; 


wndclass . IpszClassName 

=szRectClass ; 


RegisterClass (&wndclass) 

• 


// Obtain 

handles to three possible 

menus & submenus 

hMenuInit = LoadMenu (hlnstance, TEXT ('’MdiMenuInit ’， ））; 

hMenuHello = LoadMenu (hlnstance, TEXT ("MdiMenuHello")); 

hMenuRect = LoadMenu (hlnstance, TEXT ("MdiMenuRect")); 

hMermlnitWindow = GetSubMenu (hMermlnit, 

INIT MENU POS); 

hMenuHelloWindow = GetSubMenu (hMenuHello, 

• 

HELLO MENU POS) 

f 

hMenuRectWindow = GetSubMenu (hMenuRect, 

RECT MENU POS); 

// Load accelerator table 


hAccel = LoadAccelerators 

(hlnstance, s zAppName); 


// Create 

the frame window 


hwndFrame = CreateWindow 

(szFrameClass, TEXT ( n MDI 

Demonstration"), 

WS OVERLAPPEDWINDOW | WS CLIPCHILDREN, 


CW USEDEFAULT, 

CW USEDEFAULT, 


CW USEDEFAULT, 

CW USEDEFAULT, 


NULL, hMenuInit, hlnstance, NULL); 


hwndClient = GetWindow (hwndFrame, GW CHILD); 


ShowWindow (hwndFrame, iCmdShow); 


UpdateWindow (hwndFrame); 



// Enter 

the modified message loop 


while (GetMessage (&msg, NULL, ◦, 0)) 
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if ( ! TranslateMDISysAccel (hwndClient , &msg) && 

!TranslateAccelerator (hwndFrame, hAccel, &msg)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 


// Clean up by deleting unattached menus 
DestroyMenu (hMenuHello); 

DestroyMenu (hMenuRect); 


return msg.wParam ; 


LRESULT CALLBACK FrameWndProc (HWND hwnd A UINT message, WPARAM wParam, LPARAM 
IParam) 


static HWND 

CLIENTCREATESTRUCT 

HWND 

MDICREATESTRUCT 


hwndClient ; 
clientcreate 
hwndChild ; 

mdicreate ; 


switch (message) 

{ 

case WM CREATE : // Create the client window 


clientcreate.hWindowMenu 


=hMenuInitWindow ; 


clientcreate.idFirstChild 


= 工 DM FIRSTCHILD ; 


hwndClient = CreateWindow ( TEXT ( n MDICLIENT n ), NULL, 

WS_CHILD I WS_CLIPCHILDREN | WS—VISIBLE, 

◦, ◦, 0, ◦, hwnd, (HMENU) 1, hlnst, 

(PSTR) &clientcreate); 

return 0 ; 
case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case IDM_FILE—NEWHELLO : // Create a Hello child window 

mdicreate.szClass 
mdicreate.s zTitle 
mdicreate.hOwner 
mdicreate.x 
mdicreate.y 
mdicreate.cx 
mdicreate.cy 
mdicreate.style 
mdicreate.IParam 


=szHelloClass ; 

=TEXT ("Hello"); 

=hlnst ; 

=CW_USEDEFAULT ; 
=CW—USEDEFAULT ; 
=CW—USEDEFAULT ; 

=CW USEDEFAULT ; 
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hwndChild = (HWND) SendMessage (hwndClient A 
WM_MDICREATE, 0, (LPARAM) (LPMDICREATESTRUCT) &mdicreate); 
return 0 ; 


case IDM FILE NEWRECT : // Create a Rect child window 


mdicreate.szClass 
mdicreate.s zTitle 
mdicreate.hOwner 
mdicreate.x 
mdicreate.y 
mdicreate.cx 
mdicreate.cy 
mdicreate.style 
mdicreate.IParam 


=szRectClass ; 

=TEXT ("Rectangles"); 
=hlnst ; 

=CW—USEDEFAULT ; 

=CW—USEDEFAULT ; 

=CW—USEDEFAULT ; 

=CW USEDEFAULT ; 


hwndChild = (HWND) SendMessage (hwndClient, 
WM—MDICREATE, 0, 

(LPARAM) (LPMDICREATESTRUCT) &mdicreate); 

return 0 ; 


case 工 DM FILE CLOSE : // Close the active window 


hwndChild = (HWND) SendMessage (hwndClient, 
WM_MDIGETACTIVE, 0, 0); 

if (SendMessage (hwndChild, WM—QUERYENDSESSION, ◦, 0)) 
SendMessage (hwndClient, WM—MDIDESTROY, 

(WPARAM) hwndChild, 0); 
return 0 ; 


case IDM—APP_EXIT : // Exit the program 

SendMessage (hwnd, WM—CLOSE, 0, 0); 
return 0 ; 

// messages for arranging windows 

case IDM—WINDOW—TILE: 

SendMessage (hwndClient, WM—MDITILE, ◦, 0); 
return 0 ; 

case IDM—WINDOW—CASCADE: 

SendMessage (hwndClient, WM—MDICASCADE, 0, 0); 
return 0 ; 

case 工 DM WINDOW ARRANGE : 
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children 


SendMessage (hwndClient, WM—MD 工工 CONARRANGE, ; 

return 0 ; 

case IDM WINDOW CLOSEALL: // Attempt to close all 


EnumChildWindows (hwndClient, CloseEnumProc, 0); 
return 0 ; 


default : // Pass to active child... 

hwndChild = (HWND) SendMessage (hwndClient, 
WM_MDIGETACTIVE, ◦, 0); 
if (IsWindow (hwndChild)) 

SendMessage (hwndChild, WM—COMMAND, wParam, IParam); 
break ; // ...and then to DefFrameProc 

} 

break ; 

case WM—QUERYENDSESSION: 

case WM—CLOSE: // Attempt to close all children 

SendMessage (hwnd, WM—COMMAND, IDM_WINDOW_CLOSEALL, 0); 

if (NULL != GetWindow (hwndClient, GW—CHILD)) 
return 0 ; 

break ; // i.e., call DefFrameProc 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

// Pass unprocessed messages to DefFrameProc (not DefWindowProc) 
return DefFrameProc (hwnd, hwndClient, message, wParam, IParam); 

} 

BOOL CALLBACK CloseEnumProc (HWND hwnd, LPARAM IParam) 

{ 

if (GetWindow (hwnd, GW_OWNER)) // Check for icon title 

return TRUE ; 

SendMessage (GetParent (hwnd), WM—MDIRESTORE, (WPARAM) hwnd, 0); 
if (!SendMessage (hwnd, WM_QUERYENDSESSION, ◦, 0)) 
return TRUE ; 

SendMessage (GetParent (hwnd), WM—MDIDESTROY, (WPARAM) hwnd, 0); 
return TRUE ; 
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LRESULT CALLBACK HelloWndProc (HWND hwnd, UINT message, 

WPARAM wParam, LPARAM IParam) 

{ 

static COLORREF clrTextArray[] = { RGB (0, ◦, ◦), RGB (255, 0, 

RGB (0, 255, ◦), RGB ( ◦, ◦, 255), 

RGB (255, 255, 255) }; 

static HWND hwndClient, hwndFrame ; 


HDC 

HMENU 

PHELLODATA 

PAINTSTRUCT 

RECT 


hdc ; 
hMenu ; 
pHelloData ; 
ps ; 
rect ; 


◦) , 


switch (message) 

{ 

case WM—CREATE: 

// Allocate memory for window private data 


pHelloData = (PHELLODATA) HeapAlloc (GetProcessHeap (), 
HEAP_ZERO—MEMORY, sizeof (HELLODATA)); 
pHelloData->iColor = 工 DM—COLOR—BLACK ; 
pHelloData->clrText = RGB (0, ◦, 0); 

SetWindowLong (hwnd, ◦, (long) pHelloData); 

// Save some window handles 

hwndClient = GetParent (hwnd); 
hwndFrame = GetParent (hwndClient); 
return 0 ; 

case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 


case 

工 DM 

COLOR 

BLACK: 

case 

I DM 

COLOR 

RED: 

case 

IDM 

_COLOR 

GREEN: 

case 

IDM 

_COLOR 

BLUE : 

case 

IDM 

_COLOR 

WHITE: 


// Change the text color 

pHelloData = (PHELLODATA) GetWindowLong (hwnd, 0); 


hMenu = GetMenu (hwndFrame); 


CheckMenuItem (hMenu, pHelloData->iColor, MF_UNCHECKED); 
pHelloData->iColor = wParam ; 
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CheckMenuItem (hMenu, pHelloData->iColor , MF CHECKED); 


pHelloData->clrText = clrTextArray[wParam - IDM_COLOR_BLACK]; 

工 nvalidateRect (hwnd, NULL, FALSE); 

} 

return 0 ; 

case WM—PAINT: 

// Paint the window 

hdc = BeginPaint (hwnd, &ps); 

pHelloData = (PHELLODATA) GetWindowLong (hwnd, 0); 
SetTextColor (hdc, pHelloData->clrText); 

GetClientRect (hwnd, &rect); 

DrawText (hdc, TEXT ("Hello, World!’ ，）， -1, &rect, 
DT_SINGLELINE | DT_CENTER | DT—VCENTER); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM_MDIACTIVATE: 

// Set the Hello menu if gaining focus 

if (IParam == (LPARAM) hwnd) 

SendMessage (hwndClient, WM—MDISETMENU,(WPARAM) 
hMenuHello, (LPARAM) hMenuHelloWindow); 

// Check or uncheck menu item 


MF UNCHECKED); 


pHelloData = (PHELLODATA) GetWindowLong (hwnd, 0); 
CheckMenuItem (hMenuHello, pHelloData->iColor, 

(IParam == (LPARAM) hwnd) ? MF CHECKED 


// Set the Init menu if losing focus 


if (IParam != (LPARAM) hwnd) 

SendMessage (hwndClient, 

WM_MDISETMENU, (WPARAM) 

hMenuInit,(LPARAM) hMenuInitWindow); 


DrawMenuBar (hwndFrame); 
return 0 ; 


case WM QUERYENDSESSION: 
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case WM—CLOSE: 

if (IDOK != MessageBox (hwnd, TEXT ("OK to close window? M ), 

TEXT ("Hello"), 

MB_ICONQUESTION | MB_OKCANCEL)) 
return 0 ; 

break ; // i.e., call DefMDIChildProc 


case WM—DESTROY: 

pHelloData = (PHELLODATA) GetWindowLong (hwnd, 0); 
HeapFree (GetProcessHeap (), 0, pHelloData); 
return 0 ; 

} 

// Pass unprocessed message to DefMDIChildProc 
return DefMDIChildProc (hwnd, message, wParam, IParam); 

} 

LRESULT CALLBACK RectWndProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

static HWND hwndClient, hwndFrame ; 

HBRUSH hBrush ; 

HDC hdc ; 

PRECTDATA pRectData ; 

PAINTSTRUCT ps ; 

int 
short 

switch (message) 

{ 

case WM CREATE : 


xLeft, xRight, yTop, yBottom ; 
nRed, nGreen, nBlue ; 


// Allocate memory for window private data 


pRectData = (PRECTDATA) HeapAlloc (GetProcessHeap (), 
HEAP_ZERO_MEMORY, sizeof (RECTDATA)); 

SetWindowLong (hwnd, 0, (long) pRectData); 

// Start the timer going 


SetTimer (hwnd, 1, 250, NULL); 


handles 




// Save some window 

hwndClient 

=GetParent 

(hwnd); 

hwndFrame 

=GetParent 

(hwndClient); 

return 0 ; 
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case WM—SIZE: // If not minimized, save the window size 

if (wParam != SIZE_MINIMIZED) 

{ 

pRectData = (PRECTDATA) GetWindowLong (hwnd, 0); 

pRectData->cxClient = LOWORD (IParam); 
pRectData->cyClient = HIWORD (IParam); 


break ; // WM SIZE must be processed by DefMDIChildProc 


case WM TIMER : 


// Display a random rectangle 


pRectData 

xLef t 

xRight 

yTop 

yBottom 

nRed 

nGreen 

nBlue 


=(PRECTDATA) GetWindowLong (hwnd, 0); 

=rand () % pRectData->cxClient ; 
=rand () % pRectData->cxClient ; 

=rand () % pRectData->cyClient ; 
=rand () % pRectData->cyClient ; 

=rand () & 255 ; 

=rand () & 255 ; 

=rand () & 255 ; 


hdc = GetDC (hwnd); 

hBrush = CreatesolidBrush (RGB (nRed, nGreen, nBlue)); 
SelectObj ect (hdc, hBrush); 


Rectangle (hdc, min (xLeft, xRight), min (yTop, yBottom), 

max (xLeft, xRight), max (yTop, yBottom)); 

ReleaseDC (hwnd, hdc); 

DeleteObj ect (hBrush); 
return 0 ; 

case WM PAINT: // Clear the window 


InvalidateRect (hwnd, NULL, TRUE); 
hdc = BeginPaint (hwnd, &ps); 
EndPaint (hwnd, &ps); 
return 0 ; 


case WM MDIACTIVATE: 

if (IParam == (LPARAM) 

// Set the 

hwnd) 

appropriate menu 

(LPARAM) 

SendMessage 

hMenuRectWindow); 

else 

(hwndClient, 

WM 

MDISETMENU, 

(WPARAM) 

hMenuRect, 

(LPARAM) 

SendMessage 

hMenuInitWindow); 

(hwndClient, 

WM 

MDISETMENU, 

(WPARAM) 

hMenuInit, 
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DrawMenuBar (hwndFrame) ; 
return 0 ; 


case WM DESTROY: 


pRectData = (PRECTDATA) GetWindowLong (hwnd, 
HeapFree (GetProcessHeap (), 0 , pRectData); 
KillTimer (hwnd, 1); 
return 0 ; 


0 ) 


// Pass unprocessed message to DefMDIChildProc 
return DefMDIChildProc (hwnd, message, wParam, IParam); 

} 

MDIDEMO.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h" 

♦include "afxres.h M 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

MDIMENUINIT MENU DISCARDABLE 
BEGIN 

POPUP "&File n 
BEGIN 

MENUITEM "New &Hello n , 

IDM—FILE—NEWHELLO 

MENUITEM "New &Rectangle", 

IDM_F 工 LE—NEWRE C T 

MENUITEM SEPARATOR 

MENUITEM "E&xit", IDM—APP_EXIT 

END 

END 

MDIMENUHELLO MENU DISCARDABLE 
BEGIN 

POPUP M &File" 

BEGIN 

MENUITEM "New &Hello n , 

MENUITEM "New &Rectangle", 

MENUITEM "&Close", 

MENUITEM SEPARATOR 
MENUITEM "E&xit", 

END 

POPUP "&Color" 

BEGIN 

MENUITEM n &Black", 

MENUITEM n &Red n , 

MENUITEM "&Green n , 


工 DM—FILE—NEWHELLO 
工 DM_F 工 LE—NEWRE C T 
工 DM—FILE—CLOSE 

IDM APP EXIT 


IDM—COLOR—BLACK 
IDM—COLOR—RED 

工 DM COLOR GREEN 
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MENUITEM "B&lue", IDM_COLOR_BLUE 

MENUITEM n &White n , IDM_COLOR—WHITE 

END 


POPUP "^Window" 

BEGIN 

MENUITEM "&Cascade\tShift+F5" A 
MENUITEM n &Tile\tShift+F4 n , 
MENUITEM "Arrange &Icons ”， 
MENUITEM "Close &A11", 

END 


IDM_WINDOW_CASCADE 

IDM_WINDOW_TILE 

IDM—W 工 NDOW_ARRANGE 
IDM WINDOW CLOSEALL 


END 

MDIMENURECT MENU DISCARDABLE 
BEGIN 


POPUP "&File n 
BEGIN 

MENUITEM "New &Hello", 

MENUITEM "New &Rectangle", 
MENUITEM n &Close n , 

MENUITEM SEPARATOR 
MENUITEM "E&xit", 

END 

POPUP "^Window" 

BEGIN 

MENUITEM "&Cascade\tShift+F5 n , 
MENUITEM "&Tile\tShift+F4", 
MENUITEM "Arrange &Icons ’’， 
MENUITEM "Close &A11" A 
END 


IDM—FILE—NEWHELLO 
IDM_FILE—NEWRECT 
IDM FILE CLOSE 


工 DM APP EXIT 


IDM—WINDOW—CASCADE 
IDM—WINDOW—TILE 
工 DM—W 工 N D OW—ARRAN GE 
工 DM WINDOW CLOSEALL 


END 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Accelerator 

MDIDEMO ACCELERATORS DISCARDABLE 
BEGIN 

VK_F4, IDM—WINDOW—TILE, VIRTKEY, SHIFT, NOINVERT 

VK—F5, IDM_WINDOW_CASCADE, VIRTKEY, SHIFT, NOINVERT 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by MDIDemo.rc 


♦define 工 DM—FILE—NEWHELLO 40001 
♦define 工 DM—FILE—NEWRECT 40002 
#define IDM—APP—EXIT 40003 
♦define 工 DM—FILE—CLOSE 40004 
#define 工 DM—COLOR—BLACK 40005 
♦define 工 DM COLOR RED 40006 
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#define 

I DM 

_C0L0R 

GREEN 

40007 

#define 

IDM 

COLOR 

BLUE 

40008 

#define 

I DM 

COLOR 

WHITE 

40009 

#define 

IDM 

WINDOW 

CASCADE 

40010 

#define 

工 DM 

WINDOW 

TILE 

40011 

#define 

工 DM 

WINDOW 

ARRANGE 

40012 

#define 

工 DM 

WINDOW 

—CLOSEALL 

40013 


MDIDEM 0 支援两种型态的非常简单的文件 视窗： 第一种视窗在它的显示区域 


中央显示 " Hello , World !"， 另一种视窗显示一系列随机矩形（在原始码列表和 
识别字名中，它们分别叫做 「 Hello 」 文件和 「 Rect 」 文件）。这两类文件视窗 
的功能表不同，显示 " Hello , World !" 的文件视窗有一个允许使用者修改文字颜 
色的功能表。 

三个功能表 

现在让我们先看看 MDIDEMO . RC 资源描述档，它定义了程式所使用的三个功 
能表模板。 

当文件视窗不存在时，程式显示 MdiMenuInit 功能表，这个功能表只允许 
使用者建立新文件或退出程式。 

MdiMenuHello 功能表与显示 「 Hello , World !」 的文件视窗相关联。 「 File 」 
子功能表允许使用者打开任何一类新文件、关闭活动文件或退出程式。 「 Color 」 
子功能表允许使用者设定文字颜色。 Window 子功能表包括以平铺或者重叠的方 
式安排文件视窗、安排文件图示或关闭所有视窗等选项，这个子功能表也列出 
了它们建立的所有文件视窗。 

MdiMenuRect 功能表与随机矩形文件相关联。除了不包含 「 Color 」 子功能 
表外，它与 MdiMenuHello 功能表一样。 

RESOURCE . H 表头档案定义所有的功能表识别字。另外，以下三个常数定义 
在 MDIDEMO . C 中: 

♦define INIT—MENU—POS 0 

#define HELLO—MENU—POS 2 

#define RECT—MENU—POS 1 

这些识别字说明每个功能表模板中 Windows 子功能表的位置。程式需要这 
些资讯来通知客户视窗文件列表应出现在哪里。当然， MdiMenuInit 功能表没有 
Windows 子功能表，所以如前所述，文件列表应附加在第一个子功能表中（位置 
0) 。不过，实际上永远不会在此看到文件列表（在後面讨论此程式时，您可以 
发现这样做的原因）。 

定义在 MDIDEMO . C 中的 IDM _ FIRSTCHILD 识别字不对应於功能表项，它与出 
现在 Windows 子功能表上的文件列表中的第一个文件视窗相关联。这个识别字 
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的值应当大於所有其他功能表 ID 的值。 

程式初始化 

在 MDIDEMO . C 中， WinMain 是从注册框架视窗和两个子视窗的视窗类别开始 
的。视窗讯息处理程式是 FrameWndProc、HelloWndProc 和 RectWndProc 。 一般 

来说，这些视窗类别应该与不同的图示相关联。为了简单起见，我们将标准 
IDI _ APPLICATION 图示用於框架视窗和子视窗。 

注意，我们已经定义了框架视窗类别的 WNDCLASS 结构的 hbrBackground 栏 
位为⑶ LOR _ APPWORKSPACE 系统颜色。由於框架视窗的显示区域被客户视窗所覆 
盖并且客户视窗具有这种颜色，所以上面的定义不是绝对必要的。但是，在最 
初显示框架视窗时，使用这种颜色似乎要好一些。 

这三种视窗类别中的 lpszMenuName 栏位都设定为 NULL 。 对 「 Hello 」 和 「 Rect 」 

子视窗类别来说，这是很自然的。对於框架视窗类别，我在建立框架视窗时在 
CreateWindow 函式中给出功能表代号。 

「 Hello 」 和 「 Rect 」 子视窗的视窗类别将 WNDCLASS 结构中的 cbWndExtra 

栏位设为非零值来为每个视窗配置额外空间，这个空间将用於储存指向一个记 
忆体块的指标 ( HELLODATA 和 RECTDATA 结构的大小定义在 MDIDEMO . C 的开始处）， 

这个记忆体块被用於储存每个文件视窗特有的资讯。 

下一步， WinMain 用 LoadMenu 载入三个功能表，并把它们的代号储存到整 
体变数中。呼叫三次 GetSubMenu 函式可获得 Windows 子功能表（文件列表将加 
在它上面）的代号，同样也把它们储存到整体变数中。 LoadAccelerators 函式 
载入加速键表。 

在 WinMain 中呼叫 CreateWindow 建立框架视窗。在 FrameWndProc 中 
WM _ CREATE 讯息处理期间，框架视窗建立客户视窗。这项操作涉及到再一次呼叫 
函式 CreateWindow 。 视窗类别被设定为 MDICLIENT ， 它是预先注册的 MDI 显示 
区域视窗类别。在 Windows 中许多对 MDI 的支援被放入了 MDICLIENT 视窗类别 
中。显示区域视窗讯息处理程式作为框架视窗和不同文件视窗的中间层。当呼 
叫 CreateWindow 建立显示区域视窗时，最後一个参数必须被设定为指向 
CLIENTCREATESTRUCT 型态结构的指标。这个结构有两个 栏位： 

• hWindowMenu 是要加入文件列表的子功能表的代号。在 MDIDEMO 中，它 
是 hMenuInitWindow , 是在 WinMain 期间获得的。後面将看到如何修改 
此功能表。 

• idFirstChild 是与文件列表中的第一个文件视窗相关联的功能表 ID 。 
它就是 IDM_FIRSTCHILDo 


第1103页 




Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

再让我们回过头来看看 WinMain 。 MDIDEM 0 显示新建立的框架视窗并进入讯 
息回圈。讯息回圈与正常的回圈稍有不同：在呼叫 GetMessage 从讯息仁列中获 
得讯息之後， MDI 程式把这个讯息传送给了 TranslateMDISysAccel (以及 
Trans lateAccelerator , 如果像 MDI DEMO 程式一样，程式本身也有功能表加速 
键的话）。 

TranslateMDISysAccel 函式把可能对应特定 MDI 加速键（例如 Ctrl - F 6) 
的按键转换成 WM_SYSCOMMAND 讯息。如果 TranslateMDISysAccel 或 
TranslateAccelerator 都传回 TRUE (表示某个讯息已被这些函式之一转换）， 
就不能呼叫 TranslateMessage 和 DispatchMessage 0 

注意传递到 TranslateMDISysAccel 和 TranslateAccelerator 的两个视窗 
代号： hwndClient 和 hwndFrame 。 WinMain 函式通过用 GW — CHILD 参数呼叫 
GetWindow 获得 hwndClient 视窗代号。 

建立子视窗 

FrameWndProc 的大部分工作是用於处理通知功能表选择的 WM _ COMMAND 讯 
息。与平时一样， FrameWndProc 中 wParam 参数的低字组包含著功能表 ID 。 

在功能表 ID 的值为 IDM _ FILE _ NEWHELLO 和 IDM _ FILE _ NEWRECT 的情况下， 
FrameWndProc 必须建立一个新的文件视窗。这涉及到初始化 MDICREATESTRUCT 
结构中的栏位（大多数栏位对应於 CreateWindow 的参数），并将讯息 
WM _ MDICREATE 发送给客户视窗，讯息的 IParam 参数设定为指向这个结构的指标。 
然後由客户视窗建立子文件视窗。（也可以使用 CreateMDIWindow 函式。） 

MDICREATESTRUCT 结构中的 szTitle 栏位一般是对应於文件的档案名称。样 
式栏位设定为视窗样式 WS _ HSCROLL 、 WS _ VSCROLL 或这两者的组合，以便在文件 
视窗中包括卷动列。样式栏位也可以包括 WS _ MINIMIZE 或 WS _ MA )( IMIZE ， 以便在 
最初时以最小化或最大化状态显示文件视窗。 

MDICREATESTRUCT 结构的 IPamm 栏位为框架视窗和子视窗共用某些变数提 
供了一种方法。这个栏位可以设定为含有一个结构的记忆体块的记忆体代号。 
在子文件视窗的 WM _ CREATE 讯息处理期间， IParam 是一个指向 CREATESTRUCT 结 
构的指标，这个结构的 lpCreateParams 栏位是一个指向用於建立视窗的 
MDICREATESTRUCT 结构的指标。 

客户视窗一旦接收到 WM _ MDICREATE 讯息就建立一个子文件视窗，并把视窗 
标题加到用於建立客户视窗的 MDICLIENTSTRUCT 结构中所指定的子功能表的底 
部。当 MDIDEM 0 程式建立它的第一个文件视窗时，这个子功能表就是 
「 MdiMenuInit 」 功能表中的 「 File 」 子功能表。後面将看到这个文件列表将如 
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何移到 「 MdiMenuHello 」 和 「 MdiMenuRect 」功能表的 「 Windows 」 子功能表中。 

功能表上可以列出9个文件，每个文件的前面是带有底线的数字1至9。如 
果建立的文件视窗多於9个，则这个清单後跟有 「More Windows 」 功能表项。 
该项启动带有清单方块的对话方块，清单方块列出了所有文件。这种文件列表 
的维护是 Windows MDI 支援的最好特性之一。 

关於框架视窗的讯息处理 

在把注意力转移到子文件视窗之前，我们先继续讨论 FrameWndProc 的讯息 
处理。 

当从 「 File 」 功能表中选择 「 Close 」 时， MDIDEM 0 关闭活动子视窗。它通 
过把 WM _ MDIGETACTIVE 讯息发送给客户视窗，而获得活动子视窗的代号。如果 
子视窗以 WM _ QUERYENDSESSION 讯息来回应，那么 MDIDEM 0 将 WM _ MDIDESTROY 讯 

息发送给客户视窗，从而关闭子视窗。 

处理 「 File 」 功能表中的 「 Exit 」 选项只需要框架视窗讯息处理程式给自 
己发送一个 WM _ CL 0 SE 讯息。 

处理 Window 子功能表的 「 Tile 」 、 「 Cascade 」 和 「 Arrange 」 选项是极容 
易的，只需把讯息 WM _ MDITILE 、 WM_MDICASCADE 和 WM_MDIICONARRANGE 发送给 

客户视窗。 

处理 「 Close All 」选项要稍微复杂一些。 FrameWndProc 呼叫 
EnumChildWindows ，传送一个引用 CloseEnumProc 函式的指标。此函式把 
WM _ MDIRESTORE 讯息发送给每个子视窗，紧跟著发出 WM _ QUERYENDSESSION 和 
WM _ MDIDESTROY 。 对图示平铺视窗来说并不就此结束，用 GW _0 WNER 参数呼叫 
GetWindow 时，传回的非 NULL 值可以显示出这一点。 

FrameWndProc 没有处理任何由 「 Color 」 功能表中对颜色的选择所导致的 
WM _ COMMAND 讯息，这些讯息应该由文件视窗负责处理。因此， FmmeWndProc 把 
所有未经处理的 WM _ COMMAND 讯息发送到活动子视窗，以便子视窗可以处理那些 
与它们有关的讯息。 

框架视窗讯息处理程式不予处理的所有讯息都要送到 DefFrameProc , 它在 
框架视窗讯息处理程式中取代了 DefWindowProCo 即使框架视窗讯息处理程式拦 
截了 WM _ MENUCHAR 、 WM _ SETFOCUS 或 WM _ SIZE 讯息，这些讯息也要被送到 
DefFrameProc 中。 

所有未经处理的 WM _ COMMAND 讯息也必须送给 DefFrameProc 0 具体地说， 
FrameWndProc 并不处理任何 WM _ COMMAND 讯息，即使这些讯息是使用者在 
Windows 子功能表的文件列表中选择文件时产生的（这些选项的 wParam 值是以 
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IDM _ FIRSTCHILD 开始的）。这些讯息要传送到 DefFrameProc ， 并在那里进行处 
理。 

注意框架视窗并不需要维护它所建立的所有文件视窗的视窗代号清单。如 
果需要这些视窗代号（如处理功能表上的 「Close All 」 选项时），可以使用 
EnumChi 1 dWindows 得到它们。 

子文件视窗 

现在看一下 HelloWndProc ， 它是用於显示 「 Hello , World ! J 的子文件视窗 
的视窗讯息处理程式。 

与用於多个视窗的视窗类别一样，所有在视窗讯息处理程式（或从该视窗 
讯息处理程式中呼叫的任何函式）中定义的静态变数由依据该视窗类别建立的 
所有视窗共用。 

只有对於每个唯一於视窗的资料才必须采用非静态变数的方法来储存。这 
样的技术要用到视窗属性。另一种方法（我使用的方法）是使用预留的记忆体 
空间； 可以在注册视窗类别时将 WNDCLASS 结构的 cbWndExtra 栏位设定为非零 
值以便预留这部分记忆体空间。 

MDIDEM 0 程式使用这个记忆体空间来储存一个指标，这个指标指向一块与 
HELLODATA 结构大小相同的记忆体块。在处理 WM _ CREATE 讯息时 ， HelloWndProc 
配置这块记忆体，初始化它的两个栏位（它们用於指定目前选中的功能表项和 
文字颜色），并用 SetWindowLong 将记忆体指标储存到预留的空间中。 

当处理改变文字颜色的 WM _ COMMAND 讯息（回忆一下，这些讯息来自框架视 
窗讯息处理程式）时， HelloWndProc 使用 GetWindowLong 获得包含 HELLODATA 
结构的记忆体块的指标。利用这个结构， HelloWndProc 清除原来对功能表项的 
选择，设定所选功能表项为选中状态，并储存新的颜色。 

当视窗变成活动视窗或不活动的时候，文件视窗讯息处理程式都会收到 
WM _ MDIACTIVATE 讯息 （ IParam 的值是否为这个视窗的代号表示了该视窗是活动 
的还是不活动的）。您也许还能记起 MDIDEM 0 程式中有三个不同的功能 表：当 
无文件时为 MdiMenuInit ; 当 「 Hello 」 文件视窗是活动视窗时为 MdiMenuHello ; 
当 rRect J 文件视窗为活动视窗时为 MdiMenuRect 。 

WM _ MDIACTIVATE 讯息为文件视窗提供了一个修改功能表的机会。如果 
IParam 中含有本视窗的代号（意味著本视窗将变成活动的），那么 HelloWndProc 
就将功能表改为 MdiMenuHelloo 如果 IParam 中包含另一个视窗的代号，那么 
HelloWndProc 将功能表改为 MdiMenuInit 。 

HelloWndProc 经由把 WM _ MDISETMENU 讯息发送给客户视窗来修改功能表， 
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客户视窗透过从目前功能表上删除文件列表并把它添加到一个新的功能表上来 
处理这个讯息。这就是文件列表从 MdiMenuInit 功能表（它在建立第一个文件 
时有效）传送到 MdiMenuHello 功能表中的方法。在 MDI 应用程式中不要用 
SetMenu 函式改变功能表。 

另一项工作涉及到 「 Color 」 子功能表上的选中旗标。像这样的程式选项对 
每个文件来说都是不同的，例如，可以在一个视窗中设定黑色文字，在另一个 
视窗中设定红色文字。功能表选中旗标应能反映出活动视窗中选择的选项。由 
於这种原因， HelloWndProc 在视窗变成非活动视窗时清除选中功能表项的选中 
旗标，而当视窗变成活动视窗时设定适当功能表项的选中旗标。 

WM _ MDIACTIVATE 的 wParam 和 IParam 值分别是失去活动和被启动视窗的代 
号。视窗讯息处理程式得到的第一个 WM _ MDIACTIVATE 讯息的 IParam 参数被设 
定为目前视窗的代号。而当视窗被消除时，视窗讯息处理程式得到的最後一个 
讯息的 IParam 参数被设定为另一个值。当使用者从一个文件切换到另一个文件 
时，前一个文件视窗收到一个 WM _ MDIACTIVATE 讯息，其 IParam 参数为第一个 
视窗的代号（此时，视窗讯息处理程式将功能表设定为 MdiMenuInit ) ;後一个 
文件视窗收到一个 WMJffilACTIVATE 讯息，其 IParam 参数是第二个视窗的代号 
(此时，视窗讯息处理程式将功能表设定为 MdiMenuHello 或 MdiMenuRect 中适 
当的那个）。如果所有的视窗都关闭了，剩下的功能表就是 MdiMenuInit 。 

当使用者从功能表中选择 「 Close 」 或 rClose All 」 时， FrameWndProc 给 
子视窗发送一个 WM _ QUERYENDSESSION 讯息。 HelloWndProc 将显示一个讯息方块 
并询问使用者是否要关闭视窗，以此来处理 WM _ QUERYENDSESSION 和 WM _ CL 0 SE 
讯息（在真实的应用程式中，讯息方块会询问是否需要储存档案）。如果使用 
者表示不能关闭视窗，那么视窗讯息处理程式传回0。 

在 WM _ DESTR 0 Y 讯息处理期间， HelloWndProc 释放在 WM _ CREATE 期间配置的 
记忆体块。 

所有未经处理的讯息必须传送到用於内定处理的 DefMDIChildProc (不是 
DefWindowProc ) 。不论子视窗讯息处理程式是否使用了这些讯息，有几个讯息 
必须被传送给 DefMDIChildProc 。 这些讯 息是： WM_CHILD ACTIVATE , 
WM—GETMINMAXINFO 、 WM—MENUCHAR 、 WM—MOVE 、 WM—SETFOCUS 、 WM—SIZE 和 
WM _ SYSC 0 MMAND o 

RectWndProc 与 HelloWndProc 非常相似，但是它比 HelloWndProc 要简单一 * 

些（不含功能表选项并且无需使用者确认是否关闭视窗），所以这里不对它进 
行讨论了。但应该注意到，在处理 WM _ SIZE 之後 RectWndProc 使用了 「 break 」 
叙述，所以 WM _ SIZE 讯息被传给 DefMDIChildProCc 
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结束处理 

在 WinMain 中， MDIDEM 0 使用 LoadMenu 载入资源描述档中定义的三个功能 
表。一般说来，当功能表所在的视窗被清除时， Windows 也要清除与之关联的功 
能表。对於 Init 功能表，应该清除那些没有联系到视窗的功能表。由於这个原 
因， MDIDEM 0 在 WinMain 的末尾呼叫了两次 DestroyMenu 来清除 「 Hello 」 和 「 Rect 」 
功能表。 
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第二十章多工和多执行绪 

多工是一个作业系统可以同时执行多个程式的能力。基本上，作业系统使 
用一个硬体时钟为同时执行的每个程序配置「时间片段」。如果时间片段够小， 
并且机器也没有由於太多的程式而超出负荷时，那么在使用者看来，所有的这 
些程式似乎在同时执行著。 

多工并不是什么新的东西。在大型电脑上，多工是必然的。这些大型主机 
通常有几十甚至几百个终端机和它连结，而每个终端机使用者都应该感觉到他 
或者她独占了整个电脑。另外，大型主机的作业系统通常允许使用者「提交工 
作到背景」，这些背景作业可以在使用者进行其他工作时，由机器执行完成。 

个人电脑上的多工花了更长的时间才普及化。但是现在 PC 多工也被认为是 
很正常的了。我马上就会讨论到 ， Microsoft Windows 的16位元版本支援有限 
度的多工， Windows 的32位元版本支援真正的多工，而且，还多了一种额外的 
优点，多执行绪。 

多执行绪是在一个程式内部实作多工的能力。程式可以把它自己分隔为各 
自独立的「执行绪」，这些执行绪似乎也同时在执行著。这一概念初看起来似 
乎没有什么用处，但是它可以让程式使用多执行绪在背景执行冗长作业，从而 
让使用者不必长时间地无法使用其电脑进行其他工作（有时这也许不是人们所 
希望的，不过这种时候去冲冲凉或者到冰箱去看看总是很不错的）！但是，即 
使在电脑繁忙的时候，使用者也应该能够使用它。 


多工的各种模式 


在 PC 的早期，有人曾经提倡未来应该朝多工的方向前进，但是大多数的人 
还是很 迷惑： 在一个单使用者的个人电脑上，多工有什么用呢？好了，最後事 
实表示即使是不知道这一概念的使用者也都需要多工的。 

DOS 下的多工 

在最初 PC 上的 Intel 8088微处理器并不是为多工而设计的。部分原因（我 
在上一章中讨论过）是记忆体管理不够强。当启动和结束多个程式时，多工的 
作业系统通常需要移动记忆体块以收集空闲记忆体。在8088上是不可能透明於 
应用系统来做到这一点的。 

DOS 本身对多工没有太大的帮助，它的设计目的是尽可能小巧，并且与独立 
於应用程式之外，因此，除了载入程式以及对程式提供档案系统的存取功能， 
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它几乎没有提供任何支援。 

不过，有创意的程式写作者仍然在 DOS 的早期就找到了一种克服这些缺陷 
的方法，大多数是使用常驻 （ TSR : terminate - and - stay - resident ) 程式。有 
些 TSR ， 比如背景列印伫列程式等，透过拦截硬体时钟中断来执行真正的背景处 
理。其他的 TSR ， 诸如 SideKick 等突现式工具，可以执行某种型态的工作切换 
——暂停目前的应用程式，执行突现式工具。 DOS 也逐渐有所增强以便提供对 
TSR 的支援。 

一些软体厂商试图在 DOS 之上架构出工作切换或者多工的外壳程式 ( shell ) 
(诸如 Quarterdeck 的 DesqView ) ，但是在这些环境中，仅有其中一个占据了 
大部分市场，当然，这就是 Windows 。 


非优先权式的多工 


当 Microsoft 在1985年发表 Windows 1.0 时，它是最成熟的解决方案，目 
的是突破 DOS 的局限。 Windows 在实际模式下执行。但是即使这样，它已可以在 
实体记忆体中移动记忆体块。这是多工的前提，虽然移动的方法尚未完全透明 
於应用程式，但是几乎可以忍受了。 

在图形视窗环境中，多工比在一种命令列单使用者作业系统中显得更有意 
义。例如，在传统的命令列 UNIX 中，可以在命令列之外执行程式，让它们在背 
景执行。然而，程式的所有显示输出必须被重新转向到一个档案中，否则输出 
将和使用者正在做的事情混在一起。 

视窗环境允许多个程式在相同萤幕上一起执行，前後切换非常容易，并且 
还可以快速地将资料从一个程式移动到另一个程式中。例如，将绘图程式中建 
立的图片嵌入由文书处理程式编辑的文字档案中。在 Windows 中，以多种方式 
支援资料转移，首先是使用剪贴簿，後来又使用动态资料交换 （ DDE ) ，而现在 
则是透过物件连结和嵌入 （ OLE ) 。 

不过，早期 Windows 的多工实作还不是多使用者作业系统中传统的优先权 
式的分时多工。这些作业系统使用系统时钟周期性地中断一个工作并开始另一 
个工作。 Windows 的这些16位元版本支援一种被称为「非优先权式的多工」， 
由於 Windows 讯息驱动的架构而使这种型态的多工成为可能。通常情况下 ，一 
个 Windows 程式将在记忆体中睡眠，直到它收到一个讯息为止。这些讯息通常 
是使用者的键盘或滑鼠输入的直接或间接结果。当处理完讯息之後，程式将控 
制权返回给 Windows o 

Windows 的16位元版本不会绝对地依据一个 timer tick 将控制权从一个 
Windows 程式切换到另一个，任何的工作切换都发生在当程式完成对讯息的处理 
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後将控制权返回给 Windows 时。这种非优先权式的多工也被称为「合作式的多 
工」，因为它要求来自应用程式方面的一些合作。一个 Windows 程式可以占用 
整个系统，如果它要花很长一段时间来处理讯息的话。 

虽然非优先权式的多工是16位元 Windows 的一般规则，但仍然出现了某些 
形式的优先权式多工。 Windows 使用优先权式多工来执行 DOS 程式，而且，为了 
实作多媒体，还允许动态连结程式库接收硬体时钟中断。 

16位元 Windows 包括几个功能特性来帮助程式写作者解决（或者，至少可 
以说是对付）非优先权式多工中的局限，最显著的当然是时钟式滑鼠游标。当 
然，这并非一种解决方案，而仅仅是让使用者知道一个程式正在忙於处理一件 
冗长作业，因而让使用者在一段时间内无法使用系统。另一种解决方案是 
Windows 计时器，它允许程式周期性地接收讯息并完成一些工作。计时器通常用 
於时钟应用和动画。 

针对非优先权式多工的另一种解决方案是 PeekMessage 函式呼叫，我们曾 
在第五章中的 RANDRECT 程式里看到过。一个程式通常使用 GetMessage 呼叫从 
它的讯息伫列中找寻下一个讯息，不过，如果在讯息伫列中没有讯息，那么 
GetMessage 不会传回，一直到出现一个讯息为止。而另一方面， PeekMessage 
将控制权传回程式，即使没有等待的讯息。这样，一个程式可以执行一个冗长 
作业，并在程式码中混入 PeekMessage 呼叫。只要没有这个程式或其他任何程 
式的讯息要处理，那么这个冗长作业将继续执行。 

Presentation Manager 和序列化的讯息长列 

Microsoft 在一种半 DOS / 半 Windows 的环境下实作多工的第一个尝试（和 
IBM 合作）是 OS /2 和 Presentation Manager (缩写成 PM ) 。 虽然 OS /2 明确地 
支援优先权式多工，但是这种多工方式似乎并未在 Presentation Manager 中得 
以落实。问题在於 PM 序列化来自键盘和滑鼠的使用者输入讯息。这意味著，在 
前一个使用者输入讯息被完全处理以前， PM 不会将一个键盘或者滑鼠讯息传送 
给程式。 

尽管键盘和滑鼠讯息只是一个 PM (或者 Windows ) 程式可以接收的许多讯 
息中的几个，大多数的其他讯息都是键盘或者滑鼠事件的结果。例如，功能表 
命令讯息是使用者使用键盘或者滑鼠进行功能表选择的结果。在处理功能表命 
令讯息时，键盘或者滑鼠讯息并未完全被处理。 

序列化讯息伫列的主要原因是允许使用者的预先「键入」键盘按键和预先 
「按入」滑鼠按钮。如果一个键盘或者滑鼠讯息导致输入焦点从一个视窗切换 
到另一个视窗，那么接下来的键盘讯息应该进入拥有新的输入焦点的视窗中去。 
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因此，系统不知道将下一个使用者输入讯息发送到何处，直到前一个讯息被处 
理完为止。 

目前的共识是不应该让一个应用系统有可能占用整个系统，而这需要非序 
列化的讯息仁列，32位元版本的 Windows 支援这种讯息仁列。如果一个程式正 
在忙著处理一项冗长作业，那么您可以将输入焦点切换到另一个程式中。 

多执行绪解决方案 

我讨论 OS /2 的 Presentation Manager ， 只是因为它是第一个为早期的 
Windows 程式写作者（比如我自己）介绍多执行绪的环境。有趣的是， PM 实作 
多执行绪的局限为程式写作者提供了应该如何架构多执行绪程式的必要线索。 
即使这些限制在32位元的 Windows 中已经大幅减少，但是从更有限的环境中学 
到的经验仍然是非常有效的。因此，让我们继续讨论下去。 

在一个多执行绪环境中，程式可以将它们自己分隔为同时执行的片段（叫 
做执行绪）。对执行绪的支援是解决 PM 中存在的序列化讯息伫列的最好方法， 
并且在 Windows 中执行绪有更实际的意义。 

就程式码来说， 一 个执行绪简单地被表示为可能呼叫程式中其他函式的函 
式。程式从其主执行绪开始执行，这个主执行绪是在传统的 C 程式中叫做 main 
的函式，而在 Windows 中是 WinMain 。 一 旦执行起来，程式可以通过在系统呼叫 
CreateThread 中指定初始执行绪函式的名称来建立新的执行绪的执行。作业系 
统在执行绪之间优先权式地切换控制项，和它在程序之间切换控制权的方法非 
常类似。 

在 OS /2 的 Presentation Manager 中，每个执行绪可以建立一个讯息仁列， 
也可以不建立。如果希望从执行绪建立视窗，那么一个 PM 执行绪必须建立讯息 
伫列。否则，如果只是进行许多的资料处理或者图形输出，那么执行绪不需要 
建立讯息伫列。因为无讯息伫列的程序不处理讯息，所以它们将不会当住系统。 
唯一的限制是一个无讯息伫列执行绪无法向一个讯息伫列执行绪中的视窗发送 
讯息，或者呼叫任何发送讯息的函式（不过，它们可以将讯息递送给讯息伫列 
执行绪）。 

这样， PM 程式写作者学会了如何将它们的程式分隔为一个讯息伫列执行绪 
(在其中建立所有的视窗并处理传送给视窗的讯息）和一个或者多个无讯息伫 
列执行绪，在其中执行冗长的背景工作。 PM 程式写作者还了解到「1/10秒规则」， 
大体上，程式写作者被告知，一个讯息伫列执行绪处理任何讯息都不应该超过 
1/10秒，任何花费更长时间的事情都应该在另一个执行绪中完成。如果所有的 
程式写作者都遵循这一规则，那么将没有 PM 程式会将系统当住超过1/10秒。 
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多执行绪架构 

我已经说过 PM 的限制让程式写作者理解如何在图形环境中执行的程式里头 
使用多个执行绪提供了必要的线索。因此在这里我将为您的程式建议一种 架构: 
您的主执行绪建立您程式所需要的所有视窗，并在其中包含所有的视窗讯息处 
理程式，以便处理这些视窗的所有 讯息； 所有其他执行绪只进行一些背景处理， 
除了和主执行绪通讯，它们不和使用者进行交流。 

可以把这种架构想 像成： 主执行绪处理使用者输入（和其他讯息），并建 
立程序中的其他执行绪，这些附加的执行绪完成与使用者无关的工作。 

换句话说，您程式的主执行绪是一个老板，而您的其他执行绪是老板的职 
员。老板将大的工作丢给职员处理，而他自己保持和外界的联系。因为那些执 
行绪仅仅是职员，所以其他执行绪不会举行它们自己的记者招待会。它们会认 
真地完成自己的工作，将结果报告给老板，并等待他们的下一个任务。 

一个程式中的执行绪是同一程序的不同部分，因此他们共用程序的资源， 
如记忆体和打开的档案。因为执行绪共用程式的记忆体，所以他们还共用静态 
变数。然而，每个执行绪都有他们自己的堆叠，因此动态变数对每个执行绪是 
唯一的。每个执行绪还有各自的处理器状态（和数学辅助运算器状态），这个 
状态在进行执行绪切换期间被储存和恢复。 

执行绪间的 I ■争吵 J 

正确地设计、写作和测试一个复杂的多执行绪应用程式显然是 Windows 程 
式写作者可能遇到的最困难的工作之一。因为优先权式多工系统可以在任何时 
刻中断一个执行绪，并将控制权切换到另一个执行绪中，在两个执行绪之间可 
能有无法预料的随机交互作用的情况。 

多执行绪程式中的一个常见的错误被称为「竞争状态 (race condition ) 」， 
这发生在程式写作者假设一个执行绪在另一个执行绪需要某资料之前已经完成 
了某些处理（如准备资料）的时候。为了帮助协调执行绪的活动，作业系统要 
求各种形式的同步。 一 种是同步信号 ( semaphore ) ,它允许程式写作者在程式 
码中的某一点阻止一个执行绪的执行，直到另一个执行绪发信号让它继续为止。 
类似於同步信号的是「临界区域 （critical section ) 」，它是程式码中不可 
中断的部分。 

但是同步信号还可能产生称为「锁死 （ deadlock ) 」的常见执行绪错误， 
这发生在两个执行绪互相阻止了另一个的执行，而继续执行的唯一办法又是它 
们继续向前执行。 
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幸运的是，32位元程式比16位元程式更能抵抗执行绪所涉及的某些问题。 
例如，假定一个执行绪执行下面的简单 叙述： 

lCount++ ; 

其中 ICount 是由其他执行绪使用的一个32位元的 long 型态变数， C 中的 
这个叙述被编译为两条机械码指令，第一条将变数的低16位元加1，而第二条 
指令将任何可能的进位加到高16位上。假定作业系统在这两个机械码指令之间 
中断了执行绪。如果 ICount 在第一条机械码指令之前是 OxOOOOFFFF ， 那么 
ICount 在执行绪被中断时为0,而这正是另一个执行绪将看到的值。只有当执 
行绪继续执行时， ICount 才会增加到正确的值0 x 00010000。 

这是那些偶尔会导致操作问题的错误之一。在16位元程式中，解决此问题 
正确的方法是将叙述包含在一个临界区域中，在这期间执行绪不会被中断。然 
而，在一个32位元程式中，该叙述是正确的，因为它被编译为一条机械码指令。 


Windows 的好处 

32位元 Windows 版本（包括 Windows NT 和 Windows 98) 有一 * 个非序列化 
的讯息伫列。这种实作似乎非 常好： 如果一个程式正在花费一段长时间处理一 
个讯息，那么滑鼠位於该程式的视窗上时，滑鼠游标将呈现为一个时钟，但是 
当将滑鼠移到另一个程式的视窗上时，滑鼠游标将变为正常的箭头形状。只需 
按一下就可以将另一个视窗提到前面来。 

然而，使用者仍然不能使用正在处理大量工作的那个程式，因为那些工作 
会阻止程式接收其他讯息，这不是我们所希望的。一个程式应该总是能随时处 
理讯息的，所以这时就需要使用从属执行绪了。 

在 Windows NT 和 Windows 98中，没有讯息仁列执行绪和无讯息仁列执行 
绪的区别，每个执行绪在建立时都会有它自己的讯息伫列，从而减少了 PM 程式 
中关於执行绪的一些不便规定（然而，在大多数情况下，您仍然想通过一条专 
门处理讯息的执行绪中的讯息程序处理输入，而将冗长作业交给那些不包含视 
窗的执行绪处理，这种结构几乎总是最容易理解的，我们将看到这一点）。 

还有更好的事情 ： Windows NT 和 Windows 98中有个函式允许执行绪杀死同 
一程序中的另一个执行绪。当您开始编写多执行绪程式码时，您将会发现这种 
功能在有时是很方便的。 OS /2 的早期版本没有「杀死执行绪」的函式。 

最後的好讯息（至少对这里的话题是好讯息）是 Windows NT 和 Windows 98 
实作了一些被称为「执行绪区域储存空间 （ TLS : thread local storage ) 」的 
功能。为了了解这一点，回顾一下我在前面提到过的，静态变数（对一个函式 
来说，既是整体又是区域变数）在执行绪之间是被共用的，因为它们位於程序 
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的资料储存空间中。动态变数（对一个函式来说总是区域变数）对每一个执行 
绪则是唯一的，因为它们占据堆叠上的空间，而每个执行绪都有它自己的堆叠。 

有时让两个或多个执行绪使用相同的函式，而让这些执行绪使用唯一於执 
行绪的静态变数，那会带来很大便利。这就是执行绪区域储存空间，其中涉及 
一些 Windows 函式呼叫，但是 Microsoft 还为 C 编译器进行扩展，使执行绪区 
域储存空间的使用更透明于程式写作者。 

新改良过的！支援多执行绪了！ 

既然已经介绍了执行绪的现状，让我们来展望一下执行绪的未来。有时， 
有人会出现一种使用作业系统所提供的每一种功能特性的冲动。最坏的情况是， 
当您的老板走到您的桌前 并说： 「我听说这种新功能非常炫，让我们在自己的 
程式中用一些这种新功能吧。」然後您将花费一个星期的时间，试图去了解您 
的应用程式如何从这种新功能获益。 

应该注意的是，在并不需要多执行绪的应用系统中加入多执行绪是没有任 
何意义的。如果您的程式显示沙漏游标的时间太长，或者如果它使用 
PeekMessage 呼叫来避免沙漏游标的出现，那么请重新规划您的程式架构，使用 
多执行绪可能会是一个好主意。其他情形，您是在为难您自己，并可能会在程 
式码中产生新的错误。 

在某些情况下，沙漏游标的出现可能是完全适当的。我在前面提到过「1/10 
秒规则」，而将一个大档案载入记忆体可能会花费多於1/10秒的时间，这是否 
意味著档案载入常式应该在分离的执行绪中实作呢？没有必要。当使用者命令 
一 个程式打开档案时，他或者她通常想立即完成该操作。将档案载入常式放在 
分离的执行绪中只会增加额外的负担。即使您想向您的朋友夸耀您在编写多执 
行绪程式，也完全不值得这样做！ 

WINDOWS 的多执行绪处理 

建立新的执行绪的 API 函式是 CreateThread , 它的语法如下： 

hThread = CreateThread (&security—attributes , dwStackSize, ThreadProc, 

pParam, dwFlags, &idThread); 

第一个参数是指向 SECURITY _ ATTRIBUTES 型态的结构的指标。在 Windows 98 
中忽略该参数。在 Windows NT 中，它被设为 NULL 。 第二个参数是用於新执行绪 
的初始堆叠大小，预设值为0。在任何情况下， Windows 根据需要动态延长堆叠 
的大小。 

CreateThread 的第三个参数是指向执行绪函式的指标。函式名称没有限制， 
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但是必须以下列形式 宣告： 

DWORD WINAPI ThreadProc (PVOID pParam); 

CreateThread 的第四个参数为传递给 ThreadProc 的参数。这样主执行绪和 
从属执行绪就可以共用资料。 

CreateThread 的第五个参数通常为0，但当建立的执行绪不马上执行时为 
旗标 CREATE _ SUSPENDED 0 执行绪将暂停直到呼叫 ResumeThread 来恢复执行绪的 
执行为止。第六个参数是一个指标，指向接受执行绪 ID 值的变数。 

大多数 Windows 程式写作者喜欢用在 PROCESS . H 表头档案中宣告的 C 执行 
时期程式库函 S _ beginthread 。它的语法如下： 

hThread = _beginthread (ThreadProc, uiStackSize, pParam); 

它更简单，对於大多数应用程式很完美，这个执行绪函式的语 法为： 

void cdecl ThreadProc (void * pParam); 


再论随机矩形 

程式 20-1 RNDRCTMT 是第五章里的 RANDRECT 程式的多执行绪版本，您将回 


忆起 RANDRECT 使用的是 PeekMessage 回圈来显示一系列的随机矩形。 

程式 20-1 RNDRCTMT 


RNDRCTMT . C 












RNDRCTMT . C -- 

Displays Random Rectangles 






(c) Charles 

Petzold, 1998 






- " 

♦include <windows.h> 





♦include <process.h> 





LRESULT CALLBACK WndProc (HWND, UINT 

, WPARAM, 

LPARAM); 


HWND 

hwnd ; 





int 

cxClient, cyClient ; 




int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance , 


PSTR 

szCmdLine, int 

iCmdShow) 



i 

static TCHAR 

szAppName[]= 

TEXT ("RndRctMT"); 



MSG msg 

• 

f 





WNDCLASS 

wndclass ; 





wndclass . style 


=CS HREDRAW | CS_ 

VREDRAW ; 


wndclass . lpfnWndProc 

=WndProc ; 



wndclass . cbClsExtra 

=◦; 
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wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=NULL ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT! n ), 

szAppName, MB_ICONERROR); 
return 0 ; 

hwnd = CreateWindow ( szAppName, TEXT ("Random Rectangles n ), 

WS_OVERLAPPEDWINDOW a 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW_USEDEFAULT a CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


VOID Thread (PVOID pvoid) 

{ 

HBRUSH hBrush ; 

HDC hdc ; 

int xLeft, xRight, yTop, yBottom, iRed, iGreen, iBlue ; 


while (TRUE) 

if (cxClient 丨 = 0 || cyClient != 0) 

{ 


xLef t 

— 

rand 

0 

% 

cxClient ; 

xRight 

= 

rand 

0 

% 

cxClient ; 

yTop 

=rand 

0 % 

cyClient ; 

yBottom 

=rand 

0 % 

cyClient ; 

iRed 

— 

rand 

0 

& 

255 ; 

iGreen 

— 

rand 

0 

& 

255 ; 

iBlue 

— 

rand 

0 

& 

255 ; 
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hdc = GetDC (hwnd) ; 

hBrush = CreatesolidBrush (RGB (iRed, iGreen, iBlue)); 
SelectObj ect (hdc, hBrush); 

Rectangle (hdc, min (xLeft, xRight), min (yTop, yBottom), 
max (xLeft, xRight ), max (yTop, yBottom)); 

ReleaseDC (hwnd, hdc); 

DeleteObj ect (hBrush); 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

switch (message) 

{ 

case WM_CREATE : 

_beginthread (Thread, 0, NULL); 
return 0 ; 

case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

在建立多执行绪的 Windows 程式时，需要在 「Project Settings 」 对话方 
块中做一些修改。选择「 C / C ++」页面标签，然後在 rCategory ] 下拉式清单方 
块中选择 rCode Generation 」 。在 「Use Run-Time Library 」 下拉式清单方块 
中，可以看到用於 「 Release 」 设定的 「 Single - Threaded 」 和用於 Debug 设定 
的 「Debug Single - Threaded 」 。将这些分别改为 「 Multithreaded 」 和 「Debug 
Multithreaded 」 。这将把编译器旗标改为 / MT ， 它是编译器在编译多执行绪的 
应用程式所需要的。具体地说，编译器将在 . OBJ 档案中插入 LIBCMT . LIB 档案名， 
而不是 LIBC . LIB 。 连结程式使用这个名称与执行期程式库函式连结。 

LIBC . LIB 和 LIBCMT . LIB 档案包含 C 语言程式库函式，有些 C 语言程式库函 
式包含静态资料。例如，由於 strtok 函式可能被连续地多次呼叫，所以它在静 
态记忆体中储存了一个指标。在多执行绪程式中，每个执行绪必须在 strtok 函 
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式中有它自己的静态指标。因此，这个函式的多执行绪版本稍微不同於单执行 
绪的 strtok 函式。 

同时请注意，我在 RNDRCTMT . C 中包含了表头档案 PROCESS . H ， 这个档案定 
义一个名为 _ beginthr e ad 的函式，它启动一个新的执行绪。只有定义了 _ MT 识 
别字，才会宣告这个函式，这是 / MT 旗标的另一个结果。 

在 RNDRCTMT . C 的 WinMain 函式中，由 CreateWindow 传回的 hwnd 值被储存 
在一个整体变数中，因此 cxClient 和 cyClient 值也可以由视窗讯息处理程式 
的 WM _ SIZE 讯息获得。 

视窗讯息处理程式以最容易的方法呼叫 _beginthread -简单地以执行绪 

函式的位址（称为 Thread ) 作为第一个参数，其他参数使用0，执行绪函式传 
回 VOID 并有一个参数，该参数是一个指向 VOID 的指标。在 RNDRCTMT 中的 Thread 
函式不使用这个参数。 

在呼叫 Tjeginthread 函式之後，执行绪函式（以及该执行绪函式可能呼 
叫的其他任何函式）中的程式码和程式中的其他程式码同时执行。两个或者多 
个执行绪使用一个程序中的同一函式，在这种情况下，动态区域变数（储存在 
堆叠上）对每个执行绪是唯一的。对程序中的所有执行绪来说，所有的静态变 
数都是一样的。这就是视窗讯息处理程式设定整体的 cxClient 和 cyClient 变 
数并由 Thread 函式使用的方式。 

有时您需要唯一於各个执行绪的持续储存性资料。通常，这种资料是静态 
变数，但在 Windows 98中，您可以使用「执行绪区域储存空间」，我将在本章 
後面进行讨论。 

程式设计竞赛的问题 

1986年10月3日， Microsoft 举行了为期一天，针对电脑杂志出版社的技 
术编辑和作者的简短的记者招待会，来讨论他们当时的一组语言产品，包括他 
们的第一个交谈式开发环境 ， QuickBASIC 2. 0。当时 ， Windows 1. 0出现还不到 
一年，但是没有人知道我们什么时候能得到与该环境类似的东西（这花了好几 
年）。这一事件与众不同的部分原因是由於 Microsoft 的公关人员所举办的 
「Storm the Gates 」 程式设计竞赛 。 Bill Gates 使用 QuickBASIC 2.0，而电 

脑出版社的人员可以使用他们选择的任何语言产品。 

竞赛的问题是从公众提出的题目中挑选出来的（挑选那些需要写大约半小 
时程式来解决的问题），问题 如下： 

建立一个包含四个视窗的多工模拟程式。第一个视窗必须显示一系列的递 
增数，第二个必须显示一系列的递增质数，而第三个必须显示 Fibonacci 数列 
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( Fibonacci 数列以数字0和1开始，後头每一个数都是其前两个数的和 一一 即 
0、1、1、2、3、5、8等等）。这三个视窗应该在数字达到视窗底部时或者进行 
滚动，或者自行清除视窗内容。第四个视窗必须显示任意半径的圆，而程式必 
须在按下一个 Escape 键时终止。 

当然，在1986年10月，在 DOS 下执行的这样一个程式最多只能是模拟多 
工而已，而且没有一个竞赛者具有足够的勇气 一一 并且其中大多数也没有足够 
的知识——来为 Windows 编写这个程式。再者，如果真要这么做，当然不会只 
花半小时了！ 

参加这次竞赛的大多数人编写了一个程式来将萤幕分为四个区域，程式中 
包含一个回圈，依次更新每个视窗，然後检查是否按下了 Escape 键。如同 DOS 
环境下的传统习惯，程式占用了百分之百的 CPU 处理时间。 

如果在 Windows 1.0 中写程式，那么结果将是类似程式 20-2 MULTI 1的结 
果。我说「类似」，是因为我编写的程式是32位元的，但程式结构和相当多的 
程式码——除了变数和函式参数定义以及 Unicode 支援——都是相同的。 


程式 20-2 MULTI 1 

MULTIl.C 








MULTIl.C -- 

Multitasking Demo 




(c) Charles Petzold, 1998 

V 




♦include <windows.h> 



♦include <math.h> 



LRESULT CALLBACK WndProc (HWND, 

UINT, WPARAM, LPARAM); 

int 

cyChar ; 



int 

WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

r 

PSTR 

s zCmdLine , 

int iCmdShow) 

i 

static TCHAR 

szAppName[] = TEXT ("Multil"); 


HWND 


hwnd ; 


MSG 


msg ; 


WNDCLASS 


wndclass ; 


wndclass.style 


=CS_HREDRAW | CS VREDRAW ; 


wndclass.lpfnWndProc 

=WndProc ; 


wndclass.cbClsExtra 

=◦; 


wndclass.cbWndExtra 

=◦; 


wndclass.hlnstance 

=hlnstance ; 


wndclass.hicon 


=Loadlcon (NULL, IDI APPLICATION); 


wndclass.hCursor 

=LoadCursor (NULL, IDC—ARROW); 
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wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 
wndclass.IpszMenuName = NULL ; 
wndclass.IpszClassName = szAppName ; 

if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("This program requires Windows NT! n ), 

szAppName, MB_ICONERROR); 
return 0 ; 

} 

hwnd = CreateWindow ( szAppName, TEXT ("Multitasking Demo ’’）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW_USEDEFAULT A 
CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

int CheckBottom (HWND hwnd, int cyClient, int iLine) 

{ 

if (iLine * cyChar + cyChar > cyClient) 

{ 

工 nvalidateRect (hwnd, NULL, TRUE); 

UpdateWindow (hwnd); 
iLine = 0 ; 

} 

return iLine ; 

} 

// - 

// Window 1: Display increasing sequence of numbers 

// - 

LRESULT APIENTRY WndProcl ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

static int iNum, iLine, cyClient ; 

HDC hdc ; 

TCHAR szBuffer[16]; 


第 1121 页 







Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

switch (message) 

{ 

case WM—SIZE: 

cyClient = HIWORD (IParam); 
return 0 ; 

case WM—TIMER: 

if (iNum < 0) 

iNum = 0 ; 

iLine = CheckBottom (hwnd, cyClient, iLine); 
hdc = GetDC (hwnd); 

TextOut (hdc, ◦, iLine * cyChar, szBuffer, 

wsprintf (szBuffer, TEXT ("%d n ), iNum++)); 

ReleaseDC (hwnd, hdc); 
iLine++ ; 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

// - 

// Window 2 : Display increasing sequence of prime numbers 

// - 

LRESULT APIENTRY WndProc2 ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

static int iNum = 1, iLine, cyClient ; 

HDC hdc ; 

int i, iSqrt ; 

TCHAR szBuffer[16]; 

switch (message) 

{ 

case WM—SIZE: 

cyClient = HIWORD (IParam); 
return 0 ; 

case WM—TIMER: 

do 


iSqrt = (int) sqrt (iNum); 


if (++iNum < 0) 

iNum = 0 ; 
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for (i = 2 ; i <= iSqrt ; i++) 

if (iNum % i == 0) 

break ; 

} 

while (i <= iSqrt); 

iLine = CheckBottom (hwnd, cyClient, iLine); 
hdc = GetDC (hwnd); 

TextOut ( hdc, 0, iLine * cyChar, szBuffer, 

wsprintf (szBuffer, TEXT ("%d"), iNum)); 
ReleaseDC (hwnd, hdc); 
iLine++ ; 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

// - 

// Window 3 : Display increasing sequence of Fibonacci numbers 

// - 

LRESULT APIENTRY WndProc3 ( HWND hwnd, UINT message, WPARAM wParam,LPARAM 

IParam) 

{ 

static int iNum = ◦, iNext = 1, iLine, cyClient ; 

HDC hdc ; 

int iTemp ; 

TCHAR szBuffer[16]; 

switch (message) 

{ 

case WM_SIZE: 

cyClient = HIWORD (IParam); 
return 0 ; 

case WM—TIMER: 

if (iNum < 0) 

{ 

iNum = 0 ; 
iNext = 1 ; 

} 

iLine = CheckBottom (hwnd, cyClient, iLine); 
hdc = GetDC (hwnd); 

TextOut ( hdc, 0, iLine * cyChar, szBuffer, 
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iNum)) 


ReleaseDC (hwnd, 
iTemp = 

iNum = 

iNex += 

iLine++ ; 
return 0 ; 


hdc); 
iNum ; 
iNext 
iTemp 


wsprintf (szBuffer 


%d 


return DefWindowProc (hwnd, message, wParam, IParam); 


// - 

// Window 4 : Display circles of random radii 

// 


LRESULT APIENTRY WndProc4 ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

static int cxClient, cyClient ; 

HDC hdc ; 

int iDiameter ; 


switch (message) 

{ 

case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 
return 0 ; 


case WM—TIMER: 

工 nvalidateRect (hwnd, NULL, TRUE); 
UpdateWindow (hwnd); 


iDiameter = rand () % (max (1, min (cxClient, cyClient))); 
hdc = GetDC (hwnd); 

Ellipse (hdc, (cxClient 一 iDiameter) / 2, 


(cyClient - 

iDiameter) 

/ 

2, 

(cxClient + 

iDiameter) 

/ 

2, 

(cyClient + 

iDiameter) 

/ 

2 )； 


ReleaseDC (hwnd, hdc); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 
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//- 

// Main window to create child windows 
// - 


LRESULT APIENTRY WndProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

static HWND hwndChild[4]; 

static TCHAR * szChildClass[] = { TEXT ("Childl"), TEXT ( n Child2 n ), 
TEXT ("Child3"), TEXT ( n Child4 n ) }; 
static WNDPROC ChildProc[] = { WndProcl, WndProc2, WndProc3, 

WndProc4 }; 

HINSTANCE hlnstance ; 


int 

WNDCLASS 


i, cxClient, cyClient ; 
wndclass ; 


switch (message) 

{ 

case WM—CREATE: 

hlnstance = (HINSTANCE) GetWindowLong (hwnd, GWL HINSTANCE); 


(WHITE BRUSH) 


wndclass.style 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor = LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect 

wndclass.IpszMenuName = NULL ; 


=CS HREDRAW | CS VREDRAW ; 



=hlnstance ; 
=NULL ; 


for (i = ◦ ; i < 4 ; i++) 

{ 

wndclass.lpfnWndProc = ChildProc[i]; 
wndclass.IpszClassName = szChildClass[i]; 


RegisterClass (&wndclass); 


hwndChild[i] = CreateWindow (szChildClass[i], NULL, 
WS_CHILDWINDOW | WS_BORDER | WS—VISIBLE, 

hwnd, (HMENU) i, hlnstance, NULL); 


cyChar = HIWORD (GetDialogBaseUnits ()); 
SetTimer (hwnd, 1, 10, NULL); 
return 0 ; 
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case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 

for (i = ◦ ; i < 4 ; i++) 

MoveWindow (hwndChild[i] , (i % 2) * cxClient / 2, 

(i > 1) * cyClient / 2, 
cxClient / 2, cyClient / 2, TRUE); 
return 0 ; 

case WM—TIMER: 

for (i = ◦ ; i < 4 ; i++) 

SendMessage (hwndChild[i], WM—TIMER, wParam, IParam); 
return 0 ; 

case WM—CHAR: 

if (wParam == *\xlB 1 ) 

DestroyWindow (hwnd); 

return 0 ; 

case WM—DESTROY: 

KillTimer (hwnd, 1); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

在这个程式里实际上没有什么我们没见过的东西。主视窗建立四个子视窗， 
每个子视窗占据显示区域的一个象限。主视窗还设定一个 Windows 计时器并发 
送 WM _ TIMER 讯息给四个子视窗中的每一个。 

通常一个 Windows 程式应该保留足够的资讯以便在 WM _ PAINT 讯息处理期间 
重建其视窗中的内容 。 MULTI 1没有这么做，既然它绘制和清除视窗的速度如此 
之快，所以我认为那是不必要的。 

WndProc 2 中的质数产生器的效率并不很高，但是有效。如果一个数除了 1 
和它自身以外没有别的因数，那么这个数就是质数。当然，要检查一个数是否 
是质数并不要求使用小於被检查数的所有数来除这个数并检查余数，而只需使 
用所有小於被检查数的平方根的数。平方根计算是发表浮点数的原因，否则， 
该程式将是完全依据整数的程式。 

MULTI 1程式没有什么不好的地方。使用 Windows 计时器是在 Windows 的早 
期（和目前）版本中模拟多工的一种好方法，然而，计时器的使用有时限制了 
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程式的速度。如果程式可以在 WM _ TIMER 讯息处理中更新它的所有视窗而还有时 
间剩余下来的话，那就意味著它并没有充分利用我们的机器资源。 

一 种可能的解决方案是在单个 WM _ TIMER 讯息处理期间进行两次或者更多次 
的更新，但是到底多少次呢？这不得不依赖於机器的速度，而有很大的变动性。 
您当然不会想编写一个只能适用於 25 MHz 的386或 50 MHz 的486或 100- GHz 的 
Pentium VII 上的程式吧。 

多执行绪解决方案 


让我们来看一看关於这个程式设计问题的一种多执行绪解决方案。如程式 
20-3 MULT 12所示。 

程式 20-3 MULT 12 


MULTI2.C 



卜 - 



MULTI2.C -- 

Multitasking Demo 




(c) Charles Petzold, 1998 


V 

♦include <windows.h> 
♦include <math.h> 
♦include <process.h> 

typedef struct 


HWND 

int 

int 

int 

BOOL bKill 


hwnd ; 
cxClient 
cyClient 
cyChar ; 


PARAMS A ^PPARAMS ; 

LRESULT APIENTRY WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("Multi2"); 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 


wndclass.style 
wndclass.lpfnWndProc 


CS_HREDRAW | CS_VREDRAW 
WndProc ; 
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wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=NULL ; 

=s zAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox (NULL, TEXT ("This program requires Windows NT !’’）， 

szAppName, MB_ICONERROR); 
return 0 ; 


hwnd = CreateWindow ( szAppName A TEXT ("Multitasking Demo ”）， 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW_USEDEFAULT, 

CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


int CheckBottom (HWND hwnd, int cyClient, int cyChar, int iLine) 

{ 

if (iLine * cyChar + cyChar > cyClient) 

{ 

InvalidateRect (hwnd, NULL, TRUE); 
UpdateWindow (hwnd); 
iLine = 0 ; 

} 

return iLine ; 

} 

// - 

// Window 1: Display increasing sequence of numbers 
// - 
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void Threadl (PVOID pvoid) 

{ 

HDC hdc ; 

int iNum = ◦, iLine = 0 ; 

PPARAMS pparams ; 

TCHAR szBuffer[16]; 

pparams = (PPARAMS) pvoid ; 

while (!pparams->bKill) 

{ 

if (iNum < 0) 

iNum = 0 ; 

iLine = CheckBottom ( pparams->hwnd A 
pparams->cyClient, 
pparams->cyChar, iLine); 

hdc = GetDC (pparams->hwnd); 

TextOut ( hdc, ◦, iLine * pparams->cyChar, szBuffer, 

wsprintf (szBuffer, TEXT ("%d n ), iNum++)); 

ReleaseDC (pparams->hwnd A hdc); 
iLine++ ; 

} 

_endthread (); 

} 

LRESULT APIENTRY WndProcl ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

static PARAMS params ; 
switch (message) 

{ 

case WM—CREATE: 

params.hwnd = hwnd ; 

params.cyChar = HIWORD (GetDialogBaseUnits ()); 
—beginthread (Threadl, ◦, 耗 s); 
return 0 ; 

case WM—SIZE: 

params.cyClient = HIWORD (IParam); 
return 0 ; 

case WM—DESTROY: 

params•bKill = TRUE ; 
return 0 ; 
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} 

return 

DefWindowProc 

(hwnd, message. 

wParam, IParam); 

// 





// 

Window 2 : 

Display increasing sequence of prime numbers 

// 





void Thread2 

； 

(PVOID pvoid) 



1 

HDC 


hdc ; 



int 


iNum = 1, iLine = ◦, i, iSqrt ; 


PPARAMS 

pparams ; 



TCHAR 


szBuffer[16]; 



pparams 

=(PPARAMS) pvoid ; 



while ( 丨 pparams—>bKill) 

； 



l 

do 

r 





i 

if (++iNum < 0) 




iNum = 0 ; 




iSqrt = (int) 

sqrt (iNum); 




for (i = 2 ; i 

<=iSqrt ; i++) 




if 

(iNum % i == 0) 





break ; 



i 

while (i 

<=iSqrt); 




iLine = CheckBottom ( 

pparams->hwnd, 


pparams 

->cyClient, 




pparams->cyChar, iLine); 




hdc = GetDC (pparams->hwnd); 



TextOut ( 

hdc, 0, iLine 

* pparams->cyChar, szBuffer, 




wsprintf 

(szBuffer, TEXT ("%d n ), iNum)); 



ReleaseDC 

(pparams->hwnd. 

hdc); 


1 

iLine++ ; 



} 

endthread (); 



LRESULT APIENTRY WndProc2 

( HWND hwnd, UINT message, WPARAM wParam, LPARAM 

IParam) 

/ 




l 

static 

PARAMS params 

參 

f 



switch 

{ 

(message) 
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case WM—CREATE: 

params.hwnd = hwnd ; 

params.cyChar = HIWORD (GetDialogBaseUnits ()); 
—beginthread (Thread2, ◦, 耗 s); 
return 0 ; 

case WM—SIZE: 

params.cyClient = HIWORD (IParam); 
return 0 ; 

case WM—DESTROY: 

params.bKill = TRUE ; 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

// Window 3 : Display increasing sequence of Fibonacci numbers 

// - 


void Thread3 (PVOID pvoid) 


HDC 

int 

PPARAMS 
TCHAR 


hdc ; 

iNum = 0, iNext = 1, iLine = 0, iTemp ; 
pparams ; 

szBuffer[16]; 


pparams = (PPARAMS) pvoid ; 
while (!pparams->bKill) 


if (iNum < 0) 


iNum = 0 ; 


iNext = 1 ; 


iLine = CheckBottom ( pparams->hwnd, 
pparams->cyChar, iLine); 


pparams->cyClient. 


hdc = GetDC (pparams->hwnd); 

TextOut (hdc, ◦, iLine * pparams->cyChar, szBuffer, 

wsprintf (szBuffer, TEXT ("%d n ), iNum)); 

ReleaseDC (pparams->hwnd, hdc); 

iTemp = iNum ; 

iNum = iNext ; 

iNext += iTemp ; 

iLine++ ; 
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_endthread () ; 

} 

LRESULT APIENTRY WndProc3 ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

static PARAMS params ; 
switch (message) 

{ 

case WM—CREATE: 

params.hwnd = hwnd ; 

params•cyChar = HIWORD (GetDialogBaseUnits ()); 
—beginthread (Thread3, ◦, 耗 s); 
return 0 ; 

case WM—SIZE: 

params.cyClient = HIWORD (IParam); 
return 0 ; 

case WM—DESTROY: 

params•bKill = TRUE ; 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

// - 

// Window 4 : Display circles of random radii 

// - 

void Thread4 (PVOID pvoid) 

{ 

HDC hdc ; 

int iDiameter ; 

PPARAMS pparams ; 

pparams = (PPARAMS) pvoid ; 
while ( !pparams->bKill) 

{ 

工 nvalidateRect (pparams->hwnd, NULL, TRUE); 

UpdateWindow (pparams->hwnd); 

iDiameter = rand() % (max (1, 

min (pparams—>cxClient, pparams->cyClient))); 

hdc = GetDC (pparams->hwnd); 
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Ellipse (hdc, (pparams->cxClient 一 iDiameter) / 2, 

(pparams->cyClient - iDiameter) / 2, 
(pparams->cxClient + iDiameter) / 2, 

(pparams->cyClient + iDiameter) / 2); 

ReleaseDC (pparams->hwnd, hdc); 

} 

_endthread (); 

} 

LRESULT APIENTRY WndProc4 (HWND hwnd, UINT message,WPARAM wParam,LPARAM 
IParam) 

{ 

static PARAMS params ; 
switch (message) 

{ 

case WM—CREATE: 

params.hwnd = hwnd ; 

params.cyChar = HIWORD (GetDialogBaseUnits ()); 
—beginthread (Thread4, ◦, 耗 s); 
return 0 ; 

case WM—SIZE: 

params.cxClient = LOWORD (IParam); 
params.cyClient = HIWORD (IParam); 
return 0 ; 

case WM—DESTROY: 

params•bKill = TRUE ; 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

// - 

// Main window to create child windows 

// - 

LRESULT APIENTRY WndProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

static HWND hwndChild[4]; 

static TCHAR * szChildClass[] = { TEXT ("Childl"), TEXT ( n Child2 n ), 

TEXT ( n Child3 n ), TEXT ( n Child4 n ) }; 
static WNDPROC ChildProc[] = {WndProcl, WndProc2, WndProc3, WndProc4 }; 
HINSTANCE hlnstance ; 

int i , cxClient, cyClient ; 

WNDCLASS wndclass ; 
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switch (message) 

{ 

case WM—CREATE: 

hlnstance = (HINSTANCE) GetWindowLong (hwnd, GWL_HINSTANCE); 
wndclass.style =CS_HREDRAW | CS—VREDRAW ; 

wndclass.cbClsExtra = 0 ; 

wndclass.cbWndExtra = 0 ; 

wndclass•hlnstance = hlnstance ; 

wndclass•hlcon = NULL ; 

wndclass.hCursor = LoadCursor (NULL, IDC—ARROW); 

wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH); 

wndclass.IpszMenuName = NULL ; 

for (i = 0 ; i < 4 ; i++) 

{ 

wndclass.lpfnWndProc = ChildProc[i] 

wndclass.IpszClassName = szChildClass[i]; 

RegisterClass (&wndclass); 

hwndChild[i] = CreateWindow (szChildClass[i], NULL, 
WS_CHILDWINDOW | WS_BORDER | WS—VISIBLE, 

0, 0, 0, 0, 

hwnd, (HMENU) i, hlnstance, NULL); 

} 

return 0 ; 

case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 

for (i = ◦ ; i < 4 ; i++) 

MoveWindow (hwndChild [i] , (i % 2) * cxClient / 2, 

(i > 1) * cyClient / 2, 
cxClient / 2, cyClient / 2, TRUE); 

return 0 ; 

case WM—CHAR: 

if (wParam == 1 \xlB 1 ) 

DestroyWindow (hwnd); 

return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 
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return DefWindowProc (hwnd, message, wParam, IParam); 

} 

MULTI 2. C 的 WinMain 和 WndProc 函式非常类似於 MULTI 1. C 中的同名函式。 
WndProc 为四个视窗注册了四种视窗类别，建立了这些视窗，并在 WM _ SIZE 讯息 
处理期间缩放这些视窗。 WndProc 的唯一不同是它不再设定 Windows 计时器，也 
不再处理 WM _ TIMER 讯息。 

MULTI 2 中较大的改变是每个子视窗讯息处理程式透过在 WM _ CREATE 讯息处 
理期间呼叫 _ beginthread 函式来建立另一个执行绪。总括来说， MULTI 2 程式有 
五个同时执行的执行绪，主执行绪包含主视窗讯息处理程式和四个子视窗讯息 
处理程式，其余的四个执行绪使用名为 Threadl 、 Thread 2 等的函式，这四个执 
行绪负责绘制四个视窗。 

我在 RNDRCTMT 程式中给出的多执行绪程式码没有使用 _ beginthread 的第三 
个参数，这个参数允许一个建立另一个执行绪的执行绪在32位元变数中将资讯 
传递给其他执行绪。通常，这个变数是一个指标，而且是指向一个结构的指标， 
这允许原来的执行绪和新执行绪共用资讯，而不必借助於整体变数。您可以看 
到，在 MULTI 2 中没有整体变数。 

对 MULT 12程式，我在程式开头定义了一个名为 PARAMS 的结构和一个名为 
PPARAMS 的指向结构的指标，这个结构有五个栏位——视窗代号、视窗的宽度和 
高度、字元的高度和名为 bKill 的布林变数。最後的结构栏位允许建立执行绪 
告知被建立执行绪何时终止。 

让我们来看一看 WndProc 1,这是显示增加数序列的子视窗讯息处理程式。 
视窗讯息处理程式变得非常简单，唯一的区域变数是一个 PARAMS 结构。在 
WM CREATE 讯息处理期间，它设定这个结构的 hwnd 和 cyChar 栏位，呼叫 
_ beginthread 来建立一个使用 Threadl 函式的新执行绪，并传递给新执行绪一 
个指向该结构的指标。在 WM _ SIZE 讯息处理期间， WndProcl 设定结构的 cyClient 
栏位，而在 WM + DESTROY 讯息处理期间，它将 bKill 栏位设定为 TRUE。Threadl 
函式通过对 _ endth ]： ead 的呼叫而告结束。这并不是绝对必要的，因为执行绪将 
在退出执行绪函式之後被清除。不过，要退出一个深陷入复杂的处理程序的执 
行绪时， _ endthread 是很有用的。 

Threadl 函式完成在视窗上的实际绘图，并且和程式的其他四个执行绪同时 
执行。函式接收指向 PARAMS 结构的一个指标，并进入一个 while 回圈，不断检 
查 bKill 是 TRUE 还是 FALSE 。 如果是 FALSE ， 那么函式必须进行 MULTI 1. C 中的 
WM _ TIMER 讯息处理期间所作的同样处理——格式化数字、取得装置内容代号并 
使用 TextOut 显示数字。 
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当您在 Windows 98中执行 MULTI 2 时，将会看到，视窗更新要比在 MULTI 1 
中快得多，这表示程式在更加有效地利用处理器的资源。在 MULTI 1和 MULTI 2 
之间还有另一种区别：通常，当您移动或者缩放一个视窗时，内定视窗讯息处 
理程式进入一种模态回圈，而视窗的所有输出都将停止。在 MULTI 2 中，输出将 
继续。 

有问题吗？ 

似乎 MULT 12程式并没有达到它应该有的稳固性。我为什么会这样认为呢？ 
让我们来看一看 MULTI 2. C 中的一些多执行绪「缺陷」，以 WndProcl 和 Threadl 

为例。 

WndProcl 在 MULT 12的主执行绪中执行，而 Threadl 与它同时执行 ， Windows 
98在这两个执行绪之间进行切换是不可预测的。假定 Threadl 正在执行，并且 
刚好执行了检查 PARAMS 结构的 bKi 11栏位是否为 TRUE 的程式码。发现不为 TRUE ， 
但是这之後 Windows 98将控制权切换到主执行绪，这时使用者终止了程式， 
WndProcl 收到一个 WM _ DESTROY 讯息并将 bKill 参数设为 TRUE 。 哦，这参数设 
定得太晚了！作业系统突然切换到 Threadl 中，而该函式会试图取得一个不存 
在的视窗的装置内容代号。 

事实证明，这不是一个问题 。 Windows 98够稳固，以致另一条执行绪呼叫 
的图形处理函式只是失败而已，而不会引起任何问题。 

正确的多执行绪程式写作技术涉及执行绪同步的使用（尤其是临界区域的 
使用），我将马上加以详细地讨论。大体上，临界区域通过对 
EnterCriticalSection 和 LeaveCriticalSection 的呼叫而加以界定。如果一个 

执行绪进入一个临界区域，那么另一个执行绪将无法再进入这个临界区域。後 
一 个执行绪被阻档在对 EnterCriticalSection 的呼叫上，直到第一个执行绪呼 
口 H LeaveCriticalSection 时为止。 

在 MULTI 2 中的另一个可能存在的问题是，当另外一个执行绪显示其输出时， 
主执行绪可能会收到一个 WM _ ERASEBKGND 或 WM _ PAINT 讯息。这里，使用临界区 
域有助於避免当两个程序试图在同一个视窗上绘图时可能导致的任何问题。但 
是，经验显示 ， Windows 98很恰当地序列化了对图形绘制函式的存取。亦即， 
当另一个执行绪正在绘图的时候，一个执行绪不能在同一个视窗上绘图。 

Windows 98文件提醒说，有一种未进行图形函式序列化的情形，这就是 GDI 
物件（如画笔、画刷、字体、点阵图、区域和调色盘等）的使用。有可能发生 
一 个执行绪清除了一个物件，而另一个执行绪仍然在使用它的情况。解决这个 
问题的方法要求使用临界区域，或者最好不要在执行绪之间共用 GDI 物件。 
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Sleep 的好处 

我曾经提到，我认为对一个多执行绪程式来说，最好的架构是主执行绪建 
立程式中的所有视窗，以及所有的视窗讯息处理程式，并处理所有的视窗讯息。 
其他执行绪完成背景工作或者冗长作业。 

不过，假设您想在另一个执行绪中做动画。通常， Windows 中的动画是使用 
WM_TIMER 讯息来实作的。如果这个执行绪没有建立视窗，那么它也不会收到这 
些讯息。如果没有计时器，动画又可能会执行得太快。 

解决方案是 Sleep 函式。实际上，执行绪呼叫 Sleep 函式来自动暂停执行， 
该函式唯 一一 个参数是以毫秒计的时间。 Sleep 函式呼叫在指定的时间过去以前 
不会传回控制权。在这段时间内，执行绪被暂停，并且不会被配置给时间片段 
(尽管该执行绪显然仍然要求在 tick 时给予一小段的处理时间，因为系统必须 
确定执行绪是否应该重新开始执行）。给 Sleep 一 个值为0的参数将导致执行 
绪交回它尚未使用完的时间片段。 

当一个执行绪呼叫 Sleep 时，只是该执行绪被暂停指定的时间。系统仍然 
执行其他的执行绪，这些执行绪和暂停的执行绪可以是在同一个程序中，也可 
以是在另一个程序中。我在第十四章中的 SCRAMBLE 程式中使用了 Sleep 函式， 
以放慢画面清除的操作。 

通常，您不应该在您的主执行绪中使用 Sleep 函式，因为这会减慢对讯息 
的处理速度，但是因为 SCRAMBLE 没有建立任何视窗，因此在那里使用 Sleep 应 
该没有问题。 

执行绪同步 

大约每年一次，在我公寓窗外的交通繁忙地段的红绿灯会停止工作。结果 
是造成交通的混乱，虽然轿车一般能避免撞上别的轿车，但是这些车经常挤在 
一起。 

我用术语称两条路相交的十字路口为「临界区域」。一辆向南的车和一辆 
向西的车不可能同时通过一个十字路口而不撞著对方。依赖於交通流量，可以 
采用不同的方法来解决这个问题。对於视野清楚车辆稀少的路口，可以相信司 
机有处理的能力。车辆增多可能会要求一个停车号志，而更加繁忙的交通则将 
要求有红绿灯，红绿灯有助於协调路口的交通（当然，这些灯号必须正常工作）。 

临界区域 

在单工作业系统中，传统的电脑程式不需要红绿灯来帮助协调它们之间的 
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行为。它们在执行时似乎独占了整条路，而且也确实是这样，没有什么会干扰 
它们的工作。 

即使在多工作业系统中，大多数的程式也似乎各自独立地在执行，但是可 
能会发生一些问题。例如，两个程式可能会需要同时从同一个档案中读或者对 
同一档案进行写。在这种情况下，作业系统提供了一种共用档案和记录上锁的 
技术来帮助解决这个问题。 

然而，在支援多执行绪的作业系统中，情况会变得混乱而且存在潜在的危 
险。两个或多个执行绪共用某些资料的情况并不罕见。例如， 一 个执行绪可以 
更新一个或者多个变数，而另一个执行绪可以使用这些变数。有时这会引发一 
个问题，有时又不会（记住作业系统将控制权从一个执行绪切换到另一个执行 
绪的操作，只能在机器码指令之间发生。如果只是一个整数被执行绪共用，那 
么对这个变数的改变通常发生在单个指令中，因此潜在的问题被最小化了）。 

然而，假设执行绪共用几个变数或者资料结构。通常，这么多个变数或者 
结构的栏位在它们之间必须是一致的。作业系统可以在更新这些变数的程序中 
间中断一个执行绪，那么使用这些变数的执行绪得到的将是不一致的资料。 

结果是冲突发生了，并且通常不难想像这样的错误将对程式造成怎样的破 
坏。我们所需要的是类似於红绿灯的程式写作技术，以帮助我们对执行绪交通 
进行协调和同步，这就是临界区域。大体上，一个临界区域就是一块不可中断 
的程式码。 

有四个函式用於临界区域。要使用这些函式，您必须定义一个临界区域物 
件，这是一个型态为 CRITICAL _ SECTION 的整体变数。 例如： 

CRITICAL_SECTION cs ; 

这个 CRITICAL _ SECTION 资料型态是一个结构，但是其中的栏位只能由 
Windows 内部使用。这个临界区域物件必须先被程式中的某个执行绪初始化，通 
过 呼叫： 

InitializeCriticalSection (&cs) ; 

这样就建立了一个名为 CS 的临界区域物件。该函式的线上辅助说明包含下 
面的警告：「临界区域物件不能被移动或者复制，程序也不能修改该物件，但 
必须在逻辑上把它视为不透明的。」这句话，可以被解释为：「不要干扰它， 
甚至不要看它。」 

当临界区域物件被初始化之後，执行绪可以通过下面的呼叫进入临界区域: 

EnterCriticalSection (&cs) ; 

在这时，执行绪被认为「拥有」临界区域物件。两个执行绪不可以同时拥 
有同一个临界区域物件，因此，如果一个执行绪进入了临界区域，那么下一个 
使用同一临界区域物件呼叫 EnterCriticalSection 的执行绪将在函式呼叫中被 
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暂停。只有当第一个执行绪通过下面的呼叫离开临界区域时，函式才会传回控 
制权： 

LeaveCriticalSection (&cs) ; 

这时，在 EnterCriticalSection 呼叫中被停住的那个执行绪将拥有临界区 
域，其函式呼叫也将传回，允许执行绪继续执行。 

当临界区域不再被程式所需要时，可以通过呼叫 

DeleteCriticalSection ( &cs); 

将其删除，该函式释放所有被配置来维护此临界区域物件的系统资源。 

这种临界区域技术涉及「互斥」（此术语在我们继续讨论执行绪同步时将 
再次出现）。在任何时刻，只有一个执行绪能拥有一个临界区域。因此，一个 
执行绪可以进入一个临界区域，设定一个结构的栏位，然後退出临界区域。另 
一个使用该结构的执行绪在存取结构中的栏位之前也要先进入该临界区域，然 
後再退出临界区域。 

注意，您可以定义多个临界区域物件，比如 csl 和 cs 2。 例如，如果一个程 
式有四个执行绪，而前两个执行绪共用一些资料，那么它们可以使用一个临界 
区域物件，而另外两个执行绪共用一些其他的资料，那么它们可以使用另一个 
临界区域物件。 

您在主执行绪中使用临界区域时应该小心。如果从属执行绪在它自己的临 
界区域中花费了一段很长的时间，那么它可能会将主执行绪的执行阻碍很长一 
段时间。从属执行绪可能只是使用临界区域复制该结构的栏位到自己的区域变 
数中。 

临界区域的一个限制是它们只能用於在同一程序内的执行绪之间的协调。 
但是在某些情况下，您需要协调两个不同程序对同一资源的共用（如共用记忆 
体等）。在此其况下不能使用临界区域，但是可以使用一种被称为「互斥物件 
(mutex object ) 」的技术。 「 mutex 」 是个合成字，代表 「mutual exclusion 

(互斥）」，它在这里精确地表达了我们的目的。我们想防止一个程式的执行 
绪在更新资料或者使用共用记忆体与其他资源时被中断。 

事件信号 

多执行绪通常是用於那些必须执行长时间处理的程式。我们可以将一个「大 
作业」定义为一个可能会违反1/10秒规则的程式。显然大作业包括文书处理程 
式中的拼写检查、资料库程式中的档案排序或者索引、试算表的重新计算、列 
印，甚至包括复杂的绘图。当然，迄今为止我们知道，遵循1/10秒规则的最好 
方法是将大作业放到另一个执行绪去执行。这些额外的执行绪不会建立视窗， 
因此它们不受1/10秒规则的限制。 
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通常希望这些额外的执行绪在完成其任务时能够通知主执行绪，或者主执 
行绪能够停止其他执行绪正在进行的作业。这就是我们下面将要讨论的。 

BIGJ0B1 程式 

作为一个想像的大作业，我将使用一系列浮点运算，有时这种运算被称为 
「暴力的」性能测试指标。这种计算以一种间接的方式递增一个整数的 值：它 
求一个数的平方，再对结果取平方根（得到原来的整数），然後使用 log 和 exp 
函式（同样得到原来的整数），接著使用 at an 和 tan 函式（还是得到原来的整 
数），最後对结果加1。 


BIGJ 0 B 1 程式如程式 20-4 所不。 

程式 20-4 BIGJ0B1 


BIGJ0B1•C 

卜 

BIGJ0B1.C -- Multithreading Demo 


(c) Charles Petzold, 1998 

V 






♦include 

<windows.h> 





♦include 

<math.h> 





♦include 

〈 process•h> 





♦define 

REP 




1000000 

#define 

STATUS READY 


0 



#define 

STATUS WORKING 


1 



♦define 

STATUS_DONE 


2 



#define 

WM_CALC_DONE 

(WM 

USER + 

0) 


#define 

WM_CALC_ABORTED 

(WM 

USER + 

1) 


typedef 

struct 





HWND hwnd ; 





BOOL bContinue ; 





/ 

PARAMS, 

PARAMS ; 





LRESULT 

APIENTRY WndProc (HWND, UINT, 

WPARAM, 

LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 


szCmdLine, 

int iCmdShow) 



static TCHAR 

szAppName[] = TEXT 

("BigJobl"); 
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HWND 

MSG 

WNDCLASS 
wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 


hwnd ; 

msg ; 

wndclass ; 

=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION) 
=LoadCursor (NULL, IDC ARROW); 


wndclass.hbrBackground = (HBRUSH) GetStockObj ect (WHITE—BRUSH) 
wndclass.IpszMenuName = NULL ; 


wndclass.IpszClassName = szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT! n ), 

szAppName, MB_ICONERROR); 
return 0 ; 


hwnd = CreateWindow ( szAppName, TEXT ("Multithreading Demo ’’）， 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 
CW_USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return m 

} 

void Thread (E 

{ 

double 
INT 
LONG 

volatile 

pparams = (PPARAMS) pvoid ; 

ITime = GetCurrentTime (); 

for (i = ◦ ; i < REP && pparams->bContinue ; i++) 


sg.wParam ; 


VOID pvoid) 


A = 1.0 ; 


ITime ; 

PPARAMS pparams 


第 1141 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


A = tan (atan (exp (log (sqrt (A * A) ) ) ) ) + 1.0 ; 

if (i == REP) 

{ 

ITime = GetCurrentTime () - ITime ; 

SendMessage (pparams->hwnd A WM_CALC_DONE , ◦, ITime); 

} 

else 

SendMessage (pparams->hwnd, WM—CALC—ABORTED, 0, 0); 
endthread (); 


LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 


static 

INT 

static 

LONG 

static 

PARAMS 

static 

TCHAR 


iStatus ; 

ITime ; 
params ; 

* szMessage[] = { TEXT 


("Ready (left mouse button 


begins)"), 


TEXT ("Working (right mouse button ends )’’）， 
TEXT ("%d repetitions in %ld msec") }; 


HDC 

PAINTSTRUCT 

RECT 

TCHAR 


hdc ; 

ps ; 

rect ; 

szBuffer[64]; 


switch (message) 

{ 

case WM—LBUTTONDOWN: 

if (iStatus == STATUS—WORKING) 

{ 

MessageBeep (0); 
return 0 ; 


iStatus = STATUS—WORKING ; 

params.hwnd = hwnd ; 
params.bContinue = TRUE ; 

—beginthread (Thread, ◦, 耗 s); 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case WM—RBUTTONDOWN: 

params.bContinue = FALSE ; 
return 0 ; 


第 1142 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


case WM_CALC_DONE : 

ITime = IParam ; 
iStatus = STATUS_DONE ; 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case WM_CALC_ABORTED : 

iStatus = STATUS_READY ; 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

GetClientRect (hwnd, &rect); 

wsprintf (szBuffer, szMessage[iStatus], REP, ITime); 
DrawText (hdc, szBuffer, -1, &rect, 

DT_SINGLELINE | DT_CENTER | DT—VCENTER); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

这是一个相当简单的程式，但是我认为您将看到它如何展示在多执行绪程 
式中完成大作业的通用方法。为了使用 BIGJ 0 B 1 程式，在视窗的显示区域中按 
下滑鼠左键，从而开始暴力的性能测试计算的1，000, 000次重复，这在一台 
300 MHz 的 Pentium II 机器上将花费2秒。当完成计算时，花费的时间将显示在 
视窗上。当正在进行计算时，您可以通过在显示区域中按下滑鼠右键来终止它。 
让我们来看一看这是如何实作的： 

视窗讯息处理程式拥有了一个被叫做 iStatus 的静态变数（该变数可以被 
设定为在程式开始处定义的三个常数之一，常数以 STATUS 为字首），该变数表 
示程式是否准备好进行一次计算，是否正在进行一次计算，或者是否完成了计 
算。程式在 WM _ PAINT 讯息处理期间使用 iStatus 变数在显示区域的中央显示一 
个适当的字串。 

视窗讯息处理程式还拥有一个静态结构（型态为 PARAMS ， 也定义在程式的 
顶部），该结构是在视窗讯息处理程式和其他执行绪之间的共用资料。结构只 
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有两个栏位- hwnd (程式视窗的代号）和 bContinue ， 这是一个布林变数，用 

於指示执行绪是否继续计算或者停止。 

当您在显示区域中按下滑鼠左键时，视窗讯息处理程式将 iStatus 变数设 
为 STATUS _ WORKING ， 并设定 PARAMS 结构中的两个栏位。结构的 hwnd 栏位被设 
定为视窗代号，当然， bContinue 被设定为 TRUE 。 

然後视窗程序呼叫 _ beginthread 函式。执行绪函式 Thread 以呼叫 
GetCurrentTime 开始， GetCurrentTime 取得以毫秒计的 Windows 启动以来已经 - 
执行了的时间。然後它进入一个 for 回圈，重复1，000, 000次的暴力测试计算。 
还要注意，如果 bContinue 被设为了 FALSE ， 那么执行绪将退出回圈。 

在 for 回圈之後，执行绪函式检查它是否确实完成了 1，000, 000次计算。 
如果是，那么它再次呼叫 GetCurrentTime 获得所经过的时间，然後使用 
SendMessage 向视窗讯息处理程式发送一个由程式定义的 WM _ USER _ D 0 NE 讯息， 
并以经过的时间作为 lParam 参数。如果计算是在未完成之前被终止的（即，如 
果在回圈期间 PARAMS 结构的 bContinue 栏位变为 FALSE ) ，那么执行绪将发送 
给视窗讯息处理程式一个 WM _ USER _ AB 0 RTED 讯息。然後，执行绪通过呼叫 
_ endthread 正常地结束。 

在视窗讯息处理程式中，当您在显示区域中按下滑鼠右键时， PARAMS 结构 
的 bContinue 栏位被设为 FALSE 。 这是如何在完成计算之前结束计算的方法。 

注意 Thread 中的 pparams 变数定义为 volatile , 这种型态限定字向编译器 
指出变数可能会在实际的程式叙述外被修改（例如被另一个执行绪）。否则， 
最佳化的编译器会假设 pparams -> bContinue 不能被 for 回圈内的程式码修改， 
没有必要在每层回圈中检查变数。 volatile 关键字防止这样的最佳化进行。 

视窗讯息处理程式处理 WM _ USER _ D 0 NE 讯息时，首先储存经过的时间。对 
WM _ USER _ D 0 NE 和 WM _ USER _ AB 0 RTED 讯息的处理都是透过对 InvalidateRect 的呼 
叫产生 WM _ PAINT 讯息并在显示区域显示一个新的字串。 

提供一个方法（如结构中的 bContinue 栏位）允许执行绪正常终止，通常 
是一个好主意 。 Ki 1 IThread 函式只有在正常终止执行绪比较困难时才应该使用， 
原因是执行绪可以配置资源，如记忆体等。如果当执行绪终止时没有释放所配 
置的记忆体，那么记忆体将仍然是被配置了的。执行绪不是 程序： 所配置的资 
源在一个程序的所有执行绪之间是共用的，因此当执行绪终止时，资源不会被 
自动释放。好的程式结构要求一个执行绪释放由它配置的所有资源。 

您还应该知道当第二个执行绪仍在执行时，可以建立第三个执行绪。如果 
Windows 在 SendMessage 呼叫和 _ endthread 呼叫之间，将控制权从第二个执行 

绪切换到第一个执行绪，那么视窗讯息处理程式就可能回应滑鼠按键而建立一 
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个新的执行绪，从而出现了上述的情况。这不是什么问题，但是如果这对您自 
己的应用来说是一个问题的话，那么您可能会考虑使用临界区域来避免执行绪 
之间的冲突。 

事件物件 

BIGJ 0 B 1 在每次需要执行暴力测试计算时，就建立一个执行绪。执行绪在完 
成计算之後自动终止。 

另一种可用的方法是在程式的整个生命周期内保持执行绪的执行，但是只 
在必要时才启动它。这是一个应用事件物件的理想情况。 

事件物件可以是「有信号的」（也称为「被设立的」）或「没信号的」（也 
称为「被重置的」 ） 。 您可以通过下面呼叫来建立事件 物件： 

hEvent = CreateEvent (&sa, fManual , flnitial, pszName); 

第一个参数（指向一个 SE ⑶ RITY _ ATTRIBUTES 结构的指标）和最後一个参 
数（一个事件物件的名字）只有在事件物件被多个程序共用时才有意义。在同 
一程序中，这些参数通常被设定为 NULL 。 如果您希望事件物件被初始化为有信 
号的，那么将 flnitial 参数设定为 TRUE 。 而如果希望事件物件被初始化为无信 
号的，则将 flnitial 参数设定为 FALSE 。 稍後，我将简短地描述 fManual 参数。 
要设立一个现存的事件物件，呼叫 

SetEvent (hEvent) ; 

要重置一个事件物件，呼叫 

ResetEvent (hEvent) ; 

一个程式通常 呼叫： 

WaitForSingleObj ect (hEvent , dwTimeOut); 

并且将第二个参数设定为 INFINITE 。 如果事件物件目前是被设立的，那么 
函式将立即传回，否则，函式将暂停执行绪直到事件物件被设立。如果您将第 
二个参数设定为一个以毫秒计的超时时间值，这样函式也可能在事件物件被设 
立之前传回。 

如果最初的 CreateEvent 呼叫的 fManual 参数被设定为 FALSE , 那么事件物 
件将在 WaitForSingleObject 函式传回时自动重置。这种功能特性通常使得事 
件物件没有必要使用 ResetEvent 函式。 

现在，我们可以来看一看程式 20-5 所不的 BIGJ 0 B 2. C 程式。 

程式 20-5 BIGJ0B2 

BIGJ0B2.C 

/* - 

BIGJ0B2.C -- Multithreading Demo 

(c) Charles Petzold, 1998 
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- V 

♦include <windows.h> 

♦include <math.h> 

♦include <process.h> 


#define REP 

1000000 

#define STATUS READY 

0 

#define STATUS WORKING 

1 

#define STATUS DONE 

2 

#define WM CALC DONE 

(WM USER + 0) 

#define WM CALC ABORTED 

(WM USER + 1) 

typedef struct 

{ 

HWND 

hwnd ; 

HANDLE hEvent ; 

BOOL 

} 

PARAMS, ^PPARAMS ; 

bContinue ; 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ( n BigJob2 n ); 

HWND 

hwnd ; 

MSG 

msg ; 

WNDCLASS 

wndclass ; 

wndclass.style 

=CS HREDRAW | CS VREDRAW ; 

wndclass.lpfnWndProc 

=WndProc ; 

wndclass.cbClsExtra 

=◦; 

wndclass.cbWndExtra 

=◦; 

wndclass.hlnstance 

=hlnstance ; 

wndclass.hicon 

=Loadlcon (NULL, IDI APPLICATION); 

wndclass.hCursor 

=LoadCursor (NULL, IDC ARROW); 

wndclass.hbrBackground 

=(HBRUSH) GetStockObject (WHITE BRUSH); 

wndclass.IpszMenuName 

=NULL ; 

wndclass.IpszClassName 

=szAppName ; 

if (!RegisterClass (&wndclass)) 

/ 

l 

MessageBox ( NULL, 

TEXT ("This program requires Windows NT !’，）， 

szAppName, MB ICONERROR); 

return 0 ; 
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hwnd = CreateWindow ( szAppName, TEXT ("Multithreading Demo"), 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 


while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


void Thread (PVOID pvoid) 

{ 

double 
INT 
LONG 

volatile 


A = 1.0 ; 

i ； 

ITime ; 

PPARAMS pparams ; 


pparams = (PPARAMS) pvoid ; 
while (TRUE) 

{ 

WaitForSingleObj ect (pparams->hEvent, INFINITE); 

ITime = GetCurrentTime (); 

for (i = 0 ; i < REP && pparams->bContinue ; i++) 

A = tan (atan (exp (log (sqrt (A * A) ) ) ) ) + 1.0 ; 
if (i == REP) 

{ 

ITime = GetCurrentTime () - ITime ; 

PostMessage (pparams->hwnd, WM_CALC_DONE, 0, ITime); 

} 

else 

PostMessage (pparams->hwnd, WM CALC ABORTED, ◦, 0); 


LRESULT CALLBACK WndProc 
IParam) 

{ 

static HANDLE 

static INT 


HWND hwnd, UINT message, WPARAM wParam, LPARAM 

hEvent ; 
iStatus ; 
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static LONG ITime ; 

static PARAMS params ; 

static TCHAR * szMessage [ ] = { TEXT ("Ready (left mouse button 


begins) ’， ）， 


HDC 


TEXT ("Working (right mouse button ends )’，）， 
TEXT ("%d repetitions in %ld msec ”） }; 

hdc ; 


PAINTSTRUCT 

RECT 


ps ; 

rect ; 


TCHAR 


szBuffer[64]; 


switch (message) 

{ 

case WM—CREATE: 

hEvent = CreateEvent (NULL, FALSE, FALSE, NULL); 


params.hwnd = hwnd ; 
params.hEvent = hEvent ; 
params.bContinue = FALSE ; 

—beginthread (Thread, ◦, 耗 s); 

return 0 ; 


case WM—LBUTTONDOWN: 

if (iStatus == STATUS—WORKING) 

{ 

MessageBeep (0); 
return 0 ; 

} 

iStatus = STATUS—WORKING ; 
params.bContinue = TRUE ; 

SetEvent (hEvent); 


InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 


case WM—RBUTTONDOWN: 

params.bContinue = FALSE ; 
return 0 ; 

case WM_CALC_DONE : 

ITime = IParam ; 
iStatus = STATUS_DONE ; 
InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 
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case WM_CALC_ABORTED : 

iStatus = STATUS_READY ; 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

GetClientRect (hwnd, &rect); 

wsprintf ( szBuffer, szMessage[iStatus] , REP, ITime); 
DrawText ( hdc, szBuffer, - 1 , &rect, 

DT_SINGLELINE | DT_CENTER | DT—VCENTER); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

处理 WM _ CREATE 讯息时，视窗讯息处理程式首先建立一个初始化为没信号 
的自动重置事件物件，然後建立执行绪。 

Thread 函式进入一个无限的 while 回圈，在回圈开始时首先呼叫 
WaitForSingleObject (注意 PARAMS 结构包括一个包含事件物件代号的栏位）。 

因为事件被初始化为重置的，所以执行绪的执行被阻挡在函式呼叫中。按下滑 
鼠左键将导致视窗程序呼叫 SetEvent ， 这将释放由 WaitForSingleObject 呼叫 

产生的第二个执行绪，并开始暴力测试计算。当计算完之後，执行绪再次呼叫 
WaitForSingleObject , 但是由於第一次呼叫已经使事件物件重置，因此，执行 

绪将被暂停，直到再次按下滑鼠。 

在其他方面，程式几乎和 BIGJ 0 B 1 完全一样。 

执行绪区域储存空间 ( TLS ) 

多执行绪程式中的整体变数（以及任何被配置的记忆体）被程式中的所有 
执行绪共用。在一个函式中的局部静态变数也被使用函式的所有执行绪共用。 
一个函式中的局部动态变数是唯一於各个执行绪的，因为它们被储存在堆叠上， 
而每个执行绪有它自己的堆叠。 

对各个执行绪唯一的持续性储存空间有存在的必要。例如，我在本章前面 
提到过的 C 中的 strtok 函式要求这种型态的储存空间。不幸的是， C 语言不支 
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援这类储存空间。但是 Windows 中提供了四个函式，它们实作了一种技术来做 
到这一点，并且 Microsoft 对 C 的扩充语法也支援它，这就叫做执行绪区域储 
存空间。 


下面是 API 工作的 方法： 

首先，定义一个包含需要唯一於执行绪的所有资料的结构， 例如: 


typedef struct 

{ 

int £ 

i ； 


int t 

); 

} 



DATA, 

★ PDATA ; 


主执行绪呼叫 TlsAlloc 获得一个索 引值: 


dwTlsIndex = TlsAlloc () ; 

这个值可以储存在一个整体变数中或者通过参数结构传递给执行绪函式。 

执行绪函式首先为该资料结构配置记忆体，并使用上面所获得的索引值呼 
叫 TlsSetValue ： 

TlsSetValue (dwTlsIndex, GlobalAlloc (GPTR, sizeof (DATA)); 

该函式将一个指标和某个执行绪及某个执行绪索引相关联。现在，任何需 
要使用这个指标的函式（包括最初的执行绪函式本身）都可以包含如下所示的 
程式码： 

PDATA pdata ; 

• • • 

pdata = (PDATA) TlsGetValue (dwTlsIndex); 

现在函式可以设定或者使用 pdata->a 和 pdata->b 了。在执行绪函式终止 
以前，它释放配置的记忆体： 

GlobalFree (TlsGetValue (dwTlsIndex)) ; 

当使用该资料的所有执行绪都终止之时，主执行绪将释放索引： 

TlsFree (dwTlsIndex) ; 

这个程序刚开始可能令人有些迷惑，因此如果能看一看如何实作执行绪区 
域储存空间可能会有帮助（我不知道 Windows 实际上是如何实作的，但下面的 
方案是可能的）。首先， TlsAlloc 可能只是配置一块记忆体（长度为 0) 并传 
回一个索引值，即指向这块记忆体的一个指标。每次使用该索引呼叫 
TlsSetValue 时，通过重新配置将记忆体块增大8个位元组。在这8个位元组中 
储存的是呼叫函式的执行绪 ID (通过 GetCurrentThreadld 来获得）以及传递给 
TlsSetValue 函式的指标。 TlsSetValue 简单地使用执行绪 ID 来搜寻作业系统 
管理的执行绪区域储存空间位址表，然後传回指标。 TlsFree 将释放记忆体块。 
所以您看，这可能是一件容易得可以由您自己来实作的事情。不过，既然已经有 
工具为您做好了这些工作，那也不错。 
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Microsoft 对 C 的扩充功能使这件工作更加容易。只要在要对每个执行绪都 
保留不同内容的变数前加上 _ declspec ( thread ) 就好了。对於任何函式的外部 
静态变数，则为： 

_ declspec (thread) int iGlobal = 1 ; 

对於函式内部的静态变数，则为： 

declspec (thread) static int iLocal = 2 ; 
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第二十一章动态连结程式库 

动态连结程式库（也称为 DLL ) 是 Microsoft Windows 最重要的组成要素之 
一。 大多数与 Windows 相关的磁碟档案如果不是程式模组，就是动态连结程式。 
迄今为止，我们都是在开发 Windows 应用 程式； 现在是尝试编写动态连结程式 
库的时候了。许多您已经学会的编写应用程式的规则同样适用於编写这些动态 
连结程式库模组，但也有一些重要的不同。 

动态连结程式库的基本知识 

正如前面所看到的， Windows 应用程式是一个可执行档案，它通常建立一个 
或几个视窗，并使用讯息回圈接收使用者输入。通常，动态连结程式库并不能 
直接执行，也不接收讯息。它们是一些独立的档案，其中包含能被程式或其他 
DLL 呼叫来完成一定作业的函式。只有在其他模组呼叫动态连结程式库中的函式 
时，它才发挥作用。 

所谓「动态连结」，是指 Windows 把一个模组中的函式呼叫连结到动态连 
结程式库模组中的实际函式上的程序。在程式开发中，您将各种目的模组 
(. OBJ )、 执行时期程式库 (. LIB ) 档案，以及经常是已编译的资源 (. RES ) 档案连 
结在一起，以便建立 Windows 的 . EXE 档案，这时的连结是「静态连结」。动态 
连结与此不同，它发生在执行时期。 

KERNEL 32. DLL 、 USER 32. DLL 和 GDI 32. DLL 、各种驱动程式档案如 
KEYBOARD . DRV 、 SYSTEM . DRV 和 MOUSE . DRV 和视讯及印表机驱动程式都是动态连 
结程式库。这些动态连结程式库能被所有 Windows 应用程式使用。 

有些动态连结程式库（如字体档案等）被称为「纯资源」。它们只包含资 
料（通常是资源的形式）而不包含程式码。由此可见，动态连结程式库的目的 
之一就是提供能被许多不同的应用程式所使用的函式和资源。在一般的作业系 
统中，只有作业系统本身才包含其他应用程式能够呼叫来完成某一作业的常式。 
在 Windows 中，一个模组呼叫另一个模组函式的程序被推广了。结果使得编写 
一 个动态连结程式库，也就是在扩充 Windows 。 当然，也可认为动态连结程式库 
(包括构成 Windows 的那些动态连结程式库常式）是对使用者程式的扩充。 

尽管一 个动态连结程式库模组可能有其他副档名（如 .EXE 或 .F0N) ， 但标 
准副档名是 .DLL 。 只有带 .DLL 副档名的动态连结程式库才能被 Windows 自动载 
入。如果档案有其他副档名，则程式必须另外使用 LoadLibrary 或者 
LoadLibraryEx 函式载入该模组。 
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您通常会发现，动态连结程式库在大型应用程式中最有意义。例如，假设 
要为 Windows 编写一个由几个不同的程式组成的大型财务套装软体，就会发现 
这些应用程式会使用许多共同的常式。可以把这些公共常式放入一个一般性的 
目的码程式库（带 . LIB 副档名）中，并在使用 LINK 静态连结时把它们加入各程 
式模组中。但这种方法是很浪费的，因为套装软体中的每个程式都包含与公共 
常式相同的程式码。而且，如果修改了程式库中的某个常式，就要重新连结使 
用此常式的所有程式。然而，如果把这些公共常式放到称为 ACCOUNT . DLL 的动 
态连结程式库中，就可解决这两个问题。只有动态连结程式库模组才包含所有 
程式都要用到的常式。这样能为储存档案节省磁碟空间，并且在同时执行多个 
应用程式时节省记忆体，而且，可以修改动态连结程式库模组而不用重新连结 
各个程式。 

动态连结程式库实际上是可以独立存在的。例如，假设您编写了一系列 3 D 
绘图常式，并把它们放入名为 GDI 3. DLL 的 DLL 中。如果其他软体发展者对此程 
式库很感兴趣，您就可以授权他们将其加入他们的图形程式中。使用多个这样 
的图形程式的使用者只需要一个 GDI 3. DLL 档案。 

程 式库： 一 词多义 

动态连结程式库有著令人困惑的印象，部分原因是由於「程式库」这个词 
被放在几种不同的用语之後。除了动态连结程式库之外，我们也用它来称呼「目 
的码程式库」或「引用程式库」。 

目的码程式库是带 . LIB 副档名的档案。在使用连结程式进行静态连结时， 
它的程式码就会加到程式的 . EXE 档案中。例如，在 Microsoft Visual C ++ 中， 
连同程式连结的一般 C 执行目的码程式库被称为 LIBC . LIB 。 

引用程式库是目的码程式库档案的一种特殊形式。像目的码程式库一样， 
引用程式库有 . LIB 副档名，并且被连结器用来确定程式码中的函式呼叫来源。 
但引用程式库不含程式码，而是为连结程式提供资讯，以便在 . EXE 档案中建立 
动态连结时要用到的重定位表。包含在 Microsoft 编译器中的 KERNEL 32. LIB 、 
USER 32. LIB 和 GDI 32. LIB 档案是 Windows 函式的引用程式库。如果一个程式呼 
叫 Rectangle 函式， Rectangle 将告诉 LINK , 该函式在 GDI 32. DLL 动态连结程 
式库中。该资讯被记录在 . EXE 档案中，使得程式执行时， Windows 能够和 
GDI 32. DLL 动态连结程式库进行动态连结。 

目的码程式库和引用程式库只用在程式开发期间使用，而动态连结程式库 
在执行期间使用。当一个使用动态连结程式库的程式执行时，该动态连结程式 
库必须在磁片上。当 Windows 要执行一个使用了动态连结程式库的程式而需要 
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载入该程式库时，动态连结程式库档案必须储存在含有该 . EXE 程式的目录下、 

目前的目录下、 Windows 系统目录下、 Windows 目录下，或者是在通过 MS-DOS 
环境中的 PATH 可以存取到的目录下 （ Windows 会按顺序搜索这些目录）。 

一个简单的 DLL 

虽然动态连结程式库的整体概念是它们可以被多个应用程式所使用，但您 
通常最初设计的动态连结程式库只与一个应用程式相联系，可能是一个「测试」 
程式在使用 DLL 。 

下面就是我们要做的。我们建立一个名为 m 3 RLIB . DLL 的 DLL 。 档案名中的 
rEDRJ 代表「简便的绘图常式 (easy drawing routines ) 」。这里的 EDRLIB 
只含有一个函式（名称为 EdrCenterText ) ，但是您还可以将应用程式中其他简 
单的绘图函式添加进去。应用程式 EDRTEST . EXE 将通过呼叫 EDRLIB . DLL 中的函 
式来利用它。 

要做到这一点，需要与我们以前所做的略有不同的方法，也包括 Visual C ++ 
中我们没有看过的特性。在 Visual C ++ 中「工作空间 （ workspaces ) 」和「专 
案 （ projects ) 」不同。专案通常与建立的应用程式 (. EXE ) 或者动态连结程 
式库 （. DLL ) 相联系。一个工作空间可以包含一个或多个专案。迄今为止，我 
们所有的工作空间都只包含一个专案。我们现在就建立一个包含两个专案的工 
作空间 K 3 RTEST ——一个用於建立 K 3 RTEST . EXE ， 而另一个用於建立 m ) RLIB . DLL , 
即 EDRTEST 使用的动态连结程式库。 

现在就开始。在 Visual C ++ 中，从 「 File 」 功能表选择 「 New 」 ，然後选择 
「 Workspaces 」 页面标签。（我们以前从来没有选择过。）在 「 Location 」 栏 
选择工作空间要储存的目录，然後在 「Workspace Name 」 栏输入 「 m ) RTEST 」 ， 
按 Enter 键。 

这样就建立了一个空的工作空间 。 Developer Studio 还建立了一个名为 
H 3 RTEST 的子目录，以及工作空间档案 m ) RTEST.DSW (就像两个其他档案）。 

现在让我们在此工作空间里建立一个专案。从 「 File 」 功能表选择 「 New 」 ， 
然後选择 rProjects ] 页面标签。尽管过去您选择 「 Win 32 Application 」 ，但 
现在 「 Win 32 Dynamic-Link Library 」 。另外，单击单选按钮 「Add To Current 
Workspace 」 ，这使得此专案是 「 EDRTEST 」 工作空间的一部分。在 「Project Name 
栏输入 EDRLIB ， 但先不要按 rOKj 按钮。当您在 Project Name 栏输入 H 3 RLIB 
时 ， Visual C ++ 将改变 「 Location 」 栏，以显示 m ) RLIB 作为 EDRTEST 的一个子 
目录。这不是我们要的，所以接著在 rLocation ] 栏删除 H ) RLIB 子目录以便专 
案建立在 EDRTEST 目录。现在按 「0 K 」 。萤幕将显示一个对话方块，询问您建 
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立什么型态的 DLL 。 选择 「An Empty DLL Project 」 ，然後按 「 Finish」 。 Visual 
C ++ 将建立一个专案档案 EDRLIB . DSP 和一个构造档案 EDRLIB . MAK (如果 「Tools 
Options 」 对话方块的 B 「 uild 页面标签中选择了 「Export Makefile 」 选项」。 

现在您已经在此专案中添加了一对档案。从 「 File 」 功能表选择 「 New 」 ， 
然後选择 「 Files 」 页面标签。选择 「 C / C ++ Header File 」 ，然後输入档案名 
EDRLIB . Ho 输入程式 21-1 所示的档案（或者从本书光碟中复制）。再次从「 File 」 
功能表中选择 「 New 」 ，然後选择 「 Files 」 页面标签。这次选择 「 C ++ Source FileJ , 
然後输入档案名 K 3 RLIB . C 。 继续输入程式 21-1 所示的程式。 


程式 21-1 EDRLIB 动态连结程式库 


EDRLIB.H 







/* - 







EDRLIB.H header file 






V 







#ifdef 

cplusplus 






♦define 

EXPORT extern "C" declspec 

(dllexport) 



#else 

#define 

#endif 

EXPORT declspec (dllexport) 






EXPORT 

BOOL CALLBACK EdrCenterTextA 

(HDC, 

PRECT, 

PCSTR); 


EXPORT 

BOOL CALLBACK EdrCenterTextW 

(HDC, 

PRECT, 

PCWSTR); 


#ifdef 

UNICODE 






#define 

#else 

EdrCenterText EdrCenterTextW 






♦define 

#endif 

EDRLIB.C 

/* - 

EdrCenterText EdrCenterTextA 






EDRLIB.C -- Easy Drawing Routine Library 

module 






(c) 

Charles Petzold, 

1998 

一" 

♦include 

windows.h> 






♦include 

"edrlib.h" 






int WINAPI DllMain ( HINSTANCE hlnstance, DWORD 

fdwReason, PVOID pvReserved) 

return TRUE ; 

} 






EXPORT BOOL CALLBACK EdrCenterTextA ( 

HDC hdc. 

PRECT prc, PCSTR 

pString) 
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int iLength ; 
SIZE size ; 


iLength = IstrlenA (pString); 
GetTextExtentPoint32A (hdc, pString, iLength, 
return TextOutA (hdc,( prc->right 一 prc->left 

( prc->bottom - prc->top 

pString, iLength) 


&size); 

- size.cx) 
- size.cy) 


/ 2 , 
/ 2 , 


EXPORT BOOL CALLBACK EdrCenterTextW (HDC hdc, PRECT prc, PCWSTR pString) 
{ 

int iLength ; 

SIZE size ; 


iLength = IstrlenW (pString); 

GetTextExtentPoint32W (hdc, pString, iLength, &size); 

return TextOutW (hdc, ( prc->right - prc->left — size.cx) / 2, 

( prc->bottom 一 prc->top - size.cy) / 2, 

pString, iLength); 


这里您可以按 Release 设定，或者也可以按 Debug 设定来建立 EDRLIB . DLL 。 
之後， RELEASE 和 DEBUG 目录将包含 K 3 RLIB . LIB (即动态连结程式库的引用程 
式库）和 EDRLIB.DLL (动态连结程式库本身）。 

纵观全书，我们建立的所有程式都可以根据 UNICODE 识别字来编译成使用 
Unicode 或非 Unicode 字串的程式码。当您建立一个 DLL 时，它应该包括处理字 
元和字串的 Unicode 和非 Unicode 版的所有函式。因此， EDRLIB . C 就包含函式 


EdrCenterTextA (ANSI 版）和 EdrCenterTextW (宽字元版 ）。 EdrCenterTextA 


定义为带有参数 PCSTR (指向 const 字串的指标），而 EdrCenterTextW 则定义 
为带有参数 PCWSTR (指向 const 宽字串的指标）。 EdrCenterTextA 函式将呼叫 


IstrlenA 、 GetTextExtentPoint 32 A 和 TextOutA 。 EdrCenterTextW 将呼叫 
IstrlenW 、 GetTextExtentPoint 32 W 和 TextOutW 。 如果定义了 UNICODE 识别字， 
则 EDRLIB . H 将 EdrCenterText 定义为 EdrCenterTextW ，否则定义为 
EdrCenterTextA 。 这样的做法很像 Windows 表头档案。 

EDRLIB . H 也包含函式 DllMain , 取代了 DLL 中的 WinMain 。 此函式用於执行 
初始化和未初始化 ( deinitialization ) ,我将在下一节讨论。我们现在所需 
要的就是从 DllMain 传回 TRUE 。 

在这两个档案中，最後一点神秘之处就是定义了 EXK ) RT 识别字。 DLL 中应 
用程式使用的函式必须是「输出 （ exported ) 」的。这跟税务或者商业制度无 
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关，只是确保函式名添加到 EDRLIB . LIB 的一个关键字（以便连结程式在连结使 
用此函式的应用程式时，能够解析出函式名称），而且该函式在 EDRLIB . DLL 中 
也是看得到的。 EXPORT 识别字包括储存方式限定词 + declspec ( dllexport ) 以 
及在表头档案按 C ++ 模式编译时附加的 「 C 」 。这将防止编译器使用 C ++ 的名称 
轧压规则 (name mangling ) 来处理函式名称，使 C 和 C ++ 程式都能使用这个 DLL 。 

程式库入口/出口点 

当动态连结程式库首次启动和结束时，我们呼叫了 DllMain 函式 。 DllMain 
的第一个参数是程式库的执行实体代号。如果您的程式库使用需要执行实体代 
号（诸如 DialogBox ) 的资源，那么您应该将 hlnstance 储存为一个整体变数。 
DllMain 的最後一个参数由系统保留。 

fdwReason 参数可以是四个值之一，说明为什么 Windows 要呼叫 DllMain 函 
式。在下面的讨论中，请记住一个程式可以被载入多次，并在 Windows 下一起 
执行。每当一个程式载入时，它都被认为是一个独立的程序 （ process ) 。 

fdwReason 的一个值 DLL _ PROCESS _ ATTACH 表示动态连结程式库被映射到一 
个程序的位址空间。程式库可以根据这个线索进行初始化，为以後来自该程序 
的请求提供服务。例如，这类初始化可能包括记忆体配置。在一个程序的生命 
周期内，只有一次对 DllMain 的呼叫以 DLL _ PROCESS _ ATTACH 为参数。使用同一 
DLL 的其他任何程序都将导致另一个使用 DLL _ PROCESS _ ATTACH 参数的 DllMain 
呼叫，但这是对新程序的呼叫。 

如果初始化成功， DllMain 应该传回一个非0值。传回0将导致 Windows 不 
执行该程式。 

当 fdwReason 的值为 DLL _ PROCESS _ DETACH 时，意味著程序不再需要 DLL 了， 
从而提供给程式库自己清除自己的机会。在32位元的 Windows 下，这种处理并 
不是严格必须的，但这是一种良好的程式写作习惯。 

类似地，当以 DLL _ THREAD _ ATTACH 为 fdwReason 参数呼叫 DllMain 时，意 
味著某个程序建立了一个新的执行绪。当执行绪中止时， Windows 以 
DLL _ THREAD _ DETACH 为 fdwReason 参数呼叫 DllMain 。 请注意，如果动态连结程 

式库是在执行绪被建立之後和一个程序连结的，那么可能会得到一个没有事先 
对应一个 DLL _ THREAD_ATTACH 呼叫的 DLL _ THREAD_DETACH 呼叫。 

当使用一个 DLL _ THREAD _ DETACH 参数呼叫 DllMain 时，执行绪仍然存在。 
动态连结程式库甚至可以在这个程序期间发送执行绪讯息。但是它不应该使用 
PostMessage , 因为执行绪可能在此讯息被处理到之前就已经退出执行了。 


第 1157 页 




Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


测试程式 


现在让我们在 EDRTEST 工作空间里建立第二个专案，程式名称为 EDRTEST ， 
而且使用 EDRLIB . DLL 。 在 Visual C ++ 中载入 EDRTEST 工作空间时，请从 「 File 」 
功能表选择 「 New 」 ，然後在 「 New 」 对话方块中选择 「 Projects 」 页面标签。 
这次选择 「 Win 32 Application 」 ，并确保选中了 「Add To Current Workspace 」 
按钮。输入专案名称 m ) RTEST 。 再在 「 Locations 」 栏删除第二个 EDRTEST 子目 
录。按下 「0 K 」 ，然後在下一个对话方块选择 「An Empty Project 」 ，按 「 Finish 」 。 

从 「 File 」 功能表再次选择 「 New 」 。选择 「 Files 」 页面标签然後选择 「 C ++ 
Source File 」。 确保 「 Add To Project ] 清单方块显示「 K 3 RTEST 」 而不是「 EDRLIB 」 。 
输入档案名称 EDRTEST . C ,然後输入程式 21-2 所示的程式。此程式用 
EdrCenterText 函式将显示区域中的字串居中对齐。 


程式 21-2 EDRTEST 


EDRTEST.C 

/* - 


EDRTEST.C -- 

Program using EDRLIB dynamic-link library 

(c) Charles Petzold, 1998 


V 

♦include <windows.h> 
♦include "edrlib.h" 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, 

iCmdShow) 

{ 

static TCHAR 
HWND 
MSG 

WNDCLASS 


int 


szAppName[] 


TEXT ("StrProg") 
hwnd ; 




msg ; 
wndclass 


wndclass 

wndclass 

wndclass 

wndclass 

wndclass 

wndclass 

wndclass 

wndclass 

wndclass 


.style 

.lpfnWndProc 
.cbClsExtra 
.cbWndExtra 
.hlnstance 
•hlcon 
•hCursor 
•hbrBackground 
.IpszMenuName 


CS_HREDRAW | CS_VREDRAW 
WndProc ; 


=hlnstance ; 

=Loadlcon (NULL, 工 DI_APPLICATION) 
=LoadCursor (NULL, IDC—ARROW); 
(HBRUSH) GetStockObject (WHITE—BRUSH) 
NULL ; 
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wndclass.IpszClassName = szAppName ; 


if ( !RegisterClass 

； 

(&wndclass)) 

i 

MessageBox ( 

NULL, TEXT 

return 1 

0 ； 


(▼'This program requires Windows NT !’’）， 

szAppName, MB 工 CONERROR); 


hwnd = CreateWindow (szAppName, TEXT (’’DLL Demonstration Program"), 

WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 


LRESULT CALLBACK WndProc ( HWND hwnd, 
IParam) 

{ 


HDC 

PAINTSTRUCT 

RECT 


hdc ; 

ps ; 

rect ; 


UINT message, WPARAM wParam, LPARAM 


switch (message) 

{ 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

GetClientRect (hwnd, &rect); 

EdrCenterText ( hdc, &rect, 

TEXT (" This string was displayed by a DLL’ 1 )); 


EndPaint (hwnd, &ps); 
return 0 ; 


case WM—DESTROY: 

PostQuitMessage (0); 
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return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

注意，为了定义 EdrCenterText 函式， m ) RTEST . C 包括 EDRLIB . H 表头档案， 
此函式将在 WM _ PAINT 讯息处理期间呼叫。 

在编译此程式之前，您可能希望做以下几件事。首先，在 「 Project 」 功能 
表选择 「Select Active Project 」 。这时您将看到「 EDRLIB 」和 「 EDRTEST 」 ， 
选择 「 K 3 RTEST 」 。在重新编译此工作空间时，您真正要重新编译的是程式。另 
外，在 「 Project 」 功能表中，选择 「 Dependencies 」 ，在 rSelect Project To 
Modify J 清单方块中选择「 EDRTEST 」。在 「 Dependent On The Following 
Project ( s )」 列表选中 「 EDRLIB 」 。此操作的意 思是: EDRTEST 需要 EDRLIB 动 
态连结程式库。以後每次重新编译 EDRTEST 时，如果必要的话，都将在编译和 
连结 EDRTEST 之前重新重新编译 K 3 RLIB 。 

从 「 Project 」 功能表选择 「 Settings 」 ，单击 「 General 」 标签。当您在 
左边的窗格中选择 「 EDRLIB 」 或者 [ EDRTEST 」 专案时，如果设定为 「 Win 32 
Release 」 ，则显示在右边窗格中的 「 Intermediate Files 」 和 「Output Files 」 
将位於 RELEASE 目录； 如果设定为 「 Win 32 Debug 」 ，则位於 DEBUG 目录。如果 
不是，请按此修改。这样可确保 m 3 RLIB . DLL 与 m 3 RTEST . EXE 在同一个目录中， 
而且程式在使用 DLL 时也不会产生问题。 

在 「Project Setting 」 对话方块中依然选中 「 EDRTEST 」 ，单击「 C / C ++」 
页面标签。按本书的惯例，在 「Preprocessor Definitions 」 中，将 「 UNICODE 」 
添加到 Debug 设定。 

现在您就可以在 「 Debug 」 或 「 Release 」 设定中重新编译 m ) RTEST . EXE 了。 
必要时 ， Visual C ++ 将首先编译和连结 H 3 RLIB 。 RELEASE 和 DEBUG 目录都包含 
EDRLIB . LIB (引用程式库)和 EDRLIB . DLL 。 当 Developer Studio 连结 EDRTEST 
时，将自动包含引用程式库。 

了解 EDRTEST . EXE 档案中不包含 EdrCenterText 程式码很重要。事实上， 
要证明执行了 EDRLIB . DLL 档案和 EdrCenterText 函式很 简单: 执行 EDRTEST . EXE 
需要 EDRLIB . DLL 。 

执行 H 3 RTEST . EXE 时， Windows 按外部程式库模组执行固定的函式。其中许 
多函式都在一般 Windows 动态连结程式库中。但 Windows 也看到程式从 EDRLIB 
呼叫了函式，因此 Windows 将 m 3 RLIB . DLL 档案载入到记忆体，然後呼叫 m)RLIB 
的初始化常式。 EDRTEST 呼叫 EdrCenterText 函式是动态连结到 EDRLIB 中函式 
的。 
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在 EDRTEST . C 原始码档案中包含 EDRLIB . H 与包含 WINDOWS . H 类似。连结 
EDRLIB . LIB 与连结 Windows 引用程式库(例如 USER 32. LIB ) 类似。当您的程式 
执行时，它连结 m 3 LIB . DLL 的方式与连结 USER 32. DLL 的方式相同。恭喜您！您 
已经扩展了 Windows 的功能！ 

在继续之前，我还要对动态连结程式库多说明 一些： 

首先，虽然我们将 DLL 作为 Windows 的延伸，但它也是您的应用程式的延 
伸。 DLL 所完成的每件工作对於应用程式来说都是应用程式所交代要完成的。例 
如，应用程式拥有 DLL 配置的全部记忆体、 DLL 建立的全部视窗以及 DLL 打开的 
所有档案。多个应用程式可以同时使用同一个 DLL ， 但在 Windows 下，这些应用 
程式不会相互影响。 

多个程序能够共用一个动态连结程式库中相同的程式码。但是， DLL 为每个 
程序所储存的资料都不同。每个程序都为 DLL 所使用的全部资料配置了自己的 
位址空间。我们将在下以节看到，共用记忆体需要额外的工作。 

在 DLL 中共用记忆体 

令人兴奋的是， Windows 能够将同时使用同一个动态连结程式库的应用程式 
分开。不过，有时却不太令人满意。您可能希望写一个 DLL ， 其中包含能够被不 
同应用程式或者同一个程式的不同常式所共用的记忆体。这包括使用共用记忆 
体。共用记忆体实际上是一种记忆体映射档案。 

让我们测试一下，这项工作是如何在程式 STRPR 0 G ( 「字串程式 （string 
program ) 」 ） 和动态连结程式库 STRLIB ( 「字串程式库 （string library ) 」 ） 
中完成的。 STRLIB 有三个输出函式被 STRPR 0 G 呼叫，我们只对此感兴趣 ， STRLIB 
中的一个函式使用了在 STRPR 0 G 定义的 callback 函式。 

STRLIB 是一个动态连结程式库模组，它储存并排序了最多256个字串。在 
STRLIB 中，这些字串均为大写，并由共用记忆体维护。利用 STRLIB 的三个函式， 
STRPR 0 G 能够添加字串、删除字串以及从 STRLIB 获得目前的所有字串。 STRPR 0 G 
测试程式有两个功能表项 （「 Enter 」 和 「 Delete 」） ，这两个功能表项将启动 
不同的对话方块来添加或删除字串。 STRPR 0 G 在其显示区域列出目前储存在 
STRLIB 中的所有字串。 

下面这个函式在 STRLIB 定义，它将一个字串添加到 STRLIB 的共用记忆体。 

EXPORT BOOL CALLBACK AddString (pStringln) 

参数 pStringln 是字串的指标。字串在 AddString 函式中变成大写。如果 
在 STRLIB 的列表中有一个相同的字串，那么此函式将添加一个字串的复本。如 
果成功， AddString 传回 「 TRUE 」 （非 0) ，否则传回 「 FALSE 」（0) 。如果字 
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串的长度为0,或者不能配置储存字串的记忆体，或者已经储存了 256个字串， 
则传回值将都是 FALSE 。 

STRLIB 函式从 STRLIB 的共用记忆体中删除一个字串。 

EXPORT BOOL CALLBACK DeleteString (pStringln) 

另外，参数 pStringln 是一个字串指标。如果有多个相同内容字串，则删 
除第一个。如果成功，那么 DeleteString 传回「 TRUE 」 （非 0) ，否则传回「 FALSE 」 
(0) 。传回 「 FALSE 」 表示字串长度为0，或者找不到相同内容的字串。 

STRLIB 函式使用了呼叫程式中的一个 callback 函式，以便列出目前储存在 
STRLIB 共用记忆体中的 字串： 

EXPORT int CALLBACK GetStrings (pfnGetStrCallBack, pParam) 

在呼叫程式中， callback 函式必须像下面这样定义： 

EXPORT BOOL CALLBACK GetStrCallBack (PSTR pString, PVOID pParam) 

GetStrings 的参数 pfnGetStrCallBack 指向 callback 函式。直到 callback 
函式传回 「 FALSE 」（0)， GetStrings 将为每个字串都呼叫一次 GetStrCallBack 。 
GetStrings 传回传递给 callback 函式的字串数。 pParam 参数是一个远程指标， 
指向程式写作者定义的资料。 

当然，此程式可以编译成 Unicode 程式，或者在 STRLIB 的支援下，编译成 
Unicode 和非 Unicode 应用程式。与 EDRLIB —样，所有的函式都有 「 A 」 和 「 W 」 
两种版本。在内部， STRLIB 以 Unicode 储存所有的字串。如果非 Unicode 程式 
使用了 STRLIB (也就是说，程式将呼叫 AddStringA 、 DeleteStringA 和 
GetStringsA ) ,字串将在 Unicode 和非 Unicode 之间转换。 

与 STRPR 0 G 和 STRLIB 专案相关的工作空间名为 STRPR 0 G 。 此档案按 EDRTEST 
工作空间的方式组合。程式 21-3 显示了建立 STRLIB . DLL 动态连结程式库所必 
须的两个档案。 

程式 21-3 STRLI 

STRLIB.H 

" - 

STRLIB.H header file 


#ifdef _cplusplus 

♦define EXPORT extern n C" _declspec (dllexport) 

#else 

♦define EXPORT _declspec (dllexport) 

#endif 

// The maximum number of strings STRLIB will store and their lengths 
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#define 

MAX STRINGS 256 

#define 

MAX LENGTH 63 

// 

The callback function type definition uses generic strings 

typedef ] 

BOOL (CALLBACK ★ 

GETSTRCB) (PCTSTR, PVOID); 

// 

Each function has ANSI and Unicode versions 

EXPORT 

BOOL CALLBACK 

AddStringA (PCSTR); 

EXPORT 

BOOL CALLBACK 

AddStringW (PCWSTR); 

EXPORT 

BOOL CALLBACK 

DeleteStringA (PCSTR); 

EXPORT 

BOOL CALLBACK 

DeleteStringW (PCWSTR); 

EXPORT 

int CALLBACK 

GetStringsA (GETSTRCB, PVOID); 

EXPORT 

int CALLBACK 

GetStringsW (GETSTRCB, PVOID); 

// 

Use the correct 

version depending on the UNICODE identifier 

#ifdef 

UNICODE 


#define 

AddString 

AddStringW 

#define 

DeleteString 

DeleteStringW 

#define 

GetStrings 

GetStringsW 

#else 



#define 

AddString 

AddStringA 

#define 

DeleteString 

DeleteStringA 

#define 

GetStrings 

GetStringsA 

#endif 



STRLIB.C 



/* - 

— 

— 

STRLIB.C - Library 

module for STRPROG program 



(c) Charles Petzold, 1998 

V 



♦include 

〈 windows•h> 


#include 

<wchar.h> 

// for wide-character string 

functions 


♦include 

’’ strlib • h" 


// 

shared memory section (requires /SECTION:shared,RWS in link options) 

#pragma 

data seg ("shared") 

int 

iTotal = 

=◦; 

WCHAR 

szStrings [MAX STRINGS][MAX LENGTH +1] = { ▼\0 , }; 

#pragma 

data seg () 
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#pragma 


comment (linker, ’’ / SECTION : shared, RWS ’’） 


int WINAPI DllMain (HINSTANCE hlnstance, DWORD fdwReason, PVOID pvReserved) 

{ 

return TRUE ; 


EXPORT BOOL CALLBACK AddStringA (PCSTR pStringln) 

{ 

BOOL bReturn ; 


int iLength ; 

PWSTR pWideStr ; 


// Convert string to Unicode and call AddStringW 

iLength = MultiByteToWideChar (CP—ACP, ◦, pStringln, -1, NULL, 0); 
pWideStr = malloc (iLength); 

MuItiByteToWideChar (CP—ACP, ◦, pStringln, -1, pWideStr, iLength); 
bReturn = AddStringW (pWideStr); 
free (pWideStr); 


return bReturn ; 


EXPORT BOOL CALLBACK AddStringW (PCWSTR pStringln) 

{ 


PWSTR 

pString ; 

int i. 

iLength ; 

if (iTotal == 

MAX STRINGS — 1) 


return FALSE ; 

if ((iLength 

=wcslen (pStringln)) 


return FALSE ; 


// Allocate memory for storing string, copy it, convert to 


uppercase 

pString = malloc (sizeof (WCHAR) * (1 + iLength)); 
wcscpy (pString, pStringln); 

_wcsupr (pString); 

// Alphabetize the strings 
for (i = iTotal ; i > 0 ; i-) 

{ 

if (wcscmp (pString, szStrings[i - 1]) >= 0) 

break ; 

wcscpy (szStrings[i], szStrings[i - 1]); 

} 

wcscpy (szStrings[i], pString); 
iTotal++ ; 
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free (pString) ; 
return TRUE ; 

} 

EXPORT BOOL CALLBACK DeleteStringA (PCSTR pStringln) 

{ 

BOOL bReturn ; 

int iLength ; 

PWSTR pWideStr ; 

// Convert string to Unicode and call DeleteStringW 

iLength = MultiByteToWideChar (CP—ACP, 0, pStringln, -1, NULL, 0); 
pWideStr = malloc (iLength); 

MultiByteToWideChar (CP—ACP, ◦, pStringln, -1, pWideStr, iLength); 
bReturn = DeleteStringW (pWideStr); 
free (pWideStr); 

return bReturn ; 

} 

EXPORT BOOL CALLBACK DeleteStringW (PCWSTR pStringln) 

{ 

int i, j ; 

if (0 == wcslen (pStringln)) 

return FALSE ; 

for (i = ◦ ; i < iTotal ; i++) 

{ 

if (—wcsicmp (szStrings[i], pStringln) == 0) 

break ; 

} 

// If given string not in list, return without taking action 
if (i == iTotal) 

return FALSE ; 

// Else adjust list downward 
for (j = i ; j < iTotal ; j ++) 

wcscpy (szStrings[j], szStrings[j +1]); 
szStrings[iTotal-][0] = *\0 1 ; 
return TRUE ; 

} 

EXPORT int CALLBACK GetStringsA (GETSTRCB pfnGetStrCallBack, PVOID pParam) 

{ 

BOOL bReturn ; 

int i, iLength ; 

PSTR pAnsiStr ; 

for (i = ◦ ; i < iTotal ; i++) 
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// Convert string from Unicode 

iLength = WideCharToMultiByte ( CP—ACP, 0 , szStrings[i], -1, NULL, 0 , NULL, 

NULL); 

pAnsiStr = malloc (iLength); 

WideCharToMultiByte ( CP—ACP, 0 , szStrings [i] r - 1 , pAnsiStr, 

iLength, NULL, NULL); 

// Call callback function 
bReturn = pfnGetStrCallBack (pAnsiStr, pParam); 
if (bReturn == FALSE) 

return i + 1 ; 

free (pAnsiStr); 

} 

return iTotal ; 

} 

EXPORT int CALLBACK GetStringsW (GETSTRCB pfnGetStrCallBack, PVOID pParam) 

{ 

BOOL bReturn ; 

int i ; 

for (i = ◦ ; i < iTotal ; i++) 

{ 

bReturn = pfnGetStrCallBack (szStrings[i], pParam); 
if (bReturn == FALSE) 

return i + 1 ; 

} 

return iTotal ; 

} 

除了 DllMain 函式以外， STRLIB 中只有六个函式供其他函式输出用。所有 
这些函式都按 EXPORT 定义。这会使 LINK 在 STRLIB. LIB 引用程式库中列出它们。 

STRPR0G 程式 

STRPR0G 程式如程式 21-4 所示，其内容相当浅显易懂。两个功能表选项 
(Enter 和 Delete) 启动一个对话方块，让您输入一个字串，然後 STRPR0G 呼叫 
AddString 或者 DeleteString 0 当程式需要更新它的显示区域时，呼叫 
GetStrings 并使用函式 GetStrCallBack 来列出所列举的字串。 

程式 21-4 STRPR0G 

STRPROG.C 

/* - 
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STRPROG.C - Program using STRLIB dynamic-link library 

(c) Charles Petzold, 1998 



#include <windows.h> 
♦include "strlib.h" 
♦include "resource.h" 


typedef struct 


HDC 

int 

int 

int 

int 

int 

int 

int 

int 

} 

CBPARAM ; 


hdc ; 
xText ; 
yText ; 
xStart ; 
yStart ; 
xlncr ; 
ylncr ; 
xMax ; 
yMax ; 


LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName [] = TEXT ("StrProg"); 

TCHAR szString [MAX_LENGTH +1]; 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, 


iCmdShow) 


HWND 

MSG 

WNDCLASS 


hwnd ; 
msg ; 
wndclass ; 


int 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE—BRUSH); 
=szAppName ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT! n ), 
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return 0 ; 


szAppName, MB 工 CONERROR) ; 


hwnd = CreateWindow ( szAppName, TEXT ("DLL Demonstration Program"), 

WS_OVERLAPPEDWINDOW, 

CW_USEDEFAULT, CW_USEDEFAULT A 
CW—USEDEFAULT, CW—USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

BOOL CALLBACK DlgProc (HWND hDlg, UINT message, WPARAM wParam, LPARAM IParam) 

{ 

switch (message) 

{ 

case WM—INITDIALOG: 

SendDlgltemMessage (hDlg, IDC_STRING, EM_LIMITTEXT, MAX_LENGTH, ◦); 
return TRUE ; 

case WM—COMMAND: 

switch (wParam) 

{ 

case IDOK : 

GetDlgltemText (hDlg,IDC_STRING, szString,MAX_LENGTH); 

EndDialog (hDlg, TRUE); 
return TRUE ; 

case IDCANCEL: 

EndDialog (hDlg, FALSE); 
return TRUE ; 

} 

} 

return FALSE ; 


BOOL CALLBACK GetStrCalIBack (PTSTR pString, CBPARAM * pcbp) 

{ 

TextOut ( pcbp->hdc, pcbp->xText, pcbp->yText, 
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pString, lstrlen (pString)) ; 

if ((pcbp->yText += pcbp->ylncr) > pcbp->yMax) 

{ 

pcbp->yText = pcbp->yStart ; 

if ((pcbp—>xText += pcbp->xlncr) > pcbp->xMax) 

return FALSE ; 

} 

return TRUE ; 


LRESULT CALLBACK WndProc 
IParam) 

{ 

static HINSTANCE 
static int 
static UINT 
CBPARAM 
HDC 

PAINTSTRUCT 

TEXTMETRIC 


HWND hwnd, UINT message, WPARAM wParam, LPARAM 

h 工 n s t ; 

cxChar, cyChar, cxClient, cyClient ; 
iDataChangeMsg ; 

cbparam ; 

hdc ; 

ps ; 
tm ; 


switch (message) 

{ 

case WM—CREATE: 

hlnst = ((LPCREATESTRUCT) IParam)->hlnstance ; 

hdc = GetDC (hwnd); 

GetTextMetries (hdc, &tm); 

cxChar = (int) tm.tmAveCharWidth ; 

cyChar = (int) (tm.tmHeight + tm.tmExternalLeading); 

ReleaseDC (hwnd, hdc); 


// Register message for notifying instances of data changes 

iDataChangeMsg = RegisterWindowMessage (TEXT ("StrProgDataChange")); 

return 0 ; 
case WM_COMMAND : 

switch (wParam) 

{ 

case IDM_ENTER : 

if (DialogBox (hlnst, TEXT ("EnterDlg") , hwnd, &DlgProc)) 

{ 

if (AddString (szString)) 

PostMessage (HWND_B ROAD CAST, iDataChangeMsg, ◦, 0); 
else 

MessageBeep (0); 

} 

break ; 
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case 工 DM—DELETE: 

if (DialogBox (hlnst, TEXT ("DeleteDlg "), hwnd, &DlgProc)) 

{ 

if (DeleteString (szString)) 

PostMessage (HWND_BROADCAST, iDataChangeMsg, ◦, 0); 
else 

MessageBeep (0); 

} 

break ; 

} 

return 0 ; 


case WM SIZE: 


cxClient = 
cyClient = 
return 0 ; 


(int) LOWORD (IParam) 
(int) HIWORD (IParam) 



case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 


cbparam.hdc 
cbparam.xText 
cbparam.yText 
cbparam.xlncr 
cbparam.ylncr 
cbparam.xMax 


=hdc ; 

cbparam.xStart = cxChar ; 
cbparam.yStart = cyChar ; 
cxChar * MAX_LENGTH ; 
cyChar ; 

cbparam•xlncr * (1 + cxClient / cbparam•xlncr) 


cbparam.yMax 


cyChar * (cyClient / cyChar - 1) 


GetStrings ((GETSTRCB) GetStrCallBack, (PVOID) &cbparam); 


EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 


default : 


if (message == iDataChangeMsg) 

InvalidateRect (hwnd, NULL, TRUE); 


break ; 


return DefWindowProc (hwnd, message, wParam, IParam); 

} 

STRPROG.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h" 
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♦include "afxres.h" 

1111111111111111111111111111111111111111111111111111111111111111111111111111 
/ 

// Dialog 

ENTERDLG DIALOG DISCARDABLE 20, 20, 186, 47 

STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU 

CAPTION "Enter" 

FONT 8, "MS Sans Serif" 

BEGIN 

LTEXT "&Enter:",IDC_STATIC,7,7,26,9 

EDITTEXT 

IDC_STRING,31,7,148,12,ES—AUTOHSCROLL 

DEFPUSHBUTTON n OK n , 工 DOK,32,26,50,14 

PUSHBUTTON "Cancel", 工 DCANCEL,104,26,50,14 

END 

DELETEDLG DIALOG DISCARDABLE 20, 20, 186, 47 

STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU 

CAPTION "Delete" 

FONT 8, "MS Sans Serif" 

BEGIN 

LTEXT "^Delete:", 工 DC—STATIC,7,7,26,9 

EDITTEXT 

IDC_STRING,31,7,148,12,ES_AUTOHSCROLL 

DEFPUSHBUTTON "OK", 工 DOK,32,26,50,14 

PUSHBUTTON "Cancel", 工 DCANCEL,104,26,50,14 

END 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

STRPROG MENU DISCARDABLE 
BEGIN 

MENUITEM "&Enter!", 工 DM_ENTER 

MENUITEM "^Delete!", 

工 DM—DELETE 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by StrProg.rc 


♦define 
♦define 
#define 
#define 


IDC—STRING 
IDM_ENTER 
IDM—DELETE 
工 DC STATIC 


1000 

40001 

40002 

-1 


STRPROG . C 包含 STRLIB . H 表头档案，其中定义了 STRPROG 将使用的 STRLIB 
中的三个函式。 
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当您执行 STRPR 0 G 的多个执行实体的时候，本程式的奥妙之处就会显露出 
来。 STRLIB 将在共用记忆体中储存字串及其指标，并允许 STRPR 0 G 中的所有执 
行实体共用此资料。让我们看一下它是如何执行的吧。 

在 STRPR 0 G 执行实体之间共用资料 

Windows 在一个 Win 32 程序的位址空间周围筑了一道墙。通常，一个程序的 
位址空间中的资料是私有的，对别的程序而言是不可见的。但是执行 STRPR 0 G 
的多个执行实体表示了 STRLIB 在程式的所有执行实体之间共用资料是毫无问题 
的。当您在一个 STRPR 0 G 视窗中增加或者删除一个字串时，这种改变将立即反 
映在其他的视窗中。 

在全部常式之间， STRLIB 共用两个 变数： 一个字元阵列和一个整数（记录 
已储存的有效字串的个数）。 STRLIB 将这两个变数储存在共用的一个特殊记忆 
体区段中： 

#pragma data_seg (’’shared ’'） 

int iTotal = 0 ; 

WCHAR szStrings [MAX_STRINGS][MAX_LENGTH + 1] = { '\0 1 }; 

#pragma data_seg () 

第一个 # pmgma 叙述建立资料段，这里命名为 shared 。 您可以将这段命名 
为任何一个您喜欢的名字。在这里 K # pragma 叙述之後的所有初始化了的变数都 
放在 shared 资料段中。第二个 ftpragma 叙述标示段的结束。对变数进行专门的 
初始化是很重要的，否则编译器将把它们放在普通的未初始化资料段中而不是 
放在 shared 中。 

连结器必须知道有一个 「 shared 」 共享资料段。在 「Project Settings 」 
对话方块选择 「 Link 」 页面标签。选中 rSTRLIBJ 时在 「Project Options 」 栏 
位（在 Release 和 Debug 设定中均可），包含下面的连结叙述： 

/SECTION : shared,RWS 

字母 RWS 表示段具有读、写和共用属性。或者，您也可以直接用 DLL 原始 
码指定连结选项，就像我们在 STRLIB . C 那样： 

#pragma comment (linker, " / SECTION : shared, RWS ’’） 

共用的记忆体段允许 iTotal 变数和 szStrings 字串阵列在 STRLIB 的所有 
常式之间共用。因为 MAX + STRINGS 等於256，而 MAXJLENGTH 等於63，所以，共 
用记忆体段的长度为32, 772位元组—— iTotal 变数需要4位元组，256个指标 
中的每一个都需要128位元组。 

使用共用记忆体段可能是在多个应用程式间共用资料的最简单的方法。如 
果需要动态配置共用记忆体空间，您应该查看记忆体映射档案物件的用法，文 
件在 /Platform SDK/Windows Base Services/Interprocess 
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Communication/File Mapping 。 


各式各样的 DLL 讨论 


如前所述，动态连结程式库模组不接收讯息，但是，动态连结程式库模组 
可呼叫 GetMessage 和 PeekMessage 。 实际上，从讯息仁列中得到的讯息是发给 
呼叫程式库函式的程式的。一般来说，程式库是替呼叫它的程式工作的，这是 
一 项对程式库所呼叫的大多数 Windows 函式都适用的规则。 

动态连结程式库可以从程式库档案或者从呼叫程式库的程式档案中载入资 
源（如图示、字串和点阵图）。载入资源的函式需要执行实体代号。如果程式 
库使用它自己的执行实体代号（初始化期间传给程式库的），则程式库能从它 
自己的档案中获得资源。为了从呼叫程式的 . EXE 档案中得到资源，程式程式库 
函式需要呼叫该函式的程式的执行实体代号。 

在程式库中登录视窗类别和建立视窗需要一点技巧。视窗类别结构和 
CreateWindow 呼叫都需要执行实体代号。尽管在建立视窗类别和视窗时可使用 
动态连结程式库模组的执行实体代号，但在程式库建立视窗时，视窗讯息仍会 
发送到呼叫程式库中程式的讯息伫列。如果使用者必须在程式库中建立视窗类 
别和视窗，最好的方法可能是使用呼叫程式的执行实体代号。 

因为模态对话方块的讯息是在程式的讯息回圈之外接收到的，因此使用者 
可以在程式库中呼叫 DialogBox 来建立模态对话方块。执行实体代号可以是程 
式库代号，并且 DialogBox 的 hwndParent 参数可以为 NULL 。 

不用输入引用资讯的动态连结 

除了在第一次把使用者程式载入记忆体时，由 Windows 执行动态连结外， 
程式执行时也可以把程式同动态连结程式库模组连结到一起。例如，您通常会 
这样呼叫 Rectangle 函式： 

Rectangle (hdc, xLeft, yTop, xRight, yBottom); 

因为程式和 GDI 32. LIB 引用程式库连结，该程式库提供了 Rectangle 的位 
址，因此这种方法有效。 

您也可以用更迂回的方法呼叫 Rectangle 。 首先用 typedef 为 Rectangle 定 
义一个函式 型态： 

typedef BOOL (WINAPI * PFNRECT) (HDC, int, int, int, int); 

然後定义两个变数： 

HANDLE hLibrary ; 

PFNRECT pfnRectangle ; 

现在将 hLibrary 设定为程式库代号，将 lpfnRectangle 设定为 Rectangle 
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函式的位址. • 

hLibrary = LoadLibrary (TEXT (’ ， GDI32 • DLL")) 

pfnRectangle = (PFNPRECT) GetProcAddress (hLibrary, TEXT ("Rectangle")) 

如果找不到程式库档案或者发生其他一些错误， LoadLibrary 函式传回 
NULL 。 现在您可以呼叫函式然後释放程 式库： 

pfnRectangle (hdc, xLeft, yTop, xRight, yBottom); 

FreeLibrary (hLibrary); 

尽管这项执行时期动态连结的技术并没有为 Rectangle 函式增加多大好处， 
但它肯定是有用的，如果直到执行时还不知道程式动态连结程式库模组的名称， 
这时就需要使用它。 

上面的程式码使用了 LoadLibrary 和 FreeLibrary 函式。 Windows 为所有的 
动态连结程式库模组提供「引用计数」， LoadLibrary 使引用计数递增。当 Windows 
载入任何使用了程式库的程式时，引用计数也会递增。 FreeLibrary 使引用计数 
递减，在使用了程式库的程式执行实体结束时也是如此。当引用计数为零时， 
Windows 将从记忆体中把程式库删除掉，因为不再需要它了。 

纯资源程式库 

可由 Windows 程式或其他程式库使用的动态连结程式库中的任何函式都必 
须被输出。然而， DLL 也可以不包含任何输出函式。那么， DLL 到底包含什么呢？ 
答案是资源。 

假设使用者正在使用需要几幅点阵图的 Windows 应用程式进行工作。通常 
要在程式的资源描述档中列出资源，并用 LoadBitmap 函式把它们载入记忆体。 
但使用者可能希望建立若干套点阵图，每一套均适用於 Windows 所使用的不同 
显示卡。将不同套的点阵图存放到不同档案中可能是明智的，因为只需要在硬 
碟上保留一套点阵图。这些档案就是纯资源档案。 

程式 21-5 说明如何建立包含9幅点阵图的名为 BITLIB . DLL 的纯资源程式 
库档案。 BITLIB . RC 档案列出了所有独立的点阵图档案并为每个档案赋予一个序 
号。为了建立 BHLIB . DLL ， 需要9幅名为 MTMAP 1. BMP 、 BITMAP 2. BMP 等等的点 
阵图。您可以使用附带的光碟上提供的点阵图或者在 Visual C ++ 中建立这些点 
阵图。它们与 ID 从1到9相对应。 

程式 21-5 BITLIB 

BITLIB.C 

/* - 

BITLIB.C --Code entry point for BITLIB dynamic-link library 

(c) Charles Petzold, 1998 

- V 
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♦include <windows.h> 

int WINAPI DllMain (HINSTANCE hlnstance, DWORD fdwReason, PVOID pvReserved) 

{ 

return TRUE ; 

} 

BITLIB.RC (摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 


// Bitmap 


1 

BITMAP 

DISCARDABLE 

"bitmapl. bmp’’ 

2 

BITMAP 

DISCARDABLE 

"bitmap2.bmp" 

3 

BITMAP 

DISCARDABLE 

M bitmap3. bmp’’ 

4 

BITMAP 

DISCARDABLE 

"bitmap4.bmp" 

5 

BITMAP 

DISCARDABLE 

n bitmap5. bmp’’ 

6 

BITMAP 

DISCARDABLE 

’’bitmap6 • bmp’’ 

7 

BITMAP 

DISCARDABLE 

"bitmap7.bmp" 

8 

BITMAP 

DISCARDABLE 

"bitmap8 . bmp’’ 

9 

BITMAP 

DISCARDABLE 

"bitmap9.bmp" 


在名为 SHOWBIT 的工作空间中建立 BITLIB 专案。在名为 SH 0 WBIT 的另一个 
专案中，建立程式 21-6 所示的 SH 0 WBFT 程式，这与前面的一样。不过，不要使 
BITLIB 依赖於 SH 0 WBH ; 否则，连结程序中将需要 BITLIB . LIB 档案，并且因为 
BITLIB 没有任何输出函式，它也不会建立 BITLIB . LIB 。 事实上，要分别重新编 
译 BITLIB 和 SH 0 WBIT ， 可以交替设定其中一个为 「Active Project 」 然後再重 
新编译。 

SH 0 WBFT . C 从 BITLIB 读取点阵图资源，然後在其显示区域显示。按键盘上 


的任意键可以循环显示。 

程式 21-6 SHOWBIT 


SHOWBIT.C 

卜 - 



SHOWBIT.C 

--Shows bitmaps in BITLIB dynamic-link library 

(c) Charles Petzold, 1998 

* 


♦include <windows.h> 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName [] = TEXT ("ShowBit"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int 
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iCmdShow) 

{ 

HWND 

MSG 

WNDCLASS 


hwnd ; 
msg ; 
wndclass ; 


wndclass.style = CS_HREDRAW | CS—VREDRAW ; 

wndclass.lpfnWndProc = WndProc ; 


wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 


=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION) 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) GetStockObject (WHITE BRUSH) 


wndclass.IpszMenuName = NULL ; 


wndclass.IpszClassName = szAppName ; 


if ( !RegisterClass 

(&wndclass)) 

MessageBox ( 

NULL, TEXT 

return 1 

0 ; 


("This program requires Windows NT! n ), 

szAppName, MB ICONERROR); 


hwnd = CreateWindow (szAppName, 

TEXT (" Show Bitmaps from BITLIB (Press Key )'，）， 
WS_OVERLAPPEDWINDOW, 

CW—USEDEFAULT, CW—USEDEFAULT, 

CW_USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 


if (!hwnd) 

return 0 ; 

ShowWindow (hwnd, iCmdShow); 
UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 


} 

return msg 

.wParam ; 

void 

: 

DrawBitmap 

(HDC hdc, int xStart, int yStart, HBITMAP hBitmap) 

i 

BITMAP 

bm ; 


HDC 

hMemDC ; 
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POINT pt ; 

hMemDC = CreateCompatibleDC (hdc); 

SelectObj ect (hMemDC, hBitmap); 

GetObject (hBitmap, sizeof (BITMAP), &bm); 
pt•x = bm.bmWidth ; 
pt•y = bm.bmHeight ; 

BitBlt (hdc, xStart, yStart, pt.x, pt.y, hMemDC, 0, ◦, SRCCOPY); 
DeleteDC (hMemDC); 


LRESULT CALLBACK WndProc ( 

IParam) 

{ 

static HINSTANCE 
static int 
HBITMAP 
HDC 

PAINTSTRUCT 

switch (message) 

{ 

case WM—CREATE: 

if ( (hLibrary = LoadLibrary (TEXT ("BITLIB • DLL，'）））== NULL) 

{ 

MessageBox ( hwnd, TEXT ("Can't load BITLIB • DLL •，'）， 

szAppName, 0); 

return -1 ; 

} 

return 0 ; 
case WM—CHAR: 

if (hLibrary) 

{ 

iCurrent ++ ; 

InvalidateRect (hwnd, NULL, TRUE); 

} 

return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

if (hLibrary) 

{ 

hBitmap = LoadBitmap (hLibrary, MAKEINTRESOURCE (iCurrent)); 

if (!hBitmap) 


HWND hwnd, UINT message, WPARAM wParam, LPARAM 


hLibrary ; 


iCurrent = 1 ; 

hBitmap ; 
hdc 

ps ; 
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iCurrent = 1 ; 

hBitmap = LoadBitmap ( hLibrary, 
MAKEINTRESOURCE (iCurrent)); 

} 

if (hBitmap) 

{ 

DrawBitmap (hdc, hBitmap); 

DeleteObj ect (hBitmap); 

} 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

if (hLibrary) 

FreeLibrary (hLibrary); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

在处理 WM _ CREATE 讯息处理期间， SHOWBIT 获得了 BITLIB . DLL 的 代号： 

if ((hLibrary = LoadLibrary (TEXT ("BITLIB•DLL n ))) == NULL) 

如果 BITLIB . DLL 与 SHOWBIT . EXE 不在同一个目录， Windows 将按本章前面 
讨论的方法搜索。如果 LoadLibrary 传回 NULL ， SHOWBIT 显示一个讯息方块来 
报告错误，并从 WM _ CREATE 讯息传回-1。这将导致 WinMain 中的 CreateWindow 
呼叫传回 NULL ， 而且程式终止程式。 

SHOWBIT 透过程式库代号和点阵图号码来呼叫 LoadBitmap ， 从而得到一个 
点阵图代号： 

hBitmap = LoadBitmap (hLibrary, MAKEINTRESOURCE (iCurrent)); 

如果号码 iCurrent 对应的点阵图无效或者没有足够的记忆体载入点阵图， 
则传回一个错误。 

在处理 WM _ DESTROY 讯息时， SHOWBIT 释放程 式库： 

FreeLibrary (hLibrary) ; 

当 SHOWBIT 的最後一个执行实体终止时， BITLIB . DLL 的引用计数变为0， 
并且释放所占用的记忆体。这就是实作「图片剪辑」程式的一种简单方法，所 
谓的「图片剪辑」程式就是能够将预先建立的点阵图（或者 metafile , 增强型 
metafile ) 载入到剪贴簿，以供其他程式使用的程式。 
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第二十二章声音与音乐 

在 Microsoft Windows 中，声音、音乐与视讯的综合运用是一个重要的进 
步。对多媒体的支援起源於1991年所谓的 Microsoft Windows 多媒体延伸功能 
(Multimedia Extensions to Microsoft Windows ) 。 1992 年 ， Windows 3. 1 

的发布使得对多媒体的支援成为另一类 API 。 最近几年， CD - ROM 驱动器和音效 
卡——在90年代初期还很少见 一一 已成为新 PC 的标准配备。现在，几乎所有 
的人们都 深信： 多媒体在很大程度上有益於 Windows 的视觉化图形，从而使电 
脑摆脱了其只是处理数字和文字的机器的传统角色。 

WINDOWS 和多媒体 

从某种意义上来说，多媒体就是透过与装置无关的函式呼叫来获得对各种 
硬体的存取。让我们首先看一下硬体，然後再看看 Windows 多媒体 API 的结构。 

多媒体硬体 

或许最常用的多媒体硬体就是波形声音设备，也就是平常所说的音效卡。 
波形声音设备将麦克风的输入或其他声音输入转换为数位取样，并将其储存到 
记忆体或者储存到以 . WAV 为副档名的磁碟档案中。波形声音设备还将波形转换 
回类比声音，以便通过 PC 扩音器来播放。 

音效卡通常还包含 MIDI 设备。 MIDI 是符合工业标准的乐器数位化介面 
(Musical Instrument Digital Interface ) 。这类硬体播放音符以回应短的 
二进位命令讯息。 MIDI 硬体通常还可以通过电缆连结到如音乐键盘等的 MIDI 输 
入设备上。通常，外部的 MIDI 合成器也能够添加到音效卡上。 

现在，大多数 PC 上的⑶ - ROM 驱动器都具备播放普通音乐⑶的能力。这就 
是平常所说的 「 CD 声音」。来自波形声音设备、 MIDI 设备以及 CD 声音设备的 
输出，一般在使用者的控制下用「音量控制」程式混合在一起。 

另外几种普遍的多媒体「设备」不需要额外的硬体。 Windows 视讯设备（也 
称作 AVI 视讯设备）播放副档名为 .AVI ( audio-video interleave ： 声音视频 
插格）的电影或动画档案。 「 ActiveMovie 控制项」可以播放其他型态的电影， 
包括 QuickTime 和 MPEG 。 PC 上的显示卡需要特定的硬体来协助播放这些电影。 

还有个别 PC 使用者使用某种 Pioneer 雷射影碟机或者 Sony VISCA 系列录 
放影机。这些设备都有序列埠介面，因此可由 PC 软体来控制。某些显示卡具有 
一 种称为「视窗影像 (video in a window ) 」的功能，此功能允许一个外部的 
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视讯信号与其他应用程式一起出现在 Windows 的蛮幕上。这也可认为是一种多 
媒体设备。 

API 概述 

在 Windows 中， API 支援的多媒体功能主要分成两个集合。它们通常称为「低 
阶」和「高阶」介面。 

低阶介面是一系列函式，这些函式以简短的说明性字首开头，而且在 
/Platform SDK/Graphics and Multimedia Services/Multimedia 
Reference/Multimedia Functions (与高阶函式一▲起)中列出。 

低阶的波形声音输入输出函式的字首是 waveln 和 waveOut 。 我们将在本章 
看到这些函式。另外，本章还讨论用 midiOut 函式来控制 MIDI 输出设备。这些 
API 还包括 midiin 和 midiStream 函式。 

本章还使用字首为 time 的函式，这些函式允许设定一个高解析度的计时器 
常式，其计时器的时间间隔速率最低能够到1毫秒。此程式主要用於播放 MIDI 
音乐。其他几组函式包括声音压缩、视讯压缩以及动画和视讯序列，可惜的是 
本章不包括这些函式。 

您还会注意到多媒体函式列表中七个带有字首 mci 的函式，它们允许存取 
媒体控制介面 ( MCI ： Media Control Interface ) 。这是一个高阶的开放介面， 
用於控制多媒体 PC 中所有的多媒体硬体。 MCI 包括所有多媒体硬体都共有的许 
多命令，因为多媒体的许多方面都以磁带答录机这类设备播放/记录方式为模 
型。您为输入或输出而「打开」一台设备，进而可以「录音」（对於输入）或 
者「播放」（对於输出），并且结束後可以「关闭」设备。 

MCI 本身分为两种形式。一种形式下，可以向 MCI 发送讯息，这类似於 
Windows 讯息。这些讯息包括位元编码标记和 C 资料结构。另一种形式下，可以 
向 MCI 发送文字字串。这个程式主要用於描述命令语言，此语言具有灵活的字 
串处理函式，但支援呼叫 Windows API 的函式不多。字串命令版的 MCI 还有利 
於交互研究和学习 MCI , 我们马上就举一个例子。 MCI 中的设备名称包括 CD 声 
音 （ cdaudio ) 、波形音响 （ waveaudio) 、 MIDI 编曲器 （ sequencer ) 、影碟机 
( videodisc ) 、 vcr、overlay (视窗中的类比视频 ）、 dat (digital audio tape ： 
数位式录频磁带）以及数位视频 （ digitalvideo ) 。 MCI 设备分为「简单型」和 
「混合型」。简单型设备（如⑶声音）不使用档案。混合型设备（如波形音响) 
则使用档案。使用波形音响时，这些档案的副档名是 . WAV 。 

存取多媒体硬体的另一种方法包括 DirectX API ， 它超出了本书的范围。 

另外两个高阶多媒体函式也值得一提： MessageBeep 和 PlaySound ， 它们在 
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第三章有示范。 MessageBeep 播放「控制台」的「声音」中指定的声音。 PlaySound 
可播放磁碟上、记忆体中或者作为资源载入的 .WAV 档案。本章的後面还会用到 
PlaySound 函式。 

用 TESTMCI 研究 MCI 


在 Windows 多媒体的早期，软体开发套件含有一个名为 MCITEST 的 C 程式， 
它允许程式写作者交谈式输入 MCI 命令并学习这些命令的工作方式。这个程式， 
至少是 C 语言版，显然已经消失了。因此，我又重新建立了它，即程式 22-1 所 
示的 TESTMCI 程式。虽然我不认为目前程式码与旧的程式码有什么区别，但现 
在的使用者介面还是依据以前的 MCITEST 程式，并且没有使用现在的程式码。 


程式 22-1 TESTMCI 


TESTMCI•C 
卜 - 


TESTMCI.C -- MCI Command String Tester 


(c) Charles Petzold, 1998 



♦include <windows.h> 
♦include "resource.h" 


♦define ID_TIMER 1 

BOOL CALLBACK DlgProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName [] = TEXT ("TestMci"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


{ 

if (-1 == DialogBox (hlnstance, szAppName, NULL, DlgProc)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT! n ), 

szAppName, MB_ICONERROR); 

} 

return 0 ; 

} 

BOOL CALLBACK DlgProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 

IParam) 

{ 

static HWND hwndEdit ; 

int iCharBeg, iCharEnd, iLineBeg, iLineEnd, iChar, iLine, iLength ; 

MCIERROR error ; 

RECT rect ; 
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TCHAR 


szCommand [ 1024 ] , szReturn [102 4] , 

szError [1024], szBuffer [32]; 


switch (message) 

{ 

case WM_INITDIALOG: 

// Center the window on screen 


GetWindowRect (hwnd, &rect); 

SetWindowPos (hwnd, NULL, 

(GetSystemMetrics (SM—CXSCREEN) - rect.right + rect.left) / 2, 
(GetSystemMetrics (SM—CYSCREEN) - rect.bottom + rect.top) / 2, 
◦, 0, SWP NOZORDER | SWP NOSIZE); 


hwndEdit = GetDlgltem (hwnd, IDC_MAIN_EDIT); 
SetFocus (hwndEdit); 
return FALSE ; 


case WM_COMMAND : 

switch (LOWORD (wParam)) 

{ 

case 工 DOK: 

// Find the line numbers corresponding to the selection 


SendMessage (hwndEdit, EM—GETSEL, (WPARAM) &iCharBeg, 

(LPARAM) &iCharEnd); 


iLineBeg = SendMessage (hwndEdit, EM—LINEFROMCHAR, iCharBeg, 0); 
iLineEnd = SendMessage (hwndEdit, EM—LINEFROMCHAR, iCharEnd, 0); 

// Loop through all the lines 

for (iLine = iLineBeg ; iLine <= iLineEnd ; iLine++) 

{ 

// Get the line and terminate it; ignore if blank 

* (WORD *) szCommand = sizeof (szCommand) / sizeof (TCHAR); 

iLength = SendMessage (hwndEdit, EM—GETLINE, iLine, 

(LPARAM) szCommand); 
szCommand [ iLength] = , \0 , ; 

if (iLength == 0) 
continue ; 

// Send the MCI command 

error = mciSendstring (szCommand, s zReturn, 
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sizeof (szReturn) / sizeof (TCHAR) , hwnd); 

// Set the Return String field 

SetDlgltemText (hwnd, IDC_RETURN_STRING, szReturn); 

// Set the Error String field (even if no error) 

mciGetErrorString (error, szError, sizeof (szError) / sizeof (TCHAR)); 

SetDlgltemText (hwnd, IDC_ERROR_STRING, szError); 

} 

// Send the caret to the end of the last selected line 

iChar = SendMessage (hwndEdit, EM—LINEINDEX, iLineEnd, 0); 
iChar += SendMessage (hwndEdit, EM_LINELENGTH, iCharEnd, 0); 
SendMessage (hwndEdit, EM—SETSEL, iChar, iChar); 

// Insert a carriage return/line feed combination 

SendMessage (hwndEdit, EM—REPLACESEL, FALSE, 

(LPARAM) TEXT ( n \r\n n )); 

SetFocus (hwndEdit); 
return TRUE ; 

case IDCANCEL: 

EndDialog (hwnd, 0); 
return TRUE ; 
case IDC_MAIN_EDIT: 

if (HIWORD (wParam) == EN_ERRSPACE) 

{ 

MessageBox (hwnd, TEXT ("Error control out of space. ▼’）， 

szAppName, MB_OK | MB_ICONINFORMATION); 
return TRUE ; 

} 

break ; 

} 

break ; 

case MM—MCINOTIFY: 

EnableWindow (GetDlgltem (hwnd, IDC—NOTIFY—MESSAGE), TRUE); 

wsprint f (szBuffer, TEXT ("Device ID = %i’’ ）， IParam); 
SetDlgltemText (hwnd, IDC—NOTIFY—ID, szBuffer); 
EnableWindow (GetDlgltem (hwnd, 工 DC—NOTIFY_ID), TRUE); 

EnableWindow (GetDlgltem (hwnd, 工 DC—NOTIFY—SUCCESSFUL), 
wParam & MCI NOTIFY SUCCESSFUL); 
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EnableWindow (GetDlgltem (hwnd, 工 DC—NOTIFY—SUPERSEDED) , 
wParam & MCI NOTIFY SUPERSEDED); 


EnableWindow (GetDlgltem (hwnd, IDC_NOTIFY_ABORTED), 
wParam & MCI NOTIFY ABORTED); 


EnableWindow (GetDlgltem (hwnd, IDC_NOTIFY_FAILURE), 
wParam & MCI NOTIFY FAILURE); 


SetTimer (hwnd A ID_TIMER, 5000, NULL); 
return TRUE ; 


case WM—TIMER: 

KillTimer (hwnd, ID TIMER); 


EnableWindow 
EnableWindow 
EnableWindow 
EnableWindow 
EnableWindow 
EnableWindow 
return TRUE ; 


(GetDlgltem 

(GetDlgltem 

(GetDlgltem 

(GetDlgltem 

(GetDlgltem 

(GetDlgltem 


(hwnd, IDC_NOTIFY_MESSAGE), FALSE); 
(hwnd A IDC_NOTIFY_ID), FALSE); 

(hwnd, IDC_NOTIFY_SUCCESSFUL), FALSE); 
(hwnd, IDC_NOTIFY_SUPERSEDED), FALSE); 
(hwnd, IDC_NOTIFY_ABORTED), FALSE); 
(hwnd, IDC NOTIFY FAILURE), FALSE); 


case WM_SYSCOMMAND: 

switch (LOWORD (wParam)) 

{ 

case SC_CLOSE: 

EndDialog (hwnd, 0); 
return TRUE ; 

} 

break ; 

} 

return FALSE ; 

} 

TESTMCI.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h n 
♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Dialog 

TESTMCI DIALOG DISCARDABLE ◦, ◦, 270, 276 

STYLE WS_MINIMIZEBOX | WS—VISIBLE | WS_CAPTION | WS_SYSMENU 

CAPTION n MC 工 Tester" 

FONT 8, "MS Sans Serif" 

BEGIN 
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EDITTEXT 
ES—AUTOHSCROLL | 

LTEXT 

EDITTEXT 

I NOT WS_TABSTOP 
LTEXT 
EDITTEXT 

WS_TABSTOP 

GROUPBOX 

LTEXT 

LTEXT 


IDC MAIN EDIT,8,8,254,100,ES MULTILINE 


WS—VSCROLL 

"Return String:", 工 DC_STATIC,8,114, 60,8 
工 DC_RETURN_STRING,8,126,120,50,ES_MULTILINE | 

ES—AUTOVSCROLL I ES_READONLY | WS_GROUP 

"Error String:",IDC_STATIC,142,114,60,8 
IDC_ERROR_STRING,142,126,120,50,ES_MULTILINE | 

ES_AUTOVSCROLL | ES_READONLY | NOT 

n MM_MCINOTIFY Message",IDC_STATIC,9,186,254,58 
nn ，工 DC NOTIFY ID,26,198,100,8 


n MCI NOTIFY SUCCESSFUL ，'， 工 DC NOTIFY SUCCESSFUL, 2 6,212,1 ◦ 0 , 


LTEXT 


8,WS DISABLED 


n MC 工 NOTIFY SUPERSEDED” ， 工 DC NOTIFY SUPERSEDED,26,226,1◦◦, 


LTEXT 


8,WS DISABLED 


"MCI NOTIFY ABORTED",IDC NOTIFY ABORTED,144,212,100,8, 


LTEXT 


WS DISABLED 


n MCI—NOTIFY_FAILURE n ,IDC_NOTIFY_FAILURE,144,226,100,8, 

WS_DISABLED 

DEFPUSHBUTTON "OK" A 工 DOK, 57,255,50,14 

PUSHBUTTON "Close", 工 DCANCEL,162,255,50,14 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by TestMci.rc 


♦define 工 DC—MAIN—EDIT 1000 

♦define 工 DC—NOTIFY—MESSAGE 1005 

♦define 工 DC_NOTIFY_ID 1006 

♦define 工 DC—NOTIFY—SUCCESSFUL 1007 

♦define IDC—NOTIFY—SUPERSEDED 1008 

♦define 工 DC—NOTIFY—ABORTED 1009 

♦define 工 DC_NOTIFY_FAILURE 1010 

#define IDC_SIGNAL_MESSAGE 1011 

♦define 工 DC—SIGNAL—ID 1012 

♦define 工 DC—SIGNAL—PARAM 1013 

♦define 工 DC—RETURN—STRING 1014 

♦define 工 DC—ERROR—STRING 1015 

♦define IDC—DEVICES 1016 

♦define 工 DC STATIC -1 


与本章的大多数程式一样， TESTMCI 使用非模态对话方块作为它的主视窗。 
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与本章所有的程式一样， TESTMCI 要求 WINMM . LIB 引用程式库在 Microsoft 
Visual C ++ rProjects Settings 」 对话方块的 「 Links 」 页列出。 

此程式用到了两个最重要的多媒体函式： mciSendString 和 
mciGetEirorText 。 在 TESTMCI 的主编辑视窗输入一些内容然後按下 Enter 键(或 
rOKj 按钮）後，程式将输入的字串作为第一个参数传递给 mciSendString 命 
令： 

error = mciSendString (szCommand, s zReturn, 

sizeof (szReturn) / sizeof (TCHAR), hwnd); 

如果在编辑视窗选择了不止一行，则程式将按顺序将它们发送给 
mciSendString 函式。第二个参数是字串位址，此字串取得从函式传回的资讯。 
程式将此资讯显示在视窗的 rReturn String ] 区域。从 mciSendString 传回的 
错误代码传递给 mciGetErrorString 函式，以获得文字错误说明；此说明显示 
在 TESTMCI 视窗的 rError String 」 区域。 

MCITEH 和 CD 声音 

通过控制⑶ - ROM 驱动器和播放声音⑶，您会对 MCI 命令字串留下很好的印 
象。因为这些命令字串一般都非常简单，并且更重要的是您可以听到一些音乐， 
所以这是好的起点。您可以在 /Platform SDK/Graphics and Multimedia 
Services/Multimedia Reference/Multimedia Command Strings 中获得 MCI 命 

令字串的参考，以方便本练习。 

请确认 CD - ROM 驱动器的声音输出已连结到扩音器或耳机，然後放入一张声 
音 CD ， 如 Bruce Springsteen 的 「Born to Run」 。 Windows 98 中 ， 「CD 播放 

程式」将启动并开始播放此唱片。如果是这样的话，终止 「 CD 播放程式」，然 
後可以叫出 TESTMCI 并且键入 命令： 

open cdaudio 

然後按 Enter 键。其中 open 是 MCI 命令， cdaudio 是 MCI 认定的 CD - ROM 驱 
动器的设备名称（假定您的系统中只有一个⑶ - ROM 驱动器。要获得多个 ⑶ -ROM 
驱动器名称需使用 sysinfo 命令）。 

TESTMCI 中的 rReturn String 」 区域显示 mciSendString 函式中系统传回 
给程式的字串。如果执行了 open 命令，则此值是1。 TESTMCI 在 [Error String ] 
区域中显示 mciGetErrorString 依据 mciSendString 传回值所传回的资讯。如 
果 mciSendString 没有传回错误代码，则 「Error String 」 区域显示文字 "The 
specified command was carried out " 0 

假定执行了 open 命令，现在就可以 输入： 

play cdaudio 
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CD 将开始播放唱片上的第一首乐曲 rThunder Road 」 。输入下面的命令可 
以暂停 播放： 

pause cdaudio 

或者 

stop cdaudio 

对於⑶声音设备来说，这些叙述的功能相同。您可用下面的叙述重新播放: 

play cdaudio 

迄今为止，我们使用的全部字串都由命令和设备名称组成。其中有些命令 
带有选项。例如，键入： 

status cdaudio position 

根据收听时间的长短 ， 「Return String 」 区域将显示类似下面的一些 字元: 
01:15:25 

这是些什么？很显然不是小时、分钟和秒，因为⑶没有那么长。要找出时 
间格式，请键入： 

status cdaudio time format 

现在 rReturn String 」 区域显示下面的字串： 
msf 

这代表「分-秒-格」。 CD 声音中，每秒有75格。时间格式的讯格部分可在 
0到74之间的范围内变化。 

状态命令有一连串的选项。使用下面的命令，您可以确定 msf 格式的⑶全 
部长度： 

status cdaudio length 

对於 「Born to Run」 ， 「Return String 」 区域将显示： 

39:28:19 

这指的是 39 分 28 秒19格。 

现在试一下 

status cdaudio number of tracks 
rReturn String 」 区域将显示： 

8 

我们从⑶封面上知道 「Bom to Run 」 ⑶上第五首乐曲是主题曲。 MCI 命 
令中的乐曲从1开始编号。要想知道乐曲 「Born to Run 」 的长度，可以键入下 
面的命令： 

status cdaudio length track 5 

rReturn String 」 区域将显示： 

04:30:22 

我们还可确定此乐曲从盘上的哪个位置 开始： 
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status cdaudio position track 5 
rReturn String 」 区域将显示： 

17:36:35 

根据这条资讯，我们可以直接跳到乐曲 标题： 
play cdaudio from 17:36:35 to 22:06:57 

此命令只播放一首乐曲，然後停止。最後的值是由4:30:22 (乐曲长度）加 
17:36:35得到的。或者，也可以用下面的命令 确定： 
status cdaudio position track 6 

或者，也可以将时间格式设定为乐曲-分-秒 -格： 

set cdaudio time format tmsf 

然後 

play cdaudio from 5:0:0:0 to 6:0:0:0 

或者，更简单地 

play cdaudio from 5 to 6 

如果时间的尾部是0,那么您可去掉它们。还可以用毫秒设定时间格式。 
每个 MCI 命令字串都可以在字串的後面包括选项 wait 和 notify (但不是同 
时使用）。例如，假设您只想播放 「Born to Run 」 的前10秒，而且播放後， 
您还想让程式完成其他工作。您可按下面的方法进行（假定您已经将时间格式 
设定为 tmsf ) : 

play cdaudio from 5:0:0 to 5:0:10 wait 

这种情况下，直到函式执行结束，也就是说，直到播放完 「Born to Run 」 
的前10秒， mciSendString 函式才传回。 

现在很明显，一般来说，在单执行绪的应用程式中这不是一件好事。如果 
不小心 键入： 

play cdaudio wait 

直到整个唱片播放完以後， mciSendString 函式才将控制权传回给程式。如 
果必须使用 wait 选项（在只要执行 MCI 描述档案而不管其他事情的时候，这么 
做很方便，与我将展示的一样），首先使用 break 命令。此命令可设定一个虚 
拟键码，此码将中断 mciSendString 命令并将控制权传回给程式。例如，要设 
定 Escape 键来实作此目的，可用： 
break cdaudio on 27 
这里，27是十进位的 VK _ ESCAPE 值。 

比 wait 选项更好的是 notify 选项： 

play cdaudio from 5:0:0 to 5:0:10 notify 
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这种情况下， mciSendString 函式立即传回，但如果该操作在 MCI 命令的尾 
部定义，则 mciSendString 函式的最後一个参数所指定代号的视窗会收到 
MM _ MCINOnFY 讯息。 TESTMCI 程式在 MM + MCINOHFY 框中显示此讯息的结果。为 
避免与其他可能键入的命令混淆， TESTMCI 程式在5秒後停止显示 MM_MCINOTIFY 
讯息的结果。 

您可以同时使用 wait 和 notify 关键字，但没有理由这么做。不使用这两 
个关键字，内定的操作就既不是 wait ， 也不是您通常所希望的 notify 。 

用这些命令结束播放时，可键入下面的命令来停 止⑶： 

stop cdaudio 

如果在关闭之前没有停止⑶ - ROM 设备，那么甚至在关闭设备之後还会继续 
播放 CD 。 

另外，您还可以试试您的硬体允许或者不允许的一些 命令： 

eject cdaudio 

最後按下面的方法关闭 设备： 

close cdaudio 

虽然 TESTMCI 自己不能储存或载入文字档案，但可以在编辑控制项和剪贴 
簿之间复制 文字： 先从 TESTMCI 选择一些内容，将其复制到剪贴簿（用 Ctrl - C ), 
再将这些文字从剪贴簿复制到「记事本」，然後储存。相反的操作，可以将一 
系列的 MCI 命令载入到 TESTMCIo 如果选择了一系列命令然後按下 「0 K 」 按钮（或 
者 Enter 键），则 TESTMCI 将每次执行一条命令。这就允许您编写 MCI 的「描 
述档案」，即 MCI 命令的简单列表。 

例如，假设您想听歌曲 rjunglelandj (唱片中的最後一首 ）、 「Thunder 
Road 」 和 「Born to Run 」 ，并要按此顺序听，可以编写如下的描述命令： 

open cdaudio 

set cdaudio time format tmsf 


break 

cdaudio 

on 27 



play 

cdaudio 

from 8 

wait 


play 

cdaudio 

from 1 

to 2 

wait 

play 

cdaudio 

from 5 

to 6 

wait 

stop 

cdaudio 




eject 

cdaudio 



close 

cdaudio 




不用 wait 关键字，就不能正常工作，因为 mciSendString 命令会立即传回， 
然後执行下一条命令。 

此时，如何编写模拟 CD 播放程式的简单应用程式，就应该相当清楚了。程 
式可以确定乐曲数量、每个乐曲的长度并能显示允许使用者从任意位置开始播 
方文（不过，请记住： mciSendString 总是传回文字字串资讯，因此您需要编写解 
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析处理程式来将这些字串转换成数字）。可以肯定，这样的程式还要使用 Windows 
计时器，以产生大约1秒的时间间隔。在 WM _ TIMER 讯息处理期间，程式将 呼叫: 

status cdaudio mode 

来查看⑶是暂停还是在播放。 

status cdaudio position 

命令允许程式更新显示以给使用者显示目前的位置。但可能还存在更令人 
感兴趣 的事： 如果程式知道音乐音调部分的节拍位置，那么就可以使萤幕上的 
图形与 CD 同步。这对於音乐指令或者建立自己的图形音乐视讯程式极为有用。 

波形声音 

波形声音是最常用的 Windows 多媒体特性。波形声音设备可以通过麦克风 
捕捉声音，并将其转换为数值，然後把它们储存到记忆体或者磁碟上的波形档 
案中，波形档案的副档名是 . WAV 。 这样，声音就可以播放了。 

声音与波形 

在接触波形声音 API 之前，具备一些预备知识很重要，这些知识包括物理 
学、听觉以及声音进出电脑的程序。 

声音就是振动。当声音改变了鼓膜上空气的压力时，我们就感觉到了声音。 
麦克风可以感应这些振动，并且将它们转换为电流。同样，电流再经过放大器 
和扩音器，就又变成了声音。传统上，声音以类比方式储存（例如录音磁带和 
唱片），这些振动储存在磁气脉冲或者轮廓凹槽中。当声音转换为电流时，就 
可以用随时间振动的波形来表示。振动最自然的形式可以用正弦波表示，它的 
一个周期如图 5-5 所示。 

正弦波有两个参数 一一 振幅（也就是一个周期中的最大振幅）和频率。我 
们已知振幅就是音量，频率就是音调。一般来说人耳可感受的正弦波的范围是 
从 20 Hz (每秒周期）的低频声音到 20,000 Hz 的高频声，但随著年龄的增长，对 
高频声音的感受能力会逐年退化。 

人感受频率的能力与频率是对数关系而不是线性关系。也就是说，我们感 
受 20 Hz 到 40 Hz 的频率变化与感受 40 Hz 到 80 Hz 的频率变化是一样的。在音乐 
中，这种加倍的频率定义为八度音阶。因此，人耳可感觉到大约10个八度音阶 
的声音。钢琴的范围是从 27. 5 Hz 到4186 Hz 之间，略小於7个八度音阶。 

虽然正弦波代表了振动的大多数自然形式，但纯正弦波很少在现实生活中 
单独出现，而且，纯正弦波并不动听。大多数声音都很复杂。 

任何周期的波形（即， 一 个回圈波形）可以分解成多个正弦波，这些正弦 
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波的频率都是整倍数。这就是所谓的 Fourier 级数，它以法国数学家和物理学 
家 Jean Baptiste Joseph Fourier (1768-1830) 的名字命名。周期的频率是基 
础。级数中其他正弦波的频率是基础频率的2倍、3倍、4倍（等等）。这些频 
率的声音称为泛音。基础频率也称作一级谐波。第一泛音是二级谐波，以此类 
推。 

正弦波谐波的相对强度给每个周期的波形唯一的声音。这就是「音质」， 
它使得喇叭吹出喇叭声，钢琴弹出钢琴声。 

人们一度认为电子合成乐器仅仅需要将声音分解成谐波并且与多个正弦波 
重组即可。不过，事实证明现实世界中的声音并不是这么简单。代表现实世界 
中声音的波形都没有严格的周期。乐器之间谐波的相对强度是不同的，并且谐 
波也随著每个音符的演奏时间改变。特别是乐器演奏音符的开始位置 一一 我们 
称作起奏 ( attack ) ——相当复杂，但这个位置又对我们感受音质至关重要。 

由於近年来数位储存能力的提高，我们可以将声音直接以数位形式储存而 
不用复杂的重组。 


脉冲编码调制 (Pulse Code Modulation) 


电脑处理的是数值，因此要使声音进入电脑，就必须设计一种能将声音与 
数位信号相互转换的机制。 

不压缩资料就完成此功能的最常用方法称作「脉冲编码调制」 （ PCM : pulse 
code modulation ) 。 PCM 可用在光碟、数位式录音磁带以及 Windows 中。脉冲 
编码调制其实只是一种概念上很简单的处理步骤的奇怪代名词而已。 

利用脉冲编码调制，波形可以按固定的周期频率取样，其频率通常是每秒 
几万次。对於每个样本都测量其波形的振幅。完成将振幅转换成数位信号工作 
的硬体是类比数位转换器 （ ADC : analog - to-digital converter ) 。类似地， 
通过数位类比转换器 （ DAC : digital - to-analog converter ) 可将数位信号转 
换回波形电子信号。但这样转换得到的波形与输入的并不完全相同。合成的波 
形具有由高频组成的尖锐边缘。因此，播放硬体通常在数位类比转换器後还包 
括一个低通滤波器。此滤波器滤掉高频，并使合成後的波形更平滑。在输入端， 
低通滤波器位於 ADC 前面。 

脉冲编码调制有两个参数：取样频率，即每秒内测量波形振幅的 次数； 样 
本大小，即用於储存振幅级的位元数。与您想像的一样：取样频率越高，样本 
大小越大，原始声音的复制品才更好。不过，存在一个提高取样频率和样本大 
小的极点，超过这个极点也就超过了人类分辨声音的极限。另外，如果取样频 
率和样本大小过低，将导致不能精确地复制音乐以及其他声音。 
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取样频率 


取样频率决定声音可被数位化和储存的最大频率。尤其是，取样频率必须 
是样本声音最高频率的两倍。这就是 「 Nyquist 频率 （Nyquist Frequency ) 」， 
以30年代研究取样程序的工程师 Harry Nyquist 的名字命名。 

以过低的取样频率对正弦波取样时，合成的波形比最初的波形频率更低。 
这就是所说的失真信号。为避免失真信号的发生，在输入端使用低通滤波器以 
阻止频率大於半个取样频率的所有波形。在输出端，数位类比转换器产生的粗 
糙的波形边缘实际上是由频率大於半个取样频率的波形组成的泛音。因此，位 
於输出端的低通滤波器也阻止频率大於半个取样频率的所有波形。 

声音 CD 中使用的取样频率是每秒44, 100个样本，或者称为 44. 1 kHz 。 这个 
特有的数值是这样产 生的： 

人耳可听到最高 20 kHz 的声音，因此要拦截人能听到的整个声音范围，就 
需要 40 kHz 的取样频率。然而，由於低通滤波器具有频率下滑效应，所以取样 
频率应该再高出大约百分之十才行。现在，取样频率就达到了 44 kHz 。 这时，我 
们要与视讯同时记录数位声音，於是取样频率就应该是美国、欧洲电视显示格 
速率的整数倍，这两种视讯格速率分别是 30 Hz 和 25 Hz 。 这就使取样频率升高到 
了 44. lkHzo 

取样频率为 44. 1 kHz 的光碟会产生大量的资料，这对於一些应用程式来说 
实在是太多了，例如对於录制声音而不是录制音乐时就是这样。把取样频率减 
半到 22.05 kHz ， 可由一个10 kHz 的泛音来简化复制声音的上半部分。再将其 
减半到 11.025 kHz 就向我们提供了 5 kHz 频率范围。 44. 1 kHz 、22. 05 kHz 和 
11.025 kHz 的取样频率，以及8 kHz 都是波形声音设备普遍支援的标准。 

因为钢琴的最高频率为 4186 Hz ， 所以您可能会认为给钢琴录音时， 11.025 
kHz 的取样频率就足够了。但4186 Hz 只是钢琴最高的基础频率而已，滤掉大於 
5000 Hz 的所有正弦波将减少可被复制的泛音，而这样将不能精确地捕捉和复制 
钢琴的声音。 

样本大小 

脉冲编码调制的第二个参数是按位元计算的样本大小。样本大小决定了可 
供录制和播放的最低音与最高音之间的区别。这就是通常所说的动态范围。 

声音强度是波形振幅的平方（即每个正弦波一个周期中最大振幅的合成）。 
与频率一样，人对声音强度的感受也呈对数变化。 

两个声音在强度上的区别是以贝尔 （ 以电话发明人 Alexander Graham Bell 
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的名字命名）和分贝 （ dB ) 为单位进行测量的。1贝尔在声音强度上呈10倍增 
加。 ldB 就是以相同的乘法步骤成为1贝尔的十分之一。由此， ldB 可增加声音 
强度的 1.26 倍 （10 的10次方根），或者增加波形振幅的 1. 12倍 （10 的20次 
方根）。1分贝是耳朵可感觉出的声强的最小变化。从开始能听到的声音极限到 
让人感到疼痛的声音极限之间的声强差大约是100 dB 。 

可用下面的公式来计算两个声音间的动态范围，单位是 分贝： 

iB=20*log(^) 

其中 A 1 和 A 2 是两个声音的振幅。因为只可能有一个振幅，所以样本大小 
是1位元，动态范围是0。 

如果样本大小是8位元，则最大振幅与最小振幅之间的比例就是256。这样， 
动态范围就是： 

JB = 20 • log (256) 

或者48分贝。48的动态范围大约相当於非常安静的房屋与电动割草机之间 
的差别。将样本大小加倍到16位元产生的动态范 围是： 

dB =20 -log (65536) 

或者96分贝。这非常接近听觉极限和疼痛极限，而且人们认为这就是复制 
音乐的理想值。 

Windows 同时支援8位元和16位元的样本大小。储存8位元的样本时，样 
本以无正负号位元组处理，静音将储存为一个值为 0 x 80 的字串。16位元的样本 
以带正负号整数处理，这时静音将储存为一个值为0的字串。 

要计算未压缩声音所需的储存空间，可用以秒为单位的声音持续时间乘以 
取样频率。如果用16位元样本而不是8位元样本，则将其加倍，如果是录制立 
体声则再加倍。例如，1小时的 CD 声音（或者是在每个立体声样本占2位元组、 
每秒44，100个样本的速度下进行3 600秒)需要 635 MB ， 这快要接近一张 ⑶ -ROM 
的储存量了。 


在软体中产生正弦波 


对於第一个关於波形声音的练习，我们不打算将声音储存到档案中或播放 
录制的声音。我们将使用低阶的波形声音 API (即，字首是 waveOut 的函式）来 
建立一个称作 SINEWAVE 的声音正弦波生成器。此程式以1 Hz 的增量来生成从 
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20 Hz (人可感觉的最低值）到5,⑻ 0 Hz (与人感觉的最高值相差两个八度音阶） 
的正弦波。 

我们知道，标准 C 执行时期程式库包括了一个 sin 函式，该函式传回一个 
弧度角的正弦值 （2 鸹《鹊褥360度）。 sin 函式传回值的范围是从 -1 到1 ( 早 
在第五章，我们就在 SINEWAVE 程式中使用过这个函式）。因此，应该很容易使 
用 sin 函式生成输出到波形声音硬体的正弦波资料。基本上是用代表波形（这 
时是正弦波）的资料来填充缓冲区，并将此缓冲区传递给 API 。 （这比前面所讲 
的稍微有些复杂，但我将详细介绍）。波形声音硬体播放完缓冲区中的资料後， 
应将第二个缓冲区中的资料传递给它，并且以此类推。 

第一次考虑这个问题（而且对 PCM 也一无所知）时，您大概会认为将一个 
周期的正弦波分成若干固定数量的样本——例如360个——才合理。对於20 Hz 
的正弦波，每秒输出7, 200个样本。对於200 Hz 的正弦波，每秒则要输出72, 000 
个样本。这有可能实作，但实际上却不能这么做。对於5, 000 Hz 的正弦波，就 
需要每秒输出1，800, 000个样本，这的确会增大 DAC 的负担！更重要的是，对 
於更高的频率，这种作法会比实际需要的精确度还高。 

就脉冲编码调制而言，取样频率是个常数。假定取样频率是 SINEWAVE 程式 
中使用的11， 025 Hz 。 如果要生成一个2, 756. 25 Hz (确切地说是四分之一的取样 
频率）的正弦波，则正弦波的每个周期就有4个样本。对於 25 Hz 的正弦波，每 
个周期就有441个样本。通常，每周期的样本数等於取样频率除以要得到的正 
弦波频率。一旦知道了每周期的样本数，用2 ti 弧度除以此数，然後用 sin 函式 
来获得每周期的样本。然後再反复对一个周期进行取样，从而建立一个连续的 
波形。 

问题是每周期的样本数可能带有小数，因此在使用时这种方法并不是很好。 
每个周期的尾部都会有间断。 

使它正常工作的关键是保留一个静态的「相位角」变数。此角初始化为0。 
第一个样本是0度正弦。随後，相位角增加一个值，该值等於2 it 乘以频率再除 
以取样频率。用此相位角作为第二个样本，并且按此方法继续。一旦相位角超 
过 2 ti 弧度，则减去2 ti 弧度，而不要把相位角再初始化为0。 

例如，假定要用11， 025 Hz 的取样频率来生成1， 000 Hz 的正弦波。即每周期 
有大约11个样本。为便於理解，此处相位角按度数给出——大约前一个半周期 
的相位角是： 0、32.65、65.31、97.96、130.61、163.27、195.92、228.57、 
261.22、293.88、326.53、359.18、31.84、64.49、97.14、129.80、162.45、 
195.10，以此类推。存入缓冲区的波形资料是这些角度的正弦值，并已缩放到 
每样本的位元数。为後来的缓冲区建立资料时，可继续增加最後的相位角，而 
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不要将它初始化为0。 

如程式 22-2 所示， FillBuffer 函式完成这项工作——与 SINEWAVE 程式的 
其余部分一起完成。 


程式 22-2 SINEWAVE 


SINEWAVE.C 

" - 

SINEWAVE.C -- Multimedia Windows Sine Wave Generator 

(c) Charles Petzold, 1998 

- V 


♦include <windows.h> 
♦include <math.h> 
♦include "resource.h" 


♦define 

SAMPLE RATE 

11025 

#define 

FREQ MIN 

20 

#define 

FREQ MAX 

5000 

♦define 

FREQ_INIT 

440 

♦define 

OUT BUFFER—SIZE 

4096 

#define 

PI 

3.14159 


BOOL CALLBACK DlgProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName [] = TEXT ("SineWave"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, 


iCmdShow) 


int 


if (-1 == DialogBox (hlnstance, szAppName, NULL, DlgProc)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT !’’）， 

szAppName, MB_ICONERROR); 

} 

return 0 ; 


VOID FillBuffer (PBYTE pBuffer, int iFreq) 

{ 

static double fAngle ; 

int i 


for (i = ◦ ; i < OUT_BUFFER_SIZE ; i++) 

{ 

pBuffer [i] = (BYTE) (127 + 127 * sin (fAngle)); 
fAngle += 2 * PI * iFreq / SAMPLE_RATE ; 
if ( fAngle > 2 * PI) 

fAngle - = 2 * PI ; 
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} 

BOOL 

CALLBACK 

DlgProc 

( 

HWND hwnd, UINT message, WPARAM wParam, LPARAM 

IParam) 

； 






1 

static 

BOOL 



bShutOff, bClosing 

参 


static 

HWAVEOUT 


hWaveOut ; 



static 

HWND 



hwndScroll ; 



static 

int 



iFreq = FREQ INIT ; 



static 

PBYTE 



pBufferl, pBuffer2 

• 

f 


static 

PWAVEHDR 


pWaveHdrl, pWaveHdr2 ; 



static 

WAVEFORMATEX waveformat 

• 

f 



int 




iDummy ; 



switch (message) 

； 






l 

case WM 

工 NITDIALOG: 





hwndScroll 

— 

GetDlgltem (hwnd, IDC 

_SCROLL); 



SetScrollRange 

(hwndScroll, SB CTL, FREQ MIN, FREQ MAX, FALSE) 

參 

f 


SetScrollPos 

(hwndScroll, SB_CTL, FREQ 工 NIT, TRUE); 



SetDlgltemlnt 

(hwnd, 工 DC TEXT, FREQ 

INIT, FALSE); 



return TRUE 

參 

f 





case WM 

HSCROLL: 








switch (LOWORD (wParam)) 






i 

case 

SB LINELEFT: 

iFreq —= 1 ; break ; 





case 

SB LINERIGHT: 

iFreq += 1 ; break ; 





case 

SB PAGELEFT : 

iFreq /= 2 ; break ; 





case 

SB PAGERIGHT: iFreq *= 2 ; break ; 





case 

SB THUMBTRACK: 







iFreq = HIWORD (wParam); 






break ; 






case 

SB TOP: 






GetScrollRange (hwndScroll A 

SB CTL, &iFreq, &iDummy) 

參 

f 





break ; 






case 

SB BOTTOM: 






GetScrollRange (hwndScroll A 

SB CTL, &iDummy, &iFreq) 

參 

f 




} 

break ; 






iFreq 

=max (FREQ MIN, min 

(FREQ MAX, iFreq)); 





SetScrollPos (hwndScroll , SB CTL, iFreq, TRUE); 





SetDlgltemlnt (hwnd, IDC_TEXT, iFreq, FALSE); 
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return TRUE ; 

case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case 工 DC_ONOFF: 

// If turning on waveform, hWaveOut is NULL 

if (hWaveOut == NULL) 

{ 

// Allocate memory for 2 headers and 2 buffers 

pWaveHdrl = malloc (sizeof (WAVEHDR)); 
pWaveHdr2 = malloc (sizeof (WAVEHDR)); 
pBufferl = malloc (OUT_BUFFER—SIZE); 

pBuffer2 = malloc (OUT_BUFFER_SIZE); 

if (!pWaveHdrl || !pWaveHdr2 || !pBufferl || !pBuffer2) 

{ 

if (!pWaveHdrl) free (pWaveHdrl); 
if (!pWaveHdr2) free (pWaveHdr2); 
if (!pBufferl) free (pBufferl); 
if (!pBuf fer2) free (pBuffer2); 

MessageBeep (MB_ICONEXCLAMATION); 

MessageBox (hwnd, TEXT ("Error allocating memory !’’）， 

s zAppName, MB_ICONEXCLAMATION | MB_OK); 
return TRUE ; 

} 

// Variable to indicate Off button pressed 

bShutOff = FALSE ; 

// Open waveform audio for output 

waveformat•wFormatTag 
waveformat.nChannels 
waveformat.nSamplesPerSec 
waveformat.nAvgBytesPerSec 
waveformat.nBlockAlign 
waveformat.wBitsPerSample 
waveformat.cbSize 

if (waveOutOpen (&hWaveOut, WAVE—MAPPER, &waveformat, 

DWORD) hwnd, 0, CALLBACK—WINDOW)!= MMSYSERR—NOERROR) 

{ 



free (pWaveHdrl); 
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free (pWaveHdr2) ; 
free (pBufferl); 
free (pBuffer2); 


hWaveOut = NULL ; 

MessageBeep (MB_ICONEXCLAMATION); 

MessageBox (hwnd, TEXT ("Error opening waveform audio device !”）， 

s zAppName, MB_ICONEXCLAMATION | MB_OK); 
return TRUE ; 


// Set up headers and prepare them 


pWaveHdrl->lpData 
pWaveHdrl->dwBuf ferLength 
pWaveHdrl->dwBytesRecorded 
pWaveHdrl->dwUser 
pWaveHdrl->dwFlags 
pWaveHdrl->dwLoops 
pWaveHdrl->lpNext 
pWaveHdrl->reserved 


=pBufferl ; 

= OUT BUFFER SIZE ; 



waveOutPrepareHeader (hWaveOut, pWaveHdr1 A sizeof (WAVEHDR)); 


pWaveHdr2 - >lpData 
pWaveHdr2->dwBuf ferLength 
pWaveHdr2->dwBytesRecorded 
pWaveHdr2->dwUser 
pWaveHdr2->dwFlags 
pWaveHdr2->dwLoops 
pWaveHdr2 - >lpNext 
pWaveHdr2->reserved 


=pBuffer2 ; 

= OUT BUFFER SIZE ; 



waveOutPrepareHeader (hWaveOut, pWaveHdr2, sizeof (WAVEHDR)); 

} 

// If turning off waveform, reset waveform audio 

else 


{ 

bShutOff = TRUE ; 
waveOutReset (hWaveOut); 

} 

return TRUE ; 

} 

break ; 


// Message generated from waveOutOpen call 


case MM WOM OPEN : 
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output device 


is finished 

case MM 


(WAVEHDR)); 

case MM 

(WAVEHDR)); 
(WAVEHDR)); 


SetDlgltemText (hwnd, 工 DC_ONOFF, TEXT ("Turn Off")); 

// Send two buffers to waveform 

FillBuf fer (pBufferl, iFreq); 

waveOutWrite (hWaveOut, pWaveHdrl, sizeof (WAVEHDR)); 
FillBuf fer (pBuffer2, iFreq); 

waveOutWrite (hWaveOut, pWaveHdr2, sizeof (WAVEHDR)); 
return TRUE ; 

/ / Message generated when a buffer 

WOM—DONE: 

if (bShutOff) 

{ 

waveOutClose (hWaveOut); 
return TRUE ; 

} 

// Fill and send out a new buffer 

FillBuf fer (((PWAVEHDR) IParam) - >lpData, iFreq); 
waveOutWrite (hWaveOut, (PWAVEHDR) IParam, sizeof 

return TRUE ; 

WOM CLOSE: 


waveOutUnprepareHeader 

(hWaveOut, 

pWaveHdrl, sizeof 

waveOutUnprepareHeader 

(hWaveOut, 

pWaveHdr2, sizeof 

free 

(pWaveHdrl); 



free 

(pWaveHdr2); 



free 

(pBufferl); 



free 

(pBuffer2); 



hWaveOut = NULL ; 




SetDlgltemText (hwnd, IDC_ONOFF, TEXT ("Turn On")); 
if (bClosing) 

EndDialog (hwnd, 0); 

return TRUE ; 
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case WM_SYSCOMMAND: 

switch (wParam) 

{ 

case SC_CLOSE: 

if (hWaveOut != NULL) 

{ 

bShutOff = TRUE ; 
bClosing = TRUE ; 

waveOutReset (hWaveOut); 

} 

else 

EndDialog (hwnd, 0); 
return TRUE ; 

} 

break ; 

} 

return FALSE ; 

} 

SINEWAVE.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h n 
♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 


// Dialog 
SINEWAVE 
STYLE 
CAPTION 
FONT 8, 
BEGIN 


DIALOG DISCARDABLE 100, 100, 200, 50 

WS_MINIMIZEBOX | WS_VISIBLE | WS_CAPTION | WS_SYSMENU 
"Sine Wave Generator" 

"MS Sans Serif" 


SCROLLBAR 

RTEXT 

LTEXT 

PUSHBUTTON 

END 

RESOURCE. H ( 摘录） 


IDC—SCROLL,8,8,150,12 

n 440 n , 工 DC—TEXT,160,10,20,8 
"Hz",IDC—STATIC,182,10,12,8 
"Turn On",IDC ONOFF,80,28,40,14 


// Microsoft Developer Studio generated include file. 
// Used by SineWave.rc 


♦define 

IDC_ 

_STATIC 


#define 

工 DC_ 

_SCROLL 

1000 

#define 

I DC 一 

TEXT 

1001 

♦define 

IDC 

ONOFF 

1002 


注意 ， FillBuffer 常式中用到的 0 UT _ BUFFER _ SIZE 、 SAMPLE_RATE 和 PI 识 
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别字在程式的顶部定义。 FillBuffer 的 iFreq 参数是需要的频率，单位是 Hz 。 
还要注意， sin 函式的结果调整到了 0到254的范围之间。对於每个样本 ， sin 
函式的 fAngle 参数都增加一个值，该值的大小是2 弧度乘以需要的频率再除 
以取样频率。 

SINEWAVE 的视窗包含三个控 制项： 一个用於选择频率的水平卷动列，一个 
用於显示目前所选频率的静态文字区域，以及一个标记为 [Turn OnJ 的按钮。 
按下此按钮後，您将从连结音效卡的扩音器中听到正弦波的声音，同时按钮上 
的文字将变成 「Turn Off 」 。用键盘或者滑鼠移动卷动列可以改变频率。要关 
闭声音，可以再次按下按钮。 

SINEWAVE 程式码初始化卷动列，以便频率在 WM _ INITDIALOG 讯息处理期间 
最低是 20 Hz ， 最高是 5000 Hz 。 初始化时，卷动列设定为440 Hz 。 用音乐术语来 
说就是中音上面的 A ， 它在管弦乐队演奏时用来调音。 DlgProc 在接收 WM _ HSCR 0 LL 
讯息处理期间改变静态变数 iFreq 0 注意 ， Page Left 和 Page Right 将导致 
DlgProc 增加或者减少一个八度音阶。 

当 DlgProc 从按钮收到一个 WM _ C 0 MMAND 讯息时，它首先配置4个记忆体块 
——2个用於 WAVEHDR 结构，我们马上讨论。另两个用於缓冲区储存波形资料， 
我们将这两个缓冲区称为 pBufferl 和 pBuffer 2。 

通过呼叫 waveOutOpen 函式， SINEWAVE 打开波形声音设备以便输出， 
waveOutOpen 函式使用下面的参数： 

waveOutOpen (&hWaveOut , wDevicelD, &waveformat , dwCallBack, 

dwCallBackData, dwFlags); 

将第一 * 个参数设定为指向 HWAVEOUT (handle to waveform audio output ： 
波形声音输出代号）型态的变数。从函式传回时，此变数将设定为一个代号， 
後面的波形输出呼叫中将使用该代号。 

waveOutOpen 的第二个参数是设备 ID 。 它允许函式可以在安装多个音效卡 
的机器上使用。参数的范围在0到系统所安装的波形输出设备数之间。呼叫 
waveOutGetNumDevs 可以获得波形输出设备数，而呼叫 waveOutGetDevCaps 可以 

找出每个波形输出设备。如果想消除设备问号，那么您可以用常数 WAVEJ^PPER 
(定义为 -1) 来选择设备，该设备在「控制台」的「多媒体」中「音效」页面 
标签里的「喜欢使用的装置」中指定。另外，如果首选设备不能满足您的需要， 
而其他设备可以，那么系统将选择其他设备。 

第三个参数是指向 WAVEF 0 RMATEX 结构的指标（後面将详细介绍）。第四个 
参数是视窗代号或指向动态连结程式库中 callback 函式的指标，用来表示接收 
波形输出讯息的视窗或者 callback 函式。使用 callback 函式时，可在第五个 
参数中指定程式定义的资料。 dwFlags 参数可设为 CALLBACK _ WINDOW 或 
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CALLBACK _ FUNCTION , 以表示第四个参数的型态。您也可用 WAVE _ FORMAT_QUERY 
标记来检查能否打开设备（实际上并不打开它）。还有其他几个标记可用。 


waveOutOpen 的第三个参数定义为指向 WAVEFORMATEX 型态结构的指标，此 
结构在丽 SYSTEM . H 中定义 如下： 


typedef struct waveformat tag 

f 





X 

WORD 

wFormatTag ; // 

waveform format = WAVE FORMAT 

PCM 


WORD 

nChannels ; 

// 

number of channels = 

1 c 

)r 2 


DWORD 

nSamplesPerSec ; 


// sample rate 




DWORD 

nAvgBytesPerSec ; 


// bytes per second 




WORD 

nBlockAlign ; 

// 

block alignment 




WORD 

wBitsPerSample ; 

// 

bits per samples = 8 

or 

16 

1 

WORD 

cbSize ; 

// 

0 for PCM 



f 

WAVEFORMATEX, * PWAVEFORMATEX ; 






您可用此结构指定取样频率 （nSamplesPerSec ) 和取样精确度 


( nBitsPerSample ) ，以及选择单声道或立体声 （ nChannels ) 。结构中有些资 
讯看起来是多余的，但该结构也可用於非 PCM 的取样方式。在非 PCM 取样方式 
下，此结构的最後一个栏位设定为非0值，并带有其他资讯。 

对於 PCM 取样方式， nBlockAlign 栏位设定为 nChannels 乘以 
wBitsPerSample 再除以8所得到的数值，它表示每次取样的总位元组数。 
nAvgBytesPerSec 栏位设定为 nSamplesPerSec 和 nBlockAlign 的乘积。 

SINEWAVE 初始化 WAVEFORMATEX 结构的栏位，并呼叫 waveOutOpen 函式： 

waveOutOpen ( &hWaveOut , WAVE—MAPPER, &waveformat, 

(DWORD) hwnd, 0, CALLBACK—WINDOW) 

如果呼叫成功，则 waveOutOpen 函式传回丽 SYSERR _ N 0 ERR 0 R (定义为 0) ， 
否则传回非0的错误代码。如果 waveOutOpen 的传回值非0，则 SINEWAVE 清除 
视窗，并显示一个标识错误的讯息方块。 


现在设备打开了， SINEWAVE 继续初始化两个 WAVEHDR 结构的栏位，这两个 
结构用於在 API 中传递缓冲。 WAVEHDR 定义 如下： 


typedef struct wavehdr tag 



I 

LPSTR lpData; 

// 

pointer to data 

buffer 



DWORD dwBufferLength; 


/ / length of 

data buffer 



DWORD dwBytesRecorded; 

// 

used for recorded 

DWORD dwUse r; 

// 

for program use 

DWORD dwFlags; 

// 

flags 

DWORD dwLoops; 

// 

number of 

repetitions 
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struct wavehdr_tag FAR *lpNext; // reserved 

DWORD reserved; // reserved 

} 

WAVEHDR, ^PWAVEHDR ; 

SINEWAVE 将 lpData 栏位设定为包含资料的缓冲区位址 ， dwBufferLength 
栏位设定为此缓冲区的大小， dwLoops 栏位设定为1，其他栏位都设定为0或 
NULL 。 如果要重复回圈播放声音，可设定 dwFlags 和 dwLoops 栏位。 

SINEWAVE 下一步为两个资讯表头呼叫 waveOutPrepareHeader 函式，以防止 
结构和缓冲区与磁碟发生资料交换。 

到此为止，所有的这些准备都是回应单击开启声音的按钮。但在程式的讯 
息仁列里已经有一个讯息在等待回应。因为我们已经在函式 waveOutOpen 中指 
定要用一个视窗讯息处理程式来接收波形输出讯息，所以 waveOutOpen 函式向 
程式的讯息伫列发送了 MM _ W 0 M _0 PEN 讯息， wParam 讯息参数设定为波形输出代 
号。要处理 MM _ W 0 M _0 PEN 讯息， SINEWAVE 呼叫 FillBuffer 函式两次，并用正弦 
波形资料填充 pBuffer 缓冲区。然後 SINEWAVE 把两个 WAVEHDR 结构传送给 
waveOutWrite , 此函式将资料传送到波形输出硬体，才真正开始播放声音。 

当波形硬体播放完 waveOutWrite 函式传送来的资料後，就向视窗发送 
MM _ W 0 M _ D 0 NE 讯息，其中 wParam 参数是波形输出代号，1 Par am 是指向 WAVEHDR 
结构的指标。 SINEWAVE 在处理此讯息时，将计算缓冲区的新资料，并呼叫 
waveOutWrite 来重新提交缓冲区。 

编写 SINEWAVE 程式时也可以只用一个 WAVEHDR 结构和一个缓冲区。不过， 
这样在播放完资料後将会有很短暂的停顿，以等待程式处理 MM _ W 0 M _ D 0 NE 讯息 
来提交新的缓冲区。 SINEWAVE 使用的「双缓冲」技术避免了声音的不连续。 

当使用者单击 「Turn Off 」 按钮关闭声音时， DlgProc 接收到另一个 
WM _ COMMAND 讯息。对此讯息， DlgProc 把 bShutOff 变数设定为 TRUE ， 并呼叫 
waveOutReset 函式。此函式停止处理声音并发送一条 MM _ W 0 M _ D 0 NE 讯息。 
bShutOff 为 TRUE 时 ， SINEWAVE 透过呼叫 waveOutClose 来处理 MM _ W 0 M _ D 0 NE ， 
从而产生一条 MM _ W 0 M _ CL 0 SE 讯息。处理 MM _ W 0 M _ CL 0 SE 通常包括清除程序。 
SINEWAVE 为两个 WAVEHDR 结构而呼叫 waveOutUnprepareHeader 、 释放所有的记 
忆体块并把按钮上的文字改回 「Turn On 」 。 

如果硬体继续播放缓冲区的声音资料，那么它自己呼叫 waveOutClose 就没 
有作用。您必须先呼叫 waveOutReset 来停止播放并产生 MM _ W 0 M _ D 0 NE 讯息。当 
wParam 是 SC _ CL 0 SE 时， DlgProc 也处理 WM _ SYSCOMMAND 讯息，这是因为使用者 
从系统功能表中选择了 「 Close 」 。如果波形声音继续播放， DlgProc 则呼叫 
waveOutReset 。 无论如何，最後总要呼叫 EndDialog 来结束程式。 
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数位录音机 


Windows 提供了一个称为「录音程式」来录制和播放数位声音。程式 22-3 
所示的程式 (RECORD 1) 不如「录音程式」完善，因为它不含有任何档案1/0, 
也不允许声音编辑。然而，这个程式显示了使用低阶波形声音 API 来录制和重 
播声音的基本方法。 


程式 22-3 RECORD 1 


RECORD1.C 
卜 - 


RECORD1.C -- Waveform Audio Recorder 

(c) Charles Petzold, 1998 



♦include <windows.h> 
♦include "resource.h n 


#define INP—BUFFER—SIZE 16384 

BOOL CALLBACK DlgProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName [] = TEXT ("Recordl"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int 

iCmdShow) 

{ 

if (-1 == DialogBox (hlnstance, TEXT (’’Record 1 ，）， NULL, DlgProc)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows 

NT ! n ), 

szAppName, 

MB_ICONERROR); 

} 

return 0 ; 

} 


void ReverseMemory (BYTE * pBuffer, int iLength) 

{ 

BYTE b ; 
int i ; 


for (i = ◦ ; i < iLength / 2 ; i++) 

{ 

b = pBuffer [i]; 

pBuffer [i] = pBuffer [iLength - i - 1]; 
pBuffer [iLength - i - 1] = b ; 
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} 

BOOL CALLBACK 

DlgProc ( HWND hwnd, UINT message, WPARAM wParam, 

LPARAM 

IParam) 

； 




i 

static 

BOOL 

bRecording, bPlaying, bReverse, 

bPaused, 






bEnding 

f 

bTerminating ; 




static 

DWORD 

dwDataLength, dwRepetitions = 1 ; 

static 

HWAVEIN 

hWaveln ; 


static 

HWAVEOUT 

hWaveOut ; 


static 

PBYTE 

pBufferl, pBuffer2, pSaveBuffer, 

pNewBuffer ; 




static 

PWAVEHDR 

pWaveHdrl, pWaveHdr2 ; 


static 

TCHAR 

szOpenError [ ] = TEXT 

("Error 

opening waveform audio ! 1 ’）； 



static 

TCHAR 

szMemError [ ] = TEXT 

("Error 

allocating memory!’ 1 ); 



static 

WAVEFORMATEX waveform ; 


switch (message) 

/ 



i 

case WM 

INITDIALOG: 




// 

Allocate memory for wave header 



pWaveHdrl = malloc (sizeof (WAVEHDR)); 



pWaveHdr2 = malloc (sizeof (WAVEHDR)); 



// 

Allocate memory for save buffer 



pSaveBuffer = 

malloc (1); 



return TRUE ; 



case WM 

COMMAND : 




switch (LOWORD 

(wParam)) 



l 

case 工 DC RECORD BEG: 



// 

Allocate buffer memory 



pBufferl = malloc (INP BUFFER SIZE) 

參 

f 


pBuffer2 = malloc (INP BUFFER SIZE) 

參 

F 


if 

/ 

(!pBufferl | | !pBuffer2) 



i 

if (pBufferl) free (pBufferl) 

• 

f 



if (pBuffer2) free (pBuffer2) 

參 

f 
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szAppName, 


MessageBeep (MB_ICONEXCLAMATION) ; 
MessageBox (hwnd, szMemError, 

MB_ICONEXCLAMATION | MB_OK); 
return TRUE ; 


// Open waveform audio for input 


waveform.wFormatTag 
waveform.nChannels 
waveform.nSamplesPerSec 
waveform.nAvgBytesPerSec 
waveform.nBlockAlign 
waveform.wBitsPerSample 
waveform.cbSize 


=WAVE_FORMAT_PCM ; 
=1 ; 

=11025 ; 

=11025 ; 


if (wavelnOpen (&hWaveIn, WAVE_MAPPER, &waveform, 

(DWORD) hwnd, 0, CALLBACK—WINDOW)) 

{ 

free (pBufferl); 
free (pBuffer2); 

MessageBeep (MB_ICONEXCLAMATION); 
MessageBox (hwnd, szOpenError, szAppName, 
MB_ICONEXCLAMATION | MB_OK); 

} 

// Set up headers and prepare them 

pWaveHdrl->lpData = pBufferl ; 

pWaveHdrl->dwBufferLength = INP_BUFFER_SIZE ; 
pWaveHdrl->dwBytesRecorded = 0 ; 
pWaveHdrl->dwUser 
pWaveHdrl->dwFlags 
pWaveHdrl->dwLoops 
pWaveHdrl->lpNext 
pWaveHdrl—>reserved 

wavelnPrepareHeader (hWaveln, pWaveHdrl, sizeof (WAVEHDR)); 



pWaveHdr2 - >lpData = pBuffer2 ; 

pWaveHdr2->dwBufferLength = 工 NP—BUFFER—SIZE ; 
pWaveHdr2->dwBytesRecorded = 0 ; 

pWaveHdr2->dwUser = 0 ; 

pWaveHdr2->dwFlags = 0 ; 

pWaveHdr2->dwLoops = 1 ; 

pWaveHdr2 - >lpNext = NULL ; 

pWaveHdr2->reserved = 0 ; 

wavelnPrepareHeader (hWaveln, pWaveHdr2, 
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sizeof 


(WAVEHDR)) ; 

return TRUE ; 
case IDC_RECORD_END : 

// Reset input to return last buffer 

bEnding = TRUE ; 
wavelnReset (hWaveln); 
return TRUE ; 

case IDC—PLAY—BEG: 

// Open waveform audio for output 


waveform.wFormatTag = WAVE_FORMAT_PCM ; 

waveform.nChannels = 1 ; 

waveform.nSamplesPerSec =11025 ; 

waveform.nAvgBytesPerSec = 11025 ; 

waveform.nBlockAlign = 1 ; 

waveform.wBitsPerSample = 8 ; 

waveform.cbSize = 0 ; 

if (waveOutOpen (&hWaveOut, WAVE—MAPPER, &waveform, 
(DWORD) hwnd, ◦, CALLBACK_WINDOW)) 

{ 

MessageBeep (MB_ICONEXCLAMATION); 

MessageBox (hwnd,szOpenError, szAppName, 
MB_ICONEXCLAMATION | MB_OK); 

} 

return TRUE ; 


case 工 DC PLAY PAUSE: 


// Pause or restart output 


if (!bPaused) 

{ 

waveOutPause (hWaveOut); 

SetDlgltemText (hwnd, 工 DC_PLAY_PAUSE, TEXT ("Resume")); 

bPaused = TRUE ; 

} 

else 

{ 

waveOutRestart (hWaveOut); 

SetDlgltemText (hwnd, IDC_PLAY_PAUSE A TEXT ("Pause")); 

bPaused = FALSE ; 

} 

return TRUE ; 


case IDC PLAY END: 
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// Reset output for close preparation 

bEnding = TRUE ; 
waveOutReset (hWaveOut); 
return TRUE ; 

case 工 DC—PLAY—REV: 

// Reverse save buffer and play 
bReverse = TRUE ; 

ReverseMemory (pSaveBuffer, dwDataLength); 

SendMessage (hwnd, WM—COMMAND, 工 DC_PLAY_BEG, 0); 

return TRUE ; 

case IDC_PLAY_REP: 

// Set infinite repetitions and play 

dwRepetitions = -1 ; 

SendMessage (hwnd, WM—COMMAND, IDC_PLAY_BEG, 0); 

return TRUE ; 


case 工 DC—PLAY—SPEED: 

// Open waveform audio for fast output 


waveform.wFormatTag = WAVE_FORMAT_PCM ; 
waveform.nChannels = 1 ; 

waveform.nSamplesPerSec =22050 ; 
waveform.nAvgBytesPerSec= 22050 ; 
waveform.nBlockAlign = 1 ; 
waveform.wBitsPerSample = 8 ; 
waveform.cbSize = 0 ; 

if (waveOutOpen (&hWaveOut, ◦, &waveform, (DWORD) hwnd, 0, 

CALLBACK—WINDOW)) 

{ 

essageBeep (MB_ICONEXCLAMATION); 

MessageBox (hwnd, szOpenError, szAppName, MB_ICONEXCLAMATION | MB_OK); 

} 

return TRUE ; 

} 

break ; 


case MM WIM OPEN: 


// Shrink down the save buffer 


pSaveBuffer = realloc (pSaveBuf fer, 1); 

// Enable and disable buttons 
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EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

RECORD BEG), 

FALSE) 

參 

f 

EnableWindow 

(GetDlgltem 

(hwnd. 

工 DC_ 

RECORD END), 

TRUE) 

• 

r 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

PLAY 

_BEG), 

FALSE) 

r 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

PLAY 

—PAUSE), 

FALSE) 

f 

EnableWindow 

(GetDlgltem 

(hwnd, 

工 DC_ 

PLAY 

END), 

FALSE) 

f 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

PLAY 

REV), 

FALSE) 

f 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

PLAY 

_REP), 

FALSE) 

r 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

PLAY 

_SPEED), 

FALSE) 

f 

SetFocus (GetDlgltem (hwnd, IDC 

RECORD END)); 




// Add the buffers 

wavelnAddBuffer (hWaveln, pWaveHdrl , sizeof (WAVEHDR)); 
wavelnAddBuffer (hWaveln, pWaveHdr2, sizeof (WAVEHDR)); 

// Begin sampling 

bRecording = TRUE ; 
bEnding = FALSE ; 
dwDataLength = 0 ; 
wavelnStart (hWaveln); 
return TRUE ; 

case MM—WIM—DATA: 

// Reallocate save buffer memory 

pNewBuffer = realloc ( pSaveBuffer, dwDataLength + 

((PWAVEHDR) IParam)->dwBytesRecorded); 

if (pNewBuf fer == NULL) 

{ 

wavelnClose (hWaveln); 

MessageBeep 

(MB_ICONEXCLAMATION); 

MessageBox (hwnd, szMemError, szAppName, 
MB_ICONEXCLAMATION | MB_OK); 

return TRUE ; 

} 

pSaveBuffer = pNewBuffer ; 

CopyMemory (pSaveBuffer + dwDataLength, ( (PWAVEHDR) IParam)->lpData, 

((PWAVEHDR) IParam)->dwBytesRecorded); 

dwDataLength += ((PWAVEHDR) IParam)->dwBytesRecorded ; 

if (bEnding) 
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{ 

waveInClose (hWaveln) ; 
return TRUE ; 

} 

// Send out a new buffer 

wavelnAddBuffer (hWaveln, (PWAVEHDR) IParam, sizeof (WAVEHDR)); 
return TRUE ; 

MM_WIM—CLOSE: 

// Free the buffer memory 

wavelnUnprepareHeader (hWaveln, pWaveHdrl, sizeof (WAVEHDR)); 
wavelnUnprepareHeader (hWaveln, pWaveHdr2, sizeof (WAVEHDR)); 

free (pBufferl); 
free (pBuffer2); 

// Enable and disable buttons 


EnableWindow (GetDlgltem (hwnd, 工 DC—RECORD—BEG), TRUE); 
EnableWindow (GetDlgltem (hwnd, IDC_RECORD_END) , FALSE); 
SetFocus (GetDlgltem (hwnd, IDC RECORD BEG)); 


if (dwDataLength > 0) 


EnableWindow (GetDlgltem (hwnd, 
EnableWindow (GetDlgltem (hwnd, 
EnableWindow (GetDlgltem (hwnd, 
EnableWindow (GetDlgltem (hwnd, 
EnableWindow (GetDlgltem (hwnd, 
EnableWindow (GetDlgltem (hwnd, 
SetFocus (GetDlgltem (hwnd, IDC 

} 

bRecording = FALSE ; 


IDC_PLAY_BEG), 

工 DC—PLAY—PAUSE), 
工 DC—PLAY—END), 
IDC_PLAY_REP), 
IDC_PLAY_REV), 
IDC—PLAY—SPEED), 
PLAY BEG)); 


TRUE); 
FALSE); 
FALSE); 
TRUE); 
TRUE); 
TRUE); 


if (bTerminating) 

SendMessage (hwnd, WM SYSCOMMAND, SC CLOSE, OL); 


return TRUE ; 


MM WOM OPEN: 


// Enable and disable buttons 


EnableWindow 

EnableWindow 

EnableWindow 


(GetDlgltem (hwnd, IDC_RECORD_BEG), FALSE); 
(GetDlgltem (hwnd, IDC_RECORD_END), FALSE); 
(GetDlgltem (hwnd, IDC PLAY BEG), FALSE); 
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EnableWindow 

(GetDlgltem 

(hwnd, 

IDC_ 

PLAY 

PAUSE),TRUE); 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

PLAY 

END), 

TRUE); 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

PLAY 

_REP), 

FALSE) 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

PLAY 

REV), 

FALSE) 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

PLAY 

SPEED), 

FALSE) 

SetFocus (GetDlgltem (hwnd, IDC PLAY 

END)); 




// Set up header 


pWaveHdrl->lpData = pSaveBuffer ; 

pWaveHdrl->dwBufferLength = dwDataLength ; 

pWaveHdrl->dwBytesRecorded = 0 ; 

pWaveHdrl—>dwUser = 0 ; 

pWaveHdrl->dwFlags = WHDR—BEGINLOOP | WHDR—ENDLOOP ; 

pWaveHdrl->dwLoops = dwRepetitions ; 

pWaveHdrl->lpNext = NULL ; 

pWaveHdrl->reserved = 0 ; 

// Prepare and write 


waveOutPrepareHeader (hWaveOut, pWaveHdrl, sizeof (WAVEHDR)); 
waveOutWrite (hWaveOut, pWaveHdrl, sizeof (WAVEHDR)); 

bEnding = FALSE ; 
bPlaying = TRUE ; 
return TRUE ; 

MM—WOM—DONE: 

waveOutUnprepareHeader (hWaveOut, pWaveHdrl, sizeof 


waveOutClose (hWaveOut); 
return TRUE ; 


MM WOM CLOSE: 


// Enable and disable buttons 


EnableWindow 

EnableWindow 

EnableWindow 

EnableWindow 

EnableWindow 

EnableWindow 


(GetDlgltem 

(GetDlgltem 

(GetDlgltem 

(GetDlgltem 

(GetDlgltem 

(GetDlgltem 


(hwnd, IDC 
(hwnd, IDC 
(hwnd, IDC 
(hwnd, IDC 
(hwnd, IDC 
(hwnd, IDC 


RECORD—BEG), 
RECORD_END), 
PLAY_BEG), 
PLAY—PAUSE), 
PLAY_END), 
PLAY REV), 


EnableWindow(GetDlgltem (hwnd, IDC PLAY REP), 


EnableWindow (GetDlgltem (hwnd, IDC PLAY SPEED), 


SetFocus (GetDlgltem (hwnd, IDC PLAY BEG)); 


TRUE); 
TRUE); 
TRUE); 
FALSE); 
FALSE); 
TRUE); 
TRUE); 
TRUE); 


SetDlgltemText (hwnd, IDC_PLAY_PAUSE, TEXT ("Pause")); 
bPaused = FALSE ; 
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dwRepetitions = 1 
bPlaying = FALSE ; 


if 

{ 


(bReverse) 


ReverseMemory (pSaveBuffer, dwDataLength) 
bReverse = FALSE ; 


} 


case 


if (bTerminating) 

SendMessage (hwnd, WM_SYSCOMMAND A SC_CLOSE, OL) 

return TRUE ; 

WM_SYSCOMMAND: 

switch (LOWORD (wParam)) 

{ 

case SC CLOSE: 


if 

{ 


if 

{ 


(bRecording) 

bTerminating = TRUE ; 
bEnding = TRUE ; 
wavelnReset (hWaveln); 
return TRUE ; 

(bPlaying) 

bTerminating = TRUE ; 
bEnding = TRUE ; 
waveOutReset (hWaveOut) 
return TRUE ; 


} 


free (pWaveHdrl); 
free (pWaveHdr2); 
free (pSaveBuffer); 
EndDialog (hwnd, 0); 
return TRUE ; 


break 


} 


return FALSE ; 


RECORD. RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h" 

♦include M afxres.h" 
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//////////////////////////////////////////////////////////////////////////// 

/ 

// Dialog 

RECORD DIALOG DISCARDABLE 100, 100, 152, 74 

STYLE WS_MINIMIZEBOX | WS—VISIBLE | WS_CAPTION | WS_SYSMENU 

CAPTION "Waveform Audio Recorder" 

FONT 8, "MS Sans Serif" 

BEGIN 

PUSHBUTTON 
PUSHBUTTON 
PUSHBUTTON 
PUSHBUTTON 
PUSHBUTTON 
PUSHBUTTON 
PUSHBUTTON 
PUSHBUTTON 

"Speedup",IDC—PLAY—SPEED,104,52,40,14,WS—DISABLED 

END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 

// Used by Record.rc 


♦define 

工 DC_ 

RECORD BEG 

1000 

#define 

IDC_ 

RECORD END 

1001 

#define 

工 DC_ 

PLAY 

BEG 

1002 

♦define 

IDC_ 

PLAY 

PAUSE 

1003 

♦define 

IDC_ 

PLAY 

END 

1004 

#define 

工 DC_ 

PLAY 

REV 

1005 

#define 

IDC_ 

PLAY 

REP 

1006 

♦define 

IDC_ 

PLAY 

SPEED 

1007 


RECORD . RC 和 RESOURCE . H 档案也在 REC 0 RD 2 和 REC 0 RD 3 程式中使用。 

REC 0 RD 1 视窗有8个按钮。第一次执行 REC 0 RD 1 时，只有 「 Record 」 按钮有 
效。按下 「 Record 」 後，就开始录音，这时 「 Record 」 按钮无效，而 「 End 」 按 
钮有效。按下 「 End 」 可停止录音。这时， 「 Play 」 、「 Reverse 」 、「 Repeat 」 
和 「 Speedup 」 也都有效，选择任一个按钮都可重放 声音： 「 Play 」 表示正常播 
放； 「 Reverse 」 表示反向播放； 「 Repeat 」 表示无限的重复播放（好像回圈录 
音 带）； 「 Speedup 」 以正常速度的两倍来播放。要停止播放，您可以选择 「 End 」 
按钮，而按下 「 Pause 」 按钮可停止播放。按下後， 「 Pause 」 按钮将变为 「 Resume 」 
按钮，用於继续播放声音。如果要录制另一段声音，新录制的声音将替换记忆 
体里现有的声音。 

任何时候，有效按钮都是可以执行有效操作的按钮。这需要在 RE ⑶ RD 1 原 
始码中包括对 EnableWindow 的多次呼叫，但是程式并不检查具体的按钮操作是 
否有效。显然，这使得程式操作更为直观。 


"Record",IDC_RECORD_BEG, 28,8,40,14 
"End" A 工 DC_RECORD_END,76,8,40,14,WS_DISABLED 
"Play" A IDC_PLAY_BEG,8,30,40,14,WS_DISABLED 
"Pause",IDC_PLAY_PAUSE,56,30,40,14,WS_DISABLED 
"End", 工 DC_PLAY_END,104,30,40,14,WS_DISABLED 
"Reverse",IDC_PLAY_REV,8,52,40,14,WS_DISABLED 
"Repeat”，IDC PLAY REP,56,52,40,14,WS DISABLED 
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REC 0 RD 1 用了许多快捷方式来简化程式码。首先，如果安装了多个波形声音 
硬体设备，则 RE ⑶ RD 1 只使用内定设备。其次，程式按标准的 11. 025 kHz 的取 
样频率和8位元的取样精确度来录音和放音，而不管设备能否提供更高的取样 
频率和取样精确度。唯一的例外是加速功能，加速时 RECORD 1按 22.050 kHz 的 
取样频率播放声音，这样不仅播放速度提高了一倍，而且频率也提高了一个音 
阶。 

录制声音既包括为输入而打开波形声音硬体，还包括将缓冲区传递给 API ， 
以便接收声音资料。 

REC 0 RD 1 设有几个记忆体块。其中三个很小，至少在初始化时很小，并且在 
DlgProc 的 WM _ INITDIAL 0 G 讯息处理期间进行配置。程式配置两个 WAVEHDR 结构， 
分别由指标 pWaveHdrl 和 pWaveHdr 2 指向。这两个结构用於将缓冲区传递给波 
形 API 。 pSaveBuffer 指标指向储存整个录音的缓冲区，最初配置时只有一个位 
元组。然後，随著录音的进行，该缓冲区不断增大，以适应所有的声音资料（如 
果录音时间过长，则 RECORD 1能够在录制程序中及时发现记忆体溢出，并允许 
您重放成功储存的声音）。由於这个缓冲区用来储存堆积的声音资料，所以我 
将其称为「储存缓冲区 （save buffer ) 」。指标 pBufferl 和 pBnffer 2 指向的 
另外两个记忆体块，大小是 16 K ， 它们在记录接收的声音资料时配置。录音结束 
後释放这些记忆体块。 

8个按钮中的每一个都向 REP 0 RT 1 视窗的对话程序 DlgProc 产生 WM _ C 0 MMAND 
讯息。最初只有 rRecordJ 按钮有效。按下此按钮将产生 WM _ C 0 MMAND 讯息，其 
中 wParam 参数等於 IDC _ REC 0 RD _ BEG 。 为处理这个讯息， REC 0 RD 1 配置两个 16 K 
的缓冲区来接收声音资料，初始化 WAVEF 0 RMATEX 结构的栏位，并将此结构传递 
给 waveInOpen 函式，然後设定两个 WAVEHDR 结构。 

wavelnOpen 函式产生一条 MM _ WIMJ ) PEN 讯息。在此讯息处理期间， REC 0 RD 1 
把储存缓冲区的大小缩减到1个位元组，以准备接收资料（当然，第一次录音 
时，储存缓冲区的大小就是1个位元组，但以後录制时，就可能大多了）。在 
MM _ WIM _0 PEN 讯息处理期间， RE ⑶ RD 1 也将适当的按钮设定为有效和无效。然後， 
程式用 wavelnAddBuffer 把两个 WAVEHDR 结构和缓冲区传送给 API 。 这时会设定 
某些标记，然後呼叫 wavelnStart 开始录音。 

采用 11. 025kHz 的取样频率和 8 位元的取样精确度时， 16K 的缓冲区可储存 
大约 1.5 秒的声音。这时， RE ⑶ RD1 接收 MM_WIM_DATA 讯息。在回应此讯息处理 
期间，程式将根据变数 dwDataLength 和 WAVEHDR 结构中的栏位 dwBytesRecorded 
对缓冲区重新配置。如果配置失败， REC0RD1 呼叫 wavelnClose 来停止录音。 

如果重新配置成功，则 RE ⑶ RD 1 把 16 K 缓冲区里的资料复制到储存缓冲区， 
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然後再次呼叫 wavelnAddBuffero 此程序将持续到 REC 0 RD 1 用完储存缓冲区的记 
忆体，或使用者按下 「 End 」 按钮为止。 

「 End 」 按钮产生 WM _ COMMAND 讯息，其中 wParam 等於 IDC _ RECORD _ END 。 处 
理这个讯息很简单 ， RECORDING bEnding 标记设定为 TRUE 并呼叫 wavelnReset 。 
wavelnReset 函式使录音停止，并产生 MM _ WIM _ DATA 讯息，该讯息含有部分填充 
的缓冲区。除了呼叫 wavelnClose 来关闭波形输入设备外， RE ⑶ RD 1 对这个讯息 
正常回应。 

wavelnClose 产生 MM _ WIM _ CLOSE 讯息。 REC 0 RD 1 回应此讯息时，释放 16 K 
输入缓冲区，并使相应的按钮有效或无效。尤其是，当储存缓冲区里存有资料 
(除非第一次配置就失败，否则一般都含有资料）时，播放按钮将有效。 

录音以後，储存缓冲区里将含有这些声音资料。当使用者选择 「 Play 」 按 
钮时 ， DlgProc 就接收一个 WM_COMMAND 讯息，其中 wParam 等於 IDC _ PLAY _ BEG 。 
回应时，程式将初始化 WAVEFORMATEX 结构的栏位，并呼叫 waveOutOpen 。 

waveOutOpen 呼叫再次产生 MM _ W 0 M _0 PEN 讯息，在此讯息处理期间 ， RECORD 1 
把相应的按钮设为有效或无效（只允许使用 「 Pause 」 和 「 End 」） ，用储存缓 
冲区来初始化 WAVEHDR 结构的栏位，呼叫 waveOutPrepareHeader 来准备要播放 
的声音，然後呼叫 waveOutWrite 开始播放。 

一般情况下，直到播放完储存缓冲区里的所有资料才停止。这时产生 
MM _ W 0 M _ D 0 NE 讯息。如果还有缓冲区要播放，则程式会在这时将它们传递给 API 。 
由於 RECORD 1只播放一个大缓冲区，因此程式不再简单地准备标题，而是呼叫 
wave 0 utClose o waveOutClose 函式产生 MM _ W 0 M _ CL 0 SE 讯息。在此讯息处理期间， 

RECORD 1使相应的按钮有效或无效，并允许声音再次播放或者录制新声音。 

程式中还有一个 「 End 」 按钮，利用此按钮，使用者可以在播放完储存缓冲 
区之前的任何时刻停止播放。「 End 」 按钮产生一个 WM _ COMMAND 讯息，其中 wParam 
等於 IDC _ PLAY _ END ， 回应时，程式呼叫 waveOutReset ， 此函式产生一条正常处 
理的 MM _ W 0 M _ D 0 NE 讯息。 

RECORD 1的视窗中还包括一个 「 Pause 」 按钮。处理此按钮很 简单： 第一次 
按时下 ， RECORD 1呼叫 waveOutPause 来暂停播放，并将按钮上的文字改为 
「 Resume 」 。按下 「 Resume 」 按钮时，通过呼叫 waveOutRestart 来继续播放。 
为了使程式更有趣，视窗中还包括另外三个按钮： 「 Reverse 」 、 「 Repeat 」 
和 「 Speedup 」 。这些按钮都产生 WM _ COMMAND 讯息，其中 wParam 的值分别等於 
IDC _ PLAY _ REV 、 IDC _ PLAY_REP 和 IDC _ PLAY _ SPEED 。 

倒放声音就是把储存缓冲区里的资料按位元组顺序反向，然後再正常播放。 
REC 0 RD 1 中有一个称为 ReverseMemory 的小函式使位元组反向。在 WM_COMMAND 
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讯息处理期间，程式在播放块之前呼叫此函式，并在 MM _ W 0 M _ CL 0 SE 讯息的後期 
再次呼叫此函式，以便将其恢复到正常状态。 

rRepeat ] 按钮将往复不停地播放声音。由於 API 支援重复播放声音，所 
以这并不复杂。只要将 WAVEHDR 结构的 dwLoops 栏位设为重复次数，将 dwFlags 
栏位设为 WHDR _ BEGINL 00 P 和 WHDR + ENDL 00 P ，分别表示回圈时缓冲区的开始部分 
和结束部分。因为 RECORD 1只使用一个缓冲区来播放声音，所以这两个标记组 
合到了 dwFlags 栏位。 

要实作两倍速播放也很容易。在准备为输出而打开波形声音期间，初始化 
WAVEFORMATEX 结构的栏位时，只需将 nSamplesPerSec 和 nAvgBytesPerSec 栏位 

设定为22050，而不是11025。 

另一种 MCI 介面 

您可能已经发现， RE ⑶ RD 1 很复杂。特别是在处理波形声音函式呼叫和它们 
产生的讯息间的交互时，更复杂。处理可能出现的记忆体不足的情况也是如此。 
但这也许正是它称为低阶介面的原因。我在本章的前面提到过， Windows 也提供 
高阶媒体控制介面 (Media Control Interface ) 。 

对波形声音来说，低阶介面与 MCI 之间的主要区别在於 MCI 用波形档案记 
录声音资料，并通过读取档案来播放声音。由於在播放声音之前要读取档案、 
处理档案然後再写入档案，所以让 REO ) DEl 来实作「特殊效果」很困难。这是 
典型的折衷选择 问题： 功能齐全或是使用方便？低阶介面很灵活，但 MCI (其中 
的大部分）更方便。 

MCI 有两种不同但又相关的实作形式。 一 种形式用讯息和资料结构将命令发 
送给多媒体设备，然後再从那里接收资讯。另一种形式使用 ASCII 文字字串。 
建立文字命令的介面最初是为了让多媒体设备接受简单的描述命令语言的控 
制。但它也提供非常容易的交谈式控制，请参见本章前面， TESTMCI 程式的展示。 

REC 0 RD 2 程式，如程式 22-4 所示，使用 MCI 形式的讯息和资料结构来实作 
另一个数位声音录音机和播放器。虽然它使用的对话方块模板与 REC 0 RD 1 —样， 
但并没有实作三个特殊效果的按钮。 

程式 22-4 REC0RD2 

RECORD2.C 

/* - 

RECORD2.C -- Waveform Audio Recorder 

(c) Charles Petzold, 1998 

- -k/ 
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♦include <windows.h> 

#include "..\\recordl\\resource.h" 


BOOL CALLBACK DlgProc (HWND, UINT, WPARAM, LPARAM); 
TCHAR szAppName [] = TEXT ("Record2"); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, 


iCmdShow) 



int 


if (-1 == DialogBox (hlnstance, TEXT (’'Record'’ ）， NULL, DlgProc)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT ! 1 ’）， 

szAppName, MB—ICONERROR); 

} 

return 0 ; 



void ShowError (HWND hwnd, DWORD dwError) 

{ 

TCHAR szErrorStr [1024]; 

mciGetErrorString (dwError, szErrorStr, sizeof (szErrorStr) / sizeof 
(TCHAR)); 

MessageBeep (MB_ICONEXCLAMATION); 

MessageBox (hwnd, szErrorStr, szAppName, MB OK | MB ICONEXCLAMATION); 


BOOL CALLBACK DlgProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 

IParam) 

{ 

static BOOL bRecording, bPlaying, bPaused ; 

static TCHAR s zFileName[] = TEXT ( n record2.wav"); 

static WORD wDevicelD ; 

DWORD 

MCI_GENERIC_PARMS 
MCI_OPEN_PARMS 
MCI_PLAY_PARMS 
MCI_REC ORD_PARMS 
MCI_SAVE_PARMS 

switch (message) 

{ 

case WM—COMMAND: 

switch (wParam) 

{ 

case IDC—RECORD—BEG: 

// Delete existing waveform file 


dwError ; 

mciGeneric ; 
meiOpen ; 
mciPlay ; 
mciRecord ; 
meiSave ; 


DeleteFile (szFileName); 
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// Open waveform audio 

mciOpen.dwCallback = 0 ; 

mciOpen•wDevicelD = 0 ; 

mciOpen . lpstrDeviceType=TEXT (’，wave audio n ); 

mciOpen.IpstrElementName = TEXT (""); 

mciOpen.IpstrAlias = NULL ; 

dwError = mciSendCommand (◦, MCI_OPEN, 

MCI—WAIT I MCI_OPEN_TYPE | MCI_OPEN_ELEMENT, 
(DWORD) (LPMCI_OPEN_PARMS) &mciOpen); 

if (dwError != 0) 

{ 

ShowError (hwnd, dwError); 
return TRUE ; 

} 

// Save the Device ID 
wDevicelD = mciOpen•wDevicelD ; 

// Begin recording 

meiRecord.dwCallback = (DWORD) hwnd ; 

meiRecord.dwFrom = 0 ; 

meiRecord.dwTo = 0 ; 

mciSendCommand (wDevicelD, MCI_RECORD, MCI—NOTIFY, 
(DWORD) (LPMCI_RECORD_PARMS) &mciRecord); 

// Enable and disable buttons 

EnableWindow (GetDlgltem (hwnd, IDC_RECORD_BEG), FALSE) 
EnableWindow (GetDlgltem (hwnd, IDC—RECORD—END), TRUE) 
EnableWindow (GetDlgltem (hwnd, 工 DC_PLAY_BEG), FALSE) 
EnableWindow (GetDlgltem (hwnd, IDC_PLAY_PAUSE), FALSE) 
EnableWindow (GetDlgltem (hwnd, 工 DC_PLAY_END), FALSE) 
SetFocus (GetDlgltem (hwnd, IDC_RECORD_END)); 

bRecording = TRUE ; 
return TRUE ; 

case IDC_RECORD_END: 

// Stop recording 

mciGeneric.dwCallback = 0 ; 

mciSendCommand (wDevicelD, MCI_STOP, MCI—WAIT, 

(DWORD) (LPMCI GENERIC PARMS) &mciGeneric); 
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// Save the file 


mciSave.dwCallback = 0 ; 
mciSave.lpfilename = szFileName ; 


MCI SAVE FILE, 


mciSendCommand (wDevicelD, MCI_SAVE, MCI_WAIT 
(DWORD) (LPMCI SAVE PARMS) &mciSave); 


/ / Close the waveform device 


mciSendCommand (wDevicelD, MCI_CLOSE, MCI—WAIT, 
(DWORD) (LPMCI_GENERIC_PARMS) &mciGeneric); 

// Enable and disable buttons 


EnableWindow 

(GetDlgltem 

(hwnd. 

工 DC_ 

RECORD BEG), 

TRUE); 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

RECORD END), 

FALSE); 

EnableWindow 

(GetDlgltem 

(hwnd. 

工 DC_ 

PLAY 

—BEG), 

TRUE); 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

PLAY 

—PAUSE), 

FALSE); 

EnableWindow 

(GetDlgltem 

(hwnd, 

IDC_ 

PLAY 

END), 

FALSE); 


SetFocus (GetDlgltem (hwnd, IDC_PLAY_BEG)); 

bRecording = FALSE ; 
return TRUE ; 


case IDC PLAY BEG: 


// Open waveform audio 


mciOpen.dwCallback = 0 ; 

mciOpen•wDevicelD = 0 ; 

mciOpen.IpstrDeviceType = NULL ; 


mciOpen.IpstrElementName = szFileName ; 
mciOpen.IpstrAlias = NULL ; 


dwError = mciSendCommand ( 0, MCI_OPEN, 

MCI—WAIT I MCI_OPEN_ELEMENT, 

(DWORD) (LPMCI_OPEN_PARMS) &mciOpen); 

if (dwError != 0) 

{ 

ShowError (hwnd, dwError); 
return TRUE ; 

} 

// Save the Device ID 


wDevicelD = mciOpen•wDevicelD ; 
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// Begin playing 

meiPlay.dwCallback = (DWORD) hwnd ; 

mciPlay.dwFrom = 0 ; 

mciPlay.dwTo = 0 ; 

mciSendCommand (wDevicelD, MCI_PLAY, MCI—NOTIFY, 
(DWORD) (LPMCI PLAY PARMS) &mciPlay); 


// Enable and disable buttons 


EnableWindow (GetDlgltem 

EnableWindow (GetDlgltem 
EnableWindow (GetDlgltem 
EnableWindow (GetDlgltem 
EnableWindow (GetDlgltem 


(hwnd, 工 DC_RECORD_BEG), FALSE); 
(hwnd, IDC_RECORD_END), FALSE); 

(hwnd, IDC_PLAY_BEG), FALSE); 

(hwnd, IDC_PLAY_PAUSE), TRUE); 

(hwnd, IDC PLAY END), TRUE); 


SetFocus (GetDlgltem (hwnd, IDC PLAY END)); 


bPlaying = TRUE ; 
return TRUE ; 


case 工 DC—PLAY—PAUSE: 

if (!bPaused) 

// Pause the play 



mciGeneric.dwCallback = 0 ; 


mciSendCommand (wDevicelD, MCI_PAUSE, MCI—WAIT, 
(DWORD) (LPMCI GENERIC PARMS) & mciGeneric); 


SetDlgltemText (hwnd, 工 DC_PLAY_PAUSE, TEXT ("Resume")); 
Paused = TRUE ; 

} 

else 


// Begin playing again 

{ 

mciPlay.dwCallback = (DWORD) hwnd ; 

mciPlay.dwFrom = 0 ; 

mciPlay.dwTo = 0 ; 


mciSendCommand (wDevicelD, MCI_PLAY, MCI—NOTIFY, 
(DWORD) (LPMCI_PLAY_PARMS) &mciPlay); 

SetDlgltemText (hwnd, 工 DC_PLAY_PAUSE, TEXT ("Pause")); 

bPaused = FALSE ; 
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return TRUE ; 


case IDC PLAY END: 


// Stop and close 


mciGeneric.dwCallback = 0 ; 

mciSendCommand (wDevicelD, MCI_STOP, MCI—WAIT, 
(DWORD) (LPMCI_GENERIC_PARMS) &mciGeneric); 

mciSendCommand (wDevicelD, MCI_CLOSE, MCI—WAIT, 
(DWORD) (LPMCI_GENERIC_PARMS) &mciGeneric); 

// Enable and disable buttons 

EnableWindow (GetDlgltem(hwnd,IDC—RECORD—BEG), 
EnableWindow (GetDlgltem(hwnd, IDC_RECORD_END), 
EnableWindow(GetDlgltem(hwnd, IDC_PLAY_BEG), TRUE) 
EnableWindow (GetDlgltem(hwnd, IDC—PLAY—PAUSE), 
EnableWindow (GetDlgltem (hwnd, 工 DC—PLAY—END), 

SetFocus (GetDlgltem (hwnd A IDC_PLAY_BEG)); 

bPlaying = FALSE ; 
bPaused = FALSE ; 
return TRUE ; 

} 

break ; 


case MM—MCINOTIFY: 

switch (wParam) 

{ 

case MCI—NOTIFY_SUCCESSFUL: 

if (bPlaying) 

SendMessage (hwnd, WM—COMMAND, IDC_PLAY_END, 0); 

if (bRecording) 

SendMessage (hwnd, WM—COMMAND, IDC_RECORD_END, 0); 

return TRUE ; 

} 

break ; 

case WM—SYSCOMMAND: 

switch (wParam) 

{ 

case SC—CLOSE: 

if (bRecording) 

SendMessage (hwnd, WM COMMAND, IDC RECORD END, 


TRUE); 
FALSE); 

參 

f 

FALSE); 
FALSE); 


0L); 
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SendMessage 

if (bPlaying) 

(hwnd, WM COMMAND, IDC PLAY END, OL); 



\ 

EndDialog (hwnd, 0); 

return TRUE ; 



I 

break ; 


} 

/ 

return FALSE ; 




REC 0 RD 2 只使用两个 MCI 函式呼叫，其中最重要的呼叫如下 所示: 


error = mciSendCommand (wDevicelD, message, dwFlags, dwParam) 

第一个参数是设备的识别数字 （ ID ) ，您可以按代号来使用 ID 。 打开设备 
时就可以获得 ID ， 并在随後的 mciSendCommand 呼叫中使用。第二个参数是字首 
为 MCI 的常数。这些称为 MCI 命令讯息， RE ⑶ RD 2 展示了其中的 七个： MCI _0 PEN 、 
MCI — RECORD 、 MCI — STOP 、 MCI — SAVE 、 MCI — PLAY 、 MCI—PAUSE 和 MCI — CLOSE 。 

dwFlags 参数通常由 0 或者多个位元旗标常数（由 C 的位元 OR 运算子合成) 
组成。这些通常用来表示不同的选项。一些选项是某个命令讯息所特有的，而 
另一些对所有的讯息都是通用的。 dwParam 参数通常是指向一个资料结构的长指 
标，该结构表示选项以及由设备获得的资讯。许多 MCI 讯息都与资料结构有关， 
而且这些资料结构对於讯息来说都是唯一的。 

如果 mciSendCc ^ mand 函式呼叫成功，则传回0值，否则传回错误代码。要 
向使用者报告此错误，可用下面的函式获得描述错误的文字字串： 

mciGetErrorString (error, szBuffer, dwLength) 

此函式在程式 TESTMCI 中也用到过。 

按下「 Record 」 按钮後， REC 0 RD 2 的视窗讯息处理程式就收到一个 WM_COMMAND 
讯息，其中 wParam 等於 IDC _ RE ⑶ RD _ BEG 。 RE ⑶ RD 2 从打开设备开始，包括设定 
MCI _ OPEN _ PARMS 结构的栏位，并用 MCI _0 PEN 命令讯息呼叫 mciSendCommand 。 
录音时， IpstrDeviceType 栏位设定为字串 「 waveaudio 」 以说明设备型态， 
IpstrElementName 栏位设定为长度为0的字串。 MCI 驱动程式使用内定的取样 
频率和取样精确度，但是您可以用 MCI _ SET 命令进行修改。录音程序中，声音 
资料先储存在硬碟上的暂存档案中，最後再转化成标准的波形档案。本章的後 
面将介绍波形档案的格式。播放录制的声音时， MCI 使用波形档案中定义的取样 
频率和取样精确度。 

如果 REC 0 RD 2 不能打开设备，则用 mciGetErrorString 和 MessageBox 提示 
错误资讯。否则从 mciSendCommand 呼叫传回， MCI _ OPEN _ PARMS 结构的 wDevicelD 
栏位包含有设备 ID ， 以供後面的呼叫使用。 

要开始录音， REC 0 RD 2 就呼叫 mciSendCommand ， 以 MCI _ RECORD 命令讯息和 
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MCI _ WAVE _ RECORD _ PARMS 资料结构为参数。当然，您也可以将此结构（并使用表 
示这些栏位已设定的位元旗标）的 dwFromz 和 dwTo 栏位进行设定，以便将声音 
插入现有的波形档案，其档案名在 MCI _ OPEN _ PARMS 结构的 IpstrElementName 

栏位指定。内定状态下，任何新的声音都插入在现有档案的开始位置。 

REC 0 RD 2 将 MCI _ WAVE _ RECORD_PARMS 结构的 dwCallback 栏位设定为程式的 
视窗代号，并在 mciSendCcMmand 呼叫中包含 MCI _ NOTIFY 标记。这导致录音结 
束後向视窗讯息处理程式发送一条通知讯息。我将简要讨论一下这条通知讯息。 

录音结束後，按下前一个「 End 」 按钮来停止录音，这时产生一个 WM_COMMAND 
讯息，其中 wParam 等於 IDC _ RECORD _ END 。 回应时，视窗讯息处理程式将呼叫 
mciSendCommand 三次： MCI _ ST 0 P 命令讯息用於停止 录音； MCI _ SAVE 命令讯息用 
於把暂存档案中的声音资料传递到 MCI _ SAVE _ PARMS 结构中指定的档案 
(「 recOTd 2. wav 」） ； MCI _ CL 0 SE 命令讯息用於删除所有的暂存档案、释放已 
经建立的记忆体块并关闭设备。 

播放时， MCI _ OPEN _ PARMS 结构的 IpstrElementName 栏位设定为档案名 
「 record 2. wav」 。 mciSendCommand 第三个参数中所包含的 MCI _ OPEN_ELEMENT 
标记表示 IpstrElementName 栏位是一个有效的档案名。通过档案的副档名 
称 . WAV ， MCI 知道使用者要打开一个波形声音设备。如果存在多个波形硬体，则 
打开第一个（设定 MCI _ OPEN _ PARMS 结构的 IpstrDeviceType 栏位，也可以打开 
其他波形设备）。 

播放将包括带有 MCI _ PLAY 命令讯息和 MCI _ PLAY _ PARMS 结构的 
mciSendCommand 呼叫。虽然波形档案的任意部分都可以播放，但 REC 0 RD 2 只播 
放整个档案。 

REC 0 RD 2 还包括一个 「 Pause 」 按钮来暂停播放音效档案。这个按钮产生一 
个 WM _ COMMAND 讯息，其中 wParam 等於 IDC _ PLAY _ PAUSE 。 回应时，程式将呼叫 
mciSendCommand ， 并以 MCI_PAUSE 命令讯息和 MCI _ GENERIC_PARMS 结构作为参 
数。 MCI _ GENERIC _ PARMS 结构用於这样一些 讯息： 它们除了需要用於通知的可选 
视窗代号外，不需要任何资讯。如果播放已经暂停，则通过再次使用 MCI_PLAY 
命令讯息呼叫 mciSendCommand 继续播放。 

按下第二个 「 End 」 按钮也可以停止播放。这时产生 wParam 等於 IDC _ PLAY_END 
的 WM COMMAND 讯息。回应时，视窗讯息处理程式将呼叫 mciSendCcMmand 两次: 
第一次使用 MCI _ ST 0 P 命令 讯息； 第二次使用 MCI _ CL 0 SE 命令讯息。 

现在有一个 问题： 虽然可以通过按下 「 End 」 按钮来手工终止播放，但您可 
能需要播放整个档案。程式如何知道档案播放完的时间呢？这是 MCI 通知讯息 
的任务。 
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当带有 MCI_RECORD 和 MCI_PLAY 讯息来呼叫 mciSendCommand 时， REC 0 RD 2 
将包括 MCI _ NOTIFY 标记，并将资料结构的 dwCallback 栏位设定为程式视窗代 
号。这样就产生一个通知讯息，称为 MM _ MCINOTIFY ， 并在某些环境下传递给视 
窗讯息处理程式。讯息参数 wParam 是一个状态代码，而 IParam 是设备 ID 。 

带有 MCI _ ST 0 P 或者 MCI _ PAUSE 命令讯息来呼叫 mciSendCommand 时，您将 
接收到一个 MM _ MCIN(TTIFY 讯息，其中 wParam 等於 MCI _ N ( TriFY _ ABORTED 。 当您 
按下 「 Pause 」 按钮或者两个 「 End 」 按钮中的一个时，就会出现这种情况。由 
於对这些按钮已进行过适当的处理，所以 RE ⑶ RD 2 可以忽略这种情况。播放时， 
您会在音效档案结束後接收到 MM _ MCINOTIFY 讯息，其中 wParam 等於 
MCI _ NOTIFY _ SUCCESSFUL 。 这种情况下，视窗讯息处理程式给自己发送一个 
WM _ COMMAND 讯息，其中 wParam 等於 IDC _ PLAY _ END ， 来模拟使用者按下 「 End 」 
按钮。然後视窗讯息处理程式作出正常 回应： 停止播放，关闭设备。 

录音时，如果用於储存暂存档案的硬碟空间不够，您就会接收一个 
MM_MCINOTIFY 讯息，其中 wParam 等於 MCI _ NOTIFY_SUCCESSFUL (虽然现在还不 

能说它很完美，但其功能已经很齐全了）。回应时，视窗讯息处理程式给自己 
发送一个 WM _ COMMAND 讯息，其中 wParam 等於 IDC _ RECORD _ END ， 然後与正常情 
况下 一样： 停止录音、储存档案并关闭设备。 

MCI 命令字串的方法 

Windows 的多媒体介面曾经包含函式 mciExecute ， 其语法如下： 

bSuccess = mciExecute (szCommand) ; 

其中唯一的参数是 MCI 命令字串。函式传回布林值——如果呼叫成功，则 
传回非0值，否则传回0。在功能上， mciExecute 函式相同於呼叫後三个参数 
为 NULL 或0的 mciSendString ( TESTMCI 中使用的依据字串的 MCI 函式），然 
後在发生错误时呼叫 mciGetErrorString 和 MessageBox 。 

虽然 mciExecute 不再是 API 的一部分，但我还是在 REC 0 RD 3 版的数位录音 
机中使用了这个函式。和 RE ⑶ RD 2 —样， REC 0 RD 3 程式也使用 RE ⑶ RD 1 中的资源 
描述档 RECORD . RC 和 RESOURCE . H ， 如程式 22-5 所示。 

程式 22-5 REC0RD3 

REC0RD3.C 

/* - 

REC0RD3.C -- Waveform Audio Recorder 

(c) Charles Petzold, 1998 


V 


第 1224 页 














Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


♦include <windows.h> 

#include "..\\recordl\\resource.h" 


BOOL CALLBACK DlgProc (HWND, UINT, WPARAM, LPARAM); 
TCHAR szAppName [] = TEXT ("Record3"); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int 

iCmdShow) 

{ 

if (-1 == DialogBox (hlnstance, TEXT (’'Record'’ ）， NULL, DlgProc)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT! n ), 

szAppName, MB_ICONERROR); 

} 

return 0 ; 

} 


BOOL mciExecute (LPCTSTR szCommand) 

{ 

MCIERROR error ; 

TCHAR szErrorStr [1024]; 


if (error = mciSendstring (szCommand, NULL, 0, NULL)) 

{ 

mciGetErrorString (error, szErrorStr, sizeof (szErrorStr) 

sizeof (TCHAR)); 

MessageBeep (MB_ICONEXCLAMATION); 

MessageBox ( NULL, szErrorStr, TEXT ( n MCI Error"), 

MB_OK 

MB_ 工 C ONE X C LAMATION); 

} 

return error == 0 ; 




BOOL CALLBACK DlgProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 

IParam) 

{ 

static BOOL bRecording, bPlaying, bPaused ; 
switch (message) 

{ 

case WM—COMMAND: 

switch (wParam) 

{ 

case 工 DC—RECORD—BEG: 

// Delete existing waveform file 


DeleteFile (TEXT ("record3.wav")); 
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// Open waveform audio and record 

if ( ! mciExecute (TEXT ("open new type waveaudio alias mysound"))) 

return TRUE ; 

mciExecute (TEXT ("record mysound")); 

// Enable and disable buttons 

EnableWindow (GetDlgltem (hwnd, IDC_RECORD_BEG), FALSE); 
EnableWindow (GetDlgltem (hwnd, 工 DC—RECORD—END), TRUE); 
EnableWindow (GetDlgltem (hwnd,IDC_PLAY_BEG), FALSE); 
EnableWindow (GetDlgltem (hwnd, IDC_PLAY_PAUSE), FALSE); 
EnableWindow (GetDlgltem (hwnd,IDC_PLAY_END), FALSE); 
SetFocus (GetDlgltem (hwnd, IDC_RECORD_END)); 

bRecording = TRUE ; 
return TRUE ; 

case IDC—RECORD—END: 

// Stop, save, and close recording 

mciExecute (TEXT ("stop mysound")); 
mciExecute (TEXT ("save mysound record3.wav 1 ，））; 
mciExecute (TEXT (’'close mysound")); 

// Enable and disable buttons 

EnableWindow(GetDlgltem(hwnd,IDC—RECORD_BEG), TRUE); 
EnableWindow(GetDlgltem (hwnd, IDC_RECORD_END), FALSE); 

EnableWindow (GetDlgltem (hwnd, IDC—PLAY—BEG), TRUE); 

EnableWindow (GetDlgltem (hwnd, IDC_PLAY_PAUSE), FALSE); 

EnableWindow (GetDlgltem (hwnd, IDC_PLAY_END), FALSE); 

SetFocus (GetDlgltem (hwnd, IDC_PLAY_BEG)); 

bRecording = FALSE ; 
return TRUE ; 

case 工 DC_PLAY—BEG: 

// Open waveform audio and play 

if ( ! mciExecute (TEXT ("open record3.wav alias mysound’ 1 ))) 

return TRUE ; 

mciExecute (TEXT (’’play mysound")); 

// Enable and disable buttons 
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EnableWindow 

(GetDlgltem 

(hwnd. 

工 DC_ 

RECORD BEG), 

FALSE); 

EnableWindow 

(GetDlgltem 

(hwnd. 

IDC_ 

RECORD END), 

FALSE); 

EnableWindow 

(GetDlgltem 

(hwnd. 

工 DC_ 

PLAY 

—BEG), 

FALSE); 

EnableWindow 

(GetDlgltem 

(hwnd. 

工 DC_ 

PLAY 

—PAUSE), 

TRUE); 

EnableWindow 

(GetDlgltem 

(hwnd. 

工 DC_ 

PLAY 

END), 

TRUE); 


SetFocus (GetDlgltem (hwnd, IDC PLAY END)); 


bPlaying = TRUE ; 
return TRUE ; 


case 工 DC—PLAY—PAUSE: 

if (!bPaused) 

// Pause the play 


mciExecute (TEXT ("pause mysound")); 
SetDlgltemText (hwnd, IDC_PLAY_PAUSE, TEXT ("Resume")); 

bPaused = TRUE ; 

} 

else 


// Begin playing again 

{ 

mciExecute (TEXT ("play mysound")); 
SetDlgltemText (hwnd, 工 DC_PLAY_PAUSE, TEXT ("Pause")); 

bPaused = FALSE ; 


return TRUE ; 


case IDC PLAY END: 


// Stop and close 


mciExecute (TEXT ("stop mysound")); 
mciExecute (TEXT (’'close mysound")); 

// Enable and disable buttons 
EnableWindow (GetDlgltem (hwnd, IDC—RECORD—BEG) , TRUE); 
EnableWindow(GetDlgltem (hwnd, IDC_RECORD_END), FALSE); 
EnableWindow(GetDlgltem (hwnd, 工 DC—PLAY—BEG), TRUE); 

EnableWindow(GetDlgltem (hwnd, 工 DC—PLAY—PAUSE), FALSE); 
EnableWindow (GetDlgltem (hwnd,IDC_PLAY_END), FALSE); 
SetFocus (GetDlgltem (hwnd, IDC_PLAY_BEG)); 

bPlaying = FALSE ; 
bPaused = FALSE ; 
return TRUE ; 

} 

break ; 
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case WM_SYSCOMMAND: 

switch (wParam) 

{ 

case SC—CLOSE: 

if (bRecording) 

SendMessage (hwnd, WM—COMMAND, IDC_RECORD_END, OL); 

if (bPlaying) 

SendMessage (hwnd, WM—COMMAND, IDC_PLAY_END, OL); 

EndDialog (hwnd, 0); 
return TRUE ; 

} 

break ; 

} 

return FALSE ; 

} 

在研究讯息导向和文字导向的 MCI 介面时，您会发现它们非常相近。很容 
易就可以猜测出 MCI 将命令字串转换为相应的命令讯息和资料结构。 REC 0 RD 3 可 
以使用像 REC 0 RD 2 —样使用 MM _ MCINOTIFY 讯息，但是它没有选择 mciExecute 
函式的好处，它的缺点是程式不知道什么时候播放完波形档案。因此，这些按 
钮不能自动改变状态。您必须人工按下 「 End 」 按钮，以便让程式知道它已经准 
备再次录音或播放。 

注意 MCI 的 open 命令中 alias 关键字的用法。它允许所有後来的 MCI 命令 
使用别名来引用设备。 

波形声音档案格式 

如果在十六进位转储程式下研究未压缩的 . WAV 档案（即 PCM ) ，您会发现 
它们具有表 22-1 所示的格式。 


表 22-1 .WAV 档案格式 


偏移量 

位元组 

资料 

0000 

4 

「 RIFF 」 

0004 

4 

波形块的大小（档案大小减 8) 

0008 

4 

TWAVEJ 

000C 

4 


fmt 


0010 

4 

格式块的大小 （ 16 位元组） 

0014 

2 

wf. wFormatTag = WAVE_FORMAT_PCM = 1 

0016 

2 

wf. nChannels 
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0018 

4 

wf. nSamplesPerSec 

001C 

4 

wf. nAvgBytesPerSec 

0020 

2 

wf. nBlockAlign 

0022 

2 

wf. wBitsPerSample 

0024 

4 

「 data 」 

0028 

4 

波形资料的大小 

002C 


波形资料 


这是一'种扩充自 RIFF (Resource Interchange File Format ： 资源交换档 
案格式）的格式。 RIFF 是用於多媒体资料档案的万用格式，它是一种标记档案 
格式。在这种格式下，档案由资料「块」组成，而这些资料块则由前面4个字 
元的 ASCII 名称和4位元组 （32 位元）的资料块大小来确认。资料块大小值不 
包括名称和大小所需要的8位元组。 

波形声音档案以文字字串 「 RIFF 」 开始，用来标识这是一个 RIFF 档案。字 
串後面是一个32位元的资料块大小，表示档案其余部分的大小，或者是小於8 
位元组的档案大小。 

资料块以文字字串 「 WAVE 」 开始，用来标识这是一个波形声音块，後面是 
文字字串 「 fmt 」 ——注意用空白使之成为4字元的字串——用来标识包含波形 
声音资料格式的子资料块。 「 fmt 」 字串的後面是格式资讯大小，这里是16位 
元组。格式资讯是 WAVEFORMATEX 结构的前16个位元组，或者，像最初定义时 
一样，是包含 WAVEFORMAT 结构的 PCMWAVEFORMAT 结构。 

nChannels 栏位的值是1或2,分别对应於单声道和立体声 。 nSamplesPerSec 
栏位是每秒的样 本数； 标准值是每秒11，025、22, 050和44 100个样本。 
nAvgBytesPerSec 栏位是取样速率，单位是每秒样本数乘以通道数，再乘以以位 
元为单位的每个样本的大小，然後除以8并往上取整数。标准样本大小是8位 
元和16位元。 nBlockAlign 栏位是通道数乘以以位元为单位的样本大小，然後 
除以8并往上取整数。最後，该格式以 wBitsPerSample 栏位结束，该栏位是通 
道数乘以以位元为单位的样本大小。 

格式资讯的後面是文字字串 「 data 」 ，然後是32位元的资料大小，最後是 
波形资料本身。这些资料是按相同格式进行简单连结的样本，这与低阶波形声 
音设备上所使用的格式相同。如果样本大小是8位元，或者更少，那么每个样 
本有1位元组用於单声道，或者有2位元组用於立体声。如果样本大小在9到 
16位元之间，则每个样本就有2位元组用於单声道，或者4位元组用於立体声。 
对於立体声波形资料，每个样本都由左值及其後面的右值组成。 

对於8位元或不到8位元的样本大小，样本位元组被解释为无正负号值。 
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例如，对於8位元的样本大小，静音等於 0 x 80 位元组的字串。对於9位元或更 
多的样本大小，样本被解释为有正负号值，这时静音的字串等於值0。 

用於读取标记档案的一个重要规则是忽略不准备处理的资料块。尽管波形 
声音档案需要 「 fmt 」 和 「 data 」 子资料块（按照此顺序），但它还包含其他子 
资料块。尤其是，波形声音档案可能包含一个标记为 「 INFO 」 的子资料块，和 
提供波形声音档案资讯的子资料块的子资料块。 

叠加合成实验 


许多年来 一一 至少从毕达哥拉斯的年代起 一一 人们就已经试图分析音调。 
起初好像非常简单，但随後就变得复杂了。抱歉，我将重复一些已经说过的有 
关声音的问题。 

音调，除了一些撞击声以外，都有特殊的音调或频率。这个频率可以在人 
类能够感受到的频谱范围内，也就是从 20 Hz 到20, 000 Hz 以内。例如，钢琴的 
频率范围在 27.5 Hz 到 4186 Hz 之间。音调的另一个特徵是音量或响度。这与产 
生音调的波形的所有振幅相对应。响度的变化用分贝度量。迄今为止，一切都 
很好。 

然後有一件难办的事称做「音质」。非常简单，音质就是声音的性质，利 
用它，我们可以区分按相同音调相同音量演奏的钢琴、小提琴和喇叭。 

法国数学家 Fourier 发现一些周期性的波形——不论多么复杂——它们都 
可以表示为许多频率是基础频率整数倍的正弦波形。这个基础频率，也称作第 
一个谐波，是波形周期的频率。第一个泛音，也称作二级谐波，是基本频率的 
两倍； 第二个泛音，或者三级谐波的频率是基本频率的三倍，依次类推。谐波 
振幅的相互关系形成了波形的形状。 

例如，方波可以表示为许多的正弦波，其中偶数谐波（即2、4、6等等） 
的振幅都是0,而奇数谐波（即1、3、5等等）的振幅都按1、1/3、1/5比例依 
次类推。在锯齿波中，所有的泛音都出现，而振幅都按1、1/2、1/3、1/4比例 
依此类推。 

对於德国科学家 Hermann Helmholtz (1821-1894) ，这是了解音质的关键。 
在他的名著 《On the Sensations of Tone 》（1885 年， 1954 年由 Dover Press 
再版）中， Helmholtz 假定耳朵和大脑将复杂的声音分解为正弦波，而这些正弦 
波相关的强度就是我们所感受的音质。不幸的是，事情还没有这么简单。 

随著1968年 Wendy Carlos 的唱片 《Switched on Bach )) 的发布，电子音 
乐合成器引起了公众的广泛注意。那时使用的合成器（例如 Moog ) 是类比合成 
器。这些合成器使用类比电路来产生各种声音波形，例如方波、三角波形和锯 
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齿波形。要使这些波形听起来更像真实的乐器，它们取决於单个音符的变化程 
序。波形的所有振幅以「包络 （ envelope ) 」形成。当音符开始时，振幅由0 
开始增加，通常增加非常快。这就是所谓的起奏。然後当音符持续时，振幅保 
持为常数，这时称为持续。音符结束时，振幅降为0，这时称为释放。 

波形通过滤波器，滤波器将削弱一些谐波，并将简单波形转换得更复杂、 
更有乐感。这些滤波器的切断频率由包络控制，以便声音的谐波内容在音符的 
程序中改变。 

因为这些合成器以丰富的波形格式调和开始，而且一些谐波通过滤波器进 
行了削弱，这种形式的合成称为「负合成」。 

即使在负合成期间，许多人也还会在电子音乐中发现叠加合成是下一个大 
问题。 

在叠加合成中，您可以从许多整数倍正弦波生成器开始，选择整数倍以便 
於每个正弦波都对应一个谐波。每个谐波的振幅都由一个包络单独控制。使用 
类比电路的叠加合成不实用，因为对单个音符就需要8和24之间数目的正弦波 
生成器，而与这些正弦波生成器相关的频率必须精确的互相对齐。类比波形生 
成器稳定性很差，而且容易发生频率漂移。 

不过，由数位合成器（可以数位化地使用对照表产生波形）和电脑产生的 
波形，频率漂移并不是个问题，因而叠加合成也就切实可行了。因此总的 来说: 
在录制真实的乐曲时，可以用 Fourier 分解法将其分解成多个谐波。然後就可 
以确定每个谐波的相对强度，再用多个正弦波数位化地产生声音。 

如果开始实验时用 Fourier 分析法分析实际的音调，并从多个正弦波来产 
生这些音调，那么人们将发现音质并不像 Helmholtz 所认为的那样简单。 

最大的问题是真实音调的谐波之间并没有精确的整数关系。事实上，「谐 
波」一词对於实际的音调来说并不十分适当。各种正弦波组成都不和谐，或者 
更准确地说是「泛音」。 

人们发现，实际音调泛音之间的不和谐在创造「真实的」声音时很重要。 
静态和谐会产生「电流」声。每个泛音都在单个音符上改变振幅和频率。泛音 
中，相对频率和振幅的关系对於不同的泛音以及来自相同乐器的不同强度是不 
同的。实际音调中最复杂的部分发生在音符的起奏部分，这时比较不和谐。人 
们发现音符的这个复杂的起奏位置对於人类感受音质很重要。 

简而言之，实际乐器的声音比任何想像的都更复杂。分析音调的观点，以 
及後面用於控制泛音的振幅和频率的相对简单的包络观点显然都不实用。 

实际乐曲的一些分析法发表於早期 （ 1977到1978年间）的 《Computer Music 
Journal )) (当时由 People’s Computer Company 发行，现在由 MIT Press 发行） 
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James A . Moorer、John Grey 和 John Strawn Some 编写了 第三部 分丛书 
《Lexicon of Analyzed Tones 》 ，该书显示了在小提琴、双簧管、单簧管和喇 
叭上 演奏一 个音符（小於半秒种）的泛音的振幅和频率图形。所用的音符是中 
音 C 上的降 E 。 小提琴用20个泛音，双簧管和单簧管用21个，而喇叭用12个。 
实际上 ， 《Computer Music Journal 》 的 Volume II、 Number 2 (1978 年 9 月） 

包含了用线段来近似双簧管、单簧管和喇叭的不同频率和振幅的包络。 

因此，利用 Windows 上支援的声音波形功能，下面的程序很 简单： 将这些 
数字键入程式、为每个泛音都产生多个正弦波样本、添加这些样本并将其发送 
给波形声音音效卡，因此把20年前原始录制的声音重新制造出来也很容易。 
ADDSYNTH ( 「叠加合成」）如程式 22-6 所示。 

程式 22-6 ADDSYNTH 

ADDSYNTH.C 

/* - 

ADDSYNTH.C -- Additive Synthesis Sound Generation 

(c) Charles Petzold, 1998 

_ -k 


♦include <windows.h> 
♦include <math.h> 
♦include "addsynth.h n 
♦include "resource.h" 


♦define 
♦define 
#define 
#define 


ID_TIMER 

SAMPLE_RATE 

MAX_PARTIALS 

PI 


1 

22050 

21 


3.14159 


BOOL CALLBACK DlgProc (HWND, UINT, WPARAM, 
TCHAR szAppName [] = TEXT ("AddSynth"); 

// Sine wave generator 
// - 


LPARAM) 


double SineGenerator (double dFreq, double * pdAngle) 


double dAmp ; 

dAmp = sin (* pdAngle); 

* pdAngle += 2 * PI * dFreq 


SAMPLE RATE ; 


if (* pdAngle >= 2 * PI) 


* pdAngle 一 = 2 * PI 


return dAmp ; 
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// Fill a buffer with composite waveform 
// - 


VOID FillBuffer (INS ins, PBYTE pBuffer, int iNumSamples) 

{ 


static double 

double 

int 


dAngle [MAX_PARTIALS]; 
dAmp, dFrq, dComp, dFrac ; 

i, iPrt, iMsecTime, iCompMaxAmp, iMaxAmp, iSmp ; 
// Calculate the composite maximum amplitude 


iCompMaxAmp = ◦; 

for (iPrt = 0 ; iPrt < ins.iNumPartials ; iPrt++) 

{ 

iMaxAmp = 0 ; 

for (i = ◦ ; i < ins.pprt[iPrt].iNumAmp ; i++) 
iMaxAmp=max(iMaxAmp, ins.pprt[iPrt].pEnvAmp[i].iValue); 
iCompMaxAmp += iMaxAmp ; 


// Loop through each sample 
for (iSmp = 0 ; iSmp < iNumSamples ; iSmp++) 

{ 

dComp = 0 ; 

iMsecTime = (int) (1000 * iSmp / SAMPLE RATE); 


// Loop through each partial 
for (iPrt = 0 ; iPrt < ins.iNumPartials ; iPrt++) 
{ 

dAmp = 0 ; 
dFrq = 0 ; 


for (i = 0 ; i < ins . pprt [iPrt] . iNumAmp - 1 ; i + + ) 

{ 

if (iMsecTime >= ins.pprt[iPrt] .pEnvAmp[i ] .iTime && 
iMsecTime <= ins.pprt[iPrt].pEnvAmp[i+1].iTime) 

{ 

dFrac = (double) (iMsecTime - 

ins.pprt[iPrt] .pEnvAmp[i ] . iTime) / 

(ins.pprt[iPrt]•pEnvAmp[i+1].iTime 一 
ins.pprt[iPrt] .pEnvAmp[i ] . iTime); 

dAmp = dFrac * ins.pprt[iPrt]•pEnvAmp[i+1].iValue + 

(1-dFrac) * ins.pprt[iPrt] .pEnvAmp[i ] . iValue ; 
break ; 
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for (i = ◦ ; i < ins.pprt[iPrt].iNumFrq - 1 ; i++) 

{ 

if (iMsecTime >= ins.pprt [iPrt] .pEnvFrq[i ] . iTime && 
iMsecTime <= ins.pprt [iPrt] .pEnvFrq[i + 1] .iTime) 

{ 

dFrac = (double) (iMsecTime -ins•pprt[iPrt] •pEnvFrq[i ] . iTime) / 

(ins.pprt[iPrt].pEnvFrq[i+1].iTime - 

ins.pprt[iPrt] .pEnvFrq[i ] . iTime); 

dFrq = dFrac * ins.pprt[iPrt] .pEnvFrq[i + 1] .iValue + (1-dFrac) * 
ins.pprt[iPrt] .pEnvFrq[i ] . iValue ; 

break ; 

} 

} 

dComp += dAmp * SineGenerator (dFrq, dAngle + iPrt); 

} 

pBuffer[iSmp] = (BYTE) (127 + 127 * dComp / iCompMaxAmp); 


// Make a waveform file 
// - 


BOOL MakeWaveFile (INS ins, 

{ 

DWORD 

HANDLE 

int 

PBYTE 

WAVEFORMATEX 


TCHAR * szFileName) 

dwWritten ; 
hFile ; 

iChunkSize, iPcmSize, 
pBuffer ; 
waveform ; 


iNumSamples ; 


hFile = CreateFile (szFileName, GENERIC—WRITE, ◦, NULL, 

CREATE_ALWAYS, FILE—ATTRIBUTE—NORMAL, NULL); 
if (hFile == NULL) 

return FALSE ; 

iNumSamples = ((long) ins.iMsecTime * SAMPLE_RATE / 1000 +1) / 2 * 2 ; 
iPcmSize = sizeof (PCMWAVEFORMAT); 
iChunkSize = 12 + iPcmSize + 8 + iNumSamples ; 


if (NULL == (pBuffer = malloc (iNumSamples))) 

{ 

CloseHandle (hFile); 
return FALSE ; 


FillBuffer (ins, pBuffer, iNumSamples); 

waveform.wFormatTag = WAVE FORMAT PCM ; 
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waveform . 

nChannels 

= 1 ; 



waveform . 

nSamplesPerSec = SAMPLE RATE ; 



waveform . 

nAvgBytesPerSec = SAMPLE RATE ; 



waveform . 

nBlockAlign = 1 ; 



waveform . wBitsPerSample = 8 ; 



waveform . 

cbSize 

= ◦; 



WriteFile 

(hFile, 

n RIFF n , 4, &dwWritten, NULL) ; 



WriteFile 

(hFile, 

&iChunkSize , 4, &dwWritten, NULL) ; 



WriteFile 

(hFile, 

"WAVEfmt n , 8, &dwWritten, NULL) ; 



WriteFile 

(hFile, 

&iPcmSize, 4, &dwWritten, NULL) ; 



WriteFile 

(hFile, 

&waveform, sizeof (WAVEFORMATEX) 一 2, 

&dwWritten, 

NULL) 

參 

f 





WriteFile 

(hFile, 

"data" , 4, &dwWritten, NULL) ; 



WriteFile 

(hFile, 

&iNumSamples , 4, &dwWritten, NULL) ; 



WriteFile 

(hFile, pBuffer, iNumSamples , 

&dwWritten, 

NULL) 

參 

f 





CloseHandle (hFile) 

free (pBuffer) ; 

參 

f 



if ( (int) 

: 

dwWritten 

!= iNumSamples) 



i 

DeleteFile (szFileName) ; 



1 

return FALSE ; 


} 

return TRUE ; 



void 

TestAndCreateFile ( 

HWND hwnd, INS ins, TCHAR * szFileName, 




int idButton) 


i 

TCHAR szMessage [64] ; 



if (-1 != 

GetFileAttributes (szFileName)) 




EnableWindow (GetDlgltem (hwnd, idButton ), 

r TRUE); 


else 

r 





i 

if (MakeWaveFile (ins, szFileName)) 





EnableWindow (GetDlgltem (hwnd, idButton), TRUE); 



else 

r 





wsprintf (szMessage, TEXT ("Could not create %x • ’’ ）， 

szFileName); 




MessageBeep (MB ICONEXCLAMATION); 





MessageBox (hwnd A szMessage, szAppName, 

} 

} 

} 

ME 

> OK | MB 工 CONEXCLAMATION); 
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int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, 


iCmdShow) 



int 


if (-1 == DialogBox (hlnstance, szAppName, NULL, DlgProc)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT !’’）， 

szAppName, MB_ICONERROR); 

} 

return 0 ; 


BOOL CALLBACK DlgProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 

IParam) 

{ 

static TCHAR * szTrum = TEXT ("Trumpet.wav"); 

static TCHAR * szOboe = TEXT ("Oboe.wav"); 

static TCHAR * szClar = TEXT ("Clarinet.wav"); 

switch (message) 

{ 

case WM—INITDIALOG: 

SetTimer (hwnd, ID_TIMER, 1, NULL); 
return TRUE ; 


case WM—TIMER: 

KillTimer (hwnd, ID_TIMER); 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 
ShowCursor (TRUE); 


TestAndCreateFile (hwnd, insTrum, szTrum, IDC—TRUMPET); 
TestAndCreateFile (hwnd, insOboe, szOboe, IDC_OBOE); 
TestAndCreateFile (hwnd,insClar, szClar,IDC_CLARINET); 

SetDlgltemText (hwnd, 工 DC_TEXT, TEXT ("")); 

SetFocus (GetDlgltem (hwnd, IDC_TRUMPET)); 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 
return TRUE ; 


case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case IDC—TRUMPET: 

PlaySound (szTrum, NULL, SND_FILENAME | SND_SYNC); 

return TRUE ; 
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case IDC—OBOE: 

PlaySound (szOboe, NULL, SND_FILENAME | SND_SYNC); 

return TRUE ; 

case 工 DC_CLARINET: 

PlaySound (szClar, NULL, SND_FILENAME |SND_SYNC); 

return TRUE ; 

} 

break ; 


case WM_SYSCOMMAND: 

switch (LOWORD (wParam)) 

{ 

case SC_CLOSE: 

EndDialog (hwnd, 0); 
return TRUE ; 

} 

break ; 

} 

return FALSE ; 

} 

ADDSYNTH.RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h" 

♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 


// Dialog 

ADDSYNTH DIALOG DISCARDABLE 100, 100, 176, 49 


STYLE 
CAPTION 
FONT 8, 
BEGIN 


WS_MINIMIZEBOX | WS_CAPTION | WS_SYSMENU 
"Additive Synthesis M 

"MS Sans Serif" 


PUSHBUTTON 

PUSHBUTTON 

PUSHBUTTON 

LTEXT 

END 

RESOURCE. H ( 摘录） 


"Trumpet",IDC_TRUMPET,8,8,48,16 
"Oboe",IDC—OBOE,64,8,48,16 
"Clarinet", 工 DC_CLARINET,120,8,48,16 
"Preparing Data •••’’，IDC TEXT, 8,32,1 , 8 


// Microsoft Developer Studio generated include file. 


// Used by AddSynth.rc 


#define 

IDC_ 

TRUMPET 

1000 

♦define 

IDC_ 

_OBOE 

1001 

♦define 

IDC 一 

一 CLARINET 

1002 

#define 

IDC 

TEXT 

1003 
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这里没有给出附加档案 ADDSYNTH . H ， 因为它包含几百行令人讨厌的叙述， 
您将在本书附上的光碟上找到它。在 ADDSYNTH . H 的开始位置，我定义了三个结 
构，用於储存包络资料。每个振幅和频率分别储存到型态 ENV 的结构阵列中。 
这些数字对由时间（毫秒）和振幅值（按任意度量单位）或频率（以周期/秒为 
单位）组成。这些阵列的长度可变，其变化范围从6到14。假定振幅和频率值 
之间直接相关。 

每种乐器都包括一个泛音集（喇叭用12个，双簧管和单簧管分别使用21 
个），这些泛音集储存在型态 PRT 的结构阵列中。 PRT 结构储存振幅和频率包络 
的点数，以及指向 ENV 阵列的指标。 INS 结构包括音调的总时间（以毫秒为单位）、 
泛音数以及指向储存泛音的 PRT 阵列的指标。 

ADDSYNTH 有三个标记为 「 Trumpet 」 、 「 Oboe 」 和 「 Clarinet 」 的按钮 。 PC 

的速度还没有快到足以即时计算所有的叠加合成，因此第一次执行 ADDSYNTH 时， 
这些按钮将失效，直到程式计算完样本并建立了 TRUMPET . WAV , OBOE . WAV 和 
CLARINET . WAV 音效档案後，按钮才启动，而且可以使用 PlaySound 函式播放这 
三种声音。下次执行时，程式将检查波形档案是否存在，而不需重新建立。 

ADDSYNTH 中的 FillBuffer 函式完成了大多数工作。 FillBuffer 从计算合 
成最大振幅的总数开始。为此，它在乐器的泛音中回圈，以找出每个泛音的最 
大振幅，然後将所有的最大振幅加起来。此值後来用於将样本缩放到8位元的 
样本大小。 

然後 FillBuffer 计算每个样本的值。每个样本都对应於一段以毫秒为单位 
的时间，该时间取决於取样频率（实际上，在 22. 05 kHz 的取样频率下，每22 
个样本对应於相同的毫秒时间值）。然後， FillBuffer 在泛音中回圈。对於频 
率和振幅，它找出与毫秒时间值对应的包络线段，并执行线性插补。 

频率值与相位角值一起传递给 SineGenerator 函式。本章前面讨论过，产 
生数位化的正弦波形需要保持相位角值，并依据频率值增加。从 SineGenerator 
函式传回时，正弦值将乘以泛音的振幅并累加。样本的所有泛音都加在起来之 
後，样本就缩放到位元组大小。 

起床号波形声音 

WAKEUP ， 如程式 22- 7所示，是原始码档案看起来不是很完整的程式之一。 
程式视窗看起来像对话方块，但是没有资源描述档（我们已经知道如何编写）， 
并且程式使用一个波形档案，但在光碟上却没有这样的档案。不过，程式非常 
有趣：它播放的声音很大，并且非常令人讨厌。 WAKEUP 是我的闹钟，能够唤醒 
我继续工作。 
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程式 22~7 

WAKEUP 




WAKEUP.C 





/* - 





WAKEUP.C 

—— Alarm 

Clock Program 



/ 


(c) 

Charles Petzold, 

1998 

■ 女 

/ 

♦include <windows.h> 




♦include <commctrl.h> 




// 

ID values for 

3 child windows 



#define 

ID TIMEPICK 

0 



#define 

ID—CHECKBOX 

1 



♦define 

ID PUSHBTN 

2 



// 

Timer ID 




♦define 

ID TIMER 

1 



// 

Number of 100-nanosecond increments 

(ie FILETIME ticks) 

in an hour 

#define FTTICKSPERHOUR (60 * 

60 * (LONGLONG) 10000000) 


// 

Defines and structure for waveform 

"file" 


♦define 

SAMPRATE 

11025 



#define 

NUMSAMPS 

(3 * SAMPRATE) 



#define 

HALFSAMPS 

(NUMSAMPS / 2) 



typedef struct 

! 





\ 

char 

chRiff[4]; 




DWORD 

dwRiffSize ; 



char 

chWave[4]; 




char 

chFmt [4]; 




DWORD 

dwFmtSize ; 



PCMWAVEFORMAT pwf ; 




char 

chData [ 4]; 




DWORD 

dwDataSize ; 



BYTE 

\ 

byData[0]; 




J 

WAVEFORM ; 





// The window proc and 

the subclass proc 



LRESULT CALLBACK WndProc 

(HWND, UINT, WPARAM, 

LPARAM); 


LRESULT CALLBACK SubProc 

(HWND, UINT, WPARAM, 

LPARAM); 


// Original window procedure addresses for 

the subclassed windows 

WNDPROC SubbedProc [3]; 
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// The current child window with the input focus 


HWND hwndFocus ; 


int WINAPI WinMain (HINSTANCE hlnstance, 
iCmdShow) 


HINSTANCE hPrevInst, 

PSTR szCmdLine, 


static TCHAR 

HWND 

MSG 

WNDCLASS 


szAppName [] = TEXT ("WakeUp"); 

hwnd ; 


msg ; 

wndclass ; 


int 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION); 
=LoadCursor (NULL, IDC—ARROW); 

=(HBRUSH) (1 + COLOR_BTNFACE); 

=NULL ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 


MessageBox ( 

return 0 


NULL, TEXT (" This program requires Windows NT !’，）， 

szAppName, MB ICONERROR); 



hwnd = CreateWindow ( szAppName A szAppName, 

WS_OVERLAPPED | WS_CAPTION | 
WS_SYSMENU I WS—MINIMIZEBOX, 
CW—USEDEFAULT, CW—USEDEFAULT, 
CW_USEDEFAULT, CW—USEDEFAULT, 
NULL, NULL, hlnstance, NULL); 


ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

TranslateMessage (&msg); 
DispatchMessage (&msg); 

} 

return msg.wParam ; 
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LRESULT CALLBACK WndProc ( 
IParam) 

{ 

static HWND 
static WAVEFORM 
"WAVE", "fmt ", 


static WAVEFORM 

FILETIME 

HINSTANCE 

工 NITCOMMONCONTROLSEX 
int 

LARGE_INTEGER 

SYSTEMTIME 


HWND hwnd, UINT message, WPARAM wParam, LPARAM 


hwndDTP, hwndCheck, hwndPush ; 
waveform = { ， 'RIFF n , NUMSAMPS + 0x24, 

sizeof (PCMWAVEFORMAT) , 1, 1, SAMPRATE, 
SAMPRATE, 1, 8, "data", NUMSAMPS }; 

* pwaveform ; 

ft ; 

hlnstance ; 
icex ; 

i, cxChar, cyChar ; 

li ； 

st ; 


switch (message) 

{ 

case WM—CREATE: 

// Some initialization stuff 


GWL HINSTANCE) 


hlnstance = (HINSTANCE) GetWindowLong (hwnd. 


icex.dwSize = sizeof (icex); 
icex.dwICC = ICC_DATE_CLASSES ; 

InitCommonControlsEx (&icex); 

// Create the waveform file with alternating square waves 

pwaveform = malloc (sizeof (WAVEFORM) + NUMSAMPS); 

* pwaveform = waveform ; 

for (i = ◦ ; i < HALFSAMPS ; i++) 

if (i % 600 < 300) 
if (i % 16 < 8) 
pwaveform—>byData[i] = 25 ; 
else 

pwaveform->byData[i] = 230 ; 
else 

if (i % 8 < 4) 

pwaveform->byData[i] = 25 ; 

else 

pwaveform->byData[i] = 230 ; 

// Get character size and set a fixed window size. 
cxChar = LOWORD (GetDialogBaseUnits ()); 
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cyChar = HIWORD (GetDialogBaseUnits ()) ; 

SetWindowPos ( hwnd, NULL, 0, ◦, 42 * cxChar, 10 * cyChar / 

3 + 2 * 

GetSystemMetrics (SM—CYBORDER) +GetSystemMetries (SM_CYCAPTION) 

,SWP—NOMOVE I SWP—NOZORDER | SWP—NOACTIVATE); 

// Create the three child windows 

hwndDTP = CreateWindow (DATETIMEPICK—CLASS, TEXT ( nn ), 

WS_BORDER I WS_CHILD | WS—VISIBLE | DTS_TIMEFORMAT, 

2 * cxChar, cyChar, 12 * cxChar, 4 * cyChar / 3, 
hwnd, (HMENU) ID_TIMEPICK, hlnstance, NULL); 
hwndCheck = CreateWindow (TEXT ("Button"), TEXT ("Set Alarm ”）， 
WS_CHILD I WS—VISIBLE | BS—AUTOCHECKBOX, 

16 * cxChar, cyChar, 12 * cxChar, 4 * cyChar / 3, 
hwnd, (HMENU) ID_CHECKBOX, hlnstance, NULL); 

hwndPush = CreateWindow (TEXT ("Button’’），TEXT ("Turn Off ’，）， 
WS_CHILD I WS—VISIBLE | BS_PUSHBUTTON | WS_DISABLED, 

28 * cxChar, cyChar, 12 * cxChar, 4 * cyChar / 3, 
hwnd, (HMENU) ID_PUSHBTN, hlnstance, NULL); 

hwndFocus = hwndDTP ; 

// Subclass the three child windows 

SubbedProc [工 D_TIMEPICK] = (WNDPROC) 

SetWindowLong (hwndDTP, GWL—WNDPROC, (LONG) SubProc); 

SubbedProc [工 D—CHECKBOX] = (WNDPROC) 

SetWindowLong (hwndCheck, GWL—WNDPROC, (LONG) SubProc); 

SubbedProc [工 D_PUSHBTN] = (WNDPROC) 

SetWindowLong (hwndPush, GWL—WNDPROC, (LONG) SubProc); 

// Set the date and time picker control to the current time 

// plus 9 hours, rounded down to next lowest hour 

GetLocalTime (&st); 

SystemTimeToFileTime (&st, &ft); 
li = * (LARGE_INTEGER *) &ft ; 
li.QuadPart += 9 * FTTICKSPERHOUR ; 
ft = * (FILETIME *) &li ; 

FileTimeToSystemTime (&ft, &st); 
st.wMinute = st.wSecond = st.wMilliseconds = 0 ; 
SendMessage (hwndDTP, DTM—SETSYSTEMTIME, 0, (LPARAM) &st); 
return 0 ; 

case WM SETFOCUS : 
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SetFocus (hwndFocus) ; 
return 0 ; 

case WM—COMMAND: 

switch (LOWORD (wParam)) // control ID 

{ 

case 工 D—CHECKBOX: 

// When the user checks the ’’Set Alarm" button, get the 
// time in the date and time control and subtract from 

// it the current PC time. 

if (SendMessage (hwndCheck, BM—GETCHECK, 0, 0)) 

{ 

SendMessage (hwndDTP, DTM—GETSYSTEMTIME, ◦, (LPARAM) &st); 

SystemTimeToFileTime (&st, &ft); 
li = * (LARGE_INTEGER *) &ft ; 

GetLocalTime (&st); 

SystemTimeToFileTime (&st, &ft); 
li.QuadPart -= ((LARGE—INTEGER *) &ft)->QuadPart ; 

// Make sure the time is between 0 and 24 hours! 
// These little adjustments let us completely ignore 
// the date part of the SYSTEMTIME structures. 

while ( li.QuadPart < 0) 

li.QuadPart += 24 * FTTICKSPERHOUR ; 

li.QuadPart %= 24 * FTTICKSPERHOUR ; 

// Set a one-shot timer! (See you in the morning.) 

SetTimer (hwnd, ID_TIMER, (int) (li.QuadPart / 10000), 0); 

} 

// If button is being unchecked, kill the timer. 
else 

KillTimer (hwnd, ID_TIMER); 

return 0 ; 

// The "Turn Off" button turns off the ringing alarm, and also 
// unchecks the ’’Set Alarm" button and disables itself. 

case ID_PUSHBTN: 

PlaySound (NULL, NULL, 0); 

SendMessage (hwndCheck, BM SETCHECK, ◦, 0); 
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EnableWindow (hwndDTP, TRUE) ; 

EnableWindow (hwndCheck, TRUE); 

EnableWindow (hwndPush, FALSE); 

SetFocus (hwndDTP); 
return 0 ; 

} 

return 0 ; 

// The WM—NOTIFY message comes from the date and time picker. 
// If the user has checked "Set Alarm" and then gone back to 
// change the alarm time, there might be a discrepancy between 
// the displayed time and the one-shot timer. So the program 
// unchecks "Set Alarm" and kills any outstanding timer. 

case WM—NOTIFY: 

switch (wParam) // control ID 

{ 

case ID_TIMEPICK: 

switch (((NMHDR *) IParam)->code) // notification code 

{ 

case DTN_DATETIMECHANGE: 
if (SendMessage (hwndCheck, BM—GETCHECK, ◦, 0)) 

{ 

KillTimer (hwnd, ID_TIMER); 

SendMessage (hwndCheck, BM—SETCHECK, 0, 0); 

} 

return 0 ; 

} 

} 

return 0 ; 

// The WM COMMAND message comes from the two buttons. 


case WM TIMER: 


// When the timer message comes, kill the timer (because we only 
// want a one-shot) and start the annoying alarm noise going. 


KillTimer (hwnd, ID_TIMER); 
PlaySound ( (PTSTR) pwaveform, NULL, 


SND LOOP I SND ASYNC); 


SND MEMORY 


// Let the sleepy user turn off the timer by slapping the 
/ / space bar. If the window is minimized, it's restored; then 
// it's brought to the forefront; then the pushbutton is enabled 

// and given the input focus. 
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EnableWindow (hwndDTP, FALSE) ; 

EnableWindow (hwndCheck, FALSE); 

EnableWindow (hwndPush A TRUE); 

hwndFocus = hwndPush ; 

ShowWindow (hwnd, SW_RESTORE); 

SetForegroundWindow (hwnd); 
return 0 ; 

// Clean up if the alarm is ringing or the timer is still set. 
case WM—DESTROY: 

free (pwaveform); 

if (IsWindowEnabled (hwndPush)) 

PlaySound (NULL, NULL, 0); 

if (SendMessage (hwndCheck, BM—GETCHECK, ◦, 0)) 

KillTimer (hwnd, ID_TIMER); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

LRESULT CALLBACK SubProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

int idNext, id = GetWindowLong (hwnd, GWL_ID); 
switch (message) 

{ 

case WM—CHAR: 

if (wParam == *\t') 

{ 

idNext = id ; 

do 

idNext = (idNext + 

(GetKeyState (VK_SHIFT) < 0 ? 2 : 1)) % 3 ; 
while (!IsWindowEnabled (GetDlgltem (GetParent 

(hwnd), idNext))); 

SetFocus (GetDlgltem (GetParent (hwnd), idNext)); 
return 0 ; 


break ; 
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case WM SETF0CUS : 

hwndFocus : 

break ; 

1 

=hwnd ; 




/ 

return CallWindowProc ( 

wParam,IParam); 

} 

SubbedProc 

[id], 

hwnd. 

message, 


WAKEUP 使用的波形只有两个方波，但是变化迅速。实际的波形在 WndProc 
的 WM _ CREATE 讯息处理期间计算。所有的波形档案都储存在记忆体中。指向这 
个记忆体块的指标传递给 PlaySound 函式，该函式使用 SND _ MEMORY 、 SND _ L 00 P 
和 SND_ASYNC 参数。 

WAKEUP 使用称为 rDate-Time PickerJ 的通用控制项。这个控制项用来让 
使用者选择指定的日期和时间 （ WAKEUP 只使用时间挑选功能）。程式可以使用 
SYSTEMTIME 结构来获得和设定时间，在获得和设定 PC 自身时钟时也使用该结构。 
要多方面了解 Date-Time Picker , 请试著建立不带有任何 DTS 样式旗标的视窗。 

注意 WM _ CREATE 讯息结束时的处理 方式： 程式假定您在睡觉之前执行它， 
并希望它在8小时之後来唤醒您。 

现在很明显，可以从 GetLocalTime 函式在 SYSTEMTIME 结构获得目前时间， 
而且可以「手工」增加时间。但在一般情况下，此计算将涉及检查大於24小时 
的结果时间，这意味著您必须増加天数栏位，然後可能涉及增加月（因此还必 
须有用於每月天数和闰年检查的逻辑），最後您可能还要增加年。 

事实上，推荐的方法（来自 /Platform SDK/Windows Base Services/General 
Library / Time/Time Reference/Time Structures / SYSTEMTIME ) 是将 SYSTEMTIME 
转换为 FILETIME 结构(使用 SystemTimeToFileTime ) ，将 FILETIME 结构强制 
转换为 LARGE _ INTEGER 结构，在大整数上执行计算，再强制转换回 FILETIME 结 
构，然後转换回 SYSTEMTIME 结构(使用 FileTimeToSystemTime ) 。 


顾名思义， FILETIME 结构用於获得和设定档案最後一次更新的时间。此结 
构 如下： 


type 

r 

struct 

FILETIME 

"ft 

1 

DWORD 

dwLowDateTime ; 



DWORD 

dwHighDateTime ; 


J 

FILETIME ; 




这两个栏位一起表示了从1601年1月1日起每隔1000亿分之一秒所显示 


的64位元值。 

Microsoft C / C ++ 编译器支援64位元整数作为 ANSI C 的非标准延伸语法。 
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资料型态是 __ int 64。 您可以 S _ int 64 型态执行所有的常规算术运算，并且有 
一些执行时期程式库函式也支援它们。 Windows 的 WINNT . H 表头档案定义 如下： 

typedef _ int 64 LONGLONG ; 

typedef unsigned int64 DWORDLONG ; 


在 Windows 中，这有时称为「四字组」，或者更普遍地称为「大整数」。 
也有一个 union 定义如下： 


typedef union 

LARGE INTEGER 


struct 

{ 

DWORD LowPart ; 

LONG HighPart ; 


} ； 


1 

LONGLONG 

QuadPart ; 

/ 

LARGE 

INTEGER 

參 

f 


这是 /Platform SDK/Windows Base Services/General Library/Large 
Integer Operations 中的全部文件。此 union 允许您使用 32 位元或者64位元 
的大整数。 


MIDI 和音乐 

由电子音乐合成器制造者协会在19世纪80年代早期开发了「乐器数位化 
介面」 （ MIDI : Musical Instrument Digital Interface) 。 MIDI 是用於将它 

们中的电子乐器与电脑连结起来的协定，也是电子音乐领域中相当重要的标准。 
MIDI 规范由 MIDI Manufacturers Association ( MMA ) 维护，它的网站 
是 http ：// www . midi . orR 0 

使用 MIDI 

MIDI 为透过电缆来传递数位命令定义了传输协定。 MIDI 电缆使用5针 DIN 
接头，但是只使用了三个接头。一个是遮罩，一个是回路，而第三个传输资料。 
MIDI 协定在每秒31，250位元的速度下是单向的。资料的每个位元组都由一个开 
始位元开始，以一个停止位元结束，用於每秒3, 125位元组的有效传输速率。 

重要的是要了解真实的声音 一一 不论是类比格式还是数位格式 一一 不是经 
由 MIDI 电缆传输的。通过电缆传输的通常都是简单的命令讯息，长度一般是1、 
2或3位元组。 

简单的 MIDI 设定可以包括两片 MIDI 相容硬体。一个是本身不发声，但是 
单独产生 MIDI 讯息的 MIDI 键盘。此键盘有一个有标记有 「MIDI Out 」 的 MIDI 
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埠。用 MIDI 电缆将这个埠与 MIDI 声音合成器的 「MIDI In 」 埠连结起来。合成 
器看起来很像前面有几个按钮的小盒子。 

按下键盘上的一个键时（假定是中音 C ) ，键盘就将3个位元组发送给 MIDI 
Out j ： 阜。在十六进位中，这些位元 组是： 

90 3 C 40 

第一个位元组 (90) 显示 Note On 讯息。第二个位元组是键号，其中 3 C 是 
中音 C 。 第三个位元组是敲按键的速度，此速度范围是从1到127。我们恰巧使 
用了一个对速度不敏感的键盘，因此它发送平均速度值。这个3位元组的讯息 
顺著 MIDI 电缆进入合成器的 Midi In 埠。通过播放中音 C 的音调来回应合成器。 

释放键时，键盘会将另一个3位元组讯息发送给 MIDI Out 埠： 

90 3 C 00 

这与 Note On 命令相同，但带有 0 速位元组。这个位元组值0表示 Note Off 
命令，意味著应该关闭音符。合成器通过停止声音来回应。 

如果合成器有复调音乐的能力（即，同时播放多个音符的能力），那么您 
就可以在键盘上演奏和弦。键盘产生多条 Note On 讯息，并且合成器将播放所 
有的音符。当您释放和弦时，键盘就将多条 Note Off 讯息发送给合成器。 

一般来说，这种设定中的键盘称为 「 MIDI 控制器」，它负责产生 MIDI 讯息 
来控制合成器。 MIDI 控制器看起来不像键盘。 MIDI 控制器包括下面 几种： 看起 
来像单簧管或萨克斯管的 MID 管乐控制器、 MIDI 吉他控制器、 MIDI 弦乐控制器 
和 MIDI 鼓控制器。至少所有这些控制器都产生3位元组的 Note On 和 Note Off 
讯息。 

胜过类似的键盘或传统乐器，控制器也可以是「编曲器」，它是在记忆体 
中储存 Note On 和 Note Off 讯息顺序，然後再播放的硬体。现在单机编曲器已 
经比几年前少见多了，因为它们已经被电脑所替代。安装 MIDI 卡的电脑也可以 
生成 Note On 和 Note Off 讯息来控制合成器。 MIDI 编辑软体，允许您在萤幕上 
作曲，还可以储存来自 MIDI 控制器的 MIDI 讯息，并处理这些讯息，然後将 MIDI 
讯息发送给合成器。 

合成器有时也称为「声音模组 （sound module ) 」或「音源器 （tone 
generator ) 」。 MIDI 不指定如何真正产生这些声音的方法。合成器可以使用任 
何一种声音生成技术。 

实际上，只有非常简单的 MIDI 控制器（例如管乐控制器）才只有 MIDI Out 
电缆埠。通常键盘都有内建合成器，并且有三个 MIDI 电缆埠，分别标记为 「MIDI 
In」 、 「MIDI Out 」 和 「MIDI Thru」 。 MIDI In 埠接受 MIDI 讯息，从而播放键 
盘的内部合成器 。 MIDI Out 埠将 MIDI 讯息从键盘发送到外部合成器 。 MIDI Thru 
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埠是一个输出埠，它复制 MIDI In 埠的输入信号——无论从 MIDI In 埠获得什 
么都发送给 MIDI Thru 埠 (MIDI Thru 燁不包括从 MIDI Out 埠发送的任何资讯）。 

透过电缆连结 MIDI 硬体只有两种 方法： 将一个硬体上的 MIDI Out 连结到 
另一个的 MIDI In ， 或者将 MIDI Thru 与 MIDI In 连结 。 MIDI Thru 埠允许连结 
一 系列的 MIDI 合成器。 

程式更改 

合成器能制作哪种声音？是钢琴声、小提琴声、喇叭声还是飞碟声？通常 
合成器能够生成的各种声音都储存在 ROM 或者其他地方。它们通常称为「声音」、 
「乐器」或者「音色」。 （ 「音色」 一 词来自类比合成器的时代，当时通过将 
音色和弦插入合成器前面的插孔中来设定不同的声音）。 

在 MIDI 中，合成器能够生成的各种声音称为「程式」。改变这个程式需要 
向合成器发送 MIDI Program Change 讯息 
CO pp 

其中， pp 的范围是 0 到127。通常 MIDI 键盘的顶部是一系列有限的按钮， 
这些按钮将产生 Program Change 讯息。透过按下这些按钮，您可以从键盘控制 
合成器的声音。这些按钮号通常由1开始，而不是由0开始，因此程式代号1 
与 Program Change 位元组的0对应。 

MIDI 规格没有说明程式代号与乐器的对应关系。例如，著名的 Yamaha DX 7 
合成器上的前三个程式分别称为 「Warm Strings」 、「 Mellow Horn 」 和 「Pick 
Guitar 」 。而在 Yamaha TX 81 Z 音调发生器上，它们是 Grand Piano、Upright Piano 
和 Deep Grand 。 在 Roland MT -32 声音模组上，它们是 Acoustic Piano KAcoustic 
Piano 2 和 Acoustic Piano 3。因此，如果不希望在从键盘制作程式改变时感 
到吃惊，那么最好了解一下乐器声与您将使用的合成器的程式代号的对应关系。 

这对於包含 Program Change 讯息的 MIDI 档案来说是一个实际问题-这 

些档案并不是装置无关的，因为它们的内容在不同的合成器上听起来是不一样 
的。然而，在最近几年 ， rGeneral MIDI 」( GM ) 标准已经把这些程式代号标 
准化。 Windows 支援 General MIDI 。 如果合成器与 General MIDI 规格不一致， 
那么程式转换可使它模拟 General MIDI 合成器。 


MIDI 通道 


迄今为止，我已经讨论了两条 MIDI 讯息，第一条是 Note On : 

90 kk vv 

其中， kk 是键号 （0 到 127) ， vv 是速度 （0 到 127) 。0速度表示 Note Off 
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命令。第二条是 Program Change ： 

CO pp 

其中， pp 的范围是从 0 到127。这些是典型的 MIDI 讯息。第一个位元组称 
作「状态」位元组。根据位元组的状态，它通常後跟0、1或2位元组的「资料」 
(我即将说明的「系统专有」讯息除外）。从资料位元组中分辨出状态位元组 
很容易：高位总是1用於状态位元组，0用於资料位元组。 

然而，我还没有讨论过这两个讯息的普通格式 。 Note On 讯息的普通格式如 


9 n kk vv 

而 Program Change 是： 

Cn pp 

在这两种情况下， n 表示状态位元组的低四位元，其变化范围是0到15。 
这就是 MIDI 「通道」。通道一般从1开始编号，因此，如果 n 为0,则代表通 
道1。 

使用16个不同通道允许一条 MIDI 电缆传输16种不同声音的讯息。通常， 
您将发现 MIDI 讯息的特殊字串以 Program Change 讯息开始，为所用的不同通 
道设定声音，而字串的後面是多条 Note On 和 Note Off 命令。再後面可能是其 
他的 Program Change 命令。但任何时候，每个通道都只与一种声音联系。 

让我们作一个简单 范例： 假定我已经讨论过的键盘控制能够同时产生用於 
两条不同通道——通道1和通道2 —一 的 MIDI 讯息。透过按下键盘上的按钮将 
两条 Program Change 讯息发送给合成器： 

C 0 01 

C 1 05 

现在设定通道1用於程式2,并设定通道2用於程式6 (回忆通道代号和程 
式代号都是基於1的，但讯息中的编码是基於0的）。现在按下键盘上的键时， 
就发送两条 Note On 讯息，一条用於一个通道： 

90 kk vv 

91 kk vv 

这就允许您和谐地同时播放两种乐器的声音。 

另一种方法是「分开」键盘。低键可以在通道1上产生 Note On 讯息，高 
键可以在通道2上产生 Note On 讯息。这就允许您在一个键盘上独立播放两种 
乐器的声音。 

当您考虑 PC 上的 MIDI 编曲软体时，使用16个通道将更为有利。每个通道 
都代表不同的乐器。如果有能够独立播放16种不同乐器的合成器，那么您就可 
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以编写用於16个波段的管弦乐曲，而且只使用一条 MIDI 电缆将 MIDI 卡与合成 
器连结起来。 

MIDI 讯息 

尽管 Note On 和 Program Change 讯息在任何 MIDI 执行中都是最重要的讯 
息，但并不是所有的 MIDI 都可以执行。表 22-2 是 MIDI 规格中定义的 MIDI 通 
道讯息表。我在前面提到过，状态位元组的高位元总是设定著，而状态位元组 
後面的资料位元组的高位元都等於0。这意味著状态位元组的范围是 0 x 80 到 
OxFF ， 而资料位元组的范围是0到 0 x 7 F 。 


表 22-2 MIDI 通道讯息 （n = 通道代号，从 0 到 15) 


MIDI 讯息 

资料位元组 

值 

Note Off 

8n kk vv 

kk = 键号 (0-127) 

vv 二速度 (0-127) 

Note On 

9n kk vv 

kk = 键号 (0-127) 

vv = 速度 (1-127, 0 = note off ) 

Polyphonic After Touch 

An kk tt 

kk = 键号 (0-127) 

tt 二按下之後 (0-127) 

Control Change 

Bn cc xx 

cc = 控制器 (0-121) 

xx = 值 （ 0-127) 

Channel Mode Local 

Control 

Bn 7A xx 

xx 二 0 (关 ） ， 127 ( 开） 

All Notes Off 

Bn 7B 00 


Omni Mode Off 

Bn 7C 00 


Omni Mode On 

Bn 7D 00 


Mono Mode On 

Bn 7E cc 

cc = 频道数 

Poly Mode On 

Bn 7F 00 


Program Change 

Cn pp 

pp = 程式 (0-127) 

Channel After Touch 

Dn tt 

tt 二按下之後 (0-127) 

Pitch Wheel Change 

En 11 hh 

11 二低 7 位元 (0-127) 

hh = 高 7 位元 (0-127) 


虽然没有严格的要求，键号通常还是与西方音乐的传统音符相对应（例如， 
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对於打击声音，每个键号码可以是不同的打击乐器）。当键号与钢琴类的键盘 
对应时，键60 (十进位）是中音 C 。 MIDI 键号在普通的88键钢琴范围的基础上 
向下扩展了 21个音符，向上扩展了 19个音符。速度代号是按下某键的速度， 
在钢琴上它控制声音的响度与和谐特徵。特殊的声音可以依这种方式或其他方 
式来回应键的速度。 

前面展示的例子使用带有0速度位元组的 Note On 讯息来表示 Note Off 命 
令。对於键盘（或者其他控制器）还有一个单独的 Note Off 命令，该命令实作 
释放键的速度，不过，非常少见。 

还有两个「接触後」讯息。接触後是一些键盘的特徵，按下某个键以後， 
再用力按下键可以在某些方式上改变声音。 一 个讯息（状态位元组 OxDn ) 是将 
接触後应用於通道中目前演奏的所有音符，这是最常见的。状态位元组 OxAn 表 
示独立应用每个单独键的接触後。 

通常，键盘上都有一些用於进一步控制声音的刻度盘或开关。这些装置称 
为「控制器」，所有变化都由状态位元组 OxBn 表示。通过从0到121的号码确 
认控制器。 OxBn 状态位元组也用於 Channel Mode 讯息，这些讯息显示了合成器 
如何在通道中回应同时发生的音符。 

一个非常重要的控制器是上下转换音调的轮，它有一个单独的 MIDI 讯息， 
其状态位元组是 OxEn 。 

表 22-2 中所缺少的是状态位元组以从 F 0 到 FF 开始的讯息。这些讯息称为 
系统讯息，因为它们适用於整个 MIDI 系统，而不是部分通道。系统讯息通常用 
於同步的目的、触发编曲器、重新设定硬体以及获得资讯。 

许多 MIDI 控制器连续发送状态位元组 OxFE ， 该位元组称为 Active Sensing 
讯息。这简单地表示了 MIDI 控制器仍依附於系统。 

一 条重要的系统讯息是以状态位元组 OxFO 开始的「系统专用」讯息。此讯 
息用於将资料块按厂商与合成器所依靠的格式传递给合成器（例如，用这种方 
法可以将新的声音定义从电脑传递给合成器）。系统专用讯息只是可以包含多 
於2个资料位元组的唯一讯息。实际上，资料位元组数是变化的，而每个资料 
位元组的高位都设定为0。状态位元组 0 xF 7 表示系统专用讯息的结尾。 

系统专用讯息也用於从合成器转储资料（例如，声音定义）。这些资料都 
是通过 MIDI Out 焊来自合成器。如果要用装置无关的方式对 MIDI 编写程式， 
则应该尽可能避免使用系统专用讯息。但是它们对於定义新的合成器声音是非 
常有用的。 

MIDI 档案（副档名是 . MDI ) 是带有定时资讯的 MIDI 资讯集，可以用 MCI 播 
放 MIDI 档案。不过，我将在本章的後面讨论低阶 midiOut 函式。 
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MIDI 编曲简介 

低阶 MIDI 的 API 包括字首为 midiin 和 midiOut 的函式，它们分别用於读 
取来自外部控制器的 MIDI 序列和在内部或外部的合成器上播放音乐。尽管其名 
称为「低阶」，但使用这些函式时并不需要了解 MIDI 卡上的硬体介面。 

要在播放音乐的准备期间打开一个 MIDI 输出设备，可以呼叫 midiOutOpen 
函式： 

error = midiOutOpen (&hMidiOut, wDevicelD, dwCallBack, 
dwCallBackData, dwFlags); 

如果呼叫成功，则函式传回0,否则传回错误代码。如果参数设定正确，则 
常见的一种错误就是 MIDI 设备已被其他程式使用。 

该函式的第一个参数是指向 HMIDI 0 UT 型态变数的指标，它接收後面用於 
MIDI 输出函式的 MIDI 输出代号。第二个参数是设备 ID 。 要使用真实的 MIDI 设 
备，这个参数范围可以是从0到小於由 midiOutGetNumDevs 传回的数值。您还 
可以使用 MIDIMAPPER ， 它在 MMSYSTEM . H 中定义为-1。大多数情况下，函式的後 
三个参数设定为 NULL 或0。 

一旦打开一个 MIDI 输出设备并获得了其代号，您就可以向该设备发送 MIDI 
讯息。此时可以 呼叫： 

error = midiOutShortMsg (hMidiOut, dwMessage); 

第一个参数是从 midiOutOpen 函式获得的代号。第二个参数是包装在32位 
元 DWORD 中的1位元组、2位元组或者3位元组的讯息。我在前面讨论过 ， MIDI 
讯息以状态位元组开始，後面是0、1或2位元组的资料。在 dwMessage 中，状 
态位元组是最不重要的，第一个资料位元组次之，第二个资料位元组再次之， 
最重要的位元组是0。 

例如，要在 MIDI 通道5上以 0 x 7 F 的速度演奏中音 C (音符是 0 x 3 C ) ，则 
需要3位元组的 Note On 讯息： 

0 x 95 0 x 3 C 0 x 7 F 

midiOutShortMsg 的参数 dwMessage 等於 0 x 007 F 3 C 95。 

三个基础的 MIDI 讯息是 Program Change (可为某一特定通道而改变乐器声 
音 ）、 Note On 和 Note Off 。打开一个 MIDI 输出设备後，应该从一条 Program Change 
讯息开始，然後发送相同数量的 Note On 和 Note Off 讯息。 

当您一直演奏您想演奏的音乐时，您可以重置 MIDI 输出设备以确保关闭所 
有的音符： 

midiOutReset (hMidiOut) ; 

然後关闭设备： 
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midiOutClose (hMidiOut) ; 

使用低阶的 MIDI 输出 API 时， midiOutOpen 、 midiOutShortMsg 、 
midiOntReset 和 midiOutClose 是您需要的四个基础函式。 

现在让我们演奏一段音乐。 BACHT 0 CC ， 如程式 22-8 所示，演奏了 J . S . Bach 
著名的风琴演奏的 D 小调 《Toccata and Fugue )) 中托卡塔部分的第一小节。 


程式 22-8 BACHT0CC 

BACHTOCC.C 


■k _ 


BACHTOCC.C —— 


Bach Toccata in D Minor (First Bar) 

(c) Charles Petzold, 1998 


♦include <windows.h> 

♦define ID_TIMER 1 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

TCHAR szAppName[] = TEXT ("BachTocc"); 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, 

iCmdShow) 

{ 

HWND hwnd ; 

MSG msg ; 

WNDCLASS wndclass ; 


int 


wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass.hicon 
wndclass.hCursor 
wndclass.hbrBackground = 

wndclass.IpszMenuName = 

wndclass.IpszClassName = 

if (!RegisterClass (&wndclass)) 


CS_HREDRAW | CS_VREDRAW 
WndProc ; 


=hlnstance ; 

=Loadlcon (NULL, IDI—APPLICATION) 
=LoadCursor (NULL, IDC—ARROW); 
GetStockObject (WHITE_BRUSH); 

NULL ; 
szAppName ; 


MessageBox 


return 


NULL, TEXT (’’This program requires Windows NT !’▼), 

szAppName, MB ICONERROR); 


hwnd = CreateWindow ( szAppName A TEXT ("Bach Toccata in D Minor (First 
Bar) n ), 

WS OVERLAPPEDWINDOW, 
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CW 

USEDEFAULT, CW USEDEFAULT, 






CW 

USEDEFAULT, CW USEDEFAULT, 






NULL, NULL, hlnstance, NULL); 




if ( !hwnd) 










return 0 ; 





ShowWindow (hwnd, iCmdShow); 





UpdateWindow (hwnd) 

參 

f 





while 

: 

(GetMessage (&msg, NULL, 0, 

0)) 




i 

TranslateMessage (&msg); 




\ 

DispatchMessage (&msg) 

參 

f 



} 

j 

return 

msg.wParam ; 





DWORD 

MidiOutMessage 

(HMIDIOUT hMidi, 

int iStatus, int iChannel, 

； 





int iDatal A int 

iData2) 

1 

DWORD < 

dwMessage 

=iStatus | iChannel | (iDatal << 8) | (iData2 << 16); 

} 

return 

midiOutShortMsg (hMidi , dwMessage); 



LRESULT CALLBACK WndProc ( 

HWND hwnd. 

UINT message. 

WPARAM 

wParam, LPARAM 

IParam) 

； 







l 

static 

r 

struct 







i 

int 

iDur 

参 

f 






int 

iNote [2]; 





f 

noteseq [] = { 

110 

, 69, 81, 110, 67, 79, 990 

, 69, 81, 

220, , -l r 



110, 

67, 

79, 110, 65, 

77, 110, 64, 

76, 110, 

62, 74, 



220, 

61, 

73, 440, 62, 

74, 1980, -1, 

-i, no. 

57, 69, 



110, 

55, 

67, 990, 57, 

69, 220, -1, 

-1, 220, 

52, 64, 



220, 

53, 

65, 220, 49, 

61, 440, 50, 

62, 1980, 

-1, -1 }; 


static 

HMIDIOUT 


hMidiOut ; 





static 

int 



iIndex ; 




int 




■ 

參 

f 



switch 

； 

(message) 






l 

case WM CREATE : 










// Open MIDIMAPPER 

device 





if 

(midiOutOpen 

UhMidiOut, MIDIMAPPER, 
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MessageBeep (MB_ICONEXCLAMATION) ; 
MessageBox ( hwnd, TEXT ("Cannot open 

MIDI output device !’’）， 

szAppName, MB_ICONEXCLAMATION | MB_OK); 

return -1 ; 

} 

// Send Program Change messages for "Church Organ" 

MidiOutMessage (hMidiOut, OxCO, ◦, 19, 0); 
MidiOutMessage (hMidiOut, OxCO, 12, 19, 0); 

SetTimer (hwnd, ID_TIMER, 1000, NULL); 
return 0 ; 


case WM TIMER : 


// Loop for 2-note polyphony 


for (i = 0 ; i < 2 ; i++) 

{ 

// Note Off messages for previous note 


if (ilndex != 0 && noteseq[ilndex - 1].iNote[i] != -1) 

{ 

MidiOutMessage (hMidiOut, 0x80, ◦, noteseq[iIndex - 1].iNote[i], 0); 

MidiOutMessage (hMidiOut, 0x80, 12, noteseq[ilndex - 1]•iNote[i], 0); 
} 

// Note On messages for new note 


if (ilndex != sizeof (noteseq) / sizeof (noteseq[0]) && 
noteseq[ilndex]•iNote[i] != -1) 

{ 

MidiOutMessage (hMidiOut, 0x90, ◦, noteseq[ilndex]•iNote[i], 127); 
MidiOutMessage (hMidiOut, 0x90, 12,noteseq[ilndex]•iNote[i], 127); 


if (ilndex != sizeof (noteseq) / sizeof (noteseq[0])) 

{ 

SetTimer (hwnd, ID_TIMER, noteseq[ilndex++]•iDur - 1, NULL); 

} 

else 

{ 

KillTimer (hwnd, ID_TIMER); 

DestroyWindow (hwnd); 
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return 0 ; 

case WM—DESTROY: 

midiOutReset (hMidiOut); 
midiOutClose (hMidiOut); 
PostQuitMessage (0); 
return 0 ; 

return DefWindowProc (hwnd, message, wParam, IParam); 


图 22-1 显示了 Bach 的 D 小调 Toccata 的第一小节。 

Adagio. 



Manuale. 


Pedale. 



图 22-1 Bach 的 D 小调 Toccata and Fugue 的第一^小节 

在这里要做的就是把音乐转换成一系列的数值 一一 基本键号和定时资讯， 
其中定时资讯表示发送 Note On (对应於风琴键按下）和 Note Off (释放键） 
讯息的时间。由於风琴键盘对速度不敏感，所以我们用相同的速度来演奏所有 
的音符。另外一个简化是忽略断奏（即，在连续的音符之间留下一个很短的停 
顿，以达到尖硬的效果）和连奏（在连续的音符之间有更圆润的重叠）之间的 
区别。我们假定一个音符结束後面紧接著下一个音符开始。 

如果看得懂乐谱，那么您就会注意到托卡塔曲以两个平行的八度音阶开始。 
因此 BACHT 0 CC 建立了一个资料结构 noteseq 来储存一系列的音符持续时间以及 
两个键号。不幸的是，音乐持续进入第二小节就需要更特殊的方法来储存此资 
讯。我将四分音符的持续时间定义为1760毫秒，也就是说，八分音符（在音符 
或者休止符上有一个符尾）的持续时间是880毫秒，十六分音符（两个符尾） 
是440毫秒，三十二分音符（三个符尾）是220毫秒，六十四分音符（四个符 
尾）是110毫秒。 

这第一小节中有两个波音 -一 个在第一个音符处，另一个在小节的中间。 
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这在乐谱上用带一条短竖线的曲线表示。在结构复杂的乐曲中，波音符号表示 
此音符实际应演奏为三个音符——标出的音符、比它低一个全音的音符，然後 
还是标出的音符。前两个音符演奏得要快，第三个音符要持续剩余的时间。例 
如，第一个音符是带波音的 A ， 则应演奏为 A 、 G 、 A 。 我将波音的前两个音符定 
义为六十四分音符，所以每个音符都持续110毫秒。 

在第一小节还有四个延长符号。乐谱上表示为中间带点的半圆形。延长符 
号表示该音符在演奏时所持续的时间比标记的时间要长，通常由演奏者决定具 
体的时间。我对於延长符号延长了 50%的时间。 

可以看到，即使是转换一小段看来简单直接的乐曲，例如 D 小调 《 Toccata 》 
的开头，也并不是件容易的事！ 

noteseq 结构阵列包含了这一小节中平行的音符和休止符的三个数位。音符 
持续时间的後面是用於平行八度音阶的两个 MIDI 键号。例如，第一个音符是 A ， 
持续时间是110毫秒。因为中音 C 的 MIDI 键号是60,所以中音 C 上面的 A 的键 
号是69，比 A 高一个八度音阶的键号是81。因此， noteseq 阵列的前三个数是 
110、69和81。我用音符值 -1 表示休止符。 

WM _ CREATE 讯息处理期间， BACHT 0 CC 设定一个 Windows 计时器用於定时1000 
毫秒——表示乐曲从第1秒开始演奏——然後用 MIDIMAPPER 设备 ID 呼叫 
midiOutOpen 。 

BACHT 0 CC 只需要一种乐器（风琴）的声音，所以只需要一个通道。为了简 
化 MIDI 讯息的发送， BACHT 0 CC 中还定义了一个小函式 MidiOutMessage 。 此函 
式接收 MIDI 输出代号、状态位元组、通道代号和两个位元组资料。其功能是把 
这些数字打包到一条32位元的讯息并呼叫 midiOutShortMsgo 

在 WM _ CREATE 讯息处理程序的後期， BACHT 0 CC 发送一条 Program Change 讯 
息来选择「教堂风琴」的声音。在 General MIDI 声音配置中，教堂风琴声音在 
Program Change 讯息中用数位位元组19表示。实际演奏的音符出现在 WM TIMER 
讯息处理期间。用回圈来处理两个音符的多音。如果前一个音符还在演奏， 
BACHT 0 CC 就为该音符发送 Note Off 讯息。然後，如果下一个音符不是休止符， 
则向通道0和12发送 Note On 讯息。随後，重置 Windows 计时器，使其与 noteseq 
结构中音符的持续时间一致。 

音乐演奏完後， BACHT 0 CC 删除视窗。在 WM _ DESTR 0 Y 讯息处理期间，程式呼 
叫 midiOutReset 和 midiOutClose , 然後终止程式。 

尽管 BACHT 0 CC 合理地处理和计算声音（即使还不完全像真人演奏风琴）， 
但一般情况下用 Windows 计时器按这种方式来演奏音乐并不管用。问题在於 
Windows 计时器是依据 PC 的系统时钟，其解析度不能满足音乐的要求。而且， 
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Windows 计时器不是同步的。这样，如果其他程式正忙於执行，则获得 WM_TIMER 
讯息就会有轻微的延迟。如果程式不能立即处理这些讯息，就会放弃 WM_TIMER 
讯息，这时的声音听起来一团糟。 

因此，当 BACHT 0 CC 显示了如何呼叫低阶 MIDI 输出函式时，使用 Windows 
计时器显然不适合精确的音乐创作。所以， Windows 还提供了一系列附加的计时 
器函式，使用低阶的 MIDI 输出函式时可以利用这些函式。这些函式的字首为 
time , 您可以利用它们将计时器的解析度设定到最小1毫秒。我将在本章结尾 
的 DRUM 程式向您展示使用这些函式的方法。 

通过键盘演奏 MIDI 合成器 


因为大多数 PC 使用者可能都没有连结在机器上的 MIDI 键盘，所以可以用 
每个人都有的键盘（上面全部的字母键和资料键）来代替。程式 22-9 所示的程 
式 KBMIDI 允许您用 PC 键盘来演奏电子音乐合成器——不管是连结在音效卡上 
的，还是挂接在 MIDI Out 埠的外部合成器。 KBMIDI 让您完全控制 MIDI 输出设 
备（即内部或外部的合成器）、 MIDI 通道和乐器声音。除了演奏时的趣味性以 
外，我还发现此程式对於开发 Windows 如何实作 MIDI 支援很有用。 


程式 22-9 KBMIDI 


KBMIDI.C 

/* - 

KBMIDI.C -- Keyboard MIDI Player 

(c) Charles Petzold, 1998 


♦include <windows.h> 

// Defines for Menu IDs 
// - 


♦define 

IDM 

OPEN 

0x100 

#define 

I DM 

一 CLOSE 

0x101 

#define 

IDM 

DEVICE 

0x200 

♦define 

IDM 

一 CHANNEL 

0x300 

♦define 

IDM 

VOICE 

0x400 

LRESULT 

TCHAR 

CALLBACK WndProc (HWND, 

szAppName 

UINT, WPARAM, LPARAM); 

[]=TEXT ("KBMidi"); 


HMIDIOUT 

int 

int 


hMidiOut ; 

iDevice = MIDIMAPPER, iChannel = ◦, iVoice = ◦, iVelocity = 64 
cxCaps, cyChar, xOffset, yOffset ; 


// Structures and data for showing families and instruments on menu 
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II—— 

— 

— 

— 


typedef struct 

； 




1 

TCHAR 

* szlnst ; 




int 

iVoice ; 




; 

INSTRUMENT 

參 

f 




typedef 

struct 




l 

TCHAR 

* szFam ; 



INSTRUMENT inst 

[8 ]； 



/ 

FAMILY ; 





FAMILY 

fam [16] = 

{ 



TEXT 

( n Piano ’，）， 





TEXT 

("Acoustic Grand Piano"), ◦, 



TEXT 

("Bright Acoustic Piano" ),1, 



TEXT 

( "Electric Grand Piano ”）， 2, 



TEXT 

( "Honky-tonk Piano"), 

3, 



TEXT 

( "Rhodes Piano ”）， 

4, 



TEXT 

( "Chorused Piano ’，）， 

5, 



TEXT 

("Harpsichord"), 

6, 



TEXT 

( "Clavinet M ) , 

7, 



TEXT ( "Chromatic Percussion ’’）， 




TEXT 

( "Celesta" ) , 

8, 



TEXT 

("Glockenspiel"), 

9, 



TEXT 

( "Music Box '，）， 

10, 



TEXT 

("Vibraphone"), 

11, 



TEXT 

( "Marimba" ) , 

12, 



TEXT 

( "Xylophone" ) , 

13, 



TEXT 

( "Tubular Bells ’’）， 

14, 



TEXT 

(" Dulcimer" ) , 

15, 



TEXT ("Organ"), 




TEXT 

(’’Hammond Organ ’'）， 

16, 



TEXT 

("Percussive Organ"), 

17, 



TEXT 

(’’Rock Organ ’’）， 

18, 



TEXT 

("Church Organ ’，）， 

19, 



TEXT 

("Reed Organ 1 ，）， 

20, 



TEXT 

("Accordian"), 

21, 



TEXT 

("Harmonica"), 

22, 



TEXT 

(▼'Tango Accordian ’，）， 

23, 



TEXT ("Guitar"), 




TEXT 

("Acoustic Guitar (nylon ) 1 ’）， 

24, 


TEXT 

("Acoustic Guitar (steel)"), 

25, 


TEXT 

("Electric Guitar (jazz )’，）， 

26, 
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TEXT 

("Electric Guitar (clean)’’ ）， 27, 

TEXT 

("Electric Guitar (muted)’ ，）， 28, 

TEXT 

("Overdriven Guitar"), 

29, 

TEXT 

("Distortion Guitar"), 

30, 

TEXT 

("Guitar Harmonics ’’）， 

31, 

TEXT ("Bass"), 


TEXT 

("Acoustic Bass ’’）， 

32, 

TEXT 

("Electric Bass (finger)’，) 

, 33, 

TEXT 

("Electric Bass (pick )’，）， 

34, 

TEXT 

("Fretless Bass"), 

35, 

TEXT 

("Slap Bass 1 n ), 

36, 

TEXT 

("Slap Bass 2 n ), 

37, 

TEXT 

("Synth Bass 1 ’’）， 

38, 

TEXT 

("Synth Bass 2 ’’）， 

39, 

TEXT 

(’’Strings ’’）， 


TEXT 

("Violin"), 

40, 

TEXT 

("Viola"), 

41, 

TEXT 

("Cello"), 

42, 

TEXT 

("Contrabass"), 

43, 

TEXT 

("Tremolo Strings 1 ，）， 

44, 

TEXT 

( n Pizzicato Strings’ 1 ), 

45, 

TEXT 

("Orchestral Harp ’’）， 

46, 

TEXT 

("Timpani"), 

47, 

TEXT ("Ensemble ▼，: 

), 


TEXT 

(’’String Ensemble 1"), 

48, 

TEXT 

(’’String Ensemble 2 ”）， 

49, 

TEXT 

("Synth Strings l n ), 

50, 

TEXT 

("Synth Strings 2"), 

51, 

TEXT 

("Choir Aahs ”）， 

52, 

TEXT 

("Voice Oohs"), 

53, 

TEXT 

("Synth Voice"), 

54, 

TEXT 

("Orchestra Hit"), 

55, 

TEXT ("Brass"), 


TEXT 

("Trumpet"), 

56, 

TEXT 

("Trombone"), 

57, 

TEXT 

("Tuba"), 

58, 

TEXT 

("Muted Trumpet"), 

59, 

TEXT 

("French Horn ’，）， 

60, 

TEXT 

("Brass Section ’’）， 

61, 

TEXT 

("Synth Brass l n ). 

62, 

TEXT 

("Synth Brass 2 n ), 

63, 

TEXT ("Reed"), 


TEXT 

(’’Soprano Sax"), 

64, 

TEXT 

("Alto Sax"), 

65, 

TEXT 

( n Tenor Sax"), 

6 6, 

TEXT 

("Baritone Sax"), 

67, 

TEXT 

("Oboe"), 

68, 

TEXT 

("English Horn ’，）， 

69, 
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TEXT 

("Bassoon"), 

70, 

TEXT 

("Clarinet"), 

71, 

TEXT ("Pipe"), 



TEXT 

(’’Piccolo"), 

72, 

TEXT 

(▼，Flute 

n ), 

73, 

TEXT 

("Recorder"), 

74, 

TEXT 

("Pan Flute"), 

75, 

TEXT 

("Bottle Blow ’，）， 

76, 

TEXT 

(’’Shakuhachi"), 

77, 

TEXT 

("Whistle"), 

78, 

TEXT 

("Ocarina"), 

79, 

TEXT ("Synth Lead"), 



TEXT 

("Lead 

1 (square)"), 

80, 

TEXT 

("Lead 

2 (sawtooth)"), 

81, 

TEXT 

("Lead 

3 (caliope lead)") 

, 82, 

TEXT 

("Lead 

4 (chiff lead) n ), 

83, 

TEXT 

("Lead 

5 (charang) n ), 

84, 

TEXT 

("Lead 

6 (voice) n ), 

85, 

TEXT 

("Lead 

7 (fifths )”）， 

86, 

TEXT 

("Lead 

8 (brass + lead) n ) 

, 87, 

TEXT ("Synth Pad"), 


TEXT 

("Pad 1 

(new age)"), 

88, 

TEXT 

("Pad 2 

(warm)"), 

89, 

TEXT 

("Pad 3 

(polysynth)"), 

90, 

TEXT 

("Pad 4 

(choir) ’，）， 

91, 

TEXT 

("Pad 5 

(bowed)"), 

92, 

TEXT 

("Pad 6 

(metallic) n ), 

93, 

TEXT 

("Pad 7 

(halo )”）， 

94, 

TEXT 

("Pad 8 

(sweep) n ), 

95, 

TEXT ("Synth Effects ”）， 


TEXT 

("FX 1 

(rain)"), 

96, 

TEXT 

("FX 2 

(soundtrack)"), 

97, 

TEXT 

("FX 3 

(crystal) n ), 

98, 

TEXT 

("FX 4 

(atmosphere) n ), 

99, 

TEXT 

("FX 5 

(brightness)"), 

100, 

TEXT 

("FX 6 

(goblins) n ), 

101, 

TEXT 

("FX 7 

(echoes) ’， ）， 

102, 

TEXT 

("FX 8 

(sci-fi)"), 

103, 

TEXT ("Ethnic"), 



TEXT 

("Sitar"), 

104, 

TEXT 

("Banjo"), 

105, 

TEXT 

("Shamisen"), 

106, 

TEXT 

("Koto"), 

107, 

TEXT 

("Kalimba"), 

108, 

TEXT 

("Bagpipe"), 

109, 

TEXT 

("Fiddle"), 

110, 

TEXT 

("Shanai"), 

HI, 

TEXT ( n Percussive' 1 ), 
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TEXT 

("Tinkle Bell"), 

112, 

TEXT 

("Agogo"), 

113, 

TEXT 

(▼’Steel Drums ”）， 

114, 

TEXT 

("Woodblock"), 

115, 

TEXT 

("Taiko Drum"), 

116, 

TEXT 

("Melodic Tom 1 ，）， 

117, 

TEXT 

("Synth Drum ’，）， 

118, 

TEXT 

("Reverse Cymbal"), 

119 


TEXT ("Sound Effects ’，）， 


TEXT 

("Guitar Fret Noise"), 

120 

TEXT 

("Breath Noise ”）， 

121, 

TEXT 

("Seashore"), 

122, 

TEXT 

("Bird Tweet"), 

123, 

TEXT 

("Telephone Ring ”）， 

124, 

TEXT 

("Helicopter"), 

125, 

TEXT 

("Applause"), 

126, 

TEXT 

("Gunshot"), 

127 


// Data for translating scan codes to octaves and notes 
// - 


#define NUMSCANS (sizeof key / sizeof key[0]) 
struct 


{ 

int 

int 

int 

int 

TCHAR ^ 


iOctave ; 
iNote ; 
yPos ; 
xPos ; 
szKey ; 


key []= 


// Scan Char Oct Note 






ii - 







-1, 

-1, 

1, 

-1, 

NULL, 

// 

0 

None 





-1, 

-1, 

-1, 

-1, 

NULL, 

// 

1 

Esc 





-1, 

-1, 

0, 

0, 

TEXT 

( nn ), 

// 


2 

1 



5, 

1, 

0, 

2, 

TEXT 

(” c#”) 

F 

// 

3 

2 

5 

c# 

5, 

3, 

0, 

4, 

TEXT 

( n D# n ) 

r 

// 

4 

3 

5 

D# 

-1, 

-1, 

0, 

6, 

TEXT 

( nn ), 

II 

5 

4 




5, 

6, 

0, 

8, 

TEXT 

( n F# n ) 

f 

// 

6 

5 

5 

F# 

5, 

8, 

0, 

10, 

TEXT 

( n G# n ) 

r 

// 

7 

6 

5 

G# 

5, 

10, 

0, 

12, 

TEXT 

("A#") 

r 

// 

8 

7 

5 

A# 

-1, 

-1, 

0, 

14, 

TEXT 

( nn ), 

II 

9 

8 




6, 

1, 

0, 

16, 

TEXT 

(” c#”) 

f 

// 

10 

9 

6 

c# 

6, 

3, 

0, 

18, 

TEXT 

( n D# n ) 

f 

// 

11 


0 

6 

-1, 

-1, 

0, 

20, 

TEXT 

( nn ), 

II 

12 


— 




D# 
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6, 

6, 

0, 

22, 

TEXT 

( n F# n ) 

r 

// 13 

— 

6 

F# 

-1, 

-1, 

-1, 

-1, 

NULL, 

// 

14 

Back 




-1, 




NULL, 

// 

15 

Tab 




5, 

0, 

1, 

1, 

TEXT 

( n c n ) , 

// 

16 

q 

5 

C 

5, 

2, 

1, 

3, 

TEXT 

( n D ”）， 

// 

17 

w 

5 

D 


5, 4, 1, 5 , TEXT ("E") , "18 e 5 

E 

5, 5, 1, 7, TEXT ( n F n ), "19 r 5 

F 

5, 7, 1, 9, TEXT ( n G n ), // 20 t 5 

G 

5, 9, 1, 11, TEXT ("A") , "21 y 5 

A 

5, 11, 1, 13, TEXT ("B") , "22 u 5 

B 

6, ◦, 1, 15, TEXT ("C") , "23 i 6 

C 

6, 2, 1, 17, TEXT ("D") , "24 o 6 

D 

6, 4, 1, 19, TEXT ("E") , "25 p 6 

E 

6, 5, 1, 21, TEXT ("F"), "26 [ 6 

F 

6, 7, 1, 23, TEXT ("G") , "27 ] 6 

G 

-1, -1, -1, -1, NULL, // 28 Ent 



-1, 

-1, 

-1, 

-1, 

NULL, 


// 

29 

Ctrl 



3, 

8, 

2, 

2, 

TEXT 

("G #”）， 

// 

30 

a 

3 

G# 

3, 

10, 

2, 

4, 

TEXT 

("A#"), 

// 

31 

s 

3 

A# 

-1, 

-1, 

2, 

6, 

TEXT 

( nn ), 

// 

32 

d 



4, 

1, 

2, 

8, 

TEXT 

rc# n ), 

// 

33 

f 

4 

c# 

4, 

3, 

2, 

10, 

TEXT 

("D #”）， 

// 

34 

g 

4 

D# 

-1, 

-1, 

2, 

12, 

TEXT 

( nn ), 

// 

35 

h 



4, 

6, 

2, 

14, 

TEXT 

( n F# n ), 

// 

36 

■ 

D 

4 

F# 

4, 

8, 

2, 

16, 

TEXT 

("G #”）， 

// 

37 

k 

4 

G# 

4, 

10, 

2, 

18, 

TEXT 

(” M ”） ， 

// 

38 

1 

4 

A# 

-1, 

-1, 

2, 

20, 

TEXT 

( nn ), 

// 

39 

• 

f 



5 , 

1, 

2, 

22, 

TEXT 

rc #”） ， 

// 

40 

f 

5 

c# 

~lr 

-1, 

-1, 

-1, 

NULL, 


// 

41 
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-1, 

~lr 

-1, 

~lr 

NULL, 



// 

42 Shift 




-1, 

~lr 

-1, 

-1, 

NULL, 



// 

43 

\ 



(not line 

: continuation) 










3, 

9, 

3, 

3, 

TEXT 

( n A ”）， 


// 

44 

z 

3 


A 












3, 

11, 

3, 

5, 

TEXT 

( ， 'B ”）， 


// 

45 

X 

3 


B 












4, 

0, 

3, 

7, 

TEXT 

rc n ), 


// 

46 

c 

4 


C 












4, 2, 

3, 

9, 

TEXT 

("D ”）， 


// 

47 

V 

4 

D 


4, 

4, 

3, 

11, 

TEXT 

( ， 'E ”）， 


// 

48 

b 

4 


E 












4, 

5, 

3, 

13, 

TEXT 

("F"), 


// 

49 

n 

4 


F 












4, 

7, 

3, 

15, 

TEXT 

( ， 'G ”）， 


// 

50 

m 

4 


G 












4, 9, 

3, 

17, 

TEXT 

( n A ”）， 


// 

51 

r 

4 

A 


4, 

11, 

3, 

19, 

TEXT 

( n B ”）， 


// 

52 

• 

4 


B 












5, 

0, 

3, 

21, 

TEXT 

( n C n ) 


// 

53 

/ 

5 

} ; 

C 











int 

WINAP 工 WinMain (HINSTANCE hlnstance 

, HINSTANCE 

hPrevInstance, 











PSTR 

szCmdLine 

r 

int 

iCmdShow) 

； 











i 

MSG 




msg; 








HWND 




hwnd 

• 

f 







WNDCLASS 



wndclass ; 








wndclass . 

style 






= CS_ 

HREDRAW | CS VREDRAW ; 


wndclass . 

lpfnWndProc 



= WndProc ; 






wndclass . 

cbClsExtra 



= 0 ; 







wndclass . 

cbWndExtra 



=◦; 







wndclass . 

hlnstance 



= hlnstance 

• 

f 





wndclass . 

hlcon 






= 

Loadlcon 


(NULL, 

IDI 

APPLICATION) ; 











wndclass . 

hCursor 





= LoadCursor (NULL, 工 DC_ 

ARROW) ; 


wndclass . 

hbrBackground 


= GetstoekObj ect 

(WHITE BRUSH) ; 




wndclass . 

IpszMenuName 

= NULL ; 








wndclass . 

IpszClassName 


= s zAppName 

參 

r 






if ( !RegisterClass (&wndclass)) 

/ 








l 

MessageBox 

(NULL, 

TEXT 

("This 

program requires Windows 

NT! n ) , 










szAppName, 



MB 

ICONERROR); 

• 
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return 0 ; 

} 

hwnd = CreateWindow ( szAppName, TEXT ("Keyboard MIDI Player"), 
WS_OVERLAPPEDWINDOW | WS_HSCROLL | WS—VSCROLL, 

CW—USEDEFAULT, CW_USEDEFAULT, 

CW—USEDEFAULT, CW_USEDEFAULT, 

NULL, NULL, hlnstance, NULL); 

if ( !hwnd) 

return 0 ; 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, 0, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 

} 

// Create the program 1 s menu (called from WndProc, WM—CREATE) 

// - 


HMENU CreateTheMenu (int iNumDevs) 

{ 

TCHAR 

HMENU 

int 

MIDIOUTCAPS moc ; 


szBuffer [32]; 

hMenu, hMenuPopup, hMenuSubPopup ; 
i, iFam, ilns ; 


hMenu = CreateMenu (); 


hMenuPopup 

AppendMenu 

AppendMenu 


AppendMenu 


// Create "On/Off" popup menu 
=CreateMenu (); 

(hMenuPopup, MF_STRING, IDM—OPEN, TEXT ("&Open n )); 
(hMenuPopup, MF_STRING | MF_CHECKED, 工 DM_CLOSE, 

TEXT ("^Closed")); 

(hMenu, MF_STRING | MF_POPUP, (UINT) hMenuPopup, 

TEXT ( n &Status n )); 


// Create "Device" popup menu 


hMenuPopup = CreateMenu (); 

// Put MIDI Mapper on menu if it's installed 
if (!midiOutGetDevCaps (MIDIMAPPER, &moc, sizeof (moc))) 

AppendMenu (hMenuPopup, MF STRING, IDM DEVICE 


MIDIMAPPER, 


(int) 
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else 

iDevice = 0 ; 

// Add the rest of the MIDI devices 
for (i = 0 ; i < iNumDevs ; i++) 


moc.szPname); 


midiOutGetDevCaps (i, &moc, sizeof (moc)); 

AppendMenu (hMenuPopup, MF_STRING, IDM—DEVICE + 

moc.szPname); 



CheckMenuItem (hMenuPopup, ◦, MF BYPOSITION | MF CHECKED); 


AppendMenu (hMenu, MF_STRING | MF_POPUP, (UINT) hMenuPopup, 

TEXT ("&Device n )); 
// Create "Channel" popup menu 
hMenuPopup = CreateMenu (); 
for (i = 0 ; i < 16 ; i++) 


{ 

MF CHECKED), 



wsprintf (szBuffer, TEXT ("%d"), i + 1); 

AppendMenu (hMenuPopup, MF_STRING | (i ? MF_UNCHECKED 

IDM CHANNEL + i, szBuffer); 


AppendMenu (hMenu, MF_STRING | MF_POPUP, (UINT) hMenuPopup, 

TEXT ("^Channel")); 

// Create "Voice" popup menu 
hMenuPopup = CreateMenu (); 
for (iFam = 0 ; iFam < 16 ; iFam++) 

{ 

hMenuSubPopup = CreateMenu (); 
for (ilns = 0 ; ilns < 8 ; ilns++) 

{ 

wsprintf (szBuffer, TEXT ( M &%d.\t%s M ), ilns + 1, 


fam[iFam]•inst[ilns]•szInst); 

AppendMenu (hMenuSubPopup, 

MF_STRING I (fam[iFam]•inst[ilns]•iVoice ? 
MF_UNCHECKED : MF_CHECKED), 
fam[iFam]•inst[ilns]•iVoice + IDM—VOICE, 
szBuffer); 

} 

wsprintf (szBuffer, TEXT ("&%c.\t%s n ), 'A' + iFam, 

fam[iFam].szFam); 

AppendMenu (hMenuPopup, MF_STRING | MF_POPUP, (UINT) hMenuSubPopup, 
szBuffer); 
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AppendMenu (hMenu, MF_STRING | MF_POPUP, (UINT) hMenuPopup, 

TEXT ("&Voice")); 
return hMenu ; 

} 

// Routines for simplifying MIDI output 
// - 


DWORD MidiOutMessage ( HMIDIOUT hMidi , int iStatus, int iChannel, 

int 


int iData2) 


iDatal, 


DWORD dwMessage ; 

dwMessage = iStatus | iChannel | (iDatal << 8) | (iData2 << 16); 

return midiOutShortMsg (hMidi , dwMessage); 



DWORD MidiNoteOff ( HMIDIOUT hMidi , int iChannel, int iOct, int iNote, int 
iVel) 

{ 

return MidiOutMessage (hMidi, 0x080, iChannel, 12 * iOct + iNote, iVel); 


DWORD MidiNoteOn ( HMIDIOUT hMidi , int iChannel, int iOct, int iNote, int 

iVel) 

{ 

return MidiOutMessage ( hMidi , 0x090, iChannel, 12 * iOct + iNote, 

iVel); 


DWORD MidiSetPatch (HMIDIOUT hMidi, int iChannel, int iVoice) 

{ 

return MidiOutMessage (hMidi , OxOCO, iChannel, iVoice, 0); 


DWORD MidiPitchBend (HMIDIOUT hMidi , int iChannel, int iBend) 

{ 

return MidiOutMessage (hMidi , OxOEO, iChannel, iBend & 0x7F, iBend >> 7); 


// Draw a single key on window 
// - 


VOID DrawKey (HDC hdc, int iScanCode, BOOL fInvert) 

{ 


RECT rc ; 
rc.left 
rc.top 


= 3 * cxCaps * key[iScanCode].xPos / 2 + xOffset ; 
= 3 * cyChar * key[iScanCode].yPos / 2 + yOffset ; 


第 1268 页 






Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


rc.right = rc.left + 3 * cxCaps ; 

rc. bottom = rc. top + 3 * cyChar / 2 ; 


SetTextColor (hdc, flnvert ? 0x0OFFFFFFul : 0x000000OOul); 

SetBkColor (hdc, flnvert ? 0x00000OOOul : OxOOFFFFFFul); 


FillRect (hdc, &rc, GetStockObject (flnvert ? BLACK—BRUSH : WHITE_BRUSH)); 
DrawText (hdc, key[iScanCode].szKey, -1, &rc, 

DT_SINGLELINE | DT_CENTER | 

DT—VCENTER); 

FrameRect (hdc, &rc, GetStockObj ect (BLACK—BRUSH)); 

} 

// Process a Key Up or Key Down message 
// - 


VOID ProcessKey (HDC hdc, UINT message, LPARAM IParam) 

{ 

int iScanCode, iOctave, iNote ; 
iScanCode = OxOFF & HIWORD (IParam); 

if (iScanCode >= NUMSCANS) // No scan codes over 53 

return ; 


key 


if ( (iOctave = key[iScanCode] .iOctave) == -1) 

return ; 


/ / Non-music 


off 


if (GetKeyState (VK—SHIFT) < 0) 

iOctave += 0x20000000 & IParam ? 2 : 1 ; 
if (GetKeyState (VK—CONTROL) < 0) 

iOctave -= 0x20000000 & IParam ? 2 : 1 ; 
iNote = key[iScanCode].iNote ; 

if (message == WM—KEYUP) // For key up 

MidiNoteOff (hMidiOut, iChannel, iOctave, iNote, 0) ; // Note 

DrawKey (hdc, iScanCode, FALSE); 
return ; 



if (0x40000000 & IParam) 

return ; 


// ignore typematics 


MidiNoteOn (hMidiOut, iChannel A iOctave, iNote, iVelocity) ; // Note on 
DrawKey (hdc, iScanCode, TRUE) ; // Draw the inverted key 

} 

// Window Procedure 
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LRESULT CALLBACK WndProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

static BOOL bOpened = FALSE ; 

HDC hdc ; 

HMENU hMenu ; 

int i, iNumDevs, iPitchBend, cxClient, cyClient ; 

MIDIOUTCAPS moc ; 

PAINTSTRUCT ps ; 

SIZE size ; 

TCHAR szBuffer [16]; 

switch (message) 

{ 

case WM—CREATE: 

// Get size of capital letters in system font 
hdc = GetDC (hwnd); 

GetTextExtentPoint (hdc, TEXT ("M"), 1, &size); 
cxCaps = size.ex ; 
cyChar = size.cy ; 

ReleaseDC (hwnd, hdc); 

// Initialize "Volume" scroll bar 

SetScrollRange (hwnd, SB_HORZ, 1, 127, FALSE); 

SetScrollPos (hwnd, SB_HORZ, iVelocity, TRUE); 

// Initialize "Pitch Bend" scroll bar 

SetScrollRange (hwnd, SB—VERT, 0, 16383, FALSE); 

SetScrollPos (hwnd, SB—VERT, 8192, TRUE); 

// Get number of MIDI output devices and set up menu 


if (0 == (iNumDevs = midiOutGetNumDevs ())) 

{ 

MessageBeep (MB_ICONSTOP); 

MessageBox ( hwnd, TEXT (’’No MIDI output devices !’’）， 

szAppName, MB_OK | MB_ICONSTOP); 

return -1 ; 

} 

SetMenu (hwnd, CreateTheMenu (iNumDevs)); 
return 0 ; 
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case WM—SIZE: 

cxClient = LOWORD (IParam); 
cyClient = HIWORD (IParam); 


xOffset = (cxClient - 25 * 3 * cxCaps / 2) / 2 ; 
yOffset = (cyClient - 11 * cyChar) / 2 + 5 * cyChar ; 
return 0 ; 

case WM—COMMAND: 

hMenu = GetMenu (hwnd); 

// "Open" menu command 

if (LOWORD (wParam)== 工 DM—OPEN && IbOpened) 

{ 

if (midiOutOpen (&hMidiOut, iDevice, 0)) 

{ 

MessageBeep (MB_ICONEXCLAMATION); 

MessageBox (hwnd, TEXT (’’Cannot open MIDI device ”）， 
szAppName, MB_OK | MB_ICONEXCLAMATION); 

} 

else 

{ 

CheckMenuItem (hMenu, IDM—OPEN, MF_CHECKED); 
CheckMenuItem (hMenu, IDM—CLOSE, MF_UNCHECKED); 

MidiSetPatch (hMidiOut, iChannel, iVoice); 

bOpened = TRUE ; 


// "Close" menu command 

else if (LOWORD (wParam) == IDM_CLOSE && bOpened) 

{ 

CheckMenuItem (hMenu, 工 DM—OPEN, MF_UNCHECKED); 
CheckMenuItem (hMenu, 工 DM—CLOSE, MF_CHECKED); 

// Turn all keys off and close device 
for (i = 0 ; i < 16 ; i++) 

MidiOutMessage (hMidiOut, OxBO, i , 123, 0); 
midiOutClose (hMidiOut); 
bOpened = FALSE ; 

} 

// Change MIDI ’’Device 1 ，menu command 
else if ( LOWORD (wParam) >= IDM—DEVICE - 1 && 

LOWORD (wParam) < 工 DM CHANNEL) 
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{ 

CheckMenuItem (hMenu, IDM—DEVICE + iDevice, MF_UNCHECKED); 
iDevice = LOWORD (wParam) - IDM_DEVICE ; 

CheckMenuItem (hMenu, 工 DM—DEVICE + iDevice, MF_CHECKED); 

// Close and reopen MIDI device 

if (bOpened) 

{ 

SendMessage (hwnd, WM—COMMAND, IDM—CLOSE, OL); 
SendMessage (hwnd, WM COMMAND, IDM OPEN, OL); 


// Change MIDI ’’Channel n menu command 

else if ( LOWORD (wParam) >= IDM—CHANNEL && 

LOWORD (wParam) < IDM—VOICE) 

{ 

CheckMenuItem (hMenu, IDM—CHANNEL + iChannel, MF_UNCHECKED); 
iChannel = LOWORD (wParam) 一 IDM—CHANNEL ; 

CheckMenuItem (hMenu, IDM—CHANNEL + iChannel, MF_CHECKED); 

if (bOpened) 

MidiSetPatch (hMidiOut, iChannel, iVoice); 

} 

// Change MIDI "Voice ▼’ menu command 

else if (LOWORD (wParam) >= IDM—VOICE) 

{ 

CheckMenuItem (hMenu, IDM—VOICE + iVoice, MF_UNCHECKED); 
iVoice = LOWORD (wParam) - IDM—VOICE ; 

CheckMenuItem (hMenu, IDM—VOICE + iVoice, MF_CHECKED); 

if (bOpened) 

MidiSetPatch (hMidiOut, iChannel, iVoice); 

} 

InvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

// Process a Key Up or Key Down message 

case WM—KEYUP: 
case WM—KEYDOWN: 

hdc = GetDC (hwnd); 
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if (bOpened) 


ProcessKey (hdc, message, IParam); 


ReleaseDC (hwnd, hdc); 
return 0 ; 


// For Escape, turn off all notes and repaint 


case WM—CHAR: 

if (bOpened && wParam == 27) 

{ 

for (i = ◦ ; i < 16 ; i++) 

MidiOutMessage (hMidiOut, OxBO, i, 123, 0); 
工 nvalidateRect (hwnd, NULL, TRUE); 

} 

return 0 ; 

// Horizontal scroll : Velocity 


case WM—HSCROLL: 

switch (LOWORD (wParam)) 



case SB_LINEUP: 
case SB_LINEDOWN: 
case SB_PAGEUP: 
case SB_PAGEDOWN: 
case SB THUMBPOSITION: 


iVelocity 一 = 1 ; break ; 
iVelocity += 1 ; break ; 
iVelocity -= 8 ; break ; 
iVelocity += 8 ; break ; 
iVelocity = HIWORD (wParam) ; break ; 


default : 


return 0 ; 

} 

iVelocity = max (1, min (iVelocity, 127)); 
SetScrollPos (hwnd, SB_HORZ, iVelocity, TRUE); 
return 0 ; 


case 


// Vertical scroll : Pitch Bend 


WM—VSCROLL: 

switch (LOWORD (wParam)) 

{ 

case SB_THUMBTRACK: iPitchBend= 16383 - HIWORD (wParam) ; break ; 

case SB_THUMBPOSITION: iPitchBend = 8191 ; break ; 
default : return 0 ; 

} 

iPitchBend = max (◦, min (iPitchBend, 16383)); 
SetScrollPos (hwnd, SB VERT, 16383 - iPitchBend, TRUE); 


if (bOpened) 

MidiPitchBend (hMidiOut, iChannel, iPitchBend); 


第 1273 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版） 

return 0 ; 

case WM—PAINT : 

hdc = BeginPaint (hwnd, &ps); 

for (i = ◦ ; i < NUMSCANS ; i++) 

if (key[i].xPos != -1) 

DrawKey (hdc, i, FALSE); 

midiOutGetDevCaps (iDevice, &moc, sizeof (MIDIOUTCAPS)); 
wsprintf (szBuffer, TEXT ("Channel %i n ), iChannel + 1); 

TextOut ( hdc, cxCaps, 1 * cyChar, 

Opened ? TEXT ("Open") : TEXT ("Closed"), 
bOpened ? 4 : 6); 

TextOut ( hdc, cxCaps, 2 * cyChar, moc.szPname, 
lstrlen (moc.szPname)); 

TextOut (hdc, cxCaps , 3 * cyChar, szBuffer, lstrlen 

(szBuffer)); 

TextOut (hdc, cxCaps, 4 * cyChar, 

fam[iVoice / 8].inst[iVoice % 8].szlnst, 

lstrlen (fam[iVoice / 8].inst[iVoice % 8].szlnst)); 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY : 

SendMessage (hwnd, WM—COMMAND, IDM—CLOSE, OL); 
PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

执行 KBMIDI 时，视窗显示了键盘上的键与传统钢琴或风琴按键的对应方式。 
左下角的 Z 键以110 Hz 的频率演奏 A 。 键盘的最下行，右边是中音 C ， 倒数第 
二行为其升音或降音。上面两行键继续按此规律变化，从中音 C 到 G #。 这样， 
整个范围是三个八度音阶。另外，分别按 Shift 键和 Ctrl 键可使整个音域上升 
或下降1个八度音阶，这样有效的音域就是5个八度音阶。 

不过，如果立即开始演奏，那么您将听不到任何声音。您必须先从 「 Status 」 
功能表中选择 「 Open 」 ，打开一个 MIDI 输出设备。如果焊打开成功，则按下一 
个键就向合成器发送一条 MIDI Note On 讯息，释放键则产生一条 Note Off 讯 
息。取决於键盘的按键特性，您可以同时演奏几个音符。 

从 「 Status 」 功能表里选择 「 Close 」 来关闭 MIDI 设备。这对於需要在不 
终止 KBMIDI 程式的情况下执行 Windows 下的其他 MIDI 软体来说是很方便的。 
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rDeviceJ 功能表列出了已安装的 MIDI 输出设备，这些设备通过呼叫 
midiOutGetDevCaps 函式获得。其中有些设备可能是 MIDI Out 埠连结的实际存 
在或不存在的外部合成器。列表还包括 MIDI Mapper 设备。这是从「控制台」 
的「多媒体」中选择的 MIDI 合成器。 

「 Channel 」 功能表用来选择从1到16的 MIDI 通道，内定状态下选择通道 
1。 KBMIDI 程式产生的所有 MIDI 讯息都发送到所选的通道。 

KBMIDI 最後一个功能表项是 「 Voice 」 ，它是一个双层功能表，用於选择 
128种乐器声音，这些声音在 General MIDI 规范中定义并在 Windows 中实作。 
这128种乐器声音分为16乐器组，每个乐器组有8种乐器。由於不同的 MIDI 
键号对应於不同的泛音，所以这128种乐器声音也称为有旋律的声音。 

General MIDI 中还定义了大量无旋律的打击乐器。要演奏打击乐器，可以 
从 「 Channel 」 功能表选择通道10，还可以从 「 Voice 」 功能表选择第一种乐器 
声音 （rAcoustic Grand Piano 」） 。这样，按不同的键就可以得到不同打击 
乐器的声音。从 MIDI 键号35 (低於中音 C 两个八度音阶的 B ) 到81 (高於中音 
C 近两个八度音阶的 A ) ，共有47种不同的打击乐器声音。在下面的 DRUM 程式 
中就利用了打击乐器通道。 

KBMIDI 程式有水平和垂直卷动列。由於 PC 键盘对按键速度不敏感，所以用 
水平卷动列来控制音符速度。一般来说，这与演奏音符的音量一致。设定完水 
平卷动列以後，所有的 Note On 讯息都将使用这个速度。 

垂直卷动列将产生一条称为 「Pitch Bend 」 的 MIDI 讯息。要使用此特性， 
请按下一个或多个键，然後用滑鼠拖动卷动列。向上拖动卷动列音符频率将上 
升，向下拖动则频率下降。释放卷动列後将恢复正常的基音。 

这两个卷动列要小心使用：因为拖动卷动列时，键盘讯息将不进入程式的 
讯息回圈。因此，如果按下一个键後就开始拖动卷动列，然後在完成拖动之前 
就释放了该键，那么音符仍将发声。所以，拖动卷动列时不要按下或者释放任 
何键。对功能表也有类似的 规则： 按著键时不要进行功能表选择。另外，在按 
下与释放某个键期间，不要用 Ctrl 或 Shift 键来改变八度音阶。 

如果一个或者多个音符出现「粘滞现象」，即释放後继续发声，那么请按 
下 Esc 键。按下此键将通过向 MIDI 合成器的16个通道发送16条 All Notes Off 
讯息，来关闭声音。 

KBMIDI 没有资源描述档，而是通过搜索来建立的功能表。设备名称从 
midiOutGetDevCaps 函式获得，乐器种类和名称则储存在程式的一个大资料结构 
中。 

KBMIDI 定义了几个小函式来简化 MIDI 讯息。除了 Pitch Bend 讯息以外， 
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其他讯息都在前面讨论过了 。 Pitch Bend 讯息用两个7位元值组成一个14位元 
的音调弯曲等级： 0到 OxlFFF 之间的值降低基音， 0 x 2001 到 0 x 3 FFF 之间的值 
升高基音。 

从「 Status 」 功能表选择「 Open 」 时， KBMIDI 为选择的设备呼叫 midiOutOpen ； 
如呼叫成功，则呼叫 MidiSetPatch 函式。设备改变时， KBMIDI 必须关闭前一个 
设备，必要时再打开新设备。当改变 MIDI 设备、 MIDI 通道、乐器声音时 ， KBMIDI 
也必须呼叫 MidiSetPatch 。 

KBMIDI 通过处理 WM _ KEYUP 讯息和 WM _ KEYD 0 WN 讯息来控制音符的发音。 
KBMIDI 中用一个阵列把键盘扫描码映射成八度音阶和音符。例如，美国英语键 
盘上 Z 键的扫描码是44，阵列将其标记为八度音阶是3,音符是9 (即 A ) 。在 
KBMIDI 的 MidiNoteOn 函式里，这些组合成了 MIDI 键号45 ( 即12乘以3再加 

上 9) 。此资料结构也用於在视窗中画出键——每个键都有特定的水平和垂直位 
置，以及显示在矩形中的文字字串。 

水平卷动列的处理是很直接的：所有需要做的就是储存新的速度级并设定 
新的卷动列的位置。但是处理垂直卷动列以控制音调弯曲的操作稍有一点特殊， 
它处理的卷动列命令只有 两个： 用滑鼠拖动卷动列时发生的 SB _ THUMBTRACK ， 以 
及释放卷动列时的 SB _ THUMBP 0 Sm 0 N 。 处理 SB _ THUMBP 0 Sm 0 N 命令时 ， KBMIDI 
将卷动列位置设定为中间等级，并呼叫 MidiPitchBend ， 其中参数值是8192。 


MIDI 击鼓器 


有些打击乐器，如木琴或定音鼓，是「有旋律的」或「半音阶的」，因为 
它们可以用不同的音阶演奏乐曲。木琴用木板来对应不同的音阶，定音鼓也可 
以演奏曲调。这两种乐器及其他的有旋律的打击乐器都可以在 KBMIDI 的 「 Voice 」 
功能表里选择。 

但是，其他许多打击乐器都没有旋律，它们不能调音，而且通常含有太多 
的噪音，以致不能与某个基音相联系。在 rGeneral MIDI 」 规范中，这些没旋 
律的打击乐器声在通道10有效。不同的键号对应47种不同的打击乐器。 

DRUM 程式，如程式 22-10 所示，是一个电脑击鼓器。此程式让您用47种不 
同的打击乐器的声音来构造最大到32个音符的一个序列，然後在选择的速度和 
音量下反复演奏这个序列。 

程式 22-10 DRUM 

DRUM.C 

/* - 

DRUM.C —— MIDI Drum Machine 
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: Petzold, 1998 

V 





♦include <windows.h> 



♦include <stdlib.h> 



#include <string.h> 



♦include <math.h> 



♦ include ’’ 

drumtime.h" 



#include " 

drumfile.h" 



♦include " 

resource.h" 



LRESULT 

CALLBACK WndProc 

(HWND 

,UINT, WPARAM, LPARAM); 

BOOL 


CALLBACK AboutProc (HWND 

,UINT, WPARAM, LPARAM); 

void 


DrawRectangle 

(HDC, int. 

int, DWORD *, DWORD *); 

void 


ErrorMessage 

(HWND, TCHAR TCHAR *); 

void 


DoCaption 

(HWND, TCHAR *); 

int 


AskAboutSave 

(HWND, TCHAR *); 

TCHAR 

( 

* szPerc [NUM PERC]= 



i 

TEXT 

("Acoustic Bass Drum "), 

TEXT 

("Bass Drum 1 ▼，）， 


TEXT 

("Side Stick"), 


TEXT ("Acoustic Snare 1 ’）， 


TEXT 

("Hand Clap ’’）， 

TEXT 

("Electric Snare"), 


TEXT 

("Low Floor Tom ’’）， 

TEXT 

("Closed High Hat"), 


TEXT 

("High Floor Tom ’'）， 

TEXT 

(’’Pedal High Hat"), 


TEXT 

("Low Tom"), 

TEXT 

("Open High Hat"), 


TEXT 

("Low-Mid Torn"), 

TEXT 

("High-Mid Torn ”）， 


TEXT 

("Crash Cymbal l n ), 

TEXT 

("High Torn ’'）， 


TEXT 

("Ride Cymbal 1 ’’）， 

TEXT 

("Chinese Cymbal"), 


TEXT 

("Ride Bell ，'）， 

TEXT 

("Tambourine"), 


TEXT 

("Splash Cymbal"), 

TEXT 

("Cowbell"), 


TEXT 

("Crash Cymbal 2 n ), 

TEXT 

("Vibraslap"), 


TEXT 

("Ride Cymbal 2 ’’）， 

TEXT 

("High Bongo ’’）， 


TEXT 

("Low Bongo"), 

TEXT 

("Mute High Conga ”）， 


TEXT 

("Open High Conga"), 

TEXT 

("Low Conga"), 


TEXT 

("High Timbale"), 

TEXT 

("Low Timbale"), 


TEXT 

("High Agogo"), 

TEXT 

("Low Agogo"), 


TEXT 

("Cabasa"), 

TEXT 

("Maracas"), 


TEXT 

(’’Short Whistle"), 

TEXT 

("Long Whistle ’，）， 


TEXT 

(’’ Short Guiro"), 

TEXT 

("Long Guiro"), 


TEXT 

(’’Claves ’’）， 

TEXT 

("High Wood Block "), 


TEXT 

("Low Wood Block"), 

TEXT 

("Mute Cuica ’’）， 


TEXT 

("Open Cuica"), 

TEXT 

("Mute Triangle"), 

}； 

TEXT 

("Open Triangle") 
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TCHAR 

TCHAR 

TCHAR 

HANDLE 

int 


szAppName [ ] = TEXT ("Drum"); 

szUntitled [ ] = TEXT ( n (Untitled)’’）; 

szBuffer [80 + MAX_PATH]; 
h I n s t ; 


cxChar, cyChar ; 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 


HWND 

MSG 

WNDCLASS 


hwnd ; 
msg ; 
wndclass ; 


hlnst = hlnstance ; 
wndclass.style 
wndclass.lpfnWndProc 
wndclass.cbClsExtra 
wndclass.cbWndExtra 
wndclass.hlnstance 
wndclass•hicon 
wndclass.hCursor 
wndclass.hbrBackground 
wndclass.IpszMenuName 
wndclass.IpszClassName 


=CS_HREDRAW | CS—VREDRAW ; 

=WndProc ; 

=◦; 

=◦; 

=hlnstance ; 

=Loadlcon (hlnstance, szAppName); 
=LoadCursor (NULL, IDC—ARROW); 

=GetStockObject (WHITE_BRUSH); 

=szAppName ; 

=szAppName ; 


if (!RegisterClass (&wndclass)) 

{ 

MessageBox ( NULL, TEXT ("This program requires Windows NT !’，）， 

szAppName, MB_ICONERROR); 

return 0 ; 

} 

hwnd = CreateWindow (szAppName, NULL, 

WS_OVERLAPPED | WS_CAPTION | WS_SYSMENU | 

WS_MINIMIZEBOX | WS_HSCROLL | WS—VSCROLL, 
CW—USEDEFAULT, CW_USEDEFAULT A 
CW—USEDEFAULT, CW_USEDEFAULT A 
NULL, NULL, hlnstance, szCmdLine); 

ShowWindow (hwnd, iCmdShow); 

UpdateWindow (hwnd); 

while (GetMessage (&msg, NULL, ◦, 0)) 

{ 

TranslateMessage (&msg); 

DispatchMessage (&msg); 

} 

return msg.wParam ; 
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} 

LRESULT CALLBACK 

WndProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 

IParam) 





1 

static 

BOOL 

bNeedSave ; 



static 

DRUM 

drum ; 




static 

HMENU 

hMenu ; 



static 

int 

iTempo = 

50 , ilndexLast ; 



static 

TCHAR 

szFileName [MAX 

PATH], szTitleName 

[MAX 

PATH]; 






HDC 



hdc ; 



int 



i, x, y ; 



PAINTSTRUCT 


ps 

參 

f 



POINT 



point ; 



RECT 



rect ; 



TCHAR 


-k 

szError ; 



switch (message) 

； 





i 

case WM CREATE : 







// 

Initialize DRUM structure 




drum.iMsecPerBeat = 100 ; 





drum.iVelocity 

= 64 ; 





drum.iNumBeats 

= 32 ; 





DrumSetParams 

(&drum); 





// 

Other initialization 




cxChar = LOWORD (GetDialogBaseUnits ()); 




cyChar = HIWORD (GetDialogBaseUnits ()); 




GetWindowRect 

(hwnd, &rect); 





MoveWindow (hwnd, rect.left, 

rect.top. 



77 * cxChar, 29 * cyChar, FALSE); 





hMenu = GetMenu (hwnd); 





// 

Initialize "Volume 

n scroll bar 




SetScrollRange 

(hwnd, SB 

HORZ, 1, 127, FALSE); 




SetScrollPos 

(hwnd, SB HORZ, drum.iVelocity, TRUE); 




// 

Initialize "Tempo" 

scroll bar 




SetScrollRange 

(hwnd, SB 

VERT, 0, 100, FALSE); 
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SetScrollPos 


(hwnd, SB VERT, iTempo, TRUE) 


DoCaption (hwnd, szTitleName); 
return 0 ; 


case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case IDM_FILE—NEW: 

if 

AskAboutSave (hwnd, szTitleName)) 


( bNeedSave && IDCANCEL 


return 


// Clear drum pattern 


for 

{ 


(i 


< NUM PERC ; i++) 


drum.dwSeqPerc [i] 
drum.dwSeqPian [i] 


工 nvalidateRect (hwnd, 
DrumSetParams (&drum) 
bNeedSave = FALSE ; 
return 0 ; 


NULL, FALSE) 


case 工 DM FILE OPEN: 


// Save previous file 


if (bNeedSave && IDCANCEL == 

AskAboutSave (hwnd, szTitleName)) 
return 0 ; 

// Open the selected file 


if (DrumFileOpenDlg (hwnd, szFileName, szTitleName)) 

{ 

szError = DrumFileRead (&drum, szFileName); 


if (szError != NULL) 

{ 

ErrorMessage (hwnd, szError, szTitleName); 

szTitleName [0] = *\0 ! ; 

} 

else 

{ 

// Set new parameters 
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Tempo = (int) (50 * 

(loglO (drum.iMsecPerBeat) - 1)); 

SetScrollPos (hwnd, SB—VERT, iTempo, TRUE); 

SetScrollPos (hwnd, SB_HORZ, drum.iVelocity, TRUE); 

DrumSetParams (&drum); 

InvalidateRect (hwnd, NULL, FALSE); 
bNeedSave = FALSE ; 

DoCaption (hwnd, szTitleName); 

} 

return 0 ; 

case IDM_FILE_SAVE: 
case IDM_FILE_SAVE_AS: 

// Save the selected file 

if ((LOWORD (wParam) == IDM—FILE_SAVE && szTitleName [0]) || 

DrumFileSaveDlg (hwnd, szFileName, szTitleName)) 

{ 

szError = DrumFileWrite (&drum, szFileName); 

if (szError != NULL) 

{ 

ErrorMessage (hwnd, szError, szTitleName); 

szTitleName [0] = *\0 ! ; 

} 

else 

bNeedSave = FALSE ; 
DoCaption (hwnd, szTitleName); 

} 

return 0 ; 
case IDM_APP_EXIT: 

SendMessage (hwnd, WM_SYSCOMMAND, SC_CLOSE, 0L); 
return 0 ; 

case IDM_SEQUENCE_RUNNING: 

// Begin sequence 

if (!DrumBeginSequence (hwnd)) 

{ 

ErrorMessage (hwnd, 

TEXT ("Could not start MIDI sequence -- n ) 
TEXT ( n MIDI Mapper device is unavailable !’，）， 

szTitleName); 
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} 

else 

r 






i 

CheckMenuItem 


(hMenu, 

IDM SEQUENCE RUNNING, 

MF_CHECKED); 






CheckMenuItem 


(hMenu, 

工 DM SEQUENCE STOPPED, 

MF_UNCHECKED); 






/ 

return 0 ; 





case IDM 

SEQUENCE STOPPED: 






// Finish at end 

of sequence 




DrumEndSequence (FALSE); 





return 0 ; 





case IDM 

APP ABOUT : 





DialogBox 

(hlnst, TEXT ("AboutBox") 

,hwnd, AboutProc); 



1 

return 0 ; 





/ 

return 0 

• 

r 



case 

WM LBUTTONDOWN: 




case 

WM RBUTTONDOWN: 






hdc = GetDC (hwnd); 





// Convert mouse coordinates 

to grid 

coordinates 



x = 

LOWORD (IParam) / 

cxChar - 

-40 ; 



y = 2 ★ 

HIWORD (IParam) / cyChar - 2 ; 





// Set a new number of 

beats of 

sequence 



if (x > 0 

r 

&& x <= 32 && y < 0) 





SetTextColor (hdc, RGB (255, 255, 

255)); 



TextOut 

(hdc, (40 + 

drum.iNumBeats) * cxChar, 

0, TEXT 

( n : 1 n ), 2); 




SetTextColor (hdc, RGB 





if (drum.iNumBeats % 4 

== 0) 




TextOut 

( hdc, (40 + drum.iNumBeats) 

* cxChar, 0, 

TEXT 

r. n ), l) 

參 

f 







drum.iNumBeats = x ; 




TextOut 

(hdc, (40 + 

drum.iNumBeats) * cxChar, 

0, TEXT 

r : r ) , 2 ) ; 




bNeedSave = TRUE ; 
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} 

// 

Set or reset a percussion instrument 

beat 



if (x >= 0 && : 

r 

x < 32 && y >= ◦ && y < NUM PERC) 





if 

(message == WM LBUTTONDOWN) 






drum.dwSeqPerc[y] A = (1 << 

x); 




else 






drum.dwSeqPian[y] A = (1 << 

x); 


DrawRectangle 

(hdc. 

x, y, drum.dwSeqPerc, drum.dwSeqPian); 



} 

bNeedSave = TRUE ; 




ReleaseDC (hwnd, hdc); 



DrumSetParams 

(&drum); 



return 0 ; 




case WM 

HSCROLL 

• 

• 







// 

Change the note velocity 




switch 

； 

(LOWORD 

(wParam)) 




1 

case SB 

LINEUP 

參 

• 


drum.iVelocity - 

=1 ; break ; 





case SB 

LINEDOWN: drum.iVelocity += 1 ; break ; 



case 

SB PAGEUP: 

drum. iVelocity -= 8 ; break ; 




case SB 

PAGEDOWN : drum.iVelocity += 8 ; break ; 




case SB 

THUMBPOSITION: 






drum.iVelocity = HIWORD (wParam) 

• 

r 





break ; 




default 

參 

• 





} 


return 0 ; 




drum.iVelocity 

=max (1, min (drum•iVelocity, 127)); 



SetScrollPos (hwnd, SB HORZ, drum.iVelocity, TRUE) 

參 

f 



DrumSetParams 

(&drum); 




bNeedSave = TRUE ; 




return i 

3 ； 



case WM 

VSCROLL 

參 

• 








// Change the tempo 




switch 

(LOWORD 

(wParam)) 
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case SB_LINEUP: iTempo -= 1 ; break ; 

case SB_LINEDOWN: iTempo += 1 ; break ; 

case SB_PAGEUP : iTempo -= 10 ; break ; 

case SB_PAGEDOWN : iTempo += 10 ; break ; 

case SB_THUMBPOSITION: 

iTempo = HIWORD (wParam); 
break ; 

default : 

return 0 ; 

} 

iTempo = max (◦, min (iTempo, 100)); 

SetScrollPos (hwnd, SB—VERT, iTempo, TRUE); 

drum. iMsecPerBeat = (WORD) (10 * pow (100, iTempo / 100.0)); 

DrumSetParams (&drum); 
bNeedSave = TRUE ; 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

SetTextAlign (hdc, TA_UPDATECP); 

SetBkMode (hdc, TRANSPARENT); 

// Draw the text strings and horizontal lines 
for (i = ◦ ; i < NUM_PERC ; i++) 

{ 

MoveToEx (hdc, i & 1 ? 20 * cxChar : cxChar, 
(2 * i + 3) * cyChar / 4, NULL); 

TextOut (hdc, ◦, ◦, szPerc [i], lstrlen (szPerc [i])); 

GetCurrentPositionEx (hdc, &point); 

MoveToEx (hdc, point•x + cxChar, point.y+cyChar / 2, NULL); 
LineTo (hdc, 39 * cxChar, point.y + cyChar / 2); 

} 

SetTextAlign (hdc, 0); 

// Draw rectangular grid, repeat mark, and beat marks 

for (x = 0 ; x < 32 ; x++) 

{ 
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for (y = ◦ ; y < NUM—PERC ; y++) 
DrawRectangle (hdc, x, y, drum.dwSeqPerc, drum.dwSeqPian); 


SetTextColor ( hdc , x == drum.iNumBeats - 1 ? 

RGB (0, 0, 0) : RGB (255, 255, 255)); 

TextOut (hdc, (41 + x) * cxChar, 0, TEXT (":|"), 2); 

SetTextColor (hdc, RGB (◦, ◦, 0)); 

if (x % 4 == 0) 

TextOut (hdc, (40 + x) * cxChar, ◦, TEXT 1 )； 

} 

EndPaint (hwnd, &ps); 
return 0 ; 


case WM USER NOTIFY: 


// Draw the "bouncing ball" 


hdc = GetDC (hwnd); 


SelectObj ect (hdc, GetStockObj ect (NULL—PEN)); 
SelectObj ect (hdc, GetStockObj ect (WHITE—BRUSH)); 

for (i = ◦ ; i < 2 ; i++) 

{ 

x = ilndexLast ; 
y = NUM_PERC + 1 ; 

Ellipse (hdc, (x + 40) * cxChar, (2 * y + 3) * cyChar / 4, 

(x + 41) * cxChar, (2 * y + 5) * cyChar / 4); 

ilndexLast = wParam ; 

SelectObj ect (hdc, GetStockObj ect 

(BLACK_BRUSH)); 

} 

ReleaseDC (hwnd, hdc); 
return 0 ; 

case WM—U S E R_ERROR: 

ErrorMessage (hwnd, TEXT (’’Can't set timer event for tempo "), 

szTitleName); 

// fall through 
case WM_USER_FINISHED: 

DrumEndSequence (TRUE); 

CheckMermltem (hMenu, IDM SEQUENCE RUNNING, 
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MF UNCHECKED) ; 


MF CHECKED) ; 


case WM CLOSE: 


szTitleName)) 


CheckMenuItem 


return 


(hMenu, 


if ( IbNeedSave || IDCANCEL 


DestroyWindow (hwnd); 


return 


工 DM SEQUENCE STOPPED 


AskAboutSave (hwnd. 


case WM_QUERYENDSESSION : 

if (IbNeedSave || IDCANCEL 

szTitleName)) 

return 1L ; 


AskAboutSave (hwnd, 


return 


case WM—DESTROY: 

DrumEndSequence (TRUE); 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 

} 

BOOL CALLBACK AboutProc ( HWND hDlg, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

switch (message) 

{ 

case WM—INITDIALOG: 

return TRUE ; 

case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case IDOK: 

EndDialog (hDlg, 0); 
return TRUE ; 

} 

break ; 

} 

return FALSE ; 

} 

void DrawRectangle ( HDC hdc, int x, int y, DWORD * dwSeqPerc, 


第 1286 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 




DWORD * dwSeqPian) 


int iBrush ; 


if (dwSeqPerc [y] & dwSeqPian [y] & (1L « x)) 


else if 

else if 

else 


iBrush = BLACK_BRUSH ; 

(dwSeqPerc [y] & (1L « x)) 

iBrush = DKGRAY_BRUSH ; 
(dwSeqPian [y] & (1L « x)) 

iBrush = LTGRAY BRUSH ; 


iBrush = WHITE_BRUSH ; 

SelectObj ect (hdc, GetStockObj ect (iBrush)); 

Rectangle (hdc, (x + 40) * cxChar , (2 * y + 4) * cyChar / 4, 

(x + 41) * cxChar +1, (2*y+6) * cyChar / 4+1); 


void ErrorMessage (HWND hwnd, TCHAR * szError, TCHAR * szTitleName) 

{ 

wsprintf (szBuffer, szError, 

(LPSTR) (szTitleName [0 ] ? szTitleName : 

szUntitled)); 

MessageBeep (MB_ICONEXCLAMATION); 

MessageBox (hwnd, szBuffer, szAppName, MB_OK | MB_ICONEXCLAMATION); 

} 

void DoCaption (HWND hwnd, TCHAR * szTitleName) 

{ 

wsprintf (szBuffer, TEXT ("MIDI Drum Machine - %s n ), 

(LPSTR) (szTitleName [0 ] ? szTitleName : 

szUntitled)); 

SetWindowText (hwnd, szBuffer); 


int AskAboutSave (HWND hwnd A TCHAR * szTitleName) 

{ 

int iReturn ; 

wsprintf (szBuffer, TEXT ("Save current changes in %s? n ), 

(LPSTR) (szTitleName [0 ] ? szTitleName : 

szUntitled)); 

iReturn = MessageBox ( hwnd, szBuffer, szAppName, 

MB YESNOCANCEL | MB ICONQUESTION); 


if (iReturn == IDYES) 

if (!SendMessage (hwnd, WM—COMMAND, IDM_FILE_SAVE, 0)) 

iReturn = IDCANCEL ; 


return iReturn ; 



DRUMTIME.H 
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/* - 



DRUMTIME.H Header File for Time Functions for 

DRUM Program 

V 



♦define NUM PERC 


47 

♦define WM USER—NOTIFY 

(WM USER + 1) 


#define WM USER FINISHED (WM USER + 2) 


#define WM USER ERROR 

(WM USER + 

3) 

♦pragma pack(push, 2) 



typedef struct 

s 



short iMsecPerBeat ; 


short iVelocity 

• 

r 


short iNumBeats 

• 

r 


DWORD dwSeqPerc 

[NUM PERC]; 


DWORD dwSeqPian 

\ 

[NUM PERC]; 


J 

DRUM, ★ PDRUM ; 



#pragma pack(pop) 



void DrumSetParams 

(PDRUM); 


BOOL DrumBeginSequence 

(HWND); 


void DrumEndSequence 

(BOOL); 


DRUMTIME.C 



/* - 



DRUMFILE.C -- 

Timer Routines for DRUM 



(c) Charles Petzold, 1998 

-*/ 

♦include <windows.h> 



♦include "drumtime.h" 



#define minmax(a,x,b) 

(min (max (x, a) , b)) 


#define TIMER RES 5 



void CALLBACK DrumTimerFunc (UINT, UINT, DWORD, DWORD, DWORD); 

BOOL 

bSequenceGoing, bEndSequence 

• 

f 

DRUM 

drum ; 


HMIDIOUT hMidiOut ; 


HWND 

hwndNotify ; 


int 

iIndex ; 


UINT 

uTimerRes, uTimerlD ; 


DWORD MidiOutMessage ( 

HMIDIOUT hMidi, int iStatus, 

int iChannel, 



int iDatal , int 

iData2) 
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{ 

DWORD dwMessage ; 

dwMessage = iStatus | iChannel | (iDatal << 8) | (iData2 << 16); 

return midiOutShortMsg (hMidi, dwMessage); 

} 

void DrumSetParams (PDRUM pdrum) 

{ 

CopyMemory (&drum A pdrum, sizeof (DRUM)); 

} 

BOOL DrumBeginSequence (HWND hwnd) 

{ 

TIMECAPS tc ; 

hwndNotify = hwnd ; // Save window handle for 

notification 

DrumEndSequence (TRUE) ; // Stop current sequence if running 

// Open the MIDI Mapper output port 

if (midiOutOpen (&hMidiOut, MIDIMAPPER, ◦, ◦, 0)) 

return FALSE ; 

// Send Program Change messages for channels 9 and 0 
MidiOutMessage (hMidiOut, OxCO, 9, 0, 0); 

MidiOutMessage (hMidiOut, OxCO, 0, 0, 0); 

// Begin sequence by setting a timer event 
timeGetDevCaps (&tc, sizeof (TIMECAPS)); 

uTimerRes = minmax (tc.wPeriodMin, TIMER—RES, tc.wPeriodMax); 
timeBeginPeriod (uTimerRes); 

uTimerlD = timeSetEvent(max ((UINT) uTimerRes, (UINT) drum.iMsecPerBeat), 

uTimerRes, DrumTimerFunc, ◦, TIME_ONESHOT); 

if (uTimerlD == 0) 

{ 

timeEndPeriod (uTimerRes); 
midiOutClose (hMidiOut); 
return FALSE ; 

} 

ilndex = -1 ; 
bEndSequence = FALSE ; 
bSequenceGoing = TRUE ; 

return TRUE ; 
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void DrumEndSequence (BOOL bRightAway) 

{ 

if (bRightAway) 

{ 

if (bSequenceGoing) 

{ 

// stop the timer 
if (uTimerlD) 

timeKillEvent (uTimerlD); 
timeEndPeriod (uTimerRes); 

// turn off all notes 

MidiOutMessage (hMidiOut, OxBO, 9, 123, 0); 
MidiOutMessage (hMidiOut, OxBO, ◦, 123, 0); 
// close the MIDI port midiOutClose (hMidiOut) ; bSequenceGoing = FALSE ; 


else 

bEndSequence = TRUE ; 


void CALLBACK DrumTimerFunc ( UINT uID, UINT uMsg, DWORD dwUser, 

DWORD dwl, DWORD dw2) 

{ 

static DWORD dwSeqPercLast [NUM—PERC], dwSeqPianLast [NUM—PERC]; 

int i ; 


// Note Off messages for channels 9 and 0 


if (ilndex != -1) 

{ 

for (i = 0 ; i < NUM—PERC ; i++) 

{ 


if (dwSeqPercLast[i] & 1 << ilndex) 

MidiOutMessage (hMidiOut, 0x80, 9, i + 35, 0); 
if (dwSeqPianLast[i] & 1 << ilndex) 

MidiOutMessage (hMidiOut, 0x80, 0, i + 35, 0); 



// Increment index and notify window to advance bouncing ball 
ilndex = (ilndex + 1) % drum.iNumBeats ; 

PostMessage (hwndNotify, WM USER NOTIFY, ilndex, timeGetTime ()); 


// Check if ending the sequence 
if (bEndSequence && ilndex == 0) 

{ 

PostMessage (hwndNotify, WM USER FINISHED, ◦, 0L); 
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return ; 


// Note On messages for channels 9 and 0 
for (i = ◦ ; i < NUM—PERC ; i++) 

{ 

if (drum.dwSeqPerc[i] & 1 << ilndex) 

MidiOutMessage (hMidiOut, 0x90, 9, i + 35, 

drum.iVelocity); 

if (drum.dwSeqPian[i] & 1 << ilndex) 

MidiOutMessage (hMidiOut, 0x90 A ◦, i + 35, 

drum.iVelocity); 

dwSeqPercLast[i] = drum.dwSeqPerc[i]; 
dwSeqPianLast[i] = drum.dwSeqPian[i]; 

} 

// Set a new timer event 

uTimerlD = timeSetEvent (max ( (int) uTimerRes, drum.iMsecPerBeat), 

uTimerRes, DrumTimerFunc, 0 , TIME_ONESHOT); 
if (uTimerlD == 0) 

{ 

PostMessage (hwndNotify, WM USER ERROR, ◦, 0); 


DRUMFILE.H 


DRUMFILE.H Header File for File I/O Routines for DRUM 



BOOL 

DrumFileOpenDlg 

(HWND, 

TCHAR S 

TCHAR 

” ； 

BOOL 

DrumFileSaveDlg 

(HWND, 

TCHAR 

TCHAR 

” ； 

TCHAR * 

DrumFileWrite 

(DRUM ' 

k r TCHAR 

” ； 


TCHAR * 

DrumFileRead 

(DRUM ' 

乂， TCHAR 

”； 



DRUMFILE.C 


DRUMFILE.C -- File I/O Routines for DRUM 

(c) Charles Petzold, 1998 



♦include <windows.h> 

♦include <commdlg.h> 

♦include "drumtime.h" 

♦include "drumfile.h n 

OPENFILENAME ofn = { sizeof (OPENFILENAME) }; 
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TCHAR * szFilter[] = { TEXT ("Drum Files (*.DRM) n ), 

TEXT ( ， '*.drm n ), TEXT ("") }; 


TCHAR szDrumID 
TCHAR szListID 
TCHAR szInfoID 
TCHAR szSoftID 
TCHAR szDatelD 
TCHAR szFmtID [] 
TCHAR szDatalD 
char s zSoftware 


[]=TEXT ("DRUM"); 

[] =TEXT ( n LIST n ); 

[] =TEXT ( n INFO n ); 

[] =TEXT ( n ISFT n ); 

[] =TEXT ( n ISCD n ); 

=TEXT ("fmt "); 

[] =TEXT ("data"); 

[]="DRUM by Charles Petzold, Programming Windows 


TCHAR szErrorNoCreate 
writing."); 

TCHAR szErrorCannotWrite 
written to."); 

TCHAR szErrorNotFound 
opened.’’）; 

TCHAR szErrorNotDrum 
file."); 

TCHAR szErrorUnsupported 
DRUM file，）; 

TCHAR szErrorCannotRead 
read."); 


[] = 

[] 

[] = 

[] = 

[] 
[] 


TEXT ("File %s could not be opened for 
= TEXT ("File %s could not be 

TEXT ("File %s not found or cannot be 
TEXT ("File %s is not a standard DRUM 

= TEXT ("File %s is not a supported 

= TEXT ("File %s cannot be 


BOOL DrumFileOpenDlg (HWND hwnd, TCHAR 

{ 

ofn.hwndOwner 
ofn.lpstrFilter 
ofn.IpstrFile 
ofn.nMaxFile 
ofn.lpstrFileTitle 
ofn.nMaxFileTitle 
ofn.Flags 

OFN_CREATEPROMPT ; 

ofn.IpstrDefExt 


* szFileName , TCHAR * szTitleName) 
=hwnd ; 

=szFilter [0]; 

=szFileName ; 

=MAX_PATH ; 

=szTitleName ; 

=MAX_PATH ; 

=TEXT ("drm"); 


return GetOpenFileName (&ofn); 


BOOL DrumFileSaveDlg ( HWND hwnd, 

{ 

ofn.hwndOwner 
ofn.lpstrFilter 
ofn.IpstrFile 
ofn.nMaxFile 
ofn.lpstrFileTitle 


TCHAR * szFileName, 

TCHAR * szTitleName) 

=hwnd ; 

=szFilter [0] 
=szFileName ; 
=MAX_PATH ; 

=szTitleName ; 
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ofn.nMaxFileTitle 

=MAX PATH ; 

ofn.Flags 

= 

OFN OVERWRITEPROMPT ; 


ofn.IpstrDefExt 

=TEXT ("drm"); 


return GetSaveFileName (&ofn); 


TCHAR * DrumFileWrite (DRUM 

{ 

char 

HMMIO 

int 

MMCKINFO 

SYSTEMTIME 

WORD 


* pdrum, TCHAR * szFileName) 

szDateBuf [16]; 
hmmio ; 
iFormat = 2 ; 
mmckinfo [3]; 
st ; 

wError = 0 ; 


memset (mmckinfo, ◦, 3 * sizeof (MMCKINFO)); 

// Recreate the file for writing 
if ((hmmio = mmioOpen (szFileName, NULL, 

MMIO CREATE | MMIO WRITE | MMIO ALLOCBUF) ) == NULL) 


return szErrorNoCreate ; 

// Create a ’'RIFF ▼’ chunk with a "CPDR" type 
mmckinfo[0].fccType = mmioStringToFOURCC (szDrumID, 0); 
wError |= mmioCreateChunk (hmmio, &mmckinfo[◦], MMIO_CREATERIFF); 

// Create ’’LIST” sub-chunk with an n INFO n type 
mmckinfo[1].fccType = mmioStringToFOURCC (szInfoID, 0); 
wError |= mmioCreateChunk (hmmio, &mmckinfo[1], MMIO_CREATELIST); 

/ / Create n ISFT ▼’ sub-sub-chunk 
mmckinfo[2].ckid = mmioStringToFOURCC (szSoftID, 0); 
wError |= mmioCreateChunk (hmmio, &mmckinfo[2], 0); 

wError |= (mmioWrite (hmmio, szSoftware, sizeof (szSoftware)) != 

sizeof (szSoftware)); 

wError |= mmioAscend (hmmio, &mmckinfo [2], 0); 

// Create a time string 


GetLocalTime (&st); 

wsprintfA (szDateBuf, n %04d-%02d-%02d", st.wYear, st.wMonth A st.wDay); 

// Create n ISCD n sub-sub-chunk 
mmckinfo[2].ckid = mmioStringToFOURCC (szDatelD, 0); 
wError |= mmioCreateChunk (hmmio, &mmckinfo[2], 0); 

wError |= (mmioWrite (hmmio, szDateBuf, (strlen (szDateBuf) +1)) != 

(int) (strlen 

(szDateBuf) + 1)); 

wError |= mmioAscend (hmmio, &mmckinfo [2], 0); 
wError |= mmioAscend (hmmio, &mmckinfo[1], 0); 

// Create "fmt " sub-chunk 

mmckinfo[1].ckid = mmioStringToFOURCC (szFmtID, 0); 
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TCHAR 

{ 


wError |= mmioCreateChunk (hmmio, &mmckinfo[ 1 ] , 0); 

wError |= (mmioWrite (hmmio, (PSTR) &iFormat, sizeof (int)) != 

sizeof (int)); 

wError |= mmioAscend (hmmio, &mmckinfo[1], 0); 

// Create the "data" sub-chunk 


mmckinfo[1].ckid = mmioStringToFOURCC (szDatalD, 0); 
wError |= mmioCreateChunk (hmmio, &mmckinfo[1], 0); 
wError |= (mmioWrite (hmmio, (PSTR) pdrum, sizeof (DRUM)) 


sizeof (DRUM)); 

wError |= mmioAscend (hmmio, &mmckinfo[1], 0); 
wError |= mmioAscend (hmmio, &mmckinfo[0], 0); 



// Clean up and return 
wError |= mmioClose (hmmio, 0); 
if (wError) 

{ 

mmioOpen (szFileName, NULL, MMIO_DELETE); 
return szErrorCannotWrite ; 

} 

return NULL ; 


* DrumFileRead (DRUM * pdrum, TCHAR * szFileName) 


DRUM 

HMMIO 

int 

MMCKINFO 


drum ; 
hmmio ; 
i, iFormat ; 
mmckinfo [3]; 


ZeroMemory (mmckinfo, 


2 * sizeof (MMCKINFO)); 


// Open the file 


if ((hmmio = mmioOpen (szFileName, NULL, MMIO_READ)) == NULL) 

return szErrorNotFound ; 

// Locate a "RIFF" chunk with a "DRUM" form-type 
mmckinfo[0].ckid = mmioStringToFOURCC (szDrumID, 0); 
if (mmioDescend (hmmio, &mmckinfo[0], NULL, MMIO_FINDRIFF)) 

{ 

mmioClose (hmmio, 0); 
return szErrorNotDrum ; 


// Locate, read, and verify the "fmt " sub-chunk 
mmckinfo[1].ckid = mmioStringToFOURCC (szFmtID, 0); 

if (mmioDescend (hmmio, &mmckinfo[1], &mmckinfo[0], MMIO—FINDCHUNK)) 

{ 

mmioClose (hmmio, 0); 
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} 

return szErrorNotDrum ; 



if 

(mmckinfo[1]•cksize != sizeof (int)) 



i 

mmioClose (hmmio, 0); 



} 

return szErrorUnsupported ; 



if 

! 

(mmioRead (hmmio, (PSTR) &iFormat, sizeof (int)) 

!= sizeof 

(int)) 

1 

mmioClose (hmmio, 0); 



} 

return szErrorCannotRead ; 



if 

(iFormat 丨 =1 && iFormat != 2) 



l 

mmioClose (hmmio, 0); 



} 

return szErrorUnsupported ; 




// Go to end of "fmt n sub-chunk 



mmioAscend (hmmio, &mmckinfo[1], 0); 




// Locate, read, and verify the "data" sub-chunk 


mmckinfo[1]•ckid = mmioStringToFOURCC (szDatalD, 0) 

參 

f 


if 

{ 

(mmioDescend (hmmio, &mmckinfo[1], &mmckinfo[0], 

MMIO FINDCHUNK)) 

X 

mmioClose (hmmio, 0); 



} 

return szErrorNotDrum ; 



if 

(mmckinfo[1]•cksize != sizeof (DRUM)) 



i 

mmioClose (hmmio, 0); 



} 

return szErrorUnsupported ; 



if 

i 

(mmioRead (hmmio, (LPSTR) &drum, sizeof (DRUM)) ! 

=sizeof 

(DRUM)) 

i 

mmioClose (hmmio, 0); 



} 

return szErrorCannotRead ; 




// Close the file 



mmioClose (hmmio, 0); 




// Convert format 1 to format 2 and copy the 

DRUM structure data 

if 

{ 

(iFormat == 1) 
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for (i = ◦ ; i < NUM—PERC ; i++) 

{ 

drum.dwSeqPerc [i] = drum.dwSeqPian [i]; 
drum.dwSeqPian [i] = ◦; 


memcpy (pdrum, &drum, sizeof (DRUM)); 
return NULL ; 

} 

DRUM. RC ( 摘录） 

/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h n 
♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Menu 

DRUM MENU DISCARDABLE 
BEGIN 


POPUP M &File" 

BEGIN 

MENUITEM "&New n , 
MENUITEM "&Open...", 
MENUITEM "&Save", 
MENUITEM "Save &As... 
MENUITEM SEPARATOR 
MENUITEM "E&xit", 

END 

POPUP "^Sequence" 
BEGIN 

MENUITEM "^Running", 
MENUITEM "^Stopped", 

,CHECKED 
END 

POPUP M &Help" 

BEGIN 

MENUITEM " & About ， 
END 


IDM—FILE—NEW 
IDM_FILE_OPEN 

IDM—FILE—SAVE 
",IDM—FILE—SAVE—AS 

IDM APP EXIT 


工 DM—SEQUENCE—RUNNING 
IDM SEQUENCE STOPPED 


IDM APP ABOUT 


END 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Icon 

DRUM 工 CON DISCARDABLE "drum.ico" 

//////////////////////////////////////////////////////////////////////////// 
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// Dialog 


ABOUTBOX 

DIALOG DISCARDABLE 20, 20, 160, 164 


STYLE DS 

MODALFRAME | WS POPUP | WS_CAPTION | WS_SYSMENU 


CAPTION 

"Dialog" 


FONT 8, 

"MS Sans Serif" 


BEGIN 

DEFPUSHBUTTON "OK",IDOK,54,143,50,14 


ICON 

"DRUM",IDC_STATIC,8,8,21,20 


CTEXT 

M DRUM", 工 DC—STATIC,34,12,90,8 


CTEXT 

"MIDI Drum Machine” ， 工 DC_STATIC,7,36,144,8 


CONTROL 

nn ,IDC—STATIC,"Static",SS BLACKFRAME, 8,88,144,46 


LTEXT 

"Left Button : \t\tDrum sounds’，，IDC STATIC, 12,92, 136, 8 


LTEXT 

"Right Button:\t\tPiano sounds’ ▼，工 DC STATIC, 12,102,136,8 


LTEXT 

"Horizontal Scroll:\t\tVelocity",IDC STATIC,12,112,136,8 

LTEXT 

"Vertical Scroll:\t\tTempo",IDC STATIC,12,122,136,8 

CTEXT 

"Copyright (c) Charles Petzold, 1998’ ▼，工 DC STATIC,8,48, 

144, 8 

CTEXT 

ii ii ii programming Windows,”’’ 5 th Edition" , IDC STATIC, 8, 60, 

144,8 

END 

RESOURCE. H ( 摘录） 


// Microsoft Developer Studio generated include file. 


// Used 

by Drum.re 


♦define 

IDM FILE—NEW 

40001 

#define 

工 DM FILE OPEN 

40002 

#define 

工 DM FILE—SAVE 

40003 

♦define 

工 DM FILE SAVE AS 

40004 

♦define 

工 DM APP EXIT 

40005 

#define 

工 DM—SEQUENCE RUNNING 

40006 

#define 

工 DM—SEQUENCE—STOPPED 

40007 

♦define 

工 DM APP ABOUT 

40008 


当第一次执行 DRUM 时，您将看到在视窗中有两列，左边一列按名称列出了 
47种不同的打击乐器。右边的网格是打击乐器的声音与时间的二维阵列。每一 
个打击器都对应网格中的一列。32行就是32拍。如果要让这32拍出现在一个 


4/4拍的小节中（即每小节4个四分音符），那么每1拍对应一个三十二分音符。 
从 「 Sequence 」 功能表选择 「 Running 」 时，程式将试图打开 MIDI Mapper 

设备。如果失败，萤幕将出现一个讯息方块。否则，您将看到一个「跳动的小 
球」随演奏的节拍在网格底部跳过。 

在网格的任何位置单击滑鼠左键可以在此拍中演奏打击乐器的声音，这时 
区域将变成暗灰色。用滑鼠右键还可以添加钢琴的拍子，这时区域将会变成亮 
灰色。如果按下两个键（同时或分别），此区域将变成黑色，而且可以同时听 
到打击乐器和钢琴的声音。再次单击其中的一个键或双键将关闭该拍中的声音。 

网格上部是每4拍一个点。这些点使我们不用过多的计算就可以很简易地 
确定单击的位置。网格的右上角是一个冒号和一条竖线（：|)，它们看起来像 
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传统音乐符号中的反复记号。这个符号表不序列的长度。您可以通过单击滑鼠 
来将反复记号放置於网格内的任意位置。该序列最多（但不包括）只能演奏反 
复记号以内的拍子。如果要建立华尔兹节奏，则应将反复记号设定为3拍的若 
干倍。 

水平卷动列控制 MIDI Note On 讯息中的速率位元组。这虽然能改变一些合成器的音质， 
但一般会影响音量。程式起初将速率卷动列设定在中间位置。竖直卷动列控制拍子。这是对 
数刻度，范围从每拍1秒（卷动列在底部）到每拍10毫秒（卷动列在顶部）。程式最初将拍 
子设定为每拍100毫秒 （1/10 秒），这时卷动列在中间。 

「 File 」 功能表允许您储存和读取副档名为 . DRM 的档案，这是我定义的一 
种格式。这些档案很小并采用了 RIFF 的档案格式，这是一种所有新的多媒体资 
料档案推荐使用的格式。 「 Help 」 功能表中的 「 About 」 选项显示一个对话方块， 
该对话方块用一段非常简明的摘要来说明滑鼠在网格中的用法以及两个卷动列 
的功能。 

最後， rSequence ] 功能表中的 「 Stopped 」 选项用於目前序列结束後终止 
乐曲并关闭 MIDI Mapper 设备。 


多媒体 time 函式 

您可能会注意到 DRUM . C 没有呼叫任何多媒体函式。而所有的实际操作都发 
生在 DRUMTIME 模组中。 

虽然普通的 Windows 计时器使用起来很简单，但它对即时时间应用却有灾 
难性的影响。就像我们在 BACHT 0 CC 程式中所看到的一样，演奏音乐就是这样的 
一种即时时间应用，对此 Windows 计时器是不合适的。为了提供在 PC 上演奏 MIDI 
所需要的精确度，多媒体 API 还包括一个高解析度的计时器，此计时器通过7 
个字首是 time 的函式实作。这些函式有一个是多余的，而 DRUMTIME 展示了其 
余6个函式的用途。计时器函式将处理执行在一个单独执行绪中的 callback 函 
式。系统将按照程式指定的计时器延迟时间来呼叫计时器。 

处理多媒体计时器时，可以用毫秒指定两种不同的时间。第一个是延迟时 
间，第二个称为解析度。您可以认为解析度是容错误差。如果指定一个延迟100 
毫秒，而解析度是10毫秒，则计时器的实际延迟范围在90到110毫秒之间。 
使用计时器之前，应获得计时器的设备 能力： 

timeGetDevCaps (&timecaps, uSize); 

第一个参数是 TIMECAPS 型态结构的指标，第二个参数是此结构的大小。 
HMECAPS 结构只有两个栏位， wPeriodMin 和 wPeriodMax 。 这是计时器装置驱动 
程式所支援的最小和最大的解析度值。如果呼叫 timeGetDevCaps 後再查看这些 
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值，会发现 wPeriodMin 是1而 wPeriodMax 是65535,所以此函式并不是很重要。 
不过，得到这些解析度值并用於其他计时器函式呼叫是个好主意。 

下一步呼叫 

timeBeginPeriod (uResolution) ; 

来指出程式所需要的计时器解析度的最低值。该值应在 TIMECAPS 结构所确 
定的范围之内。此呼叫允许为可能使用计时器的多个程式提供最好的计时器装 
置驱动程式。呼叫 timeBeginPeriod 及 timeEndPeriod 必须成对出现，我将在 
後面对 timeEndPeriod 作简短的描述。 

现在可以真正设定一个计时器 事件： 

idTimer = timeSetEvent ( uDelay, uResolution, CallBackFunc, dwData, uFlag); 

如果发生错误，从呼叫传回的 idTimer 将是0。在呼叫的下面，将从 Windows 
里用 uDelay 毫秒来呼叫 CallBackFunc 函式，其中允许的误差由 uResolution 
指定。 uResolution 值必须大於或等於传递给 timeBeginPeriod 的解析度 。 dwData 
是程式定义的资料，後来传递给 CallBackFunc 。 最後一个参数可以是 
TIME _0 NESH 0 T ， 也可以是 HME _ PERI 0 DIC 。 前者用於在 uDelay 毫秒数中获得一 
次 CallBackFunc 呼叫，而後者用於每个 uDelay 毫秒都获得一次 CallBackFunc 
呼叫。 

要在呼叫 CallBackFunc 之前终止只发生一次的计时器事件，或者暂停周期 
性的计时器事件，请呼叫 

timeKillEvent (idTimer) ; 

呼叫 CallBackFunc 後不必删除只发生一次的计时器事件。在程式中用完计 
时器以後，请呼叫 

timeEndPeriod (wResolution) ; 

其中的参数与传递给 timeBeginPeriod 的相同。 

另两个函式的字首是 time 。 函式 

dwSysTime = timeGetTime () ; 

传回从 Windows 第一次启动到现在的系统时间，单位是毫秒。函式 

timeGetSystemTime uSize) ; 

需要一个丽 TIME 结构的指标（与第一个参数一样），以及此结构的大小（与 
第二个参数一样）。虽然丽 TIME 结构可以在其他环境中用来得到非毫秒格式的 
系统时间，但此例中它都传回毫秒时间。所以 timeGetSystemTime 是多余的。 

Callback 函式只限於它所能做的 Windows 函式呼叫中。 Callback 函式可以 
呼叫 PostMessage，PostMessage 包含有四个计时器函式 （ timeSetEvent 、 
timeKillEvent、timeGetTime 和多余的 timeGetSystemTime ) 、两个 MIDI 输出 
函式 （midiOutShortMsg 和 midiOutLongMsg ) 以及调试函式 OutputDebugStr 。 
很明显，设计多媒体计时器主要是用於 MIDI 序列而很少用於其他方面。当 
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然，可以使用 PostMessage 来通知计时器事件的视窗讯息处理程式，而且视窗 
讯息处理程式可以做任何它想做的事，只是不能回应计时器 callback 自身的准 
确性。 

Callback 函式有五个参数，但只使用了其中两个参数：从 timeSetEvent 传 
回的计时器 ID 和最初作为参数传递给 timeSetEvent 的 dwData 值。 

DRUM . C 模组呼叫 DRUMTIME . C 中的 DrumSetParams 函式有很多次-建立 

DRUM 视窗时、使用者在网格上单击或者移动卷动列时、从磁片上载入 . DRM 档案 
时以及清除网格时。 DrumSetParams 的唯一的参数是指向 DRUM 型态结构的指标， 
此结构型态在 DRUMTIME . H 定义。该结构以毫秒为单位储存拍子时间、速度（通 
常对应於音量）、序列中的拍数以及用於储存网格（为打击乐器和钢琴声设定) 
的两套47个32位元组的整数。这些32位元整数中的每一位元都对应序列的一 
拍。 DRUM . C 模组将在静态记忆体中维护一个 DRUM 型态的结构，并在呼叫 
DrumSetParams 时向它传递一个指标。 DrumSetParams 只简单地复制此结构的内 
容。 

要启动序列， DRUM 呼叫 DRUMTIME 中的 DrumBeginSequence 函式。唯一的参 
数就是视窗代号，其作用是通知。 DrumBeginSequence 打开 MIDI Mapper 输出设 
备，如果成功，则发送 Program Change 讯息来为 MIDI 通道 0 和 9 选择乐器声 
音（这些通道是基於 0 的，所以 9 实际指的是 MIDI 通道 10, 即打击乐器通道。 
另一个通道用於钢琴声）。 DrumBeginSequence 透过呼叫 timeGetDevCaps 和 
timeBeginPeriod 来继续工作。在 TIMER_RES 定义的理想计时器解析度通常是 5 
毫秒，但我定义了一个称作 minmax 的巨集来计算从 timeGetDevCaps 传回的限 
制范围以内的解析度。 

下一个呼叫是 timeSetEvent , 用於确定拍子时间，计算解析度 、 callback 
函式 DrumTimerFunc 以及 TIME _0 NESH 0 T 常数。 DRUMTIME 用的是只发生一次的计 
时器，而不是周期性计时器，所以速度可以随序列的执行而动态变化。 
timeSetEvent 呼叫之後，计时器装置驱动程式将在延迟时间结束以後呼叫 
DrumTimerFunc 0 

DrumTimerFunccallback 是 DRUMTIME. C 中的函式，在 DRUMTIME. C 中有许多 
重要的操作。变数 ilndex 储存序列中目前的拍子。 Callback 从为目前演奏的声 
音发送 MIDI Note Off 讯息开始。 ilndex 的初始值 -1 以防止第一次启动序列时 
发生这种情况。 

接下来， ilndex 递增并将其值连同使用者定义的一个 WM _ USER _ N 0 TIFY 讯息 
一起传递给 DRUM 中的视窗代号。 wParam 讯息参数设定为 ilndex ， 以便在 DRUM . C 
中， WndProc 能够移动网格底部的「跳动的小球」。 
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DrumTimerFunc 将下列事件作为结束：把 Note On 讯息发送给通道0和9的 
合成器上，并储存网格值以便下一次可以关闭声音，然後透过呼叫 timeSetEvent 
来设定新的只发生一次的计时器事件。 

要停止序列， DRUM 呼叫 DrumEndSequence , 其中唯一的参数可以设定为 TRUE 
或 FALSEo 如果是 TRUE ， 则 DrumEndSequence 按下面的程序立即结束序 列：删 
除所有待决的计时器事件，呼叫 timeEndPeriod , 向两个 MIDI 通道发送 「all 
notes off 」 讯息，然後关闭 MIDI 输出埠。当使用者决定终止程式时， DRUM 用 
TRUE 参数呼叫 DrumEndSequence 。 

然而，当使用者在 DRUM 里的 「 Sequence 」 功能表中选择 「 Stop 」 时，程式 
将用 FALSE 作为参数呼叫 DrumEndSequenceo 这就允许序列在结束之前完成目前 
的回圈。 DrumEndSequence 透过把 bEndSequence 整体变数设定为 NULL 来回应此 
呼叫。如果 bEndSequence 是 TRUE , 并且拍子的索引值设定为0,则 DrumTimerFunc 
把使用者定义的 WM _ USER _ FINISHED 讯息发送给 WndProc 。 WndProc 必须通过用 
TRUE 作为参数呼叫 DrumEndSequence 来回应该讯息，以便正确地结束计时器和 
MIDI 燁的使用。 

RIFF 档案 I/O 

DRUM 程式也可以储存和检索储存在 DRUM 结构中资讯的档案。这些档案格式 
都是 RIFF (Resource Interchange File Format ： 资源交换档案格式），即一 
般建议使用的多媒体档案型态。当然，您可以用标准档案 I / O 函式来读写 RIFF 
档案，但更简便的方法是使用字首是 mmio (对「多媒体输入/输出」）的函式。 

检查 . WAV 格式时我们发现， RIFF 是标记档案格式，这意味著档案中的资料 
由不同长度的资料块组成。每个资料块都用一个标记来识别。 一 个标记就是一 
个4位元组的 ASCII 字串。这与32位元整数的标记名称相比要容易些。标记的 
後面是资料块长度及其资料。因为档案中的资讯不是位於档案开头固定的偏移 
量而是用标记定义，所以标记档案格式是通用的。这样，可以透过添加附加标 
记来增强档案格式。在读档案时，程式可以很容易地找到所需要的资料并跳过 
不需要的或者不理解的标记。 

Windows 中的 RIFF 档案由独立的资料块组成。一个资料块可以分为资料块 
类型、资料块大小以及资料本身。资料块类型是4字元的 ASCII 码标记，标记 
中间不能有空格，但末尾可以有。资料块大小是一个4位元组 （32 位元）的值， 
用於显示资料块的大小。资料本身必须占用偶数个位元组，必要时可以在结尾 
补0。这样，资料块的每个部分都是从档案开头就字组对齐好了的。资料块大小 
不包括资料块类型和资料块大小所需要的8位元组，并且不反映添加的资料。 
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对於一些资料块类型，资料块大小与特定档案无关，是相同的。在资料块 
是包含资讯的固定长度的结构时，就是这种情况。其他情况下，资料块大小根 
据特定档案变化。 

有两个特殊型态的资料块分别称为 RIFF 资料块和 LIST 资料块。其中，资 
料以一个4字元 ASCII 形式型态开始，後面是一个或多个子资料块。 LIST 资料 
块与 RIFF 资料块类似，只是资料以4字元的 ASCII 列表型态开始。 RIFF 资料块 
用於所有的 RIFF 档案，而 LIST 资料块只在档案内部用来合并相关子资料块。 

一个 RIFF 档案就是一个 RIFF 资料块。因此， RIFF 档案以字串 「 RIFF 」 和 
一 个表示档案长度减去8位元组的32位元值开始。（实际上，如果需要补充资 
料则档案可能会长一个位元组。） 

多媒体 API 包括16个字首是 mmio 的函式，这些函式是专门为 RIFF 档案设 
计的。 DRUMFILE . C 中已经用到其中几个函式来读写 DRUM 资料档案。 

要用 mmio 函式打开档案，则第一步是呼叫 mmioOpen 。 函式传回一个档案代 
号。腿 ioCreateChunk 函式在档案中建立一个资料块，这使用丽 CKINF 0 定义的 
资料块名称和特徵。 mmioWrite 函式写入资料块。写完资料块以後，呼叫 
mmioAscend 。 传递给 mmioAscend 的 MMCKINF 0 结构必须与前面通过传递给 
mmioCreateChunk 来建立资料块的 MMCKINF 0 结构相同。通过从目前档案指标中 
减去结构的 dwDataOffset 栏位来执行 mmioAscend 函式，此档案指标现在位於 
资料块的结尾，并且此值储存在资料的前面。如果资料块在长度上不是2位元 
组的倍数，则腿 ioAscend 函式也填补资料。 

RIFF 档案由巢状组织的资料块套叠组成。为使 mmioAscend 正常工作，必须 
维护多个 MMCKINF 0 结构，每个结构与档案中的一个曾级相联系。 DRUM 资料档案 
共有三级。因此，在 DRUMFILE . C 中的 DrumFileWrite 函式中，我为三个丽 CKINF 0 
结构定义了一个阵列，可以分别标记为腿 ckinfo [0] 、腿 ckinfo [ l ] 和 
mmckinfo [2] 。在第一7欠 mmioCreateChunk 呼叫中 ， mmckinfo [0] 结构与 DRUM 形 
式型态一起用於建立 RIFF 型态的块。其後是第二次腿 ioCreateChunk 呼叫，它 
用 mmckinfo [1] 与 INFO 列表型态一起建立 LIST 型态的资料块。 

第三次 mmioCreateChunk 呼叫用 mmckinfo [2] 建立一个 ISFT 型态的资料块， 
此资料块用於识别建立资料档案的软体。下面的 mmioWrite 呼叫用於写字串 
szSoftware ， 呼叫 mmioAscent 可用 mmckinfo [2] 来填充此资料块的资料块大小 
栏位。这是第一个完整的资料块。下一个资料块也在 LIST 资料块内。程式继续 
用另一个 mmioCreateChunk 来呼叫建立 ISCD (creation data ： 建立资料）资料 
块，并再次使用腿 ckinfo [2]。 在腿 ioWrite 呼叫来写入资料块以後，使用 
mmckinfo [2] 呼叫 mmioAscend 来填充资料块大小。现在写到了此资料块的结尾， 
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也是 LIST 块的结尾。所以，要填充 LIST 资料块的资料块大小栏位，可再次呼 
叫 mmioAscend ， 这次使用 mmckinfo [ l ] ，它最初用於建立 LIST 资料块。 

要建立 「 fmt 」 和 「 data 」 资料块 ， mmioCreateChunk 使用 mmckinfo [ l ] ； 
mmioWrite 呼叫的後面也使用 mmckinfo [ l ] 的 mmioAscend 。 在这一点上，除了 
RIFF 资料块本身以外，所有的资料块大小都填好了。这需要多次使用 mmckinfo [0] 
来呼叫腿 ioAscend 。 虽然有多次呼叫，但只呼叫腿 ioClose —次。 

看起来好像 mmioAscend 呼叫改变了目前的档案指标，而且它的确填充了资 
料块大小，但在函式传回时，在资料块结束（或可能因补充资料而增加1位元 
组）以後，档案指标恢复到以前的位置。从应用的观点来看，所有的档案写入 
都是按从头到尾的顺序。 

mmioOpen 呼叫成功後，除了磁碟空间耗尽之外，不会发生其他错误。使用 
变数 wError 从 mmioCreateChunk 、 mmioWrite、mmioAscend 和 mmioClose 呼口 L| 

累计错误代码，如果磁碟空间不足则每个呼叫都会失败。如果发生了错误，则 
mmioOpen 以丽 I 0_ DELETE 常数为参数来删除档案，并传回错误资讯。 

读 RIFF 档案与建立 RIFF 档案类似，只不过是呼叫腿 ioRead 而不是 
mmioWrite, 呼口 Lj mmioDescend 而不是 mmioCreateChunk 。 「下降」 （ descend) 

到一个资料块，是指找到资料块位置，并把档案指标移动到资料块大小之後（或 
者在 RIFF 或 LIST 资料块类型的形式型态或者列表型态的後面）。从资料块「上 
升」指的是把档案指标移动到资料块的结尾。腿 ioDescend 和 mmioAscend 函式 

都不能把档案指标移到档案的前一个位置。 

DRUM 以前的版本在1992年的 《PC Magazine )) 发表。那时， Windows 支援 

两个不同等级的 MIDI 合成器（称为「基本的」和「扩展的」）。那个程式写的 
档案有格式识别字1。本章的 DRUM 程式将格式识别字设定为2。不过，它可以 
读取并转换早期的格式。这在 DrumFileRead 常式中完成。 
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第二十三章领略 Internet 

Internet -全世界电脑透过不同协定交换资讯的大型连结体 - 近几年 

重新定义了个人计算的几个领域。虽然拨接资讯服务和电子邮件系统在 
Internet 流行开来之前就已经存在，但它们通常局限於文字模式，并且根本没 
有连结而是各自分隔的。例如，每一种资讯服务都需要拨不同的电话号码，用 
不同的使用者 ID 和密码登录。每一种电子邮件系统仅允许在特定系统的缴款使 
用者之间发送和接收邮件。 

现在，往往只需要拨单一支电话就可以连结整个 Internet ， 而且可以和有 
电子邮件位址的人进行全球通信。特别是在 World Wide Web 上，超文字、图形 
和多媒体（包括声音、音乐和视讯）的使用已经扩展了线上资讯的范围和功能。 

如果要提供涵盖 Windows 中所有与 Internet 相关程式设计问题的彻底介 
绍，可能还需要再加上几本书才够。所以，本章实际上主要集中在如何让小型 
的 Microsoft Windows 应用程式能够有效地从 Internet 上取得资讯的两个领域。 
这两个领域分别是 Windows Sockets ( Winsock ) API 和 Windows Internet 
( Winlnet ) API 支援的档案传输协定 ( FTP ： File Transfer Protocol ) 的部分。 

Windows Sockets 

Socket 是由 University of California 在 Berkeley 分校开发的概念，用 
於在 UNIX 作业系统上添加网路通讯支援。那里开发的 API 现在称为 「Berkeley 
socket interface 」 。 


Sockets 和 TCP/IP 

Socket 通常（但不专用於）与主宰 Internet 通信的传输控制项协定/网际 
网路协定 ( TCP / IP ： Transmission Control Protocol/Internet Protocol ) 牵 
连在一起。网际网路协定 （ IP : Internet Protocol ) ，作为 TCP / IP 的组成部 
分之一，用来将资料打包成「资料封包 （ datagram ) 」，该资料封包包含用於 
标识资料来源和目的地的表头资讯。而传输控制协定 （ TCP : Transmission 
Control Protocol ) 则提供了可靠的传输和检查 IP 资料封包正确性的方法。 

在 TCP / IP 下，通讯端点由 IP 位址和埠号定义。 IP 位址包括4个位元组， 
用於确定 Internet 上的伺服器。 IP 位址通常按「由点连结的四个小於255的数 
字」的格式显示，例如「209.86. 105.231」。埠号确定了特定的服务或伺服器 
提供的服务。其中一些埠号已经标准化，以提供众所周知的服务。 
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当 Socket 与 TCP / IP 合用时， Socket 就是 TCP / IP 的通讯端点。因此 ， Socket 
指定了 IP 位址和埠号。 


网路时间服务 


下面给出的范例程式与提供时间协定 (Time Protocol ) 的 Internet 伺服 
器相连结。此程式将获得目前准确的日期和时间，并用此资讯设定您的 PC 时钟。 

在美国，国家标准和技术协会 （National Institute of Standards and 
Technology ) (以前称为国家标准局 (National Bureau of Standards )) 负 
责维护准确时间，该时间与世界各地的机构相联系。准确时间可用於无线电广 
播、电话号码、电脑拨号电话号码以及 Internet ， 关於这些的所有文件都位於 
网站 http :// www . bldrdoc . Rov/timefreq (网域名称「 bldrdoc 」指的是 
Boulder 、 Colorado、NIST Time 的位置和 Frequency Division ) 。 

我们只对 NIST Network Time Service 感兴趣，其详细的文件位 
於 http ：// www . bldrdoc . gov / timefreq / service / nts . htm 0 it 匕网页歹 ll 出了十个 
提供 NIST 时间服务的伺服器。例如，第一个名称为 
time - a . timefreq . bldrdoc . gov ， 其 IP 位址为 132. 163. 135. 130。 

(我曾经编写过一个使用非 Internet NIST 电脑拨接服务的程式，并发表 
於 《PC Magazine 》，您也可以在 Ziff-Davis 的网 
站 http :// www . zdnet . com / pcmaR / pctech / content /16/20/ utl 620. 001. html 

中找到。此程式对於想学习如何使用 Windows Telephony API 的人很有帮助。） 

在 Internet 上有三个不同的时间服务，每一个都由 Request for Comment 
( RFC ) 描述为 Internet 标准。日期协定 (Daytime Protocol ) ( RFC -867) 提 
供了一个 ASCII 字串用於指出准确的日期和时间。该 ASCII 字串的准确格式并 
不标准，但人们可以理解其中的含义。时间协定 （ RFC -868) 提供了一个32位 
元的数字，用来表示从1900年1月1日至今的秒数。该时间是 UTC (不考虑字 
母顺序，它表示世界时间座标 （Coordinated Universal Time )) ，它类似於 

所谓的格林威治标准时间 (Greenwich Mean Time ) 或者 GMT -英国格林威治 

时间。第三个协定称为网路时间协定 (Network Time Protocol ) ( RFC -1305) ， 
该协定很复杂。 

对於我们的目的，即包括分析 Socket 和不断更新 PC 时钟，时间协定 RFC -868 
已经够用了。 RFC -868 只是一个两页的简短文件，主要是说用 TCP 获得准确时间 
的程式应该有如下 步骤： 

1. 连结到提供此服务的伺服器埠37。 

2. 接收32位元的时间。 
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3. 关闭连结。 

4. 现在我们已经知道了编写存取时间服务的 Socket 应用程式的每个细 
节。 

NETTIME 程式 

Windows Sockets API , 通常也称为 WinSock , 与 Berkeley Sockets API 相 
容，因此，可以想像 UNIX Socket 程式码可以顺利地拿到 Windows 上使用 oWindows 
下更进一步的支援由对 Berkeley Socket 扩充的功能提供，其函式的形式是以 
WSA(「WinSock API 」） 为字首。相关的概述和参考位於 /Platform SDK/Networking 


and Distributed Services/Windows Sockets Version 2。 

NETTIME , 如程式 23-1 所示，展示了使用 WinSock API 的方法。 

程式 23-1 NETTIME 


NETTIME.C 




NETTIME•C -- 

Sets System Clock from Internet Services 

(c) Charles Petzold, 1998 



♦include <windows.h> 

♦include "resource.h" 

#define WM—SOCKET—NOTIFY (WM—USER + 1) 

♦define ID_TIMER 1 

LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM); 

BOOL CALLBACK MainDlg (HWND, UINT, WPARAM, LPARAM); 

BOOL CALLBACK ServerDlg (HWND, UINT, WPARAM, LPARAM); 

void ChangesystemTime (HWND hwndEdit, ULONG ulTime); 

void FormatUpdatedTime (HWND hwndEdit, SYSTEMTIME * pstOld, 

SYSTEMTIME * pstNew); 

void EditPrintf (HWND hwndEdit, TCHAR * szFormat,...); 

HINSTANCE hlnst ; 

HWND hwndModeless ; 

int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 

PSTR szCmdLine, int iCmdShow) 

{ 

static TCHAR szAppName[] = TEXT ("NetTime"); 

HWND hwnd ; 

MSG msg ; 
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RECT 

rect ; 


WNDCLASS 

wndclass ; 

hlnst = hlnstance ; 



wndclass.style 

— 

0 ; 

wndclass.lpfnWndProc 

— 

WndProc ; 

wndclass.cbClsExtra 

= 

0 ; 

wndclass.cbWndExtra 

— 

0 ; 

wndclass.hlnstance 

— 

hlnstance ; 

wndclass•hicon 

二 

Loadlcon (NULL, IDI APPLICATION); 

wndclass.hCursor 

— 

NULL ; 

wndclass.hbrBackground 

= NULL 

參 

r 

wndclass.IpszMenuName 

= NULL 

參 

wndclass.IpszClassName 

= s zAppName ; 

if (!RegisterClass (&wndclass)) 

； 


l 

MessageBox (NULL, TEXT ( 11 This program requires Windows NT! n ), 

szAppName, MB ICONERROR) 

參 

r 

return 0 ; 

} 



hwnd = CreateWindow (szAppName, TEXT 

("Set System Clock from Internet ”）， 

WS OVERLAPPED | WS_ 

_CAPTION | WS SYSMENU | 

WS BORDER | 

WS MINIMIZEBOX, 


CW USEDEFAULT, CW USEDEFAULT, 

CW USEDEFAULT, CW USEDEFAULT, 

NULL, NULL, 

hlnstance, NULL); 

// Create the modeless 

dialog 

box to go on top of the window 

hwndModeless = CreateDialog 

(hlnstance, szAppName, hwnd, MainDlg); 

// Size the main parent window 

to the size of the dialog box. 

// Show both windows. 



GetWindowRect (hwndModeless, 

&rect) 

• 

r 

AdjustWindowRect (&rect, WS 

CAPTION 

| WS BORDER, FALSE); 

SetWindowPos ( hwnd, NULL, 

0, ◦, rect . right 一 rect . left, 

rect . bottom 

- rect . 

, top, SWP NOMOVE); 

ShowWindow (hwndModeless, SW 

_SHOW); 


ShowWindow (hwnd, iCmdShow) 

• 

零 


UpdateWindow (hwnd); 



// Normal message loop when 

a modeless dialog box is used . 

while (GetMessage (&msg, NULL, ◦, 0)) 

: 

i 

if (hwndModeless ==◦ | | !IsDialogMessage (hwndModeless , &msg)) 
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{ 


TranslateMessage (&msg); 




} 


DispatchMessage (&msg); 


} 

} 

return 

msg.wParam ; 



LRESULT CALLBACK WndProc ( 

HWND hwnd A UINT message. 

WPARAM wParam, 

IParam) 

f 






switch 

/ 

(message) 





l 

case WM SETFOCUS 

參 

• 






SetFocus (hwndModeless); 





return 0 ; 



case WM DESTROY: 







PostQuitMessage (0); 





return 0 ; 


} 

/ 

return 

DefWindowProc 

(hwnd, message, wParam, IParam); 

BOOL 

CALLBACK MainDlg 

( 

HWND hwnd, UINT message , 

WPARAM wParam, 

/ 




LPARAM IParam) 

i 

static 

char 


szIPAddr[32] = { "132.163 

.135.130" }; 


static 

HWND 


hwndButton, hwndEdit ; 



static 

SOCKET 


sock ; 



static 

struct 


sockaddr in sa ; 



static 

TCHAR 


szOKLabel[32]; 



int 



iError, 

iSize ; 


unsigned long 


ulTime ; 



WORD 



wEvent, 

wError ; 


WSADATA 


WSAData ; 



switch 

/ 

(message) 





l 

case WM INITDIALOG: 






hwndButton = GetDlgltem (hwnd. 

IDOK); 




hwndEdit = GetDlgltem (hwnd, IDC TEXTOUT); 




return TRUE ; 



case WM COMMAND : 






/ 

switch (LOWORD (wParam)) 




l 

case 

工 DC SERVER: 



LPARAM 
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DialogBoxParam (hlnst , TEXT (’’Servers” ） ， hwnd, ServerDlg, 

(LPARAM) szIPAddr); 

return TRUE ; 

case IDOK: 

// Call "WSAStartup" and display description text 

if (iError = WSAStartup (MAKEWORD(2,0), &WSAData)) 

{ 

EditPrintf (hwndEdit, TEXT ("Startup error #%i.\r\n") , iError); 
return TRUE ; 

} 

EditPrintf (hwndEdit, TEXT ("Started up %hs\r\n n ), 
WSAData.szDescription); 

// Call "socket" 

sock=socket (AF_INET, SOCK—STREAM, IPPROTO_TCP); 

if (sock == INVALID_SOCKET) 

{ 

EditPrintf (hwndEdit, TEXT ("Socket creation error #%i.\r\n n ), 
WSAGetLastError ()); 

WSACleanup (); 
return TRUE ; 

} 

EditPrintf (hwndEdit, TEXT ("Socket %i created.\r\n"), sock); 

// Call "WSAAsyncSelect" 

if (SOCKET_ERROR == WSAAsyncSelect (sock, hwnd, WM—SOCKET—NOTIFY, 
FD_CONNECT | FD_READ)) 

{ 

EditPrintf ( hwndEdit, TEXT ("WSAAsyncSelect error #%i.\r\n"), 

WSAGetLastError ()); 

closesocket (sock); 

WSACleanup (); 
return TRUE ; 

} 

// Call "connect" with IP address and time-server port 
sa•sin—family = AF_INET ; 

sa.sin_port = htons (IPPORT_TIMESERVER); 

sa.sin_addr.S_un.S_addr = inet—addr (szIPAddr); 

connect (sock, (SOCKADDR *) &sa, sizeof (sa)); 
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// "connect" will return SOCKET—ERROR because even if it 
// succeeds , it will require blocking. The following only 
// reports unexpected errors. 


if (WSAEWOULDBLOCK != (iError = WSAGetLastError ())) 

{ 

EditPrintf (hwndEdit, TEXT ("Connect error #%i.\r\n n ), iError) 


closesocket (sock); 
WSACleanup (); 
return TRUE ; 


EditPrintf (hwndEdit, TEXT ("Connecting to %hs. ••▼’ ）， szIPAddr) 

// The result of the n connect" call will be reported 
// through the WM—SOCKET—NOTIFY message. 

// Set timer and change the button to "Cancel" 


SetTimer (hwnd, ID_TIMER, 1000, NULL); 

GetWindowText (hwndButton, szOKLabel, sizeof (s zOKLabel) / sizeof 

(TCHAR)); 

SetWindowText (hwndButton, TEXT ("Cancel")); 

SetWindowLong (hwndButton, GWL—ID, IDCANCEL); 
return TRUE ; 


case 工 DCANCEL: 


("\r\nSocket closed.\r\n")); 


closesocket (sock); 
sock = 0 ; 

WSACleanup (); 

SetWindowText (hwndButton, szOKLabel); 
SetWindowLong (hwndButton, GWL—ID, IDOK); 

KillTimer (hwnd, ID_TIMER); 
EditPrintf (hwndEdit, TEXT 

return TRUE ; 


case IDC—CLOSE: 

if (sock) 

SendMessage (hwnd, WM—COMMAND, IDCANCEL, 0); 

DestroyWindow (GetParent (hwnd)); 
return TRUE ; 

} 

return FALSE ; 


case WM—TIMER: 

EditPrintf (hwndEdit, TEXT ("."))； 
return TRUE ; 
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case WM—SOCKET—NOTIFY : 

wEvent = WSAGETSELECTEVENT (IParam) ; // ie, LOWORD 
wError = WSAGETSELECTERROR (IParam) ; // ie, HIWORD 

// Process two events specified in WSAAsyncSelect 

switch (wEvent) 

{ 

// This event occurs as a result of the "connect" call 

case FD_CONNECT : 

EditPrintf (hwndEdit, TEXT (▼’ \r\n n )); 

if (wError) 

{ 

EditPrintf ( hwndEdit, TEXT ("Connect error #%i."), wError); 

SendMessage (hwnd, WM—COMMAND, 工 DCANCEL, 0); 
return TRUE ; 

} 

EditPrintf (hwndEdit, TEXT ("Connected to %hs.\r\n n ), szIPAddr); 

// Try to receive data. The call will generate an error 
// of WSAEWOULDBLOCK and an event of FD_READ 

recv (sock, (char *) &ulTime, 4, MSG_PEEK); 

EditPrintf (hwndEdit, TEXT ("Waiting to receive ..."))； 
return TRUE ; 

// This even occurs when the ’’recv’’ call can be made 

case FD_READ : 

KillTimer (hwnd, ID_TIMER); 
EditPrintf (hwndEdit, TEXT ( M \r\n")); 

if (wError) 

{ 

EditPrintf (hwndEdit, TEXT ( n FD_READ error #%i ."), wError); 
SendMessage (hwnd, WM—COMMAND, 工 DCANCEL, 0); 
return TRUE ; 

} 

// Get the time and swap the bytes 

iSize = recv (sock, (char *) &ulTime, 4, 0); 
ulTime = ntohl (ulTime); 

EditPrintf (hwndEdit, 

TEXT ("Received current time of %u seconds ▼’） 

TEXT ("since Jan. 1 1900.\r\n"), ulTime); 
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// Change the system time 

ChangesystemTime (hwndEdit, ulTime); 
SendMessage (hwnd, WM—COMMAND, 工 DCANCEL, ◦); 
return TRUE ; 

} 

return FALSE ; 

} 

return FALSE ; 

} 

BOOL CALLBACK ServerDlg ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 
IParam) 

{ 

static char * szServer ; 

static WORD wServer = IDC_SERVER1 ; 

char szLabel [64]; 

switch (message) 

{ 

case WM_INITDIALOG: 

szServer = (char *) IParam ; 

CheckRadioButton (hwnd, IDC_SERVER1, IDC_SERVER10, wServer); 
return TRUE ; 

case WM—COMMAND: 

switch (LOWORD (wParam)) 


case 

工 DC_ 

SERVER1 : 

case 

IDC_ 

SERVER2 : 

case 

IDC_ 

SERVER3 : 

case 

IDC_ 

SERVER4 : 

case 

IDC_ 

SERVER5 : 

case 

工 DC_ 

SERVER6 : 

case 

IDC_ 

SERVER7 : 

case 

IDC_ 

SERVER8 : 

case 

IDC_ 

SERVER9 : 

case 

工 DC 

SERVER10 : 


wServer = LOWORD (wParam); 
return TRUE ; 


case IDOK : 


szLabel, sizeof (szLabel)); 


GetDlgltemTextA (hwnd, wServer, 


strtok (szLabel,"("); 

strcpy (szServer, strtok (NULL, ") n ))； 

EndDialog (hwnd, TRUE); 
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return TRUE ; 




case 

工 DCANCEL: 






EndDialog (hwnd. 

FALSE); 



return TRUE ; 




break ; 

1 




} 

return FALSE ; 





void 

； 

ChangesystemTime (HWND 

hwndEdit, ULONG ulTime) 



1 

FILETIME 

ftNew ; 




LARGE INTEGER 

li ； 





SYSTEMTIME 

stOld, stNew ; 




GetLocalTime (&st01d) 

參 

r 





stNew.wYear 




=1900 ; 


stNew.wMonth 


— 

1 ； 



stNew.wDay 


— 

1 ； 



stNew.wHour 


— 

0 ; 



stNew.wMinute 


— 

0 ; 



stNew.wSecond 


— 

0 ; 



stNew.wMilliseconds 

=C 

) ; 




SystemTimeToFileTime 

(&stNew, & ftNew) 

• 

f 




li = * (LARGE INTEGER 

*) &ftNew ; 





li.QuadPart += (LONGLONG) 10000000 * 

ulTime ; 




ftNew = * (FILETIME 

&li ; 





FileTimeToSystemTime 

(& ftNew, &stNew) 

參 

r 




if (SetSystemTime (&stNew)) 

! 





X 

GetLocalTime (&stNew); 





FormatUpdatedTime (hwndEdit, &st01d. 

&stNew); 


； 

else 





} 

EditPrintf 

(hwndEdit, TEXT 

("Could NOT set 

new date and time ."))； 

void 

FormatUpdatedTime ( 

HWND hwndEdit, 

SYSTEMTIME 

女 

pstOld, SYSTEMTIME * 

pstNew) 

f 






TCHAR szDateOld [64], 

szTimeOld [64], 

s zDateNew 

[64], s zTimeNew [64]; 


GetDateFormat (LOCALE USER DEFAULT, LOCALE 

NOUSEROVERRIDE | 

DATE 

SHORTDATE, 








pstOld, 

NULL, szDateOld, sizeof 
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(szDateOld)) ; 

GetTimeFormat ( LOCALE_USER_DEFAULT A LOCALE—NOUSEROVERRIDE | 

TIME—NOTIMEMARKER | TIME_FORCE24HOURFORMAT A 
pstOld, NULL, szTimeOld, sizeof (szTimeOld)); 


GetDateFormat (LOCALE—USER—DEFAULT, LOCALE—NOUSEROVERRIDE 

DATE_SHORTDATE, 

pstNew, NULL, s zDateNew, sizeof (szDateNew)); 
GetTimeFormat ( LOCALE_USER_DEFAULT, LOCALE—NOUSEROVERRIDE | 

TIME—NOTIMEMARKER | TIME_FORCE24HOURFORMAT, 
pstNew, NULL, szTimeNew, sizeof (szTimeNew)); 


EditPrintf (hwndEdit, TEXT (’’System date and time successfully changed ") 

TEXT ( n from\r\n\t%s A %s.%03i to\r\n\t%s, 


%s.%03i."), 


szDateOld, szTimeOld, pst01d->wMilliseconds, 
szDateNew, szTimeNew, pstNew->wMilliseconds); 


void EditPrintf (HWND hwndEdit, TCHAR * szFormat,... 


TCHAR 
va list 


szBuffer 
pArgList ; 


[1024]; 


va_start (pArgList, szFormat); 
wvsprintf (szBuffer, szFormat, pArgList); 
va_end (pArgList); 

SendMessage (hwndEdit, EM—SETSEL, (WPARAM) -1, (LPARAM) -1); 
SendMessage (hwndEdit, EM—REPLACESEL, FALSE, (LPARAM) szBuffer) 
SendMessage (hwn dEdit, EM—SCROLLCARET, ◦, 0); 

NETTIME .RC ( 摘录） 


/ /Microsoft Developer Studio generated resource script. 
♦include "resource.h M 
♦include "afxres.h" 


//////////////////////////////////////////////////////////////////////////// 

/ 

// Dialog 

SERVERS DIALOG DISCARDABLE 20, 20, 274, 202 

STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU 

CAPTION ’’NIST Time Service Servers" 

FONT 8, "MS Sans Serif" 

BEGIN 

DEFPUSHBUTTON "OK", 工 DOK,73,181,50,14 

PUSHBUTTON "Cancel", 工 DCANCEL,150,181,50,14 

CONTROL 

"time-a.timefreq.bldrdoc.gov (132.163.135.130) NIST, Boulder, 
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Colorado" , 

工 DC—SERVERl, n Button n ,BS_AUTORADIOBUTTON, 9,7,256,16 

CONTROL 

’’time-b.timefreq.bldrdoc.gov (132.163.135.131) NIST, Boulder, 

Colorado", 

工 DC—SERVER2, ’ 'Button ， ' ， BS—AUTORADIOBUTTON, 9,24,256, 16 

CONTROL 

’’time-c.timefreq.bldrdoc.gov (132.163.135.132) Boulder, 

Colorado", 

工 DC—SERVER3, "Button ， ' ， BS—AUTORADIOBUTTON, 9, 41,256,16 

CONTROL 

"utcnist.Colorado.edu (128.138.140.44) University of Colorado, 

Boulder", 

IDC—SERVER4,"Button” ， BS—AUTORADIOBUTTON,9,58,256,16 

CONTROL 

’’time.nist.gov (192.43.244.18) NCAR, Boulder, Colorado ”， 
IDC—SERVER5, "Button ， ' ， BS—AUTORADIOBUTTON, 9,75,256,16 

CONTROL 

"time-a.nist.gov (12 9.6.16.35) NIST, Gaithersburg, 

Maryland", 

IDC—SERVER6,"Button",BS_AUTORADIOBUTTON,9,92,256,16 

CONTROL 

’’time-b • nist • gov (12 9.6.16.36) NIST, Gaithersburg, 

Maryland ”， 

IDC—SERVER7,"Button” ， BS—AUTORADIOBUTTON,9,109,256,16 

CONTROL 

’’time-nw.nist.gov (131.107.1.10) Microsoft, Redmond, 

Washington", 

工 DC—SERVER8, "Button ， ' ， BS—AUTORADIOBUTTON, 9, 126,256,16 

CONTROL 

"utcnist.reston.mci.net (204.70.131.13) MCI, Reston, 

Virginia", 

工 DC—SERVER9,"Button” ， BS—AUTORADIOBUTTON,9,143,256,16 

CONTROL 

’▼nistl.data.com (209.0.72.7) Datum, San Jose, 

California", 

IDC—SERVER10, "Button ， ' ， BS—AUTORADIOBUTTON, 9, 160,256, 16 

END 

NETTIME DIALOG DISCARDABLE ◦, ◦, 270, 150 STYLE WS_CHILD FONT 8, "MS Sans Serif" 
BEGIN 

DEFPUSHBUTTON "Set Correct Time ，，， IDOK, 95, 129, 80,14 

PUSHBUTTON "Close", 工 DC—CLOSE,183,129,80,14 

PUSHBUTTON "Select Server...IDC—SERVER,7,129,80,14 

EDITTEXT IDC_TEXTOUT,7,7,253,110,ES_MULTILINE 

I ES—AUTOVSCROLL | 

ES_READONLY | WS—VSCROLL | 

NOT WS TABSTOP 


第 1315 页 





Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


END 

RESOURCE. H ( 摘录） 

// Microsoft Developer Studio generated include file. 
// Used by NetTime.rc 


♦define 

IDC_ 

TEXTOUT 

101 

♦define 

工 DC_ 

_SERVER1 

1001 

#define 

IDC_ 

_SERVER2 

1002 

#define 

IDC_ 

_SERVER3 

1003 

♦define 

IDC 一 

_SERVER4 

1004 

♦define 

IDC_ 

_SERVER5 

1005 

#define 

IDC_ 

_SERVER6 

1006 

#define 

IDC_ 

_SERVER7 

1007 

♦define 

IDC_ 

_SERVER8 

1008 

♦define 

IDC_ 

_SERVER9 

1009 

#define 

工 DC_ 

_SERVER10 

1010 

#define 

工 DC_ 

_SERVER 

1011 

♦define 

工 DC 一 

_CL0SE 

1012 


在结构上， NETTIME 程式建立了一个依据 NETTIME . RC 中的 NETTIME 所建立 
的非系统模态对话方块。程式重新定义了视窗的尺寸，以便非系统模态对话方 
块可以覆盖程式的整个视窗显示区域。对话方块包括一个唯读编辑区（程式用 
於写入文字资讯）、一个 rSelect Server ] 按钮、一个 「Set Correct TimeJ 
按钮和一个 「 Close 」 按钮。 「 Close 」 按钮用於终止程式。 

MainDlg 中的 szIPAddr 变数用於储存伺服器位址，内定是字串 
「 132. 163. 135. 130 」。 「Select Server 」 按钮启动依据 NETTIME . RC 中的 SERVERS 
模板建立的对话方块。 szIPAddr 变数作为最後一个参数传递给 DialogBoxParam 。 

rServerJ 对话方块列出了 10个伺服器（都是从 NIST 网站上逐字复制来的）， 
这些伺服器提供了我们感兴趣的服务。当使用者单击一个伺服器时 ， ServerDlg 
将分析按钮文字，以获得相应的 IP 位址。新位址储存在 szIPAddr 变数中。 

当使用者按下 「Set Correct Time 」 按钮时，按钮将产生一个 WM _ C 0 MMAND 
讯息，其中 wParam 的低字组等於 IDOKoMainDlg 中的 ID 0 K 处理是大部分 Socket 
初始行为发生的地方。 

使用 Windows Sockets API 时，任何 Windows 程式必须呼叫的第一个函式 

是： 

iError = WSAStartup (wVersion, &WSAData); 

NETTIME 将第一个参数设定为 0 x 0200 (表示 2.0 版本）。传回时 ， WSAData 
结构包含了 Windows Sockets 实作的相关资讯，而且 NETTIME 将显示 
szDescription 字串，并简要提供了一些版本资讯。 

然後， NETTIME 如下呼叫 socket 函式： 

sock = socket (AF INET, SOCK STREAM, IPPROTO TCP); 
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第一个参数是一个位址种类，表示此处是某种 Internet 位址。第二个参数 
表示资料以资料流的形式传回，而不是以资料封包的形式传回（我们需要的资 
料只有4个位元组长，而资料封包适用於较大的资料块）。最後一个参数是一 
个协定，我们指定使用的 Internet 协定是 TCP 。 它是 RFC -868 所定义的两个协 
定之一。 socket 函式的传回值储存在 SOCKET 型态的变数中，以便後面的 Socket 
函式的呼叫。 

NETT I ME 下面呼叫的 WSAAsynchSelect 是另一个 Windows 特有的 Socket 函 
式。此函式用於避免因 Internet 回应过慢而造成应用程式当住。在 WinSock 文 
件中，有些函式与「阻碍性 （ blocking ) 」有关。也就是说，它们不能保证立 
即把控制项权传回给程式。 WSAAsyncSelect 函式强制阻碍性的函式转为非阻碍 
性的，即在函式执行完之前把控制项传回给程式。函式的结果以讯息的形式报 
告给应用程式。 WSAAsyncSelect 函式让应用程式指定讯息和接收讯息的视窗的 
数值。通常，函式的语法 如下： 

WSAAsyncSelect (sock, hwnd, message, iConditions); 

为此任务， NETTIME 使用程式定义的一个讯息，该讯息称为 
WM _ SOCKET _ NOTIFYo 它也用 WSAAsyncSelect 的最後一个参数来指定讯息发送的 
条件，特别在连结和接收资料时 （ FD_CONNECT | FD _ READ ) 。 


NETTIME 呼叫的下一个 WinSock 函式是 connect 。 此函式需要一个指向 
Socket 位址结构的指标，对於不同的协定来说，此 Socket 位址结构是不同的。 
NETTIME 使用为 TCP / IP 设计的结构 版本： 


struct sockaddr in 

{ 

short 

u short 

struct in addr 




sin addr; 

sin 

sin port; 

family; 

char 

}； 


sin 

zero [8]; 


其中 in _ addr 是用於指定 Internet 位址，它可以用4个位元组，或者2个 
无正负号短整数，或者1个无正负号长整数来表示。 


NETTIME 将 sin _ family 栏位设定为 AF _ INET ， 用於表示位址种类。将 
sin _ port 设定为焊号，这里是时间协定的埠号， RFC -868 显示为37。但不要像 
我最初时那样，将此栏位设为37。当大多数数字通过 Internet 时，结构的这个 
埠号栏位必须是 「big endian 」 的，即最高的位元组排第一个。 Intel 微处理器 
是 little endian 。 幸运的是 ， htons (「 host - to-network short 」 ） 函式使位 
元组翻转，因此 NETTIME 将 sockaddr in 结构的 sin port 栏位设定为： 

htons (IPPORT_TIMESERVER) 

WINS 0 CK 2. H 中将常数定义为37。 NETTIME 用 inet _ addr 函式将储存在 
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szIPAddr 字串中的伺服器位址转化为无正负号长整数，该整数用於设定结构的 
sin_addr 栏位。 

如果应用程式在 Windows 98下呼叫 connect , 而且目前 Windows 没有连结 
到 Internet ， 那么将显示「拨号连线」对话方块。这就是所谓的「自动拨号」。 
在 Windows NT 4. 0中没有实作「自动拨号」，因此如果在 NT 环境下执行，那 
么在执行 NETTIME 之前，就必须先连结上 Internet 。 

connect 函式通常已经会阻碍著後面程式的执行，这是因为连结成功以前需 
要花些时间。然而，由於 NETTIME 呼叫了 WSAAsyncSelect ， 所以 connect 不会 
等待连结，事实上，它会立即传回 S 0 CKET _ ERR 0 R 的值。这并不是出现了错误， 
这只是表示现在还没有连线成功而已。 NETTIME 也不会检查这个传回值，只是呼 
叫 WSAGetLastError 而已。如果 WSAGetLastError 传回 WSAEWOULDBLOCK (即函 

式的执行通常要受阻，但这里并没有受阻），那就一切都还很正常。 NETTIME 将 
rSet Correct Time 」 按钮改成 「 Cancel 」，并设定了一个1秒的计时器。 WM_TIMER 

的处理方式只是在程式视窗中显示句点，以告诉使用者程式仍在执行，系统没 
有当掉。 

连结最终完成时， MainDlg 由 WM _ SOCKET _ NOTIFY 讯息- NETTIME 在 

WSAAsyncSelect 函式中指定的程式自订讯息所通知。 IParam 的低字组等於 
FD _ CONNECT ， 高字组表示错误。这时的错误可能是程式不能连结到指定的伺服 
器。 NETTIME 还列出了其他9个伺服器，供您选择，让您可以试试其他的伺服器。 

如果一切顺利，那么 NETTIME 将呼叫 recv (「 receive : 接收」）函式来读 
取资料： 

recv (sock, (char *) &ulTime, 4, MSG_PEEK); 

这意味著，用 4 个位元组来储存 ulTime 变数。最後一个参数表示只是读此 
资料，并不将其从输入仁列中删除。像 connect 函式一样， recv 传回一个错误 
代码，以表示函式通常受阻，但这时没有受阻。理论上来说（当然这不大可能）， 
函式至少能传回资料的一部分，然後透过再次呼叫以获得其余的32个位元组值。 
那就是呼叫 recv 函式时带有 MSG _ PEEK 选项的原因。 

与 connect 函式类似， recv 函式也产生 WM _ S 0 CKET _ N 0 nFY 讯息，这时带有 
FD _ READ 的事件代码。 NETTIME 通过再次呼叫 recv 来对此回应，这时最後的参 
数是0,用於从伫列中删除资料。我将简要讨论一下程式处理接收到的 ulTime 
的方法。注意， NETTIME 通过向自己发送 WM _ COMMAND 讯息来结束处理，该讯息 
中 wParam 等於 IDCANCEL 。 对话方块程序通过呼叫 closesocket 和 WSACleanup 
来回应。 

再次呼叫 NETTIME 接收的32位元的 ulTime 值是从1990年1月1日开始的 
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0:00 UTC 秒数。但最高顺序的位元组是第一个位元组，因此该值必须通过 ntohl 
(「 network - to-host long 」） 函式处理来调整位元组顺序，以便 Intel 微处 
理器能够处理。然後， NETTIME 呼叫 ChangeSystemTime 函式。 

ChangeSystemTime 首先取得目前的本地时间-即使用者所在时区和日光 

节约时间的目前系统时间。将 SYSTEMTIME 结构设定为1900年1月1日午夜 （0 
时）。并将这个 SYSTEMTIME 结构传递给 SystemTimeToFileTime ， 将此结构转化 
为 FILETIME 结构。 FILETIME 实际上只是由两个32位元的 DWORD 一 起组成64位 
元的整数，用来表示从1601年1月1日至今间隔为100奈秒 （ nanosecond ) 的 
间隔数。 

ChangeSystemTime 函式将 FILETIME 结构转化为 LARGE _ INTEGER 。 它是一个 
union , 允许64位元的值可以被当成两个32位元的值使用，或者当成一个 
_ int 64 资料型态的64位元整数使用 （__ int 64 资料型态是 Microsoft 编译器 
对 ANSI C 标准的扩充）。因此，此值是1601年1月1日到1900年1月1日之 
间间隔为100奈秒的间隔数。这里，添加了 1900年1月1日至今间隔为100奈 
秒的间隔数—— ulTime 的10, 000, 000倍。 

然後通过呼叫 FileTimeToSystemTime 将作为结果的 FILETIME 值转换回 
SYSTEMHME 结构。因为时间协定传回目前的 UTC 时间，所以 NETTIME 通过呼叫 
SetSystemTime 来设定时间， SetSystemTime 也依据 UTC 。 基於显示的目的，程 
式呼叫 GetLocalTime 来获得更新时间。最初的本地时间和新的本地时间一起传 
递给 FormatUpdatedTime ， 这个函式用 GetTimeFormat 函式和 GetDateFormat 函 
式将时间转化为 ASCII 字串。 

如果程式在 Windows NT 下执行，并且使用者没有取得设定时间的许可权， 
那么 SetSystemTime 函式可能失败。如果 SetSystemTime 失败，则 NETTIME 将 

发出一个新时间未设定成功的讯息来指出问题所在。 

WININET 和 FTP 

Winlnet (「Windows Internet 」） API 是一个高阶函式集，帮助程式写作 
者使用三个常见的 Internet 协定，这三个协定是：用於 World Wide Web 全球 
资讯网的超文字传输协定 ( HTTP ： Hypertext Transfer Protocol ) 、档案传输 
协定 （ FTP : File Transfer Protocol ) 和另一个称为 Gopher 的档案传输协定。 
Winlnet 函式的语法与常用的 Windows 档案函式的语法类似，这使得使用这些协 
定就像使用本地磁碟机上的档案一样容易 。 Winlnet API 的文件位於 /Platform 
SDK / Internet , Intranet , Extranet Services/Internet Tools and 
Technologies/Winlnet API 。 
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下面的范例程式将展示如何使用 Winlnet API 的 FTP 部分。许多有网站的 
公司也都有「匿名 FTP 」 伺服器，这样使用者可以在不输入使用者名称和密码的 
情况下下载档案。例如，如果您在 Internet Explorer 的位址栏输 
入 ftp ：// ftp . microsoft . com ，那么您就可以浏览 FTP 伺服器上的目录并下载 
档案。 如果进入 ftp :" ftp , cpetzold . com / cpetzold . com / ProRWin / UpdDemo , M 
么您将在我的匿名 FTP 伺服器上发现与待会要提到的范例程式一块使用的档案 
列表。 

虽然现今 FTP 服务对大多数的 Web 使用者来说并不是那么方便使用，但它 
仍然相当有用。例如，应用程式能利用 FTP 从匿名 FTP 伺服器上取得资料，这 
些取得资料的运作程序几乎完全在台面下处理，而不需要使用者操心。这就是 
我们将讨论的 UPDDEM 0 ( rupdate demonstration ： 更新范例」）程式的构想。 


FTP API 概况 


使用 Winlnet 的程式必须在所有呼叫 Winlnet 函式的原始档案中包括表头 
档案 WININET . H 。 程式还必须连结 WININET . LIB 。 在 Microsoft Visual C ++ 中， 
您可以在 「Project Settings 」 对话方块的 「 Link 」 页面标签中指定。执行时， 
程式将和 WININET . DLL 动态连结程式库连结。 

在下面的论述中，我不会详细讨论函式的语法，因为某些函式有很多选项， 
这让它变得相当复杂。要掌握 Winlnet ， 您可以将 UPDDEM 0 原始码当成食谱来看 
待。这时最重要的是了解有关的各个步骤以及 FTP 函式的范围。 

要使用 Windows Internet API ,首先要呼叫 InternetOpen 。 然後，使用 
Winlnet 支援的任何一种协定。 InternetOpen 给您一个 Internet 作业代号，并 
储存到 HINTERNET 型态的变数中。用完 Winlnet API 以後，应该通过呼叫 
InternetCloseHandle 来关闭代号。 

要使用 FTP , 您接下来就要呼叫 InternetConnect o 此函式需要使用由 
InternetOpen 建立 Internet 作业代号，并且传回 FTP 作业的代号。您可将此代 
号作为名称开头为 Ftp 的所有函式的第一个参数。 InternetConnect 函式的参数 
指出要使用的 FTP ， 还提供了伺服器名称，例如， ftp , cpetzold . com 。 此函式还 
需要使用者名称和密码。如果存取匿名 FTP 伺服器，这些参数可以设定为 NULL 。 
如果应用程式呼叫 InternetConnect 时 PC 并没有连结到 Internet , Windows 98 

将显示「拨号连线」对话方块。当使用 FTP 的应用程式结束时，呼叫 
InternetCloseHandle 来关闭代号。 

这时可以开始呼叫有 Ftp 字首的函式。您将发现这些函式与标准的 Windows 
档案 I / O 函式很相似。为了避免与其他协定重复，一些以 Internet 为字首的函 


第 1320 页 









Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


式也可以处理 FTP 。 

下面四个函式用於处理目录： 

fSuccess = FtpCreateDirectory (hFtpSession, szDirectory); 

fSuccess = FtpRemoveDirectory (hFtpSession, szDirectory); 

fSuccess = FtpSetCurrentDirectory (hFtpSession, szDirectory); 

fSuccess = FtpGetCurrentDirectory (hFtpSession, szDirectory, 

&dwCharacterCount); 

注意，这些函式很像我们所熟悉的 Windows 提供用於处理本地档案系统的 
CreateDirectory 、 RemoveDirectory 、 SetCurrentDirectory 和 
GetCurrentDirectory 函式。 

当然，存取匿名 FTP 的应用程式不能建立或删除目录。而且，程式也不能 
假定 FTP 目录具有和 Windows 档案系统相同的目录结构型态。特别是用相对路 
径名设定目录的程式，不能假定关於新的目录全名的一切。如果程式需要知道 
最後所在目录的整个名称，那么呼叫了 SetCurrentDirectory 之後必须再呼叫 
GetCurrentDirectory。GetCurrentDirectory 的字串参数至少包含 MAX PATH 字 

元，并且最後一个参数应指向包含该值的变数。 

下面两个函式让您删除或者重新命名档案（但不是在匿名 FTP 伺服器 上）： 

fSuccess = FtpDeleteFile (hFtpSession, szFileName); 
fSuccess = FtpRenameFile (hFtpSession, szOldName, s zNewName); 

经由先呼叫 FtpFindFirstFile , 可以查找档案（或与含有万用字元的档名 
样式相符的多个档案）。此函式很像 FindFirstFile 函式，甚至都使用了相同 
的 WIN 32_ FIND _ DATA 结构。该档案为列举出来的档案传回了一个代号。您可以 
将此代号传递给 InternetFindNextFile 函式以获得额外的档案名称资讯。最後 
通过呼叫 InternetCloseHandle 来关闭代号。 

要打开档案，可以呼叫 FtpFileOpen 。 这个函式传回一个档案代号，此代号 
可以用方令 InternetReadFile > InternetReadFileEx > InternetWrite 和 
InternetSetFilePointer 呼叫。最後可以通过呼叫最常用的 
InternetCloseHandle 函式来关闭代号。 

最後，下面两个高级函式特别有用： FtpGetFile 呼叫将档案从 FTP 伺服器 
复制到本地记忆体，它合并了 FtpFileOpen 、 FileCreate 、 InternetReadFile 、 
WriteFile、InternetCloseHandle 和 CloseHandle 呼叫 。 FtpGetFile 的另一*个 

参数是一个旗标，如果本地已经存在同名档案，那么该旗标将导致函式呼叫失 
败。 FtpPutFile 与此函式类似，用於将档案从本地记忆体复制到 FTP 伺服器。 

更新展示程式 

UPDDEM 0， 如程式 23-2 所示，展示了用 Winlnet FTP 函式在第二个执行绪 
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执行期间从匿名 FTP 伺服器上下载档案的方法。 

程式 23-2 UPDDEM0 

UPDDEMO.C 


■k _ 


UPDDEMO.C -- Demonstrates Anonymous FTP Access 

(c) Charles Petzold, 1998 


V 


♦include 

♦include 

♦include 

♦include 


〈 windows•h> 
<wininet.h> 
〈 process•h> 
"resource.h 


// User-defined messages used in WndProc 


♦define 

♦define 


WM—USER—CHECKFILES 
WM USER GETFILES 


(WM_USER + 1) 

(WM USER + 2) 


// 工 information for FTP download 


♦define 

FTPSERVER 

TEXT 

("ftp.cpetzold.com") 

#define 

DIRECTORY 

TEXT 

("cpetzold.com/ProgWin/UpdDemo") 

#define 

TEMPLATE 

TEXT 

( "TTD^ 9 9 9 9 9 TYT ") 

// 

typedef 

Structures used 

struct 

for 

storing filenames and contents 


TCHAR * szFilename ; 
char * szContents ; 


FILEINFO ; 
typedef struct 


int 

FILEINFO 


iNum ; 
info[1]; 


FILELIST ; 

// Structure used for second thread 
typedef struct 
{ 

BOOL bContinue ; 

HWND hwnd ; 


PARAMS ; 


// Declarations of all functions in program 
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LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, 

LPARAM); 

BOOL 

CALLBACK 

DlgProc (HWND, UINT, WPARAM, LPARAM); 

VOID 


FtpThread (PVOID) 

• 

r 

VOID 


ButtonSwitch (HWND, HWND, TCHAR *); 

FILELIST ★ 

GetFileList (VOID); 


int 

// A couple globals 

Compare (const FILEINFO * 

,const FILEINFO ” ; 

HINSTANCE hlnst ; 



TCHAR 

szAppName[] 

=TEXT ("UpdDemo"); 


int WINAPI WinMain (HINSTANCE hlnstance, HINSTANCE hPrevInstance, 



PSTR 

szCmdLine, int 

iCmdShow) 

! 




HWND 

hwnd ; 



MSG 

msg ; 



WNDCLASS 

wndclass ; 



hlnst = hlnstance ; 

wndclass.style 

= 0 ; 



wndclass.lpfnWndProc 

=WndProc ; 



wndclass.cbClsExtra 

=◦; 



wndclass.cbWndExtra 

=◦; 



wndclass.hlnstance 

=hlnstance ; 



wndclass•hicon 

=Loadlcon (NULL, 

IDI APPLICATION); 


wndclass.hCursor 

=NULL ; 



wndclass.hbrBackground 

=GetStockObject (WHITE 

—BRUSH); 


wndclass.IpszMenuName 

=NULL ; 



wndclass.IpszClassName 

=szAppName ; 



if (!RegisterClass (&wndclass)) 

； 



i 

MessageBox ( NULL, 

TEXT ("This program requires Windows NT !’’）， 



szAppName, MB ICONERROR); 

} 

return 0 ; 




hwnd = CreateWindow ( szAppName, TEXT ("Update Demo with Anonymous FTP"), 


WS OVERLAPPEDWINDOW | WS VSCROLL, 



CW USEDEFAULT, 

CW USEDEFAULT, 



CW USEDEFAULT, 

CW USEDEFAULT, 



NULL, NULL, hlnstance, NULL); 



ShowWindow (hwnd, iCmdShow) 

UpdateWindow (hwnd); 

• 

f 
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// After window is displayed, check if the latest file exists 


SendMessage (hwnd, WM USER CHECKFILES, ◦, 0); 



while 

(GetMessage (&msg, NULL, ◦, 0)) 



i 

TranslateMessage 

(&msg); 




DispatchMessage 

(&msg); 


} 

J 

return 

msg.wParam ; 



LRESULT CALLBACK WndProc ( HWND 

hwnd, UINT message, WPARAM wParam, LPARAM 

IParam) 

! 




X 

static 

FILELIST *plist ; 




static 

int 

cxClient, cyClient, cxChar, 

cyChar ; 


HDC 


hdc ; 



int 


i ； 



PAINTSTRUCT 

ps ; 



SCROLLINFO 

si ; 



SYSTEMTIME 

st ; 



TCHAR 


szFilename [MAX PATH]; 



switch 

(message) 




l 

case WM CREATE : 





cxChar = LOWORD (GetDialogBaseUnits ()); 




cyChar = HIWORD (GetDialogBaseUnits ()); 




return 0 ; 




case WM SIZE: 





cxClient 

=LOWORD (IParam); 




cyClient 

=HIWORD (IParam); 




si.cbSize 

=sizeof (SCROLLINFO); 




si.fMask 

=SIF RANGE | SIF PAGE ; 




si.nMin 

=◦; 




si.nMax 

=plist ? plist->iNum - 1 : 

0 ； 



si.nPage 

=cyClient / cyChar ; 




SetScrollInfo (hwnd, SB VERT, &si, TRUE); 




return 0 ; 




case WM VSCROLL: 





si.cbSize 

=sizeof (SCROLLINFO); 




si.fMask 

=SIF POS | SIF RANGE | SIF 

PAGE ; 



GetScrollInfo (hwnd A SB VERT, &si); 




switch (LOWORD (wParam)) 
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break ; 


case SB_LINEDOWN: si.nPos += 1 ; break ; 
case SB_LINEUP: si. nPos -= 1 ; break ; 

case SB_PAGEDOWN : si.nPos += si.nPage ; break ; 
case SB_PAGEUP : si.nPos -= si.nPage ; break ; 

case SB_THUMBPOSITION: si.nPos = HIWORD (wParam) 

default : return 0 ; 

} 

si.fMask = SIF_POS ; 

SetScrollInfo (hwnd, SB—VERT, &si, TRUE); 

工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 


case WM—USER_CHECKFILES: 

// Get the system date & form filename from year and month 


GetSystemTime (&st); 

wsprintf (szFilename, TEXT ( n UD%04i%02i.TXT"), st.wYear, st.wMonth); 

// Check if the file exists; if so, read all the files 

if (GetFileAttributes (szFilename) != (DWORD) - 1) 

{ 

SendMessage (hwnd, WM_USER_GETFILES, 0, 0); 
return 0 ; 

} 

// Otherwise, get files from Internet. 

// But first check so we don't try to copy files to a CD-ROM! 


if (GetDriveType (NULL) == DRIVE_CDROM) 

{ 

MessageBox (hwnd, TEXT ("Cannot run this program from CD-ROM ! 1 ’）， 

szAppName, MB_OK | MB_ICONEXCLAMATION); 

return 0 ; 

} 

// Ask user if an Internet connection is desired 


from Internet ?’，）， 


if (IDYES == MessageBox (hwnd, TEXT ("Update information 


szAppName, MB YESNO | MB ICONQUESTION)) 


// Invoke dialog box 


DialogBox (hlnst, szAppName, hwnd, DlgProc); 

// Update display 
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SendMessage (hwnd, WM—USER—GETFILES , ◦, 0); 
return 0 ; 

case WM—USER_GETFILES: 

SetCursor (LoadCursor (NULL, IDC—WAIT)); 

ShowCursor (TRUE); 

// Read in all the disk files 

plist = GetFileList (); 

ShowCursor (FALSE); 

SetCursor (LoadCursor (NULL, IDC—ARROW)); 

// Simulate a WM—SIZE message to alter scroll bar & repaint 

SendMessage (hwnd, WM—SIZE, ◦, MAKELONG (cxClient, cyClient)); 
工 nvalidateRect (hwnd, NULL, TRUE); 
return 0 ; 

case WM—PAINT: 

hdc = BeginPaint (hwnd, &ps); 

SetTextAlign (hdc, TA_UPDATECP); 

si.cbSize = sizeof (SCROLLINFO); 
si.fMask = SIF_POS ; 

GetScrollInfo (hwnd, SB—VERT, &si); 

if (plist) 

{ 

for (i = ◦ ; i < plist->iNum ; i++) 

{ 

MoveToEx (hdc, cxChar, (i - si.nPos) * cyChar, NULL); 
TextOut (hdc, ◦, ◦, plist->info[i]•szFilename, 

lstrlen (plist->info[i].szFilename)); 

TextOut (hdc, 0, ◦, TEXT (" : n ), 2); 

TextOutA (hdc, 0, ◦, plist->info [i] .szContents, 
strlen (plist->info[i].szContents)); 

} 

} 

EndPaint (hwnd, &ps); 
return 0 ; 

case WM—DESTROY: 

PostQuitMessage (0); 
return 0 ; 

} 

return DefWindowProc (hwnd, message, wParam, IParam); 
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BOOL CALLBACK DlgProc ( HWND hwnd, UINT message, WPARAM wParam, LPARAM 

IParam) 

{ 

static PARAMS params ; 
switch (message) 

{ 

case WM_INITDIALOG: 

params.bContinue = TRUE ; 
params.hwnd = hwnd ; 

—beginthread (FtpThread, ◦, Hms); 
return TRUE ; 

case WM—COMMAND: 

switch (LOWORD (wParam)) 

{ 

case IDCANCEL: // button for user to abort download 

params.bContinue = FALSE ; 
return TRUE ; 

case IDOK: // button to make dialog box go away 

EndDialog (hwnd, 0); 
return TRUE ; 

} 

} 

return FALSE ; 

} 

/* - 

FtpThread : Reads files from FTP server and copies them to local disk 


void FtpThread (PVOID parg) 

{ 

BOOL 

HINTERNET 
HWND 
PARAMS 
TCHAR 

WIN32_FIND_DATA finddata ; 

pparams = parg ; 

hwndStatus = GetDlgltem (pparams 
hwndButton = GetDlgltem (pparams 


bSuccess ; 

hlntSession, hFtpSession, hFind ; 

hwndStatus, hwndButton ; 
* pparams ; 

szBuffer [64]; 


>hwnd, 工 DC_STATUS); 
>hwnd, IDCANCEL); 
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// Open an internet session 

hlntSession = InternetOpen (szAppName, INTERNET—OPEN_TYPE—PRECONFIG, 

NULL, NULL, INTERNET_FLAG—ASYNC); 
if (hlntSession == NULL) 

{ 

wsprintf (szBuffer, TEXT ( n InternetOpen error %i n ), GetLastError ()); 

ButtonSwitch (hwndStatus, hwndButton, szBuffer); 

_endthread (); 

} 

SetWindowText (hwndStatus, TEXT (’'Internet session opened ..."))； 

// Check if user has pressed Cancel 
if ( !pparams->bContinue) 

{ 

工 nternetCloseHandle (hlntSession); 

ButtonSwitch (hwndStatus, hwndButton, NULL); 

_endthread (); 

} 

// Open an FTP session. 

hFtpSession = 工 nternetConnect (hlntSession, FTPSERVER, 

工 NTERNET_DEFAULT_FT P_PORT, 

NULL, NULL, INTERNET_SERVICE_FTP, ◦, 0); 
if (hFtpSession == NULL) 

{ 

工 nternetCloseHandle (hlntSession); 

wsprint f (szBuffer, TEXT (▼，InternetConnect error %i n ), 

GetLastError ()); 

ButtonSwitch (hwndStatus, hwndButton, szBuffer); 

_endthread (); 

} 

SetWindowText (hwndStatus , TEXT ("FTP Session opened ..."))； 

// Check if user has pressed Cancel 
if ( !pparams->bContinue) 

{ 

工 nternetCloseHandle (hFtpSession); 

工 nternetCloseHandle (hlntSession); 

ButtonSwitch (hwndStatus, hwndButton, NULL); 

_endthread (); 

} 

// Set the directory 

bSuccess = FtpSetCurrentDirectory (hFtpSession, DIRECTORY); 
if ( !bSuccess) 

{ 
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} 

工 nternetCloseHandle (hFtpSession); 

工 nternetCloseHandle (hintSession); 

wsprintf ( szBuffer, TEXT ("Cannot set directory to %s n ), 

DIRECTORY); 

ButtonSwitch (hwndStatus, hwndButton, szBuffer); 

endthread (); 

SetWindowText (hwndStatus , TEXT ("Directory found ..."))； 

// Check if user has pressed Cancel 

if (!pparams->bContinue) 

/ 


} 

工 nternetCloseHandle (hFtpSession); 

InternetCloseHandle (hintSession); 

ButtonSwitch (hwndStatus, hwndButton, NULL); 

endthread (); 


// Get the first file fitting the template 
hFind = FtpFindFirstFile (hFtpSession, TEMPLATE, &finddata, 0, 

if (hFind == NULL) 

f 

0) ； 

i 

} 

InternetCloseHandle (hFtpSession); 

工 nternetCloseHandle (hintSession); 

But tonS witch (hwndStatus, hwndButton, TEXT ("Cannot find files’’））; 

endthread (); 

do 

r 



i 

// Check if user has pressed Cancel 

if (!pparams—>bContinue) 

； 



i 

InternetCloseHandle (hFind); 

工 nternetCloseHandle (hFtpSession); 

InternetCloseHandle (hintSession); 

ButtonSwitch (hwndStatus, hwndButton, NULL); 

endthread (); 

1 


f 

// Copy file from internet to local hard disk, 

// if the file already exists locally 

but fail 

finddata, 

wsprintf (szBuffer, TEXT ("Reading file 

.cFileName); 

SetWindowText (hwndStatus, szBuffer); 

%s …， '）， 


FtpGetFile ( hFtpSession, 

finddata.cFileName, finddata.cFileName, TRUE, 
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FILE 

1 

ATTRIBUTE NORMAL, FTP TRANSFER TYPE BINARY, 0); 



while (工 nternetFindNextFile (hFind, &finddata)); 



InternetCloseHandle (hFind); 

InternetCloseHandle (hFtpSession); 

工 nternetCloseHandle (hintSession); 



} 

ButtonSwitch (hwndStatus, hwndButton, TEXT ( n 工 nternet Download Complete ▼，））； 

! 'k _ 

ButtonSwitch 

: Displays final status message 

and changes Cancel 

to OK 

— 

— 



_* / 

VOID 

( 

ButtonSwitch 

(HWND hwndStatus, HWND hwndButton, TCHAR * szText) 


X 

if (szText) 

SetWindowText (hwndStatus, 

szText); 



else 

SetWindowText (hwndStatus , 

TEXT ("Internet 

Session 

Cancelled")) ; 





SetWindowText (hwndButton, TEXT ("OK")); 



} 

SetWindowLong (hwndButton, GWL ID, IDOK); 



j 'k _ 

— 





GetFileList : 

Reads files from disk and saves 

their names and contents 

-V 

FILELIST * GetFileList (void) 

r 




DWORD 


dwRead ; 



FILELIST 

* plist ; 



HANDLE 

hFile, hFind ; 



int 


iSize, iNum ; 



WIN32 FIND DATA finddata ; 




hFind = FindFirstFile (TEMPLATE, &finddata) 

參 

f 



if (hFind == 

INVALID HANDLE VALUE) 





return NULL ; 




plist = 

: NULL ; 




iNum = 

: 0 ; 




do 

{ 
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// Open the file and get the size 
hFile = CreateFile (finddata.cFileName, GENERIC—READ, 

FILE_SHARE_READ, 

NULL, OPEN_EXISTING, ◦, NULL); 

if (hFile == INVALID_HANDLE—VALUE) 

continue ; 

iSize = GetFileSize (hFile, NULL); 
if (iSize == (DWORD) -1) 

{ 

CloseHandle (hFile); 
continue ; 

} 

// Realloc the FILELIST structure for a new entry 

plist = realloc (plist, sizeof (FILELIST) + iNum * sizeof (FILEINFO)); 

// Allocate space and save the filename 

plist->info[iNum].szFilename = malloc (lstrlen 

(finddata.cFileName) +sizeof (TCHAR)); 

lstrcpy (plist—>info[iNum]•szFilename, finddata.cFileName); 

// Allocate space and save the contents 

plist->info[iNum].szContents = malloc (iSize + 1); 

ReadFile (hFile, plist->info[iNum].szContents, iSize, &dwRead, NULL); 

plist->info[iNum] .szContents [iSize] = 0 ; 

CloseHandle (hFile); 
iNum ++ ; 

} 

while (FindNextFile (hFind, &finddata)); 

FindClose (hFind); 

// Sort the files by filename 
qsort (plist->info, iNum, sizeof (FILEINFO), Compare); 
plist—>iNum = iNum ; 
return plist ; 


Compare function for qsort 


*/ 
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int Compare (const FILEINFO * pinfol, const FILEINFO * pinfo2) 

{ 

return lstrcmp (pinfo2 - >szFilename A pinfol->szFilename); 

} 

UPDDEMO.RC (摘录） 

/ /Microsoft Developer Studio generated resource script. 

♦include "resource.h" 

♦include "afxres.h" 

//////////////////////////////////////////////////////////////////////////// 

/ 

// Dialog 

UPDDEMO DIALOG DISCARDABLE 20, 20, 186, 95 

STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU 

CAPTION "Internet Download" 

FONT 8, "MS Sans Serif" 

BEGIN 

PUSHBUTTON Cancel ”， 工 DCANCEL,69,74,50,14 

CTEXT nn , 工 DC—STATUS,7,29,172,21 

END 

RESOURCE. H (摘录） 

// Microsoft Developer Studio generated include file. 

// Used by UpdDemo.rc 

♦define IDC_STATUS 40001 

UPDDEMO 使用的档案名称是 UDyyyymm . TXT , 其中 yyyy 是 4 位阿拉伯数字的 
年数（当然适用於 2000) ， mm 是2位阿拉伯数字的月数。这里假定程式可以享 
有每个月都有更新档案的好处。这些档案可能是整个月刊，而由於阅读效率上 
的考虑，让程式将其下载到本地储存媒体上。 

因此 ， WinMain 在呼叫 ShowWindow 和 UpdateWindow 来显示 UPDDEMO 主视窗 
以後，向 WndProc 发送程式定义的 WM _ USER _ CHECKFILES 讯息。 WndProc 通过获 
得目前的年、月并检查该年月 UDyyyymm . TXT 档案所在的内定目录来处理此讯息。 
这种档案的存在意义在於 UPDDEMO 会被完全更新（当然，事实并非如此。一些 
过时的档案将漏掉。如果要做得更完整，程式得进行更广泛的检测）。在这种 
情况下， UPDDEMO 向自己发送一个 WM _ USER _ GETFILES 讯息，它通过呼叫 
GetFileList 函式来处理。这是 UPDDEMO . C 中稍长的一个函式，但它并不是特别 
有用，它所做的全部工作就是将所有的 UDyyyymm . TXT 档案读到动态配置的 
FILELIST 型态结构中，该结构是在程式顶部定义的，然後让程式在其显示区域 
显示这些档案的内容。 

如果 UPDDEMO 没有最新的档案，那么它必须透过 Internet 进行更新。程式 
首先询问使用者这样做是否 「0 K 」 。如果是，程式将显示一个简单的对话方块， 
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其中只有一个 「 Cancel 」 按钮和一个 ID 为 IDC _ STATUS 的静态文字区。下载时， 
此静态文字区向使用者提供状态报告，并且允许使用者取消过於缓慢的更新作 
业。此对话程序的名称是 DlgProc 。 

DlgProc 很短，它建立了一个包括自身视窗代号的 PARAMS 型态的结构以及 
一个名称为 bContinue 的 B 00 L 变数，然後呼叫_ beginthread 来执行第二个执 
行绪。 

FtpThread 函式透过使用下面的呼叫来完成实际的传输： InternetOpen 、 
InternetConnect 、 FtpSetCurrentDirectory 、 FtpFindFirstFile 、 
InternetFindNextFile、FtpGetFile 和 InternetCloseHandle (三次)。如同 
大多数程式码，该执行绪函式如果略过错误检查、让使用者了解下一步的操作 
情况以及允许使用者随意取消整个显示的那些步骤，那么它将变得简洁许多。 
FtpThread 函式透过用 hwndStatus 代号呼叫 SetWindowText 来让使用者知道进 
展情况，这里指的是对话方块中间的静态文字区。 

执行绪可以依照下面的三种方式之一来终止： 

第一种， FtpThread 可能遇到从 Winlnet 函式传回的错误。如果是这样，它 

将清除并编排错误字串的格式，然後将此字串（连同对话方块文字区代号和 
「 Cancel 」 按钮的代号一起）传递给 ButtonSwitch 。 ButtonSwitch 是一个小函 

式，它显示了文字字串，并将 「 Cancel 」 按钮转换成 「0 K 」 按钮——不只是按 
钮上的文字字串的转换，还包括控制项 ID 的转换。这样就允许使用者按下 rOKj 
按钮来结束对话方块。 

第二种方式， FtpThread 能在没有任何错误的情况下完成任务，其处理方法 
和遇到错误时的方法一样，只不过对话方块中显示的字串为 「 Internet Download 
Complete 」 。 

第三种方式，使用者可以在程序中选择取消下载。这时， DlgProc 将 PARAMS 
结构的 bContinue 栏位设定为 FALSE 。 FtpThread 频繁地检查该值，如果 
bContinue 等於 FALSE ， 那么函式将做好应该进行的收拾工作，并以 NULL 文字 
参数呼叫 ButtonSwitch ，此参数表示显示了字串 「 Internet Session 
Cancelled 」 。同样，使用者必须按下 「0 K 」 按钮来关闭对话方块。 

虽然 UPDDEM 0 取得的每个档案只能显示一行，但我（本书的作者）可以用 
这个程式来告诉您（本书的读者）本书的更新内容以及其他资讯，您也可以在 
网站上发现更详细的资讯。因此， UPDDEM 0 成为我向您传送资讯的方法，并且可 
以让本书的内容延续到最後一页之後。 
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第二十四章附录 

侯捷计算机领域的术语对照（英中繁简）。 

• 「 式」： 


constructor 

建构式 

declaration 

宣告式 

definition 

定义式 

destructor 

解构式 

expression 

算式（运算式） 

function 

函式 

pattern 

范式、模式、样式 

program 

程式 

signature 

标记式 


「件」 ： （这是个弹性非常大的可组合字 ) 


assembly 

( 装)配件 

component 

组件 

construct 

构件 

control 

控件 

event 

事件 

hardware 

硬件 

object 

物件 

part 

零件、部件 

singleton 

单件 

software 

软件 

work 

工件、机件 


• 「器」 ： 


adapter 

配接器 

allocator 

配置器 

compiler 

编译器 

container 

容器 

iterator 

迭代器 

linker 

联（连）结器 
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listener 

监听器 

• 

「别」 ： 

class 

类别 

type 

型别 

• 

「化」 ： 

generalized 

泛化 

specialized 

特化 

overloaded 

多载化（重载） 


「型」 ： 


polymorphism 

多型 

generici' 


泛型 


「程」 ： 


process 

行程 （ or 进程，大陆用语） 

thread 

线程（大陆用语） 

programming 

编程 


籲英中繁简编程术语对照表 


英文术语 

繁体 

简体 

#def ine 

定义 

预定义 

abstract 

抽象的 

抽象的 

abstraction 

抽象体、抽象物、抽象性 

抽象体、抽象物、抽象性 

access 

存取、取用 

存取、访问 

access function 

存取函式 

存取函数 

activate 



active 



adapter 

配接器 

适配器 

address 

位址 

地址 

address space 

位址空间，定址空间 


address-of operator 

取址运算子 

取地址运算符 

aggregation 

聚合 


algorithm 

演算法 

算法 
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allocate 

配置 

分配 

allocator 

( 空间）配置器 

分配器 

application 

应用程式 

应用、应用程序 

application framework 

应用程式框架、应用框架 

应用程序框架 

argument 

引数（传给函式的值）。叁 

见 parameter 

叁数、实质叁数、实叁、 

自变量 

array 

阵列 

数组 

arrow operator 

arrow ( 箭头）运算子 

箭头运算符 

assembly 

配件 


assembly language 

组合语言 

汇编语言 

assign 

指派、指定、设值、赋值 

赋值 

assignment 

指派、指定 

赋值、分配 

assignment operator 

指派（赋值）运算子 = 

赋值运算符 

associated 

相应的、相关的 

相关的、关联、相应的 

associative container 

关联式容器（对应 
sequential container) 

关联式容器 

atomic 

不可分割的 

原子的 

attribute 

属性 

特性 

background 

背景 

背景（用於图形着色） 

後台（用於行程） 

base class 

基础类别 

基类 

base type 

基础型别（等同於 base 

class) 


batch 

批次（意思是整批作业） 

批处理 

best viable function 

最佳可行函式 
(从 viable functions 中 

挑出的最佳吻合者） 

最佳可行函式 

binary search 

二分搜寻法 

二分查找 

binary tree 

二元树 

二叉树 

binary operator 

二元运算子 

二元运算符 

binding 

系结 

绑定 

bit 

位元 

位 

bit field 

位元栏？ 

位域 

bitmap 

位元图？ 

位图 

bitwise 

以 bit 为单元逐一 

9 

• 
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bitwise copy 

以 bit 为单元进行 复制； 位 

元逐一复制 

位拷贝 

block 

区块 

块、区块、语句块 

boolean 

布林值（真假值， true 或 

false) 

布尔值 

border 

边框、框线 

边框 

brace(curly brace) 

大括弧、大括号 

花括弧、花括号 

bracket(square brakcet) 

中括弧、中括号 

方括弧、方括号 

breakpoint 

中断点 

断点 

build-in 

内建 

内置 

bus 

汇流排 


byte 

位元组（由 8 bits 组成） 

字节 

cache 

快取 

高速缓存 

call 

呼叫、叫用 

调用 

callback 

回呼 

回调 

call operator 

call ( 函式呼叫）运算子 （） 

(|nj function call 

operator) 

调用运算符 

candidate function 

候选函式 

(在函式多载决议程序中出 

现的候选函式） 

候选函数 

chain 

串链（例 chain of function 

calls) 

链 

character 

字元 

字符 

check box 

核取方块 (i. e. check 

button) 

复选框 

check button 

方钮 (i. e. check box) 

复选按钮 

child class 

子类别（或称为 derived 

class, subtype) 

子类 

class 

类别 

类 

class body 

类别本体 

类体？ 

class declaration 

类别宣告、类别宣告式 

类声明 

class definition 

类别定义、类别定义式 

类定义 

class derivation list 

类别衍化列 

类继承列表 

class head 

类别表头 

类头？ 


第1337页 


















































































Programming Windows 程式开发设计指南 （ Windows95 程序设计第五版 ) 


class hierarchy 

类别继承体系，类别阶层 

类层次体系 

class library 

类别程式库、类别库 

类库 

class template 

类别模板、类别范本 

类模板 

class template partial 

specializations 

类别模板偏特化 

类模板部分特化 

class template specializations 

类别模板特化 

类模板特化 

cleanup 

清理、善後 

清理、清除 

client 

客端、客户端、用户端 

客户端 

client-server 

主从架构 

客户/服务器 

clipboard 

剪贴簿 

剪贴板 

clone 

复制 

( 易与 copy 混淆） 

克隆 

collection 

群集 

集合？ 

combo box 

复合方块、复合框 

组合框 

command line 

命令列 

(系统文字模式下的整行执 

行命令） 

命令行 

communication 

通讯 

通讯 

compile time 

编译期 

编译期、编译时 

compiler 

编译器 

编译器 

component 

组件 

组件 

composition 

复合、合成、组合 

组合 

computer 

电脑、计算机 

计算机、电脑 

concrete 

具象的 

实在的 

concurrent 

并行 

并发 

configuration 

组态 

配置 

container 

容器 

(存放资料的某种结构如 

list, vector …） 

容器 

context 

背景关系、周遭环境、上下 

脉络 

环境、上下文 

control 

控制元件、控件 

控件 

const 

常数 （ constant 的缩写， C++ 

关键字） 


constant 

常数（相对於 variable) 

常量、常数 
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constructor (ctor) 

建构式 

(与 class 同名的一种 

member functions) 

构造函数、构造器 

copy 

复制、拷贝 

拷贝 

cover 

涵盖 

覆盖 

create 

产生、生成 

创建、生成 

creation 

产生、生成 

创建、生成 

data 

资料 

数据 

data member 

资料成员、成员变数 

数据成员、成员变量 

data structure 

资料结构 

数据结构 

datagram 

资料元 

数据报文 

dead lock 

死结 

死锁 

debug 

除错 

调试 

declaration 

宣告、宣告式 

声明 

deduction 

推导（例： template 

argument deduction) 

推导、推断 

default 

预设 

缺省、默认 

definition 

定义、定义区、定义式 

定义 

delegate 

委派、委托、委任 


delegation 

( 同上） 


dereference 

提领（取出指标所指物体的 

内容） 

解叁考 

dereference operator 

dereference ( 提领)运算子 

氺 

解叁考算符 

derived class 

衍生类别 

派生类 

design by contract 

契约式设计 


design pattern 

设计样式 

※ 最近我比较喜欢「设计范 

式 J 一词 

设计模式 

destructor (dtor) 

解构式 

析构函数、析构器 

device 

装置、设备 

设备 

dialog 

对话窗、对话盒 

对话框 

directive 

指令（例： using directive) 

( 编译)指不符 

directory 

目录 

目录 

distributed computing 

分布式计算（分布式电算） 

分布式计算 
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分散式计算（分散式电算） 


document 

文件 

文档 

dot operator 

dot (句点）运算子. 

(圆）点运算符 

driver 

驱动程式 

驱动（程序） 

dynamic binding 

动态系结 

动态绑定 

efficiency 

高效、效率、效能 


entity 

物体 

实体、物体 

encapsulation 

封装 

封装 

enclosing class 

外围类别（与巢状类别 

nested class 有关） 

外围类 

enum (enumeration) 

列举（一种 C++ 资料型别） 

枚举 

enumerators 

列举元 (enum 型别中的成 

员） 

枚举成员、枚举器 

equality operator 

equality (等号)运算子 == 

等号运算符 

evaluate 

评估、求值、核定 

评估 

event 

事件 

事件 

event driven 

事件驱动的 

事件驱动的 

exception 

异常情况 

异常 

exception declaration 

异常宣告 （ ref. C++ Primer 

3/e, 11.3) 

异常声明 

exception handling 

异常处理、异常处理机制 

异常处理、异常处理机制 

exception specification 

异常规格（: ref. C++ Primer 

3/e, 11.4) 

异常规范 

exit 

退离（指离开函式时的那一 

个执行点） 

退出 

explicit 

明白的、明显的、显式 

显式 

export 

汇出 

引出、导出 

expression 

运算式、算式 

表达式 

facility 

设施、设备 

设施、设备 

feature 

特性 


field 

栏位 

字段 

file 

档案 

文件 

firmware 

韧体 

固件 

flush 

清理、扫清 

刷新 

form 

表单 （programming 用语） 
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formal parameter 

形式$数 

形式衾数 

forward declaration 

前置言告 

前置声明 

fractal 

碎形 

分形 

framework 

框架 

框架 

full specialization 

全特化 （ ref. partial 

specialization) 

9 

• 

function 

函式、函数 

函数 

function call operator 

同 call operator 


function object 

函式物件 （ ref. C++ Primer 

3/e, 12.3) 

函数对象 

function overloaded resolution 

函式多载决议程序 

函数重载解决（方案） 

function template 

函式模板、函式范本 

函数模板 

functor 

仿函式 

仿函式、函子 

generic 

泛型、 一 般化的 

一般化的、通用的、泛化 

generic algorithm 

泛型演算法 

通用算法 

global 

全域性的（对应於 local) 

全局的 

global scope resolution 

operator 

全域生存空间（范围决议） 

运算子：： 

全局范围解析运算符 

group 

群组 

? 

參 

group box 

群组方块 

分组框 

hand shaking 

握手协商 


handle 

识别码、识别号、号码牌、 

权柄 

句柄 

handler 

处理常式 

处理函数 

hardware 

硬体 

硬件 

hash table 

杂凑表 

哈希表、散列表 

header file 

表头档、标头档 

头文件 

heap 

堆积 

堆 

hierarchy 

阶层体系 

层次结构（体系） 

hook 

挂钩 

钩子 

hyperlink 

超链结 

超链接 

IDE 

整合开发环境 

集成开发环境 

identifier 

识别字、识别符号 

标识符 

immediate base 

直接的（紧临的）上层 base 

classo 

直接上层基类 
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immediate derived 

直接的（紧临的）下层 

derived class 。 

直接下层派生类 

implement 

实作 

实现 

implementation 

实作品、实作物、实作体、 

实作码 

实现 


隐喻的、暗自的、隐式 

隐式 

import 

汇入 

导入 

increment operator 


增加运算符 

information 

资讯 

信息 

infrastructure 

公共基础建设 


inheritance 

继承、继承机制 

继承、继承机制 

inline 

行内 

内联 

inline expansion 

行内展开 

内联展开 

initialization 

初始化（动作） 

初始化 

initialization list 

初值列 

初始值列表 

initialize 

初始化 

初始化 

instance 

实体 

(根据某种表述而实际产生 

的「东西」） 

实例 

instantiated 

具现化、实体化（常应用於 
template) 

实例化 

instantiation 

具现体、具现化实体（常应 
用於 template) 

实例 

integrate 

整合 

集成 

interface 

介面 

接口 

invoke 

唤起 

调用 

iterate 

迭代（回圈一个轮回一个轮 

回地进行） 

迭代 

iterative 

反覆的，迭代的 


iterator 

迭代器（一种泛型指标） 

迭代器 

iteration 

迭代（回圈每次轮回称为一 

个 iteration) 

迭代 

item 

项目、条款 

项、条款、项目 

laser 

雷射 

激光 

level 

阶 

层 
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例 high level 

高阶 

尚层 

library 

程式库、函式库 

库、函数库 

lifetime 

生命期、寿命 

生命期、寿命 

link 

联结、连结 

连接 

linker 

联结器、连结器 

连接器 

literal constant 

字面常数（例 3. 14 或 〃 hi 〃 

这等常数值） 

字面常数 

list 

串列 (linked-list) 

列表、表、链表 

list box 

列表方块、列表框 

列表框 

load 

载入 

装载、加载 

loader 

载入器 

装载器、载入器 

local 

区域性的（对应於 global) 

局部的 

lock 

机锁 


loop 

回圈 

循环 

lvalue 

左值 

左值 

macro 

巨集 

宏 

maintain 

维护 

维护 

manipulator 

操纵器 （iostream 预先定义 

的一种东西） 

操纵器 

mechanism 

机制 

机制 

member 

成员 

成员 

member access operator 

成员取用运算子（有 dot 和 

arrow 两种） 

成员存取运算符 

member function 

成员函式 

成员函数 

member initialization list 

成员初值列 

成员初始值列表 

memberwise 

以 member 为单元…、 

members 逐 一 --- 

以成员为单位 

memberwise copy 

以 members 为单元逐一复 

制 


memory 

记忆体 

内存 

menu 

表单、选单 

菜单 

message 

讯息 

消息 

message based 

以讯息为基础的 

基於消息的 

message loop 

讯息回圈 

消息环 

method (java) 

方法、行为 
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micro 

微 

微 

modeling 

模塑 


modeling language 

塑模语言，建模语言 


module 

模组 

模块 

most derived class 

最末层衍生类别 

最底层的派生类 

mouse 

滑鼠 

鼠标 

mutable 

可变的 

可变的 

multi-tasking 

多工 

多任务 

namespace 

命名空间 

名字空间、命名空间 

nested class 

巢状类别 

嵌套类 

object 

物件 

对象 

object based 

以物件为基础的 

基於对象的 

object model 

物件模型 

对象模型 

object oriented 

物件导向的 

面向对象的 

online 

线上 

在线 

operand 

运算元 

操作数 

operating system (OS) 

作业系统 

操作系统 

operation 

操作、操作行为 

操作 

operator 

运算子 

操作符、运算符 

option 

选项 

选项 

overflow 

上限溢位（相对於 

underflow) 

溢出 (underflow : 下溢） 

overhead 

额外负担 

额外开销 

overload 

多载化、多载化、重载 

重载 

overloaded function 

多载化函式 

重载的函数 

overloaded operator 

多载化运算子 

被重载的运算符 

overloaded set 

多载集合 

重载集合 

override 

改写、覆写（在 derived 

class 中重新定义虚拟函式 

重载、改写、重新定义 

package 

套件 


pair 

对组 


palette 

调色盘、组件盘、工具箱 


pane 

窗格（有时为嵌板之意，例 

Java Content Pane) 

窗格 

parameter 

叁数（函式叁数列上的变数） 

巻数、形式 巻数、 形奎 
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parameter list 

巻数列 

巻数列表 

parent class 

父类别（或称 base class) 

父类 

parentheses 

小括弧、小括号 

圆括弧、圆括号 

parse 

解析 

解析 

partial specialization 

偏特化 （ ref. C++ Primer 

3/e, 16. 10) 

( ref. full 

specialization) 

局部特化 

pass by address 

传址（函式引数的传递方式） 

传地址 

pass by reference 

传址（函式引数的传递方式） 

传地址 

pass by value 

传值（函式引数的传递方式） 

传值 

pattern 

样式 

※ 最近我比较喜欢「范式」 

―'词 

模式 

performance 

效率 

性能 

pixel 

图素、像素 

像素 

placement delete 

ref. C++ Primer 3/ e, 

15.8.2 


placement new 

ref. C++ Primer 3 / e, 

15.8.2 


platform 

平台 

平台 

pointer 

指标 

址位器（和址叁器 

reference 形成对映，满好） 

指针 

polymorphism 

多型 

多态 

pop up 

冒起式、弹出式 

弹出式 

port 

焊 


precedence 

优先序（通常用於运算子的 

优先执行次序） 


preprocessor 

前处理器 

预处理器 

primitive type 

基本型别（不同於 base 

class) 


print 

列印 

打印 

printer 

印表机 

打印机 

priority 

优先权（通常用於执行绪获 
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得 CPU 时间的优先次序） 


procedure 

程序 

过程 

procedural 

程序性的、程序式的 

过程式的 

process 

行程 

进程 

profile 

评测 

评测 

profiler 

效能评测器 

效能评测器 

programmer 

程式员 

程序员 

programming 

编程、程式设计、程式化 

编程 

progress bar 

进度指不器 

进度指不器 

project 

专案 

项目、工程 

property 

??? 

參 • ♦ 

属性 

protocol 

协定 

协议 

pseudo code 

假码、虚拟码、伪码 

伪码 

qualified 

经过资格修饰（例如加上 
scope 运算子） 

限定？ 

qualifier 

资格修饰词、饰词 

限定修饰词？ 

quality 

品质 

质量 

queue 

伫列 

队列 

radio button 

圆钮 

单选按钮 

raise 

引发（常用来表示发出一个 
exception) 

引起、引发 

random number 

随机数、乱数 

随机数 

range 

范围、区间（用於 STL 时） 

范围、区间 

rank 

等级、分等 （ ref. C++Primer 

3/e 9, 15 章） 

等级 

raw 

生鲜的、未经处理的 

未经处理的 

record 

记录 

记录 

recordset 

记录集 

记录集 

recursive 

递回 

递归 

re-direction 

重导向 

重定向 

refactoring 

重构、重整 

重构 

refer 

取用 

叁考 

reference 

(C++ 中类似指标的东西， 

相当於"化 身〃) 

址奎器 ， see pointer 

引用、叁考 
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register 

暂存器 

寄存器 

relational database 

关联式资料库 

关系数据库 

represent 

表述？表现 

表述？表现 

resolve 

决议（为算式中的符号名称 

寻找对应之宣告式的过程） 

解析 

resolution 

决议程序、决议过程 

解析过程 

return 

传回、回返 

返回 

return type 

回返型别 

返回类型 

return value 

回返值 

返回值 

robust 

强固、稳健 

健壮 

robustness 

强固性、稳健性 

健壮性 

routine 

常式 

例程 

runtime 

执行期 

执行期、执行时 

rvalue 

右值 

右值 

save 

储存 

存储 

schedule 

排程 

调度 

scheduler 

排程器 

调度程序 

scroll bar 

卷轴 

滚动条 

scope 

生存空间、生存范围、范畴 

生存空间 

scope operator 

生存空间（范围决议）运算 

子：： 

生存空间运算符 

scope resolution operator 

生存空间决议运算子（与 
scope operator 同） 

生存空间解析运算符 

search 

搜寻 

查找 

semantics 

语意 

语义 

sequential container 

序列式容器（对应於 

associative container) 

顺序式容器 

server 

伺服器、伺服端 

服务器、服务端 

serialization (serialize) 

次第读写 

序列化 

signature 

标记式 


slider 

滚轴 

滑块 

slot 

条孔、槽 

槽 

smart pointer 

灵巧指标、机灵指标 

智能指针 

specialization 

特殊化、特殊化定义、特殊 

化官告 

特化 
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splitter 

分裂视窗 

切分窗口 

software 

软体 

软件 

source 

原始码 

源码、源代码 

stack 

堆叠 

栈 

stack unwinding 

堆叠辗转开解（此词用於 
exception 主题） 

栈辗转开解 * 

standard library 

标准程式库 


standard template library 

标准模板程式库 


statement 

述句 

语句、声明 

status bar 

状态列、状态栏 

状态栏 

STL 

见 standard template 

library 


stream 

资料流、串流 

流 

string 

字串 

字符串 

subscript operator 

下标运算子 [] 

下标运算符 

subtype 

子型别 

子类型 

support 

支援 

支持 

syntax 

语法 

语法 

target 

标的（例 target pointer ： 

标的指标） 

目标 

task switch 

工作切换 

任务切换 

template 

模板、范本 

模板 

template argument deduction 

模板引数推导 

模板叁数推导 

template explicit 

specialization 

模板显式特化（版本） 

模板显式特化？ 

template parameter 

模板叁数 

模板叁数 

text file 

程式本文档（放置程式原始 

码的档案） 

文本文件 

thread 

执行绪 

线程 

throw 

丟掷（常指发出一个 

exception) 

丟掷、引发 

token 

语汇单元 

符号、标记 

transaction 

交易 

事务 

trigger 

触发 

触发 

type 

型别 

类型 
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UML unified modeling language 

统一建模语言 


unary operator 

一元运算子 

一元运算符 

underflow 

下限溢位（相对於 

overflow) 

下溢 

unqualified 

未经资格修饰（而直接取用） 

9 

參 

unwinding 

ref. stack unwinding 

9 

• 

variable 

变数（相对於常数 const) 

賴 

vector 

向量（一种容器，有点类似 

array) 

向量 

viable 

可实行的、可行的 

可行的 

viable function 

可行函式（从 candidate 

functions 中挑出者） 

可行函数 

view(document/view) 


视图 

virtual function 

虚拟函式 

虚函数 

volatile 

易挥发的、易变的 

9 

參 

window 

视窗 

窗口 

window function 

视窗函式 

窗口函数 

window procedure 

视窗函式 

窗口过程 

word 

字 

词 

wrapper 

外覆、外包 


xxx based 

以 XXX 为基础 

基於 XXX 

xxx box 

XXX 盒、 XXX 方块、框 

XXX 框 

例如 dialog box 

对话盒、对话方块、对话框 

对话框 

xxx oriented 

XXX 导向 

面向 XXX 




























































